File:  [gforth] / gforth / Attic / vars.fs
Revision 1.1: download - view: text, annotated - select for diffs
Fri Feb 11 16:30:47 1994 UTC (30 years, 1 month ago) by anton
Branches: MAIN
CVS tags: HEAD
Initial revision

    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>