@@ 419,15 419,13 @@ JMP2r
JMP2r
-@chex ( char -- <hex> )
+@chex ( c -- )
- DUP #2f GTH OVR #3a LTH AND ,&n JCN
- DUP #60 GTH OVR #67 LTH AND ,&l JCN
- POP #ff
+ LIT "0 SUB DUP #09 GTH JMP JMP2r
+ #27 SUB DUP #0f GTH JMP JMP2r
+ POP #ff
JMP2r
- &n #30 SUB JMP2r
- &l #57 SUB JMP2r
@pdec ( short* -- )