Return to dumpimage.fs CVS log | Up to [gforth] / gforth |
version 1.7, 1996/08/21 14:58:39 | version 1.8, 1996/12/23 15:07:44 |
---|---|
Line 35 | Line 35 |
U+DO | U+DO |
addr i 2* cells + 2@ save-string-dict | addr i 2* cells + 2@ save-string-dict |
new-addr i 2* cells + 2! | new-addr i 2* cells + 2! |
LOOP ; | LOOP |
maxalign ; | |
: dump-fi ( addr u -- ) | : dump-fi ( addr u -- ) |
w/o bin create-file throw >r | w/o bin create-file throw >r |