mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 15:08:05 +11:00
14 lines
451 B
Plaintext
14 lines
451 B
Plaintext
( 0000 KKKK dddd KKKK )
|
|
: OPRdK CREATE C, DOES> C@ ( rd K op )
|
|
OVER 0xf0 AND 4 RSHIFT OR ( rd K op' )
|
|
ROT 5 LSHIFT ROT 0x0f AND OR ( op' rdK ) A, A, ;
|
|
0x70 OPRdK ANDI, 0x30 OPRdK CPI, 0x0e OPRdK LDI,
|
|
0x60 OPRdK ORI, 0x40 OPRdK SBCI, 0x60 OPRdK SBR,
|
|
0x50 OPRdK SUBI,
|
|
|
|
( 0000 0000 AAAA Abbb )
|
|
: OPAb CREATE C, DOES> C@ ( A b op )
|
|
ROT 3 LSHIFT ROT OR A, A, ;
|
|
0x98 OPAb CBI, 0x9a OPAb SBI, 0x99 OPAb SBIC,
|
|
0x9b OPAb SBIS,
|