home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / CPM / NOREPEAT.ASM.txt < prev   
Text File  |  2020-08-13  |  753b  |  32 lines
  1. ;APPLE CPM NO REPEAT CONFIGIO PATCH
  2. ;
  3. SLTTYP   EQU       0F3B9H
  4. KEYBD    EQU       0E000H
  5. ;
  6.          ORG       0100H
  7. ORIGIN   EQU       0F300H
  8. OFFSET   SET       ORIGIN-LWRCASE
  9.          DB        1
  10.          DW        ORIGIN
  11.          DW        PRGEND-LWRCASE
  12.          DB        2
  13.          DB        2
  14.          DW        OLDINP+OFFSET
  15.          DW        LWRCASE+OFFSET
  16. ;
  17. LWRCASE: LDA       SLTTYP+2
  18.          CPI       3
  19.          JZ        0000
  20. OLDINP   EQU       $-2
  21. ;
  22. KBLOOP:  LDA       KEYBD+10H
  23.          ORA       A
  24.          JP        KBLOOP+OFFSET       ;WAIT UNTIL KEY PRESSED
  25. KBLOOP2: LDA       KEYBD+10H
  26.          ORA       A
  27.          JM        KBLOOP2   ;WAIT UNTIL KEY RELEASED
  28.          ORI       80H       ;SET HI BIT
  29.          RET
  30. ;
  31.          END
  32.