1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 18:48:09 +11:00
collapseos/blk/230
Virgil Dupras 0892193cbe 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

15 lines
221 B
Plaintext

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