gforth/main.fs - diff

Return to main.fs CVS log

Up to [gforth] / gforth

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