gforth: gforth/Attic/vars.fs

1 :	anton	1.1	\ VARS.FS Kernal variables
2 :
3 :			hex \ everything now hex! 11may93jaw
4 :
5 :			\ important constants 17dec92py
6 :
7 :			\ dpANS6 (sect 3.1.3.1) says
8 :			\ "a true flag ... [is] a single-cell value with all bits set"
9 :			\ better definition: 0 0= constant true ( no dependence on 2's compl)
10 :			-1 Constant true \ see starts looking for
11 :			\ primitives after this word!
12 :			0 Constant false
13 :
14 :			1 cells Constant cell
15 :
16 :			20 Constant bl
17 :
18 :			FF Constant /line
19 :
20 :			\ that's enough so long
21 :
22 :			\ User variables 13feb93py
23 :
24 :			\ doesn't produce real user variables now, but normal variables
25 :
26 :			AUser s0
27 :			AUser r0
28 :			AUser f0
29 :			AUser handler
30 :			\ AUser output
31 :			\ AUser input
32 :
33 :			AUser errorhandler
34 :
35 :			AUser "error 0 "error !
36 :
37 :			User >tib
38 :			User #tib
39 :			User >in 0 >in !
40 :			User blk 0 blk !
41 :			User loadfile 0 loadfile !
42 :
43 :			User loadline \ number of the currently interpreted
44 :			\ (in TIB) line if the interpretation
45 :			\ is in a textfile
46 :			\ the first line is 1
47 :
48 :			2User linestart \ starting file postition of
49 :			\ the current interpreted line (in TIB)
50 :
51 :			User base $A base !
52 :			User dpl -1 dpl !
53 :
54 :			User state 0 state !
55 :			AUser dp
56 :			AUser LastCFA
57 :			AUser Last
58 :
59 :