collapseos/emul/xcomp.fs

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

282 LOAD  ( boot.z80 )
353 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
;
: COLS 80 ; : LINES 32 ;
: AT-XY 6 PC! ( y ) 5 PC! ( x ) ;

380 LOAD  ( xcomp core high )
(entry) _
( Update LATEST )
PC ORG @ 8 + !
," CURRENT @ HERE ! "
," BLK$ "
," ' EFS@ BLK@* ! "
," ' EFS! BLK!* ! "
EOT,
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-23 15:14:14 -04:00			`0xe800 CONSTANT RAMSTART`
By default, allocate about 0x100 bytes for PSP+RSP During "make updatebootstrap", we use less than 0x20 bytes on the PSP side and less than 0x40 bytes on the RSP one. 0x100 bytes ought to be enough for anybody. 2020-05-14 18:41:09 -04:00			`0xff00 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-11 21:08:24 -04:00			`0xfffa CONSTANT PS_ADDR`
Move icore to blkfs The way is clear for complete stage1 bootstrapping on the RC2014 target! 2020-04-23 15:14:14 -04:00			`212 LOAD ( z80 assembler )`
Use blk's boot.z80 2020-04-22 21:49:44 -04:00			`262 LOAD ( xcomp )`
xcomp: add overrides into a loadable block Makes xcomp.fs units shorter. 2020-05-13 13:33:24 -04:00			`270 LOAD ( xcomp overrides )`
Add CURRENT* and simplify xcomp 2020-04-09 12:01:08 -04:00
Use blk's boot.z80 2020-04-22 21:49:44 -04:00			`282 LOAD ( boot.z80 )`
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-15 22:44:49 -04:00			`353 LOAD ( xcomp core low )`
Split icore in 2 parts The goal is to insert device drivers in between. 2020-05-08 21:47:03 -04:00			`: (emit) 0 PC! ;`
			`: (key) 0 PC@ ;`
emul: remove stage1 2020-05-14 10:49:24 -04: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`
			`;`
emul: implement AT-XY VI, here we come! 2020-05-23 20:15:28 -04:00			`: COLS 80 ; : LINES 32 ;`
			`: AT-XY 6 PC! ( y ) 5 PC! ( x ) ;`
emul: remove stage1 2020-05-14 10:49:24 -04:00
Move Cross-compiled core from B390 to B350 and renamed it "Core words". Also, reworded the presentation. 2020-05-15 22:44:49 -04:00			`380 LOAD ( xcomp core high )`
Move icore to blkfs The way is clear for complete stage1 bootstrapping on the RC2014 target! 2020-04-23 15:14:14 -04:00			`(entry) _`
Update z80c.bin's LATEST during xcomp instead of using slatest 2020-04-25 22:02:44 -04:00			`( Update LATEST )`
xcomp: remove XOFF and use ORG and BIN( instead 2020-04-28 09:15:17 -04: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-26 10:15:35 -04:00			`," CURRENT @ HERE ! "`
emul: remove stage1 2020-05-14 10:49:24 -04:00			`," BLK$ "`
Streamline initialization process Instead of letting each configuration taking care of RDLN$ and "CollapseOS" prompt, move this to BOOT to simplify xcomp units. Initialization source code is now only for driver initialization. 2020-05-15 11:34:35 -04:00			`," ' EFS@ BLK@* ! "`
			`," ' EFS! BLK!* ! "`
			`EOT,`
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-05 20:10:04 -04: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-23 15:14:14 -04:00			`H@ 256 /MOD 2 PC! 2 PC!`