mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 12: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.
15 lines
274 B
Plaintext
15 lines
274 B
Plaintext
( r -- )
|
|
: OP1r
|
|
CREATE C,
|
|
DOES>
|
|
C@ ( r op )
|
|
SWAP ( op r )
|
|
<<3 ( op r<<3 )
|
|
OR A,
|
|
;
|
|
0x04 OP1r INCr, 0x05 OP1r DECr,
|
|
: INC(IXY+), INCr, A, ;
|
|
: DEC(IXY+), DECr, A, ;
|
|
( also works for c )
|
|
0xc0 OP1r RETc,
|