mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-20 22:28:05 +11:00
f6ded7712e
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
281 B
Plaintext
17 lines
281 B
Plaintext
: _ ( 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
|
|
;
|
|
|
|
|
|
|