1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-15 03:18:05 +11:00
collapseos/recipes/trs80/blk/603

17 lines
390 B
Plaintext
Raw Normal View History

2020-05-03 00:37:37 +10:00
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