etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

(console.tal) Do not eval on space

This commit is contained in:
Devine Lu Linvega 2023-04-05 17:18:03 -07:00
parent 21e41874cb
commit f19d3262ff
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
projects/examples/devices/console.tal
View File

@ -26,8 +26,11 @@ BRK
;buf
DUP2 ;quit-txt scmp ?quit
;yousaid-txt print-str
DUP2 print-str #0a18 DEO
LIT "" #18 DEO
DUP2 print-str
LIT "" #18 DEO #0a18 DEO
sclr
BRK
@ -47,7 +50,7 @@ BRK
JMP2r
@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r
@skey ( key buf -- proc ) OVR #20 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r
@sclr ( str* -- ) LDAk ?&w POP2 JMP2r &w STH2k #00 STH2r STA INC2 LDAk ?&w POP2 JMP2r
@scap ( str* -- end* ) LDAk ?&w JMP2r &w INC2 LDAk ?&w JMP2r
@sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r