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,
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-19 20:36:13 -04: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-19 21:31:41 -04: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-19 20:36:13 -04: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-19 21:31:41 -04: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-19 20:36:13 -04: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-19 21:31:41 -04:00			`0x04 OP1r INCr, 0x05 OP1r DECr,`