mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-17 09:38:05 +11:00
440ea43a88
Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help.
9 lines
274 B
Plaintext
9 lines
274 B
Plaintext
: OP1r0 ( r -- )
|
|
CREATE C, DOES>
|
|
C@ ( r op ) OR A, ;
|
|
0x80 OP1r0 ADDr, 0x88 OP1r0 ADCr,
|
|
0xa0 OP1r0 ANDr, 0xb8 OP1r0 CPr,
|
|
0xb0 OP1r0 ORr, 0x90 OP1r0 SUBr,
|
|
0x98 OP1r0 SBCr, 0xa8 OP1r0 XORr,
|
|
: CP(IXY+), CPr, A, ;
|