Annotation of gforth/vars.fs, revision 1.5

1.1       anton       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: 
1.2       pazsan     26: Create main-task  100 cells allot
                     27: main-task tup H ! minimal
                     28: 
                     29: Variable udp
                     30: 
1.1       anton      31: AUser s0
                     32: AUser r0
                     33: AUser f0
                     34: AUser handler
                     35: \ AUser output
                     36: \ AUser input
                     37: 
                     38: AUser errorhandler
                     39: 
                     40: AUser "error            0 "error !
                     41: 
                     42:  User >tib
                     43:  User #tib
                     44:  User >in               0 >in !
                     45:  User blk               0 blk !
                     46:  User loadfile          0 loadfile !
1.4       anton      47:  2User loadfilename    0 0 loadfilename 2!
                     48:  
1.1       anton      49:  User loadline          \ number of the currently interpreted
                     50:                         \ (in TIB) line if the interpretation
                     51:                         \ is in a textfile
                     52:                         \ the first line is 1
                     53: 
1.5     ! pazsan     54: 2User linestart         \ starting file postition of
1.1       anton      55:                         \ the current interpreted line (in TIB)
                     56: 
1.2       pazsan     57:  User base              A base !
1.1       anton      58:  User dpl               -1 dpl !
                     59: 
                     60:  User state             0 state !
1.3       anton      61: AUser normal-dp                \ the usual dictionary pointer
                     62: AUser dpp              normal-dp dpp !
                     63:                        \ the pointer to the current dictionary pointer
                     64:                         \ ist reset to normal-dp on (doerror)
                     65:                         \  (i.e. any throw caught by quit)
1.1       anton      66: AUser LastCFA
                     67: AUser Last
1.4       anton      68: 
                     69: User locals-size \ this is the current size of the locals stack
                     70:                 \ frame of the current word
1.1       anton      71: 
                     72: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>