2020-05-16 23:51:02 +10:00
|
|
|
( 0000 000d dddd 0000 )
|
2020-05-17 12:16:41 +10:00
|
|
|
: _Rdp ( op rd -- op' place Rd ) 4 LSHIFT OR ;
|
|
|
|
: OPRd CREATE , DOES> @ SWAP _Rdp A,, ;
|
2020-05-16 23:51:02 +10:00
|
|
|
0b1001010000000101 OPRd ASR, 0b1001010000000000 OPRd COM,
|
|
|
|
0b1001010000001010 OPRd DEC, 0b1001010000000011 OPRd INC,
|
|
|
|
0b1001001000000110 OPRd LAC, 0b1001001000000101 OPRd LAS,
|
|
|
|
0b1001001000000111 OPRd LAT,
|
|
|
|
0b1001010000000110 OPRd LSR, 0b1001010000000001 OPRd NEG,
|
|
|
|
0b1001000000001111 OPRd POP, 0b1001001000001111 OPRd PUSH,
|
|
|
|
0b1001010000000111 OPRd ROR, 0b1001010000000010 OPRd SWAP,
|
|
|
|
0b1001001000000100 OPRd XCH,
|