1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 19:20:55 +11:00
collapseos/blk/666

11 lines
350 B
Plaintext
Raw Normal View History

2020-05-17 22:57:23 +10:00
( 0000 0000 0sss 0000 )
: OPb CREATE , DOES> @ ( b op )
SWAP 4 LSHIFT OR A,, ;
0b1001010010001000 OPb BCLR, 0b1001010000001000 OPb BSET,
( 0000 000d dddd 0bbb )
: OPRdb CREATE , DOES> @ ( rd b op )
ROT _Rdp OR A,, ;
0b1111100000000000 OPRdb BLD, 0b1111101000000000 OPRdb BST,
0b1111110000000000 OPRdb SBRC, 0b1111111000000000 OPRdb SBRS,