Return to vars.fs CVS log

Up to [gforth] / gforth / kernel

Annotation of gforth/kernel/vars.fs, revision 1.1

1.1     ! anton       1: \ VARS.FS      Kernal variables
        !             2: 
        !             3: \ Copyright (C) 1995 Free Software Foundation, Inc.
        !             4: 
        !             5: \ This file is part of Gforth.
        !             6: 
        !             7: \ Gforth is free software; you can redistribute it and/or
        !             8: \ modify it under the terms of the GNU General Public License
        !             9: \ as published by the Free Software Foundation; either version 2
        !            10: \ of the License, or (at your option) any later version.
        !            11: 
        !            12: \ This program is distributed in the hope that it will be useful,
        !            13: \ but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            14: \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        !            15: \ GNU General Public License for more details.
        !            16: 
        !            17: \ You should have received a copy of the GNU General Public License
        !            18: \ along with this program; if not, write to the Free Software
        !            19: \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
        !            20: 
        !            21: hex \ everything now hex!                               11may93jaw
        !            22: 
        !            23: \ important constants                                  17dec92py
        !            24: 
        !            25: \ dpANS6 (sect 3.1.3.1) says 
        !            26: \ "a true flag ... [is] a single-cell value with all bits set"
        !            27: \ better definition: 0 0= constant true ( no dependence on 2's compl)
        !            28:  -1 Constant true               \ see starts looking for
        !            29:                                 \ primitives after this word!
        !            30:   0 Constant false
        !            31: 
        !            32: 1 cells Constant cell ( -- u ) \ gforth
        !            33: 1 floats Constant float ( -- u ) \ gforth
        !            34: 
        !            35: 20 Constant bl \ used by docon:, must be constant
        !            36: 
        !            37: FF Constant /line
        !            38: 
        !            39: 40 Constant c/l
        !            40: 10 Constant l/s
        !            41: 400 Constant chars/block
        !            42: 
        !            43: \ that's enough so long
        !            44: 
        !            45: \ User variables                                       13feb93py
        !            46: 
        !            47: \ initialized by COLD
        !            48: 
        !            49: Create main-task  100 cells allot
        !            50: main-task tup H ! minimal
        !            51: 
        !            52: Variable udp \ used by dovar:, must be variable
        !            53: 
        !            54: AUser next-task        main-task next-task !
        !            55: AUser prev-task        main-task prev-task !
        !            56: AUser save-task        0 save-task !
        !            57: AUser s0 \ used by douser:, must be user
        !            58: AUser r0
        !            59: AUser f0
        !            60: AUser l0
        !            61: AUser handler
        !            62: \ AUser output
        !            63: \ AUser input
        !            64: 
        !            65: AUser errorhandler
        !            66: 
        !            67: AUser "error            0 "error !
        !            68: 
        !            69:  User tibstack
        !            70:  User >tib
        !            71:  User #tib
        !            72:  User >in               0 >in !
        !            73:  User blk               0 blk !
        !            74:  User loadfile          0 loadfile !
        !            75: 
        !            76:  User loadfilename#    0 loadfilename# !
        !            77: 
        !            78:  User loadline          \ number of the currently interpreted
        !            79:                         \ (in TIB) line if the interpretation
        !            80:                         \ is in a textfile
        !            81:                         \ the first line is 1
        !            82: 
        !            83: 2User linestart         \ starting file postition of
        !            84:                         \ the current interpreted line (in TIB)
        !            85: 
        !            86:  User base              A base !
        !            87:  User dpl               -1 dpl !
        !            88: 
        !            89:  User state             0 state !
        !            90: AUser normal-dp                \ the usual dictionary pointer
        !            91: AUser dpp              normal-dp dpp !
        !            92:                        \ the pointer to the current dictionary pointer
        !            93:                         \ ist reset to normal-dp on (doerror)
        !            94:                         \  (i.e. any throw caught by quit)
        !            95: AUser LastCFA
        !            96: AUser Last
        !            97: 
        !            98: User locals-size \ this is the current size of the locals stack
        !            99:                 \ frame of the current word
        !           100: 
        !           101: