;APPLE CPM NO REPEAT CONFIGIO PATCH
;
SLTTYP   EQU       0F3B9H
KEYBD    EQU       0E000H
;
         ORG       0100H
ORIGIN   EQU       0F300H
OFFSET   SET       ORIGIN-LWRCASE
         DB        1
         DW        ORIGIN
         DW        PRGEND-LWRCASE
         DB        2
         DB        2
         DW        OLDINP+OFFSET
         DW        LWRCASE+OFFSET
;
LWRCASE: LDA       SLTTYP+2
         CPI       3
         JZ        0000
OLDINP   EQU       $-2
;
KBLOOP:  LDA       KEYBD+10H
         ORA       A
         JP        KBLOOP+OFFSET       ;WAIT UNTIL KEY PRESSED
KBLOOP2: LDA       KEYBD+10H
         ORA       A
         JM        KBLOOP2   ;WAIT UNTIL KEY RELEASED
         ORI       80H       ;SET HI BIT
         RET
;
         END