2025-06-11 20:16:52 -04:00
|
|
|
%\n { 0a }
|
|
|
|
|
%newline { [ LIT2 \n -Console/write ] DEO }
|
2024-03-06 22:25:12 -08:00
|
|
|
|
2025-06-11 20:16:52 -04:00
|
|
|
|18 @Console/write
|
2023-12-16 21:33:55 -08:00
|
|
|
|
2025-06-11 20:16:52 -04:00
|
|
|
|100
|
2023-12-16 21:33:55 -08:00
|
|
|
|
2025-06-11 20:16:52 -04:00
|
|
|
[ LIT "a ] print/byte newline
|
|
|
|
|
#61 .Console/write DEO newline
|
2023-12-16 21:33:55 -08:00
|
|
|
|
2025-06-11 20:16:52 -04:00
|
|
|
BRK
|
2023-12-16 21:33:55 -08:00
|
|
|
|
2025-06-11 20:16:52 -04:00
|
|
|
@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
|
