CODE PC!
    BC POP,
    HL POP,
    L OUT(C)r,
;CODE

CODE PC@
    BC POP,
    chkPS,
    H 0 LDri,
    L INr(C),
    HL PUSH,
;CODE