File:  [gforth] / gforth / arch / 8086 / mach.fs
Revision 1.2: download - view: text, annotated - select for diffs
Fri Dec 11 22:54:29 1998 UTC (25 years, 4 months ago) by pazsan
Branches: MAIN
CVS tags: v0-4-0, HEAD
Added further options to shrink a kernel down
Cleaned up conditional primitives (works now for C-generated part, too)
Cleaned up mach files for embedded architectures
Cleaned up options in the kernel

\ **************************************************************
\ File:         MACH.FS
\                 MACH-file for GFORTH on PC
\ Autor:        Klaus Kohl (adaptet from volksFORTH_PC)
\ Log:          30.07.97 KK: file generated
\

    2 Constant cell
    1 Constant cell<<
    4 Constant cell>bit
    8 Constant bits/byte
    8 Constant float
    2 Constant /maxalign
 false Constant bigendian
( true=big, false=little )

: prims-include  ." Include primitives" cr s" arch/8086/prim.fs" included ;
: asm-include    ." Include assembler" cr s" arch/8086/asm.fs" included ;
: >boot s" ' boot >body into-forth 1+ !" evaluate ;

>ENVIRON

false SetValue relocate
true  SetValue ec
false SetValue file
false SetValue OS
false SetValue prims
false SetValue floating
false SetValue glocals
false SetValue dcomps
false SetValue hash
false SetValue xconds
false SetValue header
true  SetValue interpreter
true  SetValue crlf
true  SetValue ITC
\ true SetValue has-rom

cell 2 = [IF] 32 [ELSE] 256 [THEN] KB Constant kernel-size

16 KB		Constant stack-size
15 KB 512 +	Constant fstack-size
15 KB		Constant rstack-size
14 KB 512 +	Constant lstack-size

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