collapseos/blk/230

( b r -- )
: OP2br
    CREATE C,
    DOES>
    0xcb A,
    C@              ( b r op )
    ROT             ( r op b )
    <<3             ( r op b<<3 )
    OR OR A,
;
0xc0 OP2br SETbr,
0x80 OP2br RESbr,
0x40 OP2br BITbr,
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			`( b r -- )`
			`: OP2br`
			`CREATE C,`
			`DOES>`
			`0xcb A,`
			`C@ ( b r op )`
			`ROT ( r op b )`
			`<<3 ( r op b<<3 )`
			`OR OR A,`
			`;`
			`0xc0 OP2br SETbr,`
			`0x80 OP2br RESbr,`
			`0x40 OP2br BITbr,`

VE: add 't' This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues. 2020-06-12 08:12:01 +10:00