File:  [gforth] / gforth / Attic / dumpimage.fs
Revision 1.1: download - view: text, annotated - select for diffs
Tue Nov 15 15:55:35 1994 UTC (26 years, 8 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
* Made slight modification in configure
* Select from make first and make more to allow first time compilation
* Added simple image dump and reload
* Added extended COLD functionality in 'COLD for image reboot
* Added boot procedures in hash.fs and history.fs

    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 ;

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