mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 11:18: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.
17 lines
306 B
Plaintext
17 lines
306 B
Plaintext
CODE (key)
|
|
A 0x01 LDri, ( @KEY )
|
|
0x28 RST,
|
|
PUSHA,
|
|
;CODE
|
|
CODE (emit)
|
|
BC POP, ( c == @DSP arg ) chkPS,
|
|
A 0x02 LDri, ( @DSP )
|
|
0x28 RST,
|
|
;CODE
|
|
CODE AT-XY
|
|
DE POP, H E LDrr, ( Y )
|
|
DE POP, L E LDrr, ( X ) chkPS,
|
|
A 0x0f LDri, ( @VDCTL ) B 3 LDri, ( setcur )
|
|
0x28 RST,
|
|
;CODE
|