version 1.16, 2011/12/31 15:29:25
|
version 1.17, 2012/07/20 19:34:27
|
Line 40
|
Line 40
|
LOOP |
LOOP |
maxalign ; |
maxalign ; |
|
|
|
: update-maintask ( -- ) |
|
throw-entry main-task udp @ throw-entry next-task - /string move ; |
|
|
: 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 |
update-image-order |
|
update-maintask |
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) |