collapseos/emul/xcomp.fs

0xe800 CONSTANT RAMSTART
0xf000 CONSTANT RS_ADDR
0xfffa CONSTANT PS_ADDR
212 LOAD  ( z80 assembler )
262 LOAD  ( xcomp )
270 LOAD  ( xcomp overrides )

282 LOAD  ( boot.z80 )
393 LOAD  ( xcomp core low )
: (emit) 0 PC! ;
: (key) 0 PC@ ;
: EFS@
    256 /MOD 3 PC! 3 PC!
    1024 0 DO
        4 PC@
        BLK( I + C!
    LOOP
;
: EFS!
    256 /MOD 3 PC! 3 PC!
    1024 0 DO
        BLK( I + C@ 4 PC!
    LOOP
;

420 LOAD  ( xcomp core high )
(entry) _
( Update LATEST )
PC ORG @ 8 + !
," CURRENT @ HERE ! "
," : INIT "
," BLK$ "
," ['] EFS@ BLK@* ! "
," ['] EFS! BLK!* ! "
," RDLN$ "
," LIT< _sys [entry] "
," LIT< CollapseOS (print) NL "
," ; INIT "
ORG @ 256 /MOD 2 PC! 2 PC!
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`
Replace INITIAL_SP with PS_ADDR conf Now I struggle to remember why I ever did things they way I did. There must have been a reason... 2020-05-12 11:08:24 +10:00			`0xfffa CONSTANT PS_ADDR`
Move icore to blkfs The way is clear for complete stage1 bootstrapping on the RC2014 target! 2020-04-24 05:14:14 +10:00			`212 LOAD ( z80 assembler )`
Use blk's boot.z80 2020-04-23 11:49:44 +10:00			`262 LOAD ( xcomp )`
xcomp: add overrides into a loadable block Makes xcomp.fs units shorter. 2020-05-14 03:33:24 +10:00			`270 LOAD ( xcomp overrides )`
Add CURRENT* and simplify xcomp 2020-04-10 02:01:08 +10:00
Use blk's boot.z80 2020-04-23 11:49:44 +10:00			`282 LOAD ( boot.z80 )`
Free some space for xcomp core low 2020-05-13 22:00:49 +10:00			`393 LOAD ( xcomp core low )`
Split icore in 2 parts The goal is to insert device drivers in between. 2020-05-09 11:47:03 +10:00			`: (emit) 0 PC! ;`
			`: (key) 0 PC@ ;`
emul: remove stage1 2020-05-15 00:49:24 +10:00			`: EFS@`
			`256 /MOD 3 PC! 3 PC!`
			`1024 0 DO`
			`4 PC@`
			`BLK( I + C!`
			`LOOP`
			`;`
			`: EFS!`
			`256 /MOD 3 PC! 3 PC!`
			`1024 0 DO`
			`BLK( I + C@ 4 PC!`
			`LOOP`
			`;`

Free some space for xcomp core low 2020-05-13 22:00:49 +10:00			`420 LOAD ( xcomp core high )`
Move icore to blkfs The way is clear for complete stage1 bootstrapping on the RC2014 target! 2020-04-24 05:14:14 +10:00			`(entry) _`
Update z80c.bin's LATEST during xcomp instead of using slatest 2020-04-26 12:02:44 +10:00			`( Update LATEST )`
xcomp: remove XOFF and use ORG and BIN( instead 2020-04-28 23:15:17 +10:00			`PC ORG @ 8 + !`
emul: bootstrap to stage2 from within Collapse OS! Big bootstrapping change which greatly reduces the role of the modern operating system in the bootstrapping process. 2020-04-27 00:15:35 +10:00			`," CURRENT @ HERE ! "`
emul: remove stage1 2020-05-15 00:49:24 +10:00			`," : INIT "`
			`," BLK$ "`
			`," ['] EFS@ BLK@* ! "`
			`," ['] EFS! BLK!* ! "`
			`," RDLN$ "`
			`," LIT< _sys [entry] "`
			`," LIT< CollapseOS (print) NL "`
			`," ; INIT "`
xcomp: move all offset spitting to the end of the unit I'd like to move this code, along with all recipe contents, to blk/. It's easier if "emul-related" code is gathered at the same place. 2020-05-06 10:10:04 +10:00			`ORG @ 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			`H@ 256 /MOD 2 PC! 2 PC!`