avra: add OPb and OPRdb instr classes
This commit is contained in:
parent
2e23b84fc1
commit
5227777b34
2
blk/662
2
blk/662
@ -1,5 +1,5 @@
|
||||
( 0000 000d dddd 0000 )
|
||||
: _Rdp ( op rd -- op' place Rd ) 4 LSHIFT OR ;
|
||||
: _Rdp ( op rd -- op', place Rd ) 4 LSHIFT OR ;
|
||||
: OPRd CREATE , DOES> @ SWAP _Rdp A,, ;
|
||||
0b1001010000000101 OPRd ASR, 0b1001010000000000 OPRd COM,
|
||||
0b1001010000001010 OPRd DEC, 0b1001010000000011 OPRd INC,
|
||||
|
10
blk/666
Normal file
10
blk/666
Normal file
@ -0,0 +1,10 @@
|
||||
( 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,
|
Loading…
Reference in New Issue
Block a user