Diff for /gforth/Attic/vars.fs between versions 1.1 and 1.8

version 1.1, 1994/02/11 16:30:47 version 1.8, 1995/11/07 18:07:04
Line 1 Line 1
 \ VARS.FS      Kernal variables  \ VARS.FS      Kernal variables
   
   \ Copyright (C) 1995 Free Software Foundation, Inc.
   
   \ This file is part of Gforth.
   
   \ Gforth is free software; you can redistribute it and/or
   \ modify it under the terms of the GNU General Public License
   \ as published by the Free Software Foundation; either version 2
   \ of the License, or (at your option) any later version.
   
   \ This program is distributed in the hope that it will be useful,
   \ but WITHOUT ANY WARRANTY; without even the implied warranty of
   \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   \ GNU General Public License for more details.
   
   \ You should have received a copy of the GNU General Public License
   \ along with this program; if not, write to the Free Software
   \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
 hex \ everything now hex!                               11may93jaw  hex \ everything now hex!                               11may93jaw
   
 \ important constants                                  17dec92py  \ important constants                                  17dec92py
Line 13  hex \ everything now hex! Line 31  hex \ everything now hex!
   
 1 cells Constant cell  1 cells Constant cell
   
 20 Constant bl  20 Constant bl \ used by docon:, must be constant
   
 FF Constant /line  FF Constant /line
   
   40 Constant c/l
   10 Constant l/s
   400 Constant chars/block
   
 \ that's enough so long  \ that's enough so long
   
 \ User variables                                       13feb93py  \ User variables                                       13feb93py
   
 \ doesn't produce real user variables now, but normal variables  \ doesn't produce real user variables now, but normal variables
   
 AUser s0  Create main-task  100 cells allot
   main-task tup H ! minimal
   
   Variable udp \ used by dovar:, must be variable
   
   AUser next-task        main-task next-task !
   AUser prev-task        main-task prev-task !
   AUser save-task        0 save-task !
   AUser s0 \ used by douser:, must be user
 AUser r0  AUser r0
 AUser f0  AUser f0
   AUser l0
 AUser handler  AUser handler
 \ AUser output  \ AUser output
 \ AUser input  \ AUser input
Line 39  AUser "error            0 "error ! Line 70  AUser "error            0 "error !
  User >in               0 >in !   User >in               0 >in !
  User blk               0 blk !   User blk               0 blk !
  User loadfile          0 loadfile !   User loadfile          0 loadfile !
   \  2User loadfilename   0 0 loadfilename 2!
   \ here ," the terminal" align here swap count 2, Value loadfilename
   \ align here 0 , 0 , Value loadfilename \ !! should be a `user-value'
    User loadfilename#     0 loadfilename# !
   
  User loadline          \ number of the currently interpreted   User loadline          \ number of the currently interpreted
                         \ (in TIB) line if the interpretation                          \ (in TIB) line if the interpretation
                         \ is in a textfile                          \ is in a textfile
                         \ the first line is 1                          \ the first line is 1
   
  2User linestart        \ starting file postition of  2User linestart         \ starting file postition of
                         \ the current interpreted line (in TIB)                          \ the current interpreted line (in TIB)
   
  User base              $A base !   User base              A base !
  User dpl               -1 dpl !   User dpl               -1 dpl !
   
  User state             0 state !   User state             0 state !
 AUser dp  AUser normal-dp         \ the usual dictionary pointer
   AUser dpp               normal-dp dpp !
                           \ the pointer to the current dictionary pointer
                           \ ist reset to normal-dp on (doerror)
                           \  (i.e. any throw caught by quit)
 AUser LastCFA  AUser LastCFA
 AUser Last  AUser Last
   
   User locals-size \ this is the current size of the locals stack
                    \ frame of the current word
   
   

Removed from v.1.1  
changed lines
  Added in v.1.8


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