File:  [gforth] / gforth / Attic / vars.fs
Revision 1.2: download - view: text, annotated - select for diffs
Thu May 5 15:46:53 1994 UTC (28 years, 7 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
Added direct threading for R3/4000. Still needs cache flush.
Added direct threading for R3/4000. Needs still cache flush.

    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: Create main-task  100 cells allot
   27: main-task tup H ! minimal
   28: 
   29: Variable udp
   30: 
   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: 
   56:  User base              A base !
   57:  User dpl               -1 dpl !
   58: 
   59:  User state             0 state !
   60: AUser dp
   61: AUser LastCFA
   62: AUser Last
   63: 
   64: 

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