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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>