|
- 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
|