mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 17:08:07 +11:00
bf4ab0f1b4
For the IY->BC move, of course.
17 lines
390 B
Plaintext
17 lines
390 B
Plaintext
CODE (key)
|
|
A 0x01 LDri, ( @KEY )
|
|
0x28 RST,
|
|
PUSHA,
|
|
;CODE
|
|
CODE (emit) EXX, ( protect BC )
|
|
BC POP, ( c == @DSP arg ) chkPS,
|
|
A 0x02 LDri, ( @DSP )
|
|
0x28 RST,
|
|
EXX, ( unprotect BC ) ;CODE
|
|
CODE AT-XY EXX, ( protect BC )
|
|
DE POP, H E LDrr, ( Y )
|
|
DE POP, L E LDrr, ( X ) chkPS,
|
|
A 0x0f LDri, ( @VDCTL ) B 3 LDri, ( setcur )
|
|
0x28 RST,
|
|
EXX, ( unprotect BC ) ;CODE
|