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>