1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 04:18:05 +11:00
collapseos/blk/232

17 lines
239 B
Plaintext
Raw Normal View History

( bitwise rotation ops have a similar sig )
( r -- )
: OProt
CREATE C,
DOES>
0xcb A,
C@ ( r op )
OR A,
;
0x10 OProt RLr,
0x00 OProt RLCr,
0x18 OProt RRr,
0x08 OProt RRCr,
0x20 OProt SLAr,
0x38 OProt SRLr,