d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(console.tal) Fixed underflow error on quit

This commit is contained in:
Devine Lu Linvega 2023-04-16 22:07:47 -07:00
parent a9527fbd95
commit 6021b2b63d
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,7 +51,7 @@ BRK
&eval ( -> ) &eval ( -> )
print-type print-type
;buf ;quit-txt scmp ?quit ;buf ;quit-txt scmp ?&quit
;yousaid-txt pstr ;yousaid-txt pstr
LIT "" #18 DEO LIT "" #18 DEO
;buf pstr ;buf pstr
@ -60,18 +60,18 @@ BRK
BRK BRK
&quit ( buf* -> )
#010f DEO
BRK
@print-type ( -- ) @print-type ( -- )
[ LIT2 00 -Console/type ] DEI #01 GTH DUP ADD ;types ADD2 LDA2 [ LIT2 00 -Console/type ] DEI #01 GTH DUP ADD ;types ADD2 LDA2
!pstr !pstr
@quit ( buf* -> )
POP2 #010f DEO
BRK
( (
@|stdlib ) @|stdlib )