Annotation of gforth/dumpimage.fs, revision 1.2

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 ;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>