mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 02:20:58 +11:00
2d9a07d215
This was becoming heavy to manage.
16 lines
625 B
Plaintext
16 lines
625 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,
|
|
|
|
( 0000 0AAd dddd AAAA )
|
|
: OPRdA CREATE C, DOES> C@ ( rd A op )
|
|
OVER _r64c 0x30 AND 3 RSHIFT OR ( rd A op' )
|
|
8 LSHIFT OR 0xff0f AND ( rd op' ) SWAP _r32c _Rdp A,, ;
|
|
0xb0 OPRdA IN, 0xb8 OPRdA _ : OUT, SWAP _ ;
|