collapseos/blk/010

( r -- )
: OP1r
    CREATE C,
    DOES>
    C@              ( r op )
    SWAP            ( op r )
    <<3             ( op r<<3 )
    OR A,
;
0x04 OP1r INCr,                0x05 OP1r DECr,
: INC(IXY+), INCr, A, ;
: DEC(IXY+), DECr, A, ;
( also works for c )
0xc0 OP1r RETc,
Copy z80a.fs to disk blocks I don't remove z80a.fs yet because build process needs it, but that will change shortly. 2020-04-20 10:36:13 +10:00			`( r -- )`
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			`: OP1r`
Copy z80a.fs to disk blocks I don't remove z80a.fs yet because build process needs it, but that will change shortly. 2020-04-20 10:36:13 +10:00			`CREATE C,`
			`DOES>`
			`C@ ( r op )`
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			`SWAP ( op r )`
			`<<3 ( op r<<3 )`
Copy z80a.fs to disk blocks I don't remove z80a.fs yet because build process needs it, but that will change shortly. 2020-04-20 10:36:13 +10:00			`OR 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			`0x04 OP1r INCr, 0x05 OP1r DECr,`
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			`: INC(IXY+), INCr, A, ;`
			`: DEC(IXY+), DECr, A, ;`
z80a: make mnemonic names more uniform across assemblers Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help. 2020-06-28 12:01:56 +10:00			`( also works for c )`
			`0xc0 OP1r RETc,`