gforth/vars.fs - diff

Return to vars.fs CVS log

Up to [gforth] / gforth

version 1.1, 1994/02/11 16:30:47	version 1.4, 1994/07/08 15:01:05
Line 23 FF Constant /line	Line 23 FF Constant /line

\ doesn't produce real user variables now, but normal variables	\ doesn't produce real user variables now, but normal variables

	Create main-task 100 cells allot
	main-task tup H ! minimal

	Variable udp

AUser s0	AUser s0
AUser r0	AUser r0
AUser f0	AUser f0
Line 39 AUser "error 0 "error !	Line 44 AUser "error 0 "error !
User >in 0 >in !	User >in 0 >in !
User blk 0 blk !	User blk 0 blk !
User loadfile 0 loadfile !	User loadfile 0 loadfile !
	2User loadfilename 0 0 loadfilename 2!

User loadline \ number of the currently interpreted	User loadline \ number of the currently interpreted
\ (in TIB) line if the interpretation	\ (in TIB) line if the interpretation
\ is in a textfile	\ is in a textfile
Line 48 AUser "error 0 "error !	Line 54 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)

User base $A base !	User base A base !
User dpl -1 dpl !	User dpl -1 dpl !

User state 0 state !	User state 0 state !
AUser dp	AUser normal-dp \ the usual dictionary pointer
	AUser dpp normal-dp dpp !
	\ the pointer to the current dictionary pointer
	\ ist reset to normal-dp on (doerror)
	\ (i.e. any throw caught by quit)
AUser LastCFA	AUser LastCFA
AUser Last	AUser Last

	User locals-size \ this is the current size of the locals stack
	\ frame of the current word