Return to mach.fs CVS log

Up to [gforth] / gforth / arch / shboom

Annotation of gforth/arch/shboom/mach.fs, revision 1.9

1.1       pazsan      1: \ Parameter for target systems                         06oct92py
                      2: 
1.9     ! anton       3: \ Copyright (C) 1995,2001,2003,2007 Free Software Foundation, Inc.
1.1       pazsan      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
1.8       anton       9: \ as published by the Free Software Foundation, either version 3
1.1       pazsan     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
1.8       anton      18: \ along with this program. If not, see http://www.gnu.org/licenses/.
1.1       pazsan     19: 
                     20:     4 Constant cell
                     21:     2 Constant cell<<
                     22:     5 Constant cell>bit
1.3       pazsan     23:     8 Constant bits/char
1.1       pazsan     24:     8 Constant float
                     25:     4 Constant /maxalign
                     26:  true Constant bigendian
                     27: ( true=big, false=little )
                     28: 
                     29: \ feature list
                     30: 
                     31: \ false Constant NIL  \ relocating
                     32: 
                     33: : prims-include  ." Include primitives" cr s" arch/shboom/prim.fs" included ;
                     34: : asm-include    ." Include assembler" cr s" arch/shboom/asm.fs" included ;
                     35: : >boot ;
                     36: 
                     37: >ENVIRON
                     38: false SetValue relocate
                     39: false SetValue file
                     40: false SetValue OS
                     41: false SetValue prims
                     42: false SetValue floating
                     43: false SetValue glocals
                     44: false SetValue dcomps
                     45: false SetValue hash
                     46: false SetValue xconds
                     47: false SetValue header
                     48: true SetValue ec
                     49: true SetValue crlf
                     50: false SetValue ITC
1.5       pazsan     51: false SetValue new-input
                     52: false SetValue peephole
1.1       pazsan     53: 
1.2       pazsan     54: cell 2 = [IF] 32 [ELSE] 256 [THEN] KB Constant kernel-size
                     55: 
                     56: 16 KB          Constant stack-size
                     57: 15 KB 512 +    Constant fstack-size
                     58: 15 KB          Constant rstack-size
                     59: 14 KB 512 +    Constant lstack-size