etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2025-01-03 14:11:11 +00:00
Code Issues Projects Releases Wiki Activity

(console.tal) Cleanup

Browse source
This commit is contained in:
Devine Lu Linvega 2024-12-09 13:30:06 -08:00
parent 253dc0974f
commit 0d7518bfdf
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
projects/examples/devices/console.tal
View file

@ -14,22 +14,22 @@
;Dict/hello <print-str>
.Console/type DEI ?{
( | no arguments )
;on-stdin .Console/vector DEO2
;on-std .Console/vector DEO2
BRK }
;on-argument .Console/vector DEO2
;on-arg .Console/vector DEO2
BRK
@on-argument ( -> )
@on-arg ( -> )
[ LIT2 02 -Console/type ] DEI NEQ ?{
.Console/read DEI [ LIT2 00 &ptr -arg ] INCk ,&ptr STR
STZ2
BRK }
;arg ;Dict/yousent <print-result>
[ LIT2 04 -Console/type ] DEI NEQ ?{ ;on-stdin .Console/vector DEO2 }
[ LIT2 04 -Console/type ] DEI NEQ ?{ ;on-std .Console/vector DEO2 }
[ LIT2 -arg _&ptr ] STR
BRK
@on-stdin ( -> )
@on-std ( -> )
[ LIT2 0a -Console/read ] DEI EQU ?{
.Console/read DEI [ LIT2 00 &ptr -std ] INCk ,&ptr STR
STZ2
@ -39,8 +39,9 @@
[ LIT2 -std _&ptr ] STR
BRK
@quit ( buf* -> )
@quit ( -> )
#800f DEO
#010e DEO
BRK
@<print-result> ( buf* name* -- )
@ -52,9 +53,6 @@
#0a18 DEO
JMP2r
(
@|stdlib )
@<print-str> ( str* -- )
LDAk #18 DEO
INC2 & LDAk ?<print-str>