mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 07:28:06 +11:00
17 lines
239 B
Plaintext
17 lines
239 B
Plaintext
( 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,
|
|
|