File:  [gforth] / gforth / Attic / vars.fs
Revision 1.5: download - view: text, annotated - select for diffs
Thu Jul 21 10:52:53 1994 UTC (28 years, 4 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
Added dictionary hashing
Changed argument interpretation as documented
Made refill for DOS 20 times faster
Added m*/ and missing FP words.

    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:  2User loadfilename	0 0 loadfilename 2!
   48:  
   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: 
   54: 2User linestart         \ starting file postition of
   55:                         \ the current interpreted line (in TIB)
   56: 
   57:  User base              A base !
   58:  User dpl               -1 dpl !
   59: 
   60:  User state             0 state !
   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)
   66: AUser LastCFA
   67: AUser Last
   68: 
   69: User locals-size \ this is the current size of the locals stack
   70: 		 \ frame of the current word
   71: 
   72: 

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