[BACK]Return to mach.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / arch / 8086
File:  [gforth] / gforth / arch / 8086 / mach.fs
Revision 1.6: download - view: text, annotated - select for diffs
Sat Jun 16 22:53:37 2001 UTC (22 years, 10 months ago) by pazsan
Branches: MAIN
CVS tags: v0-6-2, v0-6-1, v0-6-0, HEAD
Made some Gforth-EC targets work again
Started grouping (no renumbering yet, groups are just dummies)

\ **************************************************************
\ 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/char
    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          ." Prepare booting" cr
    s" ' boot >body into-forth 1+ !" evaluate ;

false Constant NIL

>ENVIRON

true  SetValue ec
true  SetValue crlf
false SetValue new-input     \ disables object oriented input
false SetValue peephole
\ true Constant 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>