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

Remove debugger from console.tal

This commit is contained in:
neauoire 2022-01-01 15:24:18 -08:00
parent cca1253376
commit 4ac632f227
1 changed files with 1 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,8 +2,6 @@
%HALT { #010f DEO } %HALT { #010f DEO }
%EMIT { #18 DEO } %EMIT { #18 DEO }
%DEBUG { ;print-hex/byte JSR2 #0a EMIT }
%DEBUG2 { ;print-hex JSR2 #0a EMIT }
( init ) ( init )
@ -12,27 +10,10 @@
;hello-word ;hello-word
&while &while
( send ) LDAk EMIT ( send ) LDAk EMIT
#20 EMIT
DUP2 ;print-hex JSR2
#20 EMIT
LDAk ;print-hex/byte JSR2
#0a EMIT
INC2 LDAk ,&while JCN INC2 LDAk ,&while JCN
POP2 POP2
( stop ) HALT ( stop ) HALT
BRK BRK
@print-hex ( value* -- ) @hello-word "Hello 20 "Uxn! $1
SWP ,&byte JSR
&byte ( byte -- )
STHk #04 SFT ,&parse JSR #18 DEO
STHr #0f AND ,&parse JSR #18 DEO
JMP2r
&parse ( byte -- char ) DUP #09 GTH ,&above JCN #30 ADD JMP2r
&above #57 ADD JMP2r
JMP2r
@hello-word "Hello 20 "Uxn!