Annotation of gforth/arch/8086/mach.fs, revision 1.7

1.1       pazsan      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
1.3       pazsan     11:     8 Constant bits/char
1.1       pazsan     12:     8 Constant float
                     13:     2 Constant /maxalign
1.3       pazsan     14: false Constant bigendian
1.1       pazsan     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 ;
1.4       pazsan     19: : >boot          ." Prepare booting" cr
                     20:     s" ' boot >body into-forth 1+ !" evaluate ;
1.1       pazsan     21: 
1.3       pazsan     22: false Constant NIL
                     23: 
1.1       pazsan     24: >ENVIRON
                     25: 
1.5       pazsan     26: true  SetValue ec
                     27: true  SetValue crlf
                     28: false SetValue new-input     \ disables object oriented input
1.6       pazsan     29: false SetValue peephole
1.7     ! pazsan     30: true  SetValue f83headerstring
        !            31: true  SetValue abranch       \ enables absolute branches
1.3       pazsan     32: \ true Constant has-rom
1.2       pazsan     33: 
                     34: cell 2 = [IF] 32 [ELSE] 256 [THEN] KB Constant kernel-size
                     35: 
                     36: 16 KB          Constant stack-size
                     37: 15 KB 512 +    Constant fstack-size
                     38: 15 KB          Constant rstack-size
                     39: 14 KB 512 +    Constant lstack-size

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