![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to savesys.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to savesys.fs CVS log | Up to [gforth] / gforth |
| version 1.4, 2002/09/14 08:20:20 | version 1.5, 2003/02/06 16:49:17 |
|---|---|
| Line 41 | Line 41 |
| : dump-fi ( addr u -- ) | : dump-fi ( addr u -- ) |
| w/o bin create-file throw >r | w/o bin create-file throw >r |
| update-image-included-files | update-image-included-files |
| update-image-order | |
| here forthstart - forthstart 2 cells + ! | here forthstart - forthstart 2 cells + ! |
| forthstart | forthstart |
| begin \ search for start of file ("#! " at a multiple of 8) | begin \ search for start of file ("#! " at a multiple of 8) |