Annotation of gforth/vars.fs, revision 1.6

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: 
1.6     ! pazsan     20: 40 Constant c/l
        !            21: 10 Constant l/s
        !            22: 400 Constant chars/block
        !            23: 
1.1       anton      24: \ that's enough so long
                     25: 
                     26: \ User variables                                       13feb93py
                     27: 
                     28: \ doesn't produce real user variables now, but normal variables
                     29: 
1.2       pazsan     30: Create main-task  100 cells allot
                     31: main-task tup H ! minimal
                     32: 
                     33: Variable udp
                     34: 
1.6     ! pazsan     35: AUser next-task        main-task next-task !
        !            36: AUser prev-task        main-task prev-task !
        !            37: AUser save-task        0 save-task !
1.1       anton      38: AUser s0
                     39: AUser r0
                     40: AUser f0
1.6     ! pazsan     41: AUser l0
1.1       anton      42: AUser handler
                     43: \ AUser output
                     44: \ AUser input
                     45: 
                     46: AUser errorhandler
                     47: 
                     48: AUser "error            0 "error !
                     49: 
                     50:  User >tib
                     51:  User #tib
                     52:  User >in               0 >in !
                     53:  User blk               0 blk !
                     54:  User loadfile          0 loadfile !
1.4       anton      55:  2User loadfilename    0 0 loadfilename 2!
                     56:  
1.1       anton      57:  User loadline          \ number of the currently interpreted
                     58:                         \ (in TIB) line if the interpretation
                     59:                         \ is in a textfile
                     60:                         \ the first line is 1
                     61: 
1.5       pazsan     62: 2User linestart         \ starting file postition of
1.1       anton      63:                         \ the current interpreted line (in TIB)
                     64: 
1.2       pazsan     65:  User base              A base !
1.1       anton      66:  User dpl               -1 dpl !
                     67: 
                     68:  User state             0 state !
1.3       anton      69: AUser normal-dp                \ the usual dictionary pointer
                     70: AUser dpp              normal-dp dpp !
                     71:                        \ the pointer to the current dictionary pointer
                     72:                         \ ist reset to normal-dp on (doerror)
                     73:                         \  (i.e. any throw caught by quit)
1.1       anton      74: AUser LastCFA
                     75: AUser Last
1.4       anton      76: 
                     77: User locals-size \ this is the current size of the locals stack
                     78:                 \ frame of the current word
1.1       anton      79: 
                     80: 

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