| 0 , \ return stack base |
0 , \ return stack base |
| 0 , \ locals stack base |
0 , \ locals stack base |
| AConstant image-header |
AConstant image-header |
| : forthstart image-header @ ; |
|
| [THEN] |
[THEN] |
| |
|
| doc-off |
doc-off |
| [THEN] |
[THEN] |
| doc-on |
doc-on |
| |
|
| |
has? header [IF] |
| |
: forthstart image-header @ ; |
| |
[THEN] |
| |
|
| \ 0 AConstant forthstart |
\ 0 AConstant forthstart |
| |
|
| \ include ./vars.fs \ variables and other stuff |
\ include ./vars.fs \ variables and other stuff |
| \ include kernel/version.fs \ is in $(build)/kernel |
\ include kernel/version.fs \ is in $(build)/kernel |
| include ./kernel.fs \ kernel |
include ./kernel.fs \ kernel |
| |
udp .s drop |
| \ include ./errore.fs |
\ include ./errore.fs |
| include ./doers.fs |
include ./doers.fs |
| has? file [IF] |
has? file [IF] |