collapseos/emul/forth/xcomp.fs

: _
    ['] EXIT ,
    R> DROP     ( exit : )
    XCOFF
; IMMEDIATE
';' CURRENT @ 4 - C!

: (find) (xfind) ;
: ['] X['] ; IMMEDIATE
: COMPILE XCOMPILE ; IMMEDIATE
: CODE XCODE ;
: IMMEDIATE XIMM ;
: : [ ' X: , ] ;

CURRENT @ XCURRENT !

H@ 256 /MOD 2 PC! 2 PC!
H@ XOFF !
xcomp: widen scope We can now cross-compile core.fs. 2020-04-10 21:53:41 +10:00			`: _`
			`['] EXIT ,`
			`R> DROP ( exit : )`
			`XCOFF`
			`; IMMEDIATE`
			`';' CURRENT @ 4 - C!`

			`: (find) (xfind) ;`
			`: ['] X['] ; IMMEDIATE`
			`: COMPILE XCOMPILE ; IMMEDIATE`
xcomp: don't automatically shadow core words 2020-04-09 23:43:48 +10:00			`: CODE XCODE ;`
			`: IMMEDIATE XIMM ;`
			`: : [ ' X: , ] ;`

Add xcomp unit for cross compilation Memory mapping is a dead end too, solution has to be at a higher level. xcomp is my new approach. 2020-04-09 22:23:53 +10:00			`CURRENT @ XCURRENT !`
Add CURRENT* and simplify xcomp 2020-04-10 02:01:08 +10:00
			`H@ 256 /MOD 2 PC! 2 PC!`
emul: build boot binary in one pass ... instead of building boot.fs, and then z80c.fs/icore.fs in separate passes. This strengten xcomp by making it support 2 completely separate dicts (that is, the X dict is not connected to the system dict. The chain now stops at EXIT def in boot.fs). 2020-04-10 23:55:58 +10:00			`H@ XOFF !`