version 1.13, 1994/11/15 15:55:41
|
version 1.14, 1995/01/19 17:48:10
|
Line 42 here normal-dp !
|
Line 42 here normal-dp !
|
tudp H @ minimal udp ! |
tudp H @ minimal udp ! |
decimal |
decimal |
|
|
\ 64 KB 0 cells ! \ total Space... defined above! |
\ 64 KB 0 cells ! \ total Space... defined above! |
here 1 cells ! \ Size of the system |
here 1 cells ! \ Size of the system |
16 KB 2 cells ! \ Return and fp stack size |
16 KB 2 cells ! \ Return and fp stack size |
' boot >body 3 cells ! \ Entry point |
' boot >body 3 cells ! \ Entry point |
|
|
UNLOCK Tlast @ |
UNLOCK Tlast @ |
Line 52 LOCK
|
Line 52 LOCK
|
1 cells - dup forth-wordlist ! Last ! |
1 cells - dup forth-wordlist ! Last ! |
.unresolved |
.unresolved |
|
|
cr cr |
cr cr |
bigendian [IF] |
cell bigendian |
save-cross kernl32b.fi |
[IF] |
|
dup 2 = [IF] save-cross kernl16b.fi [THEN] |
|
dup 4 = [IF] save-cross kernl32b.fi [THEN] |
|
dup 8 = [IF] save-cross kernl64b.fi [THEN] |
[ELSE] |
[ELSE] |
save-cross kernl32l.fi |
dup 2 = [IF] save-cross kernl16l.fi [THEN] |
[THEN] cr |
dup 4 = [IF] save-cross kernl32l.fi [THEN] |
|
dup 8 = [IF] save-cross kernl64l.fi [THEN] |
|
[THEN] drop cr |
|
|
bye |
bye |