mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-29 00:08:05 +11:00
10 lines
404 B
Plaintext
10 lines
404 B
Plaintext
( 0000 00rd dddd rrrr )
|
|
: OPRdRr CREATE C, DOES> C@ ( rd rr op )
|
|
OVER _r32c 0x10 AND 3 RSHIFT OR ( rd rr op' )
|
|
8 LSHIFT OR 0xff0f AND ( rd op' )
|
|
SWAP _r32c _Rdp A,, ;
|
|
0x1c OPRdRr ADC, 0x0c OPRdRr ADD, 0x20 OPRdRr AND,
|
|
0x14 OPRdRr CP, 0x04 OPRdRr CPC, 0x10 OPRdRr CPSE,
|
|
0x24 OPRdRr EOR, 0x2c OPRdRr MOV, 0x9c OPRdRr MUL,
|
|
0x28 OPRdRr OR, 0x08 OPRdRr SBC, 0x18 OPRdRr SUB,
|