etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2025-01-05 07:01:20 +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:33:18 -08:00
parent 0d7518bfdf
commit 7448e30b93
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -25,8 +25,8 @@
STZ2 STZ2
BRK } BRK }
;arg ;Dict/yousent <print-result> ;arg ;Dict/yousent <print-result>
[ LIT2 04 -Console/type ] DEI NEQ ?{ ;on-std .Console/vector DEO2 }
[ LIT2 -arg _&ptr ] STR [ LIT2 -arg _&ptr ] STR
[ LIT2 04 -Console/type ] DEI NEQ ?{ ;on-std .Console/vector DEO2 }
BRK BRK
@on-std ( -> ) @on-std ( -> )
@ -35,13 +35,10 @@
STZ2 STZ2
BRK } BRK }
;std DUP2 ;Dict/yousaid <print-result> ;std DUP2 ;Dict/yousaid <print-result>
;Dict/quit scmp ?quit ;Dict/quit scmp ?{
[ LIT2 -std _&ptr ] STR [ LIT2 -std _&ptr ] STR
BRK BRK }
( quit ) #800f DEO
@quit ( -> )
#800f DEO
#010e DEO
BRK BRK
@<print-result> ( buf* name* -- ) @<print-result> ( buf* name* -- )