Return to dumpimage.fs CVS log | Up to [gforth] / gforth |
1.1 pazsan 1: \ image dump 15nov94py 2: 3: 1.2 ! pazsan 4: : dump-fi ( addr u -- ) w/o bin create-file throw >r ! 5: s" gforth00" r@ write-file throw 1.1 pazsan 6: forthstart here over - dup forthstart cell+ ! 7: r@ write-file throw 8: relinfo here forthstart - 1- 8 cells / 1+ r@ write-file throw 9: r> close-file throw ; 1.2 ! pazsan 10: ! 11: : savesystem ( "name" -- ) name dump-fi ;