Annotation of gforth/dumpimage.fs, revision 1.3
1.1 pazsan 1: \ image dump 15nov94py
2:
1.3 ! pazsan 3: Create magic s" gforth00" here over allot swap move
1.1 pazsan 4:
1.3 ! pazsan 5: '1 1 cells + 0 pad ! -1 pad c! pad @ 0< + magic 7 chars + c!
! 6:
1.2 pazsan 7: : dump-fi ( addr u -- ) w/o bin create-file throw >r
1.3 ! pazsan 8: magic 8 r@ write-file throw
1.1 pazsan 9: forthstart here over - dup forthstart cell+ !
10: r@ write-file throw
1.3 ! pazsan 11: \ relinfo here forthstart - 1- 8 cells / 1+ r@ write-file throw
1.1 pazsan 12: r> close-file throw ;
1.2 pazsan 13:
14: : savesystem ( "name" -- ) name dump-fi ;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>