collapseos/blk/385

: _ ( 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
;