File:  [gforth] / gforth / Attic / vars.fs
Revision 1.3: download - view: text, annotated - select for diffs
Sat May 7 14:56:07 1994 UTC (28 years, 7 months ago) by anton
Branches: MAIN
CVS tags: HEAD
local variables
rewrote primitives2c.el in Forth (prims2x.el)
various small changes
Added Files:
 	from-cut-here gforth.el gforth.texi glocals.fs gray.fs
 	locals-test.fs prims2x.fs

    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 normal-dp		\ the usual dictionary pointer
   61: AUser dpp		normal-dp dpp !
   62: 			\ the pointer to the current dictionary pointer
   63:                         \ ist reset to normal-dp on (doerror)
   64:                         \  (i.e. any throw caught by quit)
   65: AUser LastCFA
   66: AUser Last
   67: 
   68: 

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