1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 18:48:09 +11:00
collapseos/blk/385

14 lines
278 B
Plaintext
Raw Normal View History

2020-05-13 23:02:44 +10:00
: _ ( a -- a+8 )
DUP ( a a )
':' EMIT DUP .x SPC
4 0 DO DUP @ 256 /MOD SWAP .x .x SPC 2+ LOOP
DROP ( a )
8 0 DO
C@+ DUP 0x20 0x7e =><= NOT IF DROP '.' THEN EMIT
LOOP NL ;
: DUMP ( n a -- )
LF
SWAP 8 /MOD SWAP IF 1+ THEN
0 DO _ LOOP
;