collapseos/arch/z80/z80mbc2/xcomp.fs

0xff00 CONSTANT RS_ADDR        0xfffa CONSTANT PS_ADDR
RS_ADDR 0x80 - CONSTANT SYSVARS
0 CONSTANT HERESTART
5 LOAD    ( z80 assembler )
262 LOAD  ( xcomp )
282 LOAD  ( boot.z80.decl )
270 LOAD  ( xcomp overrides )
283 335 LOADR ( boot.z80 )
353 LOAD  ( xcomp core low )
CODE (emit)
    A 1 LDri, 1 OUTiA, HL POP, A L LDrr, 0 OUTiA,
;CODE
CODE (key)
    BEGIN, 1 INAi, A INCr, JRZ, AGAIN,
    A DECr, PUSHA,
;CODE
: _sel ( sec )
( 32 sectors per track, 512 tracks per disk )
    32 /MOD ( addr sec trk )
    0x0a ( seltrk ) 1 PC! 0 PC! 0 0 PC! ( addr sec )
    0x0b ( selsec ) 1 PC! 0 PC! ( addr ) ;
: _ ( addr )
    ( get 512 bytes )
    0x86 ( readsec ) 1 PC!
    512 0 DO 0 PC@ SWAP C!+ LOOP DROP
;
: FD@ 2 * DUP _sel BLK( _ 1+ _sel BLK( 512 + _ ;
: _ ( addr )
    ( write 512 bytes )
    0x0c ( writesec ) 1 PC!
    512 0 DO C@+ 0 PC! LOOP DROP
;
: FD! 2 * DUP _sel BLK( _ 1+ _sel BLK( 512 + _ ;
: FD$ ( select disk 0 )
    0x09 ( seldisk ) 1 PC! 0 0 PC! ( sel disk 0 )
;
390 LOAD  ( xcomp core high )
(entry) _
( Update LATEST )
PC ORG @ 8 + !
," BLK$ FD$ ' FD@ BLK@* ! ' FD! BLK!* ! " EOT,
ORG @ |M 2 PC! 2 PC!
H@ |M 2 PC! 2 PC!
z80mbc2: new recipe ref #82 2020-06-23 09:08:19 +10:00			`0xff00 CONSTANT RS_ADDR 0xfffa CONSTANT PS_ADDR`
Rename RAMSTART to SYSVARS It's more descriptive this way. Also, I'll soon add a new HERESTART config. 2020-06-29 08:49:30 +10:00			`RS_ADDR 0x80 - CONSTANT SYSVARS`
Add HERESTART xcomp config 2020-06-29 09:45:28 +10:00			`0 CONSTANT HERESTART`
Move z80a from B200 to B5 The idea is to consider assemblers as "runtime" apps instead of placing them in the "bootstrap" section of the blocks. These apps will be used for much more than bootstrapping. Moved its documentation to doc/asm.txt and made its code blocks more compact. 2020-09-22 07:51:08 +10:00			`5 LOAD ( z80 assembler )`
z80: make boot binary a 2-part process Previously, recipes that began spitting binary contents before loading block 282 would end up with VARIABLE code in their binary, thus breaking them. We fix this by making this loading process 2-part. 2020-06-27 11:41:17 +10:00			`262 LOAD ( xcomp )`
			`282 LOAD ( boot.z80.decl )`
			`270 LOAD ( xcomp overrides )`
			`283 335 LOADR ( boot.z80 )`
			`353 LOAD ( xcomp core low )`
z80mbc2: new recipe ref #82 2020-06-23 09:08:19 +10:00			`CODE (emit)`
Fix asm in z80mbc2 recipe 2020-09-20 23:01:11 +10:00			`A 1 LDri, 1 OUTiA, HL POP, A L LDrr, 0 OUTiA,`
z80mbc2: new recipe ref #82 2020-06-23 09:08:19 +10:00			`;CODE`
			`CODE (key)`
Fix asm in z80mbc2 recipe 2020-09-20 23:01:11 +10:00			`BEGIN, 1 INAi, A INCr, JRZ, AGAIN,`
z80mbc2: new recipe ref #82 2020-06-23 09:08:19 +10:00			`A DECr, PUSHA,`
			`;CODE`
z80mbc2: add BLK support 2020-06-23 11:21:24 +10:00			`: _sel ( sec )`
			`( 32 sectors per track, 512 tracks per disk )`
			`32 /MOD ( addr sec trk )`
			`0x0a ( seltrk ) 1 PC! 0 PC! 0 0 PC! ( addr sec )`
			`0x0b ( selsec ) 1 PC! 0 PC! ( addr ) ;`
			`: _ ( addr )`
			`( get 512 bytes )`
			`0x86 ( readsec ) 1 PC!`
			`512 0 DO 0 PC@ SWAP C!+ LOOP DROP`
			`;`
			`: FD@ 2 * DUP _sel BLK( _ 1+ _sel BLK( 512 + _ ;`
			`: _ ( addr )`
			`( write 512 bytes )`
			`0x0c ( writesec ) 1 PC!`
			`512 0 DO C@+ 0 PC! LOOP DROP`
			`;`
			`: FD! 2 * DUP _sel BLK( _ 1+ _sel BLK( 512 + _ ;`
			`: FD$ ( select disk 0 )`
			`0x09 ( seldisk ) 1 PC! 0 0 PC! ( sel disk 0 )`
			`;`
Move most of the high layer of comp core into the low one With KEY and EMIT being switch words, most of the high layer can be defined before drivers. In addition to this change, I've compacted core blocks which were becoming quite sparse. 2020-10-29 09:06:58 +11:00			`390 LOAD ( xcomp core high )`
z80mbc2: new recipe ref #82 2020-06-23 09:08:19 +10:00			`(entry) _`
			`( Update LATEST )`
			`PC ORG @ 8 + !`
Add HERESTART xcomp config 2020-06-29 09:45:28 +10:00			`," BLK$ FD$ ' FD@ BLK@* ! ' FD! BLK!* ! " EOT,`
Add words \|M and \|L Splitting a word into MSB/LSB pairs happens often and is worth, I think, native words. Also, I'm going to need it in the upcoming commits. 2020-12-08 12:08:45 +11:00			`ORG @ \|M 2 PC! 2 PC!`
			`H@ \|M 2 PC! 2 PC!`