2 files changed, 12 insertions(+), 15 deletions(-)

M src/main.tal
M src/utils.tal

@@ 813,9 813,11 @@ RTN
 
 @draw-byte ( byte color -- )
 
-	STH DUP
-	#04 SFT GET-CHAR STHkr ,draw-char JSR
-	#0f AND GET-CHAR STHr
+	STH DUP #04 SFT STHkr ,draw-hex JSR STHr
+
+@draw-hex ( byte color -- )
+
+	STH #0f AND GET-CHAR STHr
 
 @draw-char ( char color -- )
 


@@ 1063,15 1065,11 @@ RTN
 
 RTN
 
-@print-hex ( value* -- )
-	
-	SWP ,&byte JSR
-	&byte ( byte -- )
-		STHk #04 SFT ,&parse JSR #18 DEO
-		STHr #0f AND ,&parse JSR #18 DEO
-	RTN
-	&parse ( byte -- char ) DUP #09 GTH ,&above JCN #30 + RTN
-	&above #57 + RTN
+@print ( short* -- )
+
+	&short ( short* -- ) SWP ,&byte JSR
+	&byte ( byte -- ) DUP #04 SFT ,&char JSR
+	&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD EMIT
 
 RTN
 

@@ 28,9 28,8 @@
 %MAX2 { GTH2k JMP SWP2 POP2 }
 
 %EMIT   { #18 DEO }
-%PRINT  { ;print-str JSR2 #0a EMIT }
-%DEBUG  { ;print-hex/byte JSR2 #0a EMIT }
-%DEBUG2 { ;print-hex JSR2 #0a EMIT }
+%DEBUG  { ;print/byte JSR2 #0a EMIT }
+%DEBUG2 { ;print/short JSR2 #0a EMIT }
 
 %TOS  { #00 SWP }