19 lines
305 B
Text
19 lines
305 B
Text
%\n { 0a }
|
|
%newline { [ LIT2 \n -Console/write ] DEO }
|
|
|
|
|18 @Console/write
|
|
|
|
|100
|
|
|
|
[ LIT "a ] print/byte newline
|
|
#61 .Console/write DEO newline
|
|
|
|
BRK
|
|
|
|
@print/byte ( byte -- )
|
|
DUP #04 SFT /nibble
|
|
( >> )
|
|
|
|
@print/nibble ( byte -- )
|
|
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD .Console/write DEO
|
|
JMP2r
|