version 1.10, 1998/12/08 22:03:11
|
version 1.11, 1998/12/11 22:54:31
|
Line 37 include ../cross.fs \ incl
|
Line 37 include ../cross.fs \ incl
|
|
|
decimal |
decimal |
|
|
cell 2 = [IF] 32 [ELSE] 256 [THEN] KB makekernel ( size ) |
has? kernel-size makekernel ( size ) |
\ create image-header |
\ create image-header |
has? header [IF] |
has? header [IF] |
0 A, \ base address |
0 A, \ base address |
0 , \ checksum |
0 , \ checksum |
0 , \ image size (without tags) |
0 , \ image size (without tags) |
, \ dict size |
>address , \ dict size |
16 KB , \ data stack size |
has? stack-size , \ data stack size |
15 KB 512 + , \ FP stack size |
has? fstack-size , \ FP stack size |
15 KB , \ return stack size |
has? rstack-size , \ return stack size |
14 KB 512 + , \ locals stack size |
has? lstack-size , \ locals stack size |
0 A, \ code entry point |
0 A, \ code entry point |
0 A, \ throw entry point |
0 A, \ throw entry point |
16 KB , \ unused (possibly tib stack size) |
has? stack-size , \ unused (possibly tib stack size) |
0 , \ unused |
0 , \ unused |
0 , \ data stack base |
0 , \ data stack base |
0 , \ fp stack base |
0 , \ fp stack base |
Line 92 include cond.fs \ load IF
|
Line 92 include cond.fs \ load IF
|
[ELSE] |
[ELSE] |
include cond-old.fs \ load IF and co w/o locals |
include cond-old.fs \ load IF and co w/o locals |
[THEN] |
[THEN] |
include toolsext.fs |
|
\ include arch/misc/tt.fs |
\ include arch/misc/tt.fs |
\ include arch/misc/sokoban.fs |
\ include arch/misc/sokoban.fs |
[THEN] |
[THEN] |
|
include toolsext.fs |
include tools.fs \ load tools ( .s dump ) |
include tools.fs \ load tools ( .s dump ) |
include doers.fs |
|
include getdoers.fs |
include getdoers.fs |
include special.fs \ special must be last! |
include special.fs \ special must be last! |
|
|
Line 108 tudp H @ minimal udp !
|
Line 107 tudp H @ minimal udp !
|
decimal |
decimal |
|
|
has? header [IF] |
has? header [IF] |
here 2 cells ! \ image size |
\ UNLOCK |
' boot >body 8 cells ! \ Entry point |
here >address 2 cells ! \ image size |
|
' boot >body 8 cells A! \ Entry point |
|
\ LOCK |
[ELSE] |
[ELSE] |
>boot |
>boot |
[THEN] |
[THEN] |