2020-05-03 00:37:37 +10:00
|
|
|
CODE (key)
|
2020-06-28 12:01:56 +10:00
|
|
|
A 0x01 LDri, ( @KEY )
|
|
|
|
0x28 RST,
|
2020-06-08 00:37:00 +10:00
|
|
|
PUSHA,
|
2020-05-01 06:10:35 +10:00
|
|
|
;CODE
|
2020-07-06 13:12:17 +10:00
|
|
|
CODE (emit) EXX, ( protect BC )
|
2020-06-28 12:01:56 +10:00
|
|
|
BC POP, ( c == @DSP arg ) chkPS,
|
|
|
|
A 0x02 LDri, ( @DSP )
|
|
|
|
0x28 RST,
|
2020-07-06 13:12:17 +10:00
|
|
|
EXX, ( unprotect BC ) ;CODE
|
|
|
|
CODE AT-XY EXX, ( protect BC )
|
2020-06-28 12:01:56 +10:00
|
|
|
DE POP, H E LDrr, ( Y )
|
|
|
|
DE POP, L E LDrr, ( X ) chkPS,
|
|
|
|
A 0x0f LDri, ( @VDCTL ) B 3 LDri, ( setcur )
|
|
|
|
0x28 RST,
|
2020-07-06 13:12:17 +10:00
|
|
|
EXX, ( unprotect BC ) ;CODE
|