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 !

( dummy entry for dict hook )
(xentry) _
H@ 256 /MOD 2 PC! 2 PC!
H@ ' _bend - 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
			`( dummy entry for dict hook )`
			`(xentry) _`
			`H@ 256 /MOD 2 PC! 2 PC!`
xcomp: widen scope We can now cross-compile core.fs. 2020-04-10 21:53:41 +10:00			`H@ ' _bend - XOFF !`