izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 13:38:05 +11:00
Code Issues Releases Wiki Activity

avra: simplify OPRdRr

Browse Source
This commit is contained in:
Virgil Dupras 2020-05-16 22:16:41 -04:00
parent 75a1b2d504
commit 2e23b84fc1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
blk/662
View File

@ -1,5 +1,6 @@
( 0000 000d dddd 0000 ) ( 0000 000d dddd 0000 )
: OPRd CREATE , DOES> @ SWAP 4 LSHIFT OR A,, ; : _Rdp ( op rd -- op' place Rd ) 4 LSHIFT OR ;
: OPRd CREATE , DOES> @ SWAP _Rdp A,, ;
0b1001010000000101 OPRd ASR, 0b1001010000000000 OPRd COM, 0b1001010000000101 OPRd ASR, 0b1001010000000000 OPRd COM,
0b1001010000001010 OPRd DEC, 0b1001010000000011 OPRd INC, 0b1001010000001010 OPRd DEC, 0b1001010000000011 OPRd INC,
0b1001001000000110 OPRd LAC, 0b1001001000000101 OPRd LAS, 0b1001001000000110 OPRd LAC, 0b1001001000000101 OPRd LAS,

3
blk/663
View File

@ -1,9 +1,8 @@
( 0000 00rd dddd rrrr ) ( 0000 00rd dddd rrrr )
: OPRdRr CREATE C, DOES> C@ ( rd rr op ) : OPRdRr CREATE C, DOES> C@ ( rd rr op )
OVER 0x10 AND 3 RSHIFT OR ( rd rr op' ) OVER 0x10 AND 3 RSHIFT OR ( rd rr op' )
2 PICK 0x10 AND 4 RSHIFT OR ( rd rr op' )
8 LSHIFT OR 0xff0f AND ( rd op' ) 8 LSHIFT OR 0xff0f AND ( rd op' )
SWAP 0xf AND 4 LSHIFT OR A,, ; SWAP _Rdp A,, ;
0x1c OPRdRr ADC, 0x0c OPRdRr ADD, 0x20 OPRdRr AND, 0x1c OPRdRr ADC, 0x0c OPRdRr ADD, 0x20 OPRdRr AND,
0x14 OPRdRr CP, 0x04 OPRdRr CPC, 0x10 OPRdRr CPSE, 0x14 OPRdRr CP, 0x04 OPRdRr CPC, 0x10 OPRdRr CPSE,
0x24 OPRdRr EOR, 0x2c OPRdRr MOV, 0x9c OPRdRr MUL, 0x24 OPRdRr EOR, 0x2c OPRdRr MOV, 0x9c OPRdRr MUL,