mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:28:06 +11:00
Fix DUMP's broken "round up to next 8" logic
This was caused by the removal of signed-ness a long while ago.
This commit is contained in:
parent
9df053b76c
commit
60b4bbf28a
7
blk/445
7
blk/445
@ -1,9 +1,6 @@
|
||||
: DUMP ( n a -- )
|
||||
LF
|
||||
BEGIN
|
||||
OVER 1 < IF 2DROP EXIT THEN
|
||||
_
|
||||
SWAP 8 - SWAP
|
||||
AGAIN
|
||||
SWAP 8 /MOD SWAP IF 1+ THEN
|
||||
0 DO _ LOOP
|
||||
;
|
||||
|
||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user