File:  [gforth] / gforth / arch / 8086 / mach.fs
Revision 1.1: download - view: text, annotated - select for diffs
Sat May 2 21:33:43 1998 UTC (25 years, 11 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
Mega-Patch; added directories

\ **************************************************************
\ 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

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