uxn

commit 4ac632f2271950cc5e671182e4f5612ec8878bc5
parent cca1253376a5ad3eb728f6ed8b4e4b06ca8a9a62
Author: neauoire <aliceffekt@gmail.com>
Date:   Sat,  1 Jan 2022 15:24:18 -0800

Remove debugger from console.tal

Diffstat:
M
projects/examples/devices/console.tal
 | 
23
++---------------------

1 file changed, 2 insertions(+), 21 deletions(-)
diff --git a/projects/examples/devices/console.tal b/projects/examples/devices/console.tal
@@ -2,8 +2,6 @@
 
 %HALT   { #010f DEO }
 %EMIT   { #18 DEO }
-%DEBUG  { ;print-hex/byte JSR2 #0a EMIT }
-%DEBUG2 { ;print-hex JSR2 #0a EMIT }
 
 ( init )
 
@@ -12,27 +10,10 @@
 	;hello-word 
 	&while
 		( send ) LDAk EMIT
-		#20 EMIT
-		DUP2 ;print-hex JSR2
-		#20 EMIT
-		LDAk ;print-hex/byte JSR2
-		#0a EMIT
 		INC2 LDAk ,&while JCN
 	POP2
 	( stop ) HALT
 
 BRK
 
-@print-hex ( value* -- )
-
-	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!
-\ No newline at end of file
+@hello-word "Hello 20 "Uxn! $1
+\ No newline at end of file