1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-24 14:28:06 +11:00

avra: add OPb and OPRdb instr classes

This commit is contained in:
Virgil Dupras 2020-05-17 08:57:23 -04:00
parent 2e23b84fc1
commit 5227777b34
3 changed files with 12 additions and 2 deletions

View File

@ -1 +1 @@
1 5 LOADR+
1 6 LOADR+

View File

@ -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
View 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,