Return to vars.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/vars.fs, revision 1.2

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 !
                     47: 
                     48:  User loadline          \ number of the currently interpreted
                     49:                         \ (in TIB) line if the interpretation
                     50:                         \ is in a textfile
                     51:                         \ the first line is 1
                     52: 
                     53:  2User linestart        \ starting file postition of
                     54:                         \ the current interpreted line (in TIB)
                     55: 
1.2     ! pazsan     56:  User base              A base !
1.1       anton      57:  User dpl               -1 dpl !
                     58: 
                     59:  User state             0 state !
                     60: AUser dp
                     61: AUser LastCFA
                     62: AUser Last
                     63: 
                     64: