File:  [gforth] / gforth / Attic / dumpimage.fs
Revision 1.2: download - view: text, annotated - select for diffs
Thu Nov 17 15:53:10 1994 UTC (26 years, 8 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
*Added:
* configure.bat configures on MS-DOS machines
* io-dos.h provides IO for MS-DOS
* makefile.dos is a GNU make Makefile for MS-DOS
*Changed:
* Merged gray/gforth and gray/gray4, added conditional compilation for
  gray ports (gforth and bigFORTH first)
* added gforth recognising string in environment
* added interpreter support for images (starts now with magic)
* changed make rule for ds2texi, so that it can run with Messy-DOS
* added SAVESYSTEM in dumpimage.fs
* fixed bug in Makefile for big endian systems (->configure)

    1: \ image dump                                           15nov94py
    2: 
    3: 
    4: : dump-fi ( addr u -- )  w/o bin create-file throw >r
    5:   s" gforth00" r@ write-file throw
    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 ;
   10: 
   11: : savesystem ( "name" -- )  name dump-fi ;

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