mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 03:38:06 +11:00
11 lines
364 B
Plaintext
11 lines
364 B
Plaintext
|
( 0000 0000 0sss 0000 )
|
||
|
: OPb CREATE , DOES> @ ( b op )
|
||
|
SWAP _r8c _Rdp A,, ;
|
||
|
0b1001010010001000 OPb BCLR, 0b1001010000001000 OPb BSET,
|
||
|
|
||
|
( 0000 000d dddd 0bbb )
|
||
|
: OPRdb CREATE , DOES> @ ( rd b op )
|
||
|
ROT _r32c _Rdp SWAP _r8c OR A,, ;
|
||
|
0b1111100000000000 OPRdb BLD, 0b1111101000000000 OPRdb BST,
|
||
|
0b1111110000000000 OPRdb SBRC, 0b1111111000000000 OPRdb SBRS,
|