gforth/kernel/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

version 1.6, 1998/12/08 22:03:15	version 1.7, 1998/12/11 22:54:32
Line 49 $20 8 2* cells + 2 + cell+ constant word	Line 49 $20 8 2* cells + 2 + cell+ constant word

\ initialized by COLD	\ initialized by COLD

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

\ set user-pointer from cross-compiler right	\ set user-pointer from cross-compiler right
main-task	main-task
Line 79 AUser "error 0 "error !	Line 79 AUser "error 0 "error !
User #tib \ chars in terminal input buffer	User #tib \ chars in terminal input buffer
User >in 0 >in ! \ char number currently processed in tib	User >in 0 >in ! \ char number currently processed in tib
[THEN]	[THEN]
	has? file [IF]
User blk 0 blk !	User blk 0 blk !
User loadfile 0 loadfile !	User loadfile 0 loadfile !

Line 91 AUser "error 0 "error !	Line 92 AUser "error 0 "error !

2User linestart \ starting file postition of	2User linestart \ starting file postition of
\ the current interpreted line (in TIB)	\ the current interpreted line (in TIB)
	[THEN]

User base A base !	User base A base !
User dpl -1 dpl !	User dpl -1 dpl !
Line 104 AUser dpp normal-dp dpp !	Line 106 AUser dpp normal-dp dpp !
AUser LastCFA	AUser LastCFA
AUser Last	AUser Last

	has? glocals [IF]
User locals-size \ this is the current size of the locals stack	User locals-size \ this is the current size of the locals stack
\ frame of the current word	\ frame of the current word
	[THEN]