22 lines
380 B
Text
22 lines
380 B
Text
%newline { [ LIT2 0a -Console/write ] DEO }
|
|
%MOD ( a b -- a%b ) { DIVk MUL SUB }
|
|
|
|
|18 @Console/write
|
|
|
|
|100
|
|
|
|
#00
|
|
&do-while
|
|
INC DUP print-hex/byte newline
|
|
DUP #06 MOD ?&do-while
|
|
POP
|
|
|
|
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
|