$rom_sources/base.ual
$rom_sources/string.ual
$rom_sources/memory.ual
:FSTR 16 zero_alloc :
'%I %X %B %C' FSTR 16 copy
:X 5 zero_alloc :
0 33 33 33 33 X 5 STV
:X2 5 zero_alloc :
0 80 80 80 80 X2 5 STV
'DEC HEX BIN CHAR DEC HEX BIN CHAR\n' *>>
@PRINT_LOOP
FSTR X f*>>
' ' *>>
FSTR X2 f*>>
'\n' *>>
0 X LFA ++ DUP DUP DUP X 5 STV
0 X2 LFA ++ DUP DUP DUP X2 5 STV
X ++ LFA 80 #PRINT_LOOP JNE
END