Diff for /gforth/Attic/dumpimage.fs between versions 1.1 and 1.2

version 1.1, 1994/11/15 15:55:35 version 1.2, 1994/11/17 15:53:10
Line 1 Line 1
 \ image dump                                           15nov94py  \ image dump                                           15nov94py
   
   
 : dump-fi ( addr u -- )  w/o open-file throw >r  : dump-fi ( addr u -- )  w/o bin create-file throw >r
     s" gforth00" r@ write-file throw
   forthstart here over - dup forthstart cell+ !    forthstart here over - dup forthstart cell+ !
                          r@ write-file throw                           r@ write-file throw
   relinfo here forthstart - 1- 8 cells / 1+ r@ write-file throw    relinfo here forthstart - 1- 8 cells / 1+ r@ write-file throw
   r> close-file throw ;    r> close-file throw ;
   
   : savesystem ( "name" -- )  name dump-fi ;

Removed from v.1.1  
changed lines
  Added in v.1.2


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