CODE PC! EXX, ( protect BC )
BC POP,
HL POP,
L OUT(C)r,
EXX, ( unprotect BC ) ;CODE
CODE PC@ EXX, ( protect BC )
chkPS,
H 0 LDri,
L INr(C),
HL PUSH,