Return to mach.fs CVS log

Up to [gforth] / gforth / arch / 8086

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

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.3       pazsan     29: \ true Constant has-rom
1.2       pazsan     30: 
                     31: cell 2 = [IF] 32 [ELSE] 256 [THEN] KB Constant kernel-size
                     32: 
                     33: 16 KB          Constant stack-size
                     34: 15 KB 512 +    Constant fstack-size
                     35: 15 KB          Constant rstack-size
                     36: 14 KB 512 +    Constant lstack-size