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)

    1: \ **************************************************************
    2: \ File:         MACH.FS
    3: \                 MACH-file for GFORTH on PC
    4: \ Autor:        Klaus Kohl (adaptet from volksFORTH_PC)
    5: \ Log:          30.07.97 KK: file generated
    6: \
    7: 
    8:     2 Constant cell
    9:     1 Constant cell<<
   10:     4 Constant cell>bit
   11:     8 Constant bits/char
   12:     8 Constant float
   13:     2 Constant /maxalign
   14: false Constant bigendian
   15: ( true=big, false=little )
   16: 
   17: : prims-include  ." Include primitives" cr s" arch/8086/prim.fs" included ;
   18: : asm-include    ." Include assembler" cr s" arch/8086/asm.fs" included ;
   19: : >boot          ." Prepare booting" cr
   20:     s" ' boot >body into-forth 1+ !" evaluate ;
   21: 
   22: false Constant NIL
   23: 
   24: >ENVIRON
   25: 
   26: true  SetValue ec
   27: true  SetValue crlf
   28: false SetValue new-input     \ disables object oriented input
   29: false SetValue peephole
   30: \ true Constant has-rom
   31: 
   32: cell 2 = [IF] 32 [ELSE] 256 [THEN] KB Constant kernel-size
   33: 
   34: 16 KB		Constant stack-size
   35: 15 KB 512 +	Constant fstack-size
   36: 15 KB		Constant rstack-size
   37: 14 KB 512 +	Constant lstack-size

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