CODE !
HL POPqq,
DE POPqq,
(HL) E LDrr,
HL INCss,
(HL) D LDrr,
;CODE
CODE @
chkPS,
E (HL) LDrr,
D (HL) LDrr,
DE PUSHqq,