Diff for /gforth/Attic/vars.fs between versions 1.6 and 1.11

version 1.6, 1994/08/31 19:42:54 version 1.11, 1996/01/07 17:22:16
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
   \ 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
Line 25  FF Constant /line Line 43  FF Constant /line
 \ User variables                                       13feb93py  \ User variables                                       13feb93py
 \ doesn't produce real user variables now, but normal variables  
 Create main-task  100 cells allot  Create main-task  100 cells allot
 main-task tup H ! minimal  main-task tup H ! minimal
 Variable udp  Variable udp \ used by dovar:, must be variable
 AUser next-task        main-task next-task !  AUser next-task        main-task next-task !
 AUser prev-task        main-task prev-task !  AUser prev-task        main-task prev-task !
 AUser save-task        0 save-task !  AUser save-task        0 save-task !
 AUser s0  AUser s0 \ used by douser:, must be user
 AUser r0  AUser r0
 AUser f0  AUser f0
 AUser l0  AUser l0
Line 47  AUser errorhandler Line 63  AUser errorhandler
 AUser "error            0 "error !  AUser "error            0 "error !
    User tibstack
  User >tib   User >tib
  User #tib   User #tib
  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!  
     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

Removed from v.1.6  
changed lines
  Added in v.1.11

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