Return to dumpimage.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/dumpimage.fs, revision 1.1

1.1     ! pazsan      1: \ image dump                                           15nov94py
        !             2: 
        !             3: 
        !             4: : dump-fi ( addr u -- )  w/o open-file throw >r
        !             5:   forthstart here over - dup forthstart cell+ !
        !             6:                          r@ write-file throw
        !             7:   relinfo here forthstart - 1- 8 cells / 1+ r@ write-file throw
        !             8:   r> close-file throw ;