;APPLE CPM LOWERCASE INPUT CONFIGIO PATCH
;
SHFCHR   EQU       21
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
         ORA       A
         JP        KBLOOP+OFFSET
         STA       KEYBD+10H
         ANI       7FH
         MOV       C,A
;
         MVI       B,SHFCHR
         LXI       H,STATE+OFFSET
         MOV       A,M
         CPI       1
         MOV       A,C
         JC        STATE0+OFFSET
         JZ        STATE1+OFFSET
;
STATE2:  CMP       B
         JZ        SETONE+OFFSET
         CPI       64
         RC
         XRI       00100000B
         RET
;
STATE1:  INR       M
         CMP       B
         RNZ
         DCR       M
SETONE:  DCR       M
         JMP       LWRCASE+OFFSET
;
STATE0:  CMP       B
         RNZ
         MVI       M,2
         JMP       LWRCASE+OFFSET
;
STATE:   DB        0
;
PRGEND:
         END