1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-20 17:58:06 +11:00
collapseos/blk/230

15 lines
221 B
Plaintext
Raw Normal View History

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