gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.34, 2003/03/09 15:17:07	version 1.35, 2003/05/11 17:17:14
Line 69 $400 Value def#tib	Line 69 $400 Value def#tib

\ initialized by COLD	\ initialized by COLD

Create main-task has? OS [IF] 100 [ELSE] 40 [THEN] cells allot	Create main-task has? OS [IF] 100 [ELSE] 40 [THEN] cells dup allot

\ set user-pointer from cross-compiler right	\ set user-pointer from cross-compiler right
main-task	main-task
UNLOCK tup ! LOCK	UNLOCK swap region user-region user-region setup-region LOCK

Variable udp ( -- a-addr ) \ gforth	Variable udp ( -- a-addr ) \ gforth
\G user area size	\G user area size