1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-09-16 13:48:45 +10:00
collapseos/blk/445
Virgil Dupras 60b4bbf28a Fix DUMP's broken "round up to next 8" logic
This was caused by the removal of signed-ness a long while ago.
2020-05-05 22:09:11 -04:00

7 lines
76 B
Plaintext

: DUMP ( n a -- )
LF
SWAP 8 /MOD SWAP IF 1+ THEN
0 DO _ LOOP
;