collapseos/blk/219

( also works for cc )
0xc0 OP1r RETcc,
( r -- )
: OP1r0
    CREATE C,
    DOES>
    C@              ( r op )
    OR A,
;
0x80 OP1r0 ADDr,               0x88 OP1r0 ADCr,
0xa0 OP1r0 ANDr,               0xb8 OP1r0 CPr,
0xb0 OP1r0 ORr,                0x90 OP1r0 SUBr,
0x98 OP1r0 SBCr,               0xa8 OP1r0 XORr,
: CP(IXY+), CPr, A, ;
emul: make stage2 load z80a from blkfs This allows us to remove forth/z80a.fs. Another big step towards self-hosting! 2020-04-20 11:31:41 +10:00			`( also works for cc )`
			`0xc0 OP1r RETcc,`
			`( r -- )`
			`: OP1r0`
			`CREATE C,`
			`DOES>`
			`C@ ( r op )`
			`OR A,`
			`;`
			`0x80 OP1r0 ADDr, 0x88 OP1r0 ADCr,`
			`0xa0 OP1r0 ANDr, 0xb8 OP1r0 CPr,`
			`0xb0 OP1r0 ORr, 0x90 OP1r0 SUBr,`
			`0x98 OP1r0 SBCr, 0xa8 OP1r0 XORr,`
Make DO..LOOP stable DO and LOOP now only compile words from stable ABI, which make them suitable for xcomp. This will greatly simplify driver writing and allow us to mostly avoid the low/high divide in drivers. LEAVE is still xcomp-incompatible though. This make us very very tight for "<0x100" limit for literal words. Hopefully, we won't need more stuff in that area of the binary... 2020-05-13 00:37:24 +10:00			`: CP(IXY+), CPr, A, ;`