*
*  UNZAP gets you out of your misery from the use of ZAP!
*  Contributed by Processor Technology Corp.
*
 ORG 0BCC0H  Ptdos CXBUF
 XEQ 0BCC0H
*
 LDA 0A890H
 ORA A
 JNZ P14
 LDA 0A88DH
 CPI 0CDH
 JNZ P14
 MVI A,10H
 STA 0A890H
*
U1 CALL 0BCBCH
 DB 0DH
*
P14 LDA 0A8B1H
 ORA A
 JNZ U1
 MVI A,10H
 STA 0A8B1H
 JMP U1
*.