gforth/dumpimage.fs - diff

Return to dumpimage.fs CVS log

Up to [gforth] / gforth

version 1.2, 1994/11/17 15:53:10	version 1.3, 1995/07/25 15:28:06
Line 1	Line 1
\ image dump 15nov94py	\ image dump 15nov94py

	Create magic s" gforth00" here over allot swap move

	'1 1 cells + 0 pad ! -1 pad c! pad @ 0< + magic 7 chars + c!

: dump-fi ( addr u -- ) w/o bin create-file throw >r	: dump-fi ( addr u -- ) w/o bin create-file throw >r
s" gforth00" r@ write-file throw	magic 8 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 ;	: savesystem ( "name" -- ) name dump-fi ;