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