Commit 90dceb40 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Started cross compiler documentation 

Made 4stack, 8086, and MISC Gforth-EC work again
parent 3d3905a5

Makefile.in

+2 −5
Original line number Diff line number Diff line
@@ -528,17 +528,14 @@ kernl64l.fi-: $(KERN_SRC) kernel/version.fs mach64l.fs $(FORTH_GEN0) 
kernl64b.fi-:	$(KERN_SRC) kernel/version.fs mach64b.fs $(FORTH_GEN0)

		$(FORTHK) -e 's" mach64b.fs"' $(srcdir)/kernel/main.fs -e "save-cross kernl64b.fi- $(bindir)/gforth-$(VERSION) bye"



kernl-%.fi:	arch/%/mach.fs \

		$(KERN_SRC) kernel/version.fs $(FORTH_GEN0)

kernl-%.fi:	arch/%/mach.fs $(KERN_SRC) kernel/version.fs $(FORTH_GEN0)

		$(FORTHK) -e 's" $<"' $(srcdir)/kernel/main.fs -e "save-cross $@- $(bindir)/gforth-$(VERSION) bye"

		if [ -f `echo $< | sed s/fs/sh/` ]; \

		then sh `echo $< | sed s/fs/sh/` $@; \

		else $(CP) $@- $@; \

		fi



arch/%/mach.fs:	arch/%/prim.fs



arch/%/prim.fs:	arch/%/asm.fs

arch/%/mach.fs:	arch/%/prim.fs arch/%/asm.fs



kernl16b.fi:	$(KERNLS)

		-$(CP) kernl16b.fi kernl16b.fi~

arch/4stack/mach.sh

+1 −1
Original line number Diff line number Diff line 
#!/bin/sh

gforth arch/4stack/relocate.fs \

 -e "s\" $1-\" read-gforth s\" ../4stack/${1%%fi}4o\" write-gforth bye"

 -e "s\" $1-\" read-gforth s\" ../4stack/gforth.4o\" write-gforth bye"

cp $1- $1

arch/8086/mach.fs

+2 −13
Original line number Diff line number Diff line
@@ -16,26 +16,15 @@ false Constant bigendian 


: prims-include  ." Include primitives" cr s" arch/8086/prim.fs" included ;

: asm-include    ." Include assembler" cr s" arch/8086/asm.fs" included ;

: >boot s" ' boot >body into-forth 1+ !" evaluate ;

: >boot          ." Prepare booting" cr

    s" ' boot >body into-forth 1+ !" evaluate ;



false Constant NIL



>ENVIRON



false Constant relocate

true  Constant ec

false Constant file

false Constant OS

false Constant prims

false Constant floating

false Constant glocals

false Constant dcomps

false Constant hash

false Constant xconds

false Constant header

true  Constant interpreter

true  Constant crlf

true  Constant ITC

\ true Constant has-rom



cell 2 = [IF] 32 [ELSE] 256 [THEN] KB Constant kernel-size

arch/misc/mach.fs

+1 −1
Original line number Diff line number Diff line
@@ -35,7 +35,7 @@ false Constant NIL \ relocating 
: asm-include    ." Include assembler" cr s" ~+/arch/misc/asm.fs" included ;

: >boot

    hex

    S" $6FF0 SP ! $7FF0 RP ! $7000 2* UP ! ' boot >body IP !" evaluate    

    S" $6FF0 SP 2* ! $7FF0 RP 2* ! $7000 2* UP 2* ! ' boot >body IP 2* !" evaluate    

    decimal ;



>ENVIRON

arch/misc/prim.fs

+6 −6
Original line number Diff line number Diff line
@@ -740,11 +740,11 @@ SP 2* Constant SP 
UP 2* Constant UP

IP 2* Constant IP



c: sp! 2/ sp ! ;

c: sp@ sp @ 1+ 2* ;

c: rp@ rp @ 2* ;

c: rp! r> swap 2/ rp ! >r ;

c: up@ up @ ;

c: up! up ! ;

\ c: sp! 2/ sp ! ;

\ c: sp@ sp @ 1+ 2* ;

\ c: rp@ rp @ 2* ;

\ c: rp! r> swap 2/ rp ! >r ;

: up@ up @ ;

: up! up ! ;



include ./key.fs