Return to mach.fs CVS log | Up to [gforth] / gforth / arch / 8086 |
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