CODE (key)
    A 0x01 LDrn, ( @KEY )
    0x28 RSTn,
    PUSHA,
;CODE
CODE (emit)
    BC POPqq, ( c == @DSP arg ) chkPS,
    A 0x02 LDrn, ( @DSP )
    0x28 RSTn,
;CODE
CODE AT-XY
    DE POPqq, H E LDrr, ( Y )
    DE POPqq, L E LDrr, ( X ) chkPS,
    A 0x0f LDrn, ( @VDCTL ) B 3 LDrn, ( setcur )
    0x28 RSTn,
;CODE