collapseos/emul/xcomp.fs

0xe800 CONSTANT RAMSTART
0xf000 CONSTANT RS_ADDR
212 LOAD  ( z80 assembler )
262 LOAD  ( xcomp )
: CODE XCODE ;
: IMMEDIATE XIMM ;
: (entry) (xentry) ;
: : [ ' X: , ] ;

CURRENT @ XCURRENT !

H@ 256 /MOD 2 PC! 2 PC!
H@ XOFF !
282 LOAD  ( boot.z80 )
393 LOAD  ( icore )
(entry) _
( Update LATEST )
H@ XOFF @ - XOFF @ 8 + !
H@ 256 /MOD 2 PC! 2 PC!
Move icore to blkfs The way is clear for complete stage1 bootstrapping on the RC2014 target! 2020-04-24 05:14:14 +10:00			`0xe800 CONSTANT RAMSTART`
			`0xf000 CONSTANT RS_ADDR`
			`212 LOAD ( z80 assembler )`
Use blk's boot.z80 2020-04-23 11:49:44 +10:00			`262 LOAD ( xcomp )`
xcomp: don't automatically shadow core words 2020-04-09 23:43:48 +10:00			`: CODE XCODE ;`
			`: IMMEDIATE XIMM ;`
Avoid using (xentry) outside xcomp config 2020-04-24 02:09:31 +10:00			`: (entry) (xentry) ;`
xcomp: don't automatically shadow core words 2020-04-09 23:43:48 +10:00			`: : [ ' 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 !`
Use blk's boot.z80 2020-04-23 11:49:44 +10:00			`282 LOAD ( boot.z80 )`
Move icore to blkfs The way is clear for complete stage1 bootstrapping on the RC2014 target! 2020-04-24 05:14:14 +10:00			`393 LOAD ( icore )`
			`(entry) _`
Update z80c.bin's LATEST during xcomp instead of using slatest 2020-04-26 12:02:44 +10:00			`( Update LATEST )`
			`H@ XOFF @ - XOFF @ 8 + !`
Move icore to blkfs The way is clear for complete stage1 bootstrapping on the RC2014 target! 2020-04-24 05:14:14 +10:00			`H@ 256 /MOD 2 PC! 2 PC!`