21 lines
321 B
Text
21 lines
321 B
Text
%newline { [ LIT2 0a -Console/write ] DEO }
|
|
|
|
|18 @Console/write
|
|
|
|
|100
|
|
|
|
#0000 #0400
|
|
&while EQU2k ?{
|
|
DUP2 print-hex newline
|
|
#01 SFT2 !&while }
|
|
POP2 POP2
|
|
|
|
BRK
|
|
|
|
@print-hex ( short* -- )
|
|
SWP /byte
|
|
&byte ( byte -- )
|
|
DUP #04 SFT /nibble
|
|
&nibble ( byte -- )
|
|
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
|
|
JMP2r
|