collapseos/blk/218

( 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, ;
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, ;`