home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / CPM / LWRCASE.ASM.txt < prev    next >
Text File  |  2020-08-13  |  1KB  |  61 lines
  1. ;APPLE CPM LOWERCASE INPUT CONFIGIO PATCH
  2. ;
  3. SHFCHR   EQU       21
  4. SLTTYP   EQU       0F3B9H
  5. KEYBD    EQU       0E000H
  6. ;
  7.          ORG       0100H
  8. ORIGIN   EQU       0F300H
  9. OFFSET   SET       ORIGIN-LWRCASE
  10.          DB        1
  11.          DW        ORIGIN
  12.          DW        PRGEND-LWRCASE
  13.          DB        2
  14.          DB        2
  15.          DW        OLDINP+OFFSET
  16.          DW        LWRCASE+OFFSET
  17. ;
  18. LWRCASE: LDA       SLTTYP+2
  19.          CPI       3
  20.          JZ        0000
  21. OLDINP   EQU       $-2
  22. ;
  23. KBLOOP:  LDA       KEYBD
  24.          ORA       A
  25.          JP        KBLOOP+OFFSET
  26.          STA       KEYBD+10H
  27.          ANI       7FH
  28.          MOV       C,A
  29. ;
  30.          MVI       B,SHFCHR
  31.          LXI       H,STATE+OFFSET
  32.          MOV       A,M
  33.          CPI       1
  34.          MOV       A,C
  35.          JC        STATE0+OFFSET
  36.          JZ        STATE1+OFFSET
  37. ;
  38. STATE2:  CMP       B
  39.          JZ        SETONE+OFFSET
  40.          CPI       64
  41.          RC
  42.          XRI       00100000B
  43.          RET
  44. ;
  45. STATE1:  INR       M
  46.          CMP       B
  47.          RNZ
  48.          DCR       M
  49. SETONE:  DCR       M
  50.          JMP       LWRCASE+OFFSET
  51. ;
  52. STATE0:  CMP       B
  53.          RNZ
  54.          MVI       M,2
  55.          JMP       LWRCASE+OFFSET
  56. ;
  57. STATE:   DB        0
  58. ;
  59. PRGEND:
  60.          END
  61.