home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / SOURCE / KEYINTST.SRC < prev    next >
Encoding:
Text File  |  1997-11-28  |  1006 b   |  52 lines  |  [04] ASCII Text (0x0000)
  1. ;*** TEST OF MODIFYING KEYIN ***
  2. ;
  3. BASL     EQU       $28
  4. KSWL     EQU       $38
  5. ;
  6. OURCH    EQU       $57B
  7. ;
  8. KBD      EQU       $C000
  9. KBDSTRB  EQU       $C010
  10. ;
  11. CXROMON  EQU       $C007
  12. CXROMOFF EQU       $C006
  13. ALTCHAR  EQU       $C01E
  14. ;
  15. GETKEY   EQU       $CB15
  16. INVERT   EQU       $CEDD
  17. PICK     EQU       $CF01
  18. ;
  19.          ORG       $300
  20. ;
  21.          LDA       #>NEWIN
  22.          STA       KSWL
  23.          LDA       #<NEWIN
  24.          STA       KSWL+1
  25.          RTS
  26. ;
  27. NEWIN    BIT       ALTCHAR
  28.          BMI       NEWIN1
  29. GETKBD   BIT       KBD
  30.          BPL       GETKBD
  31. ;
  32.          STA       (BASL),Y
  33.          LDA       KBD
  34.          BIT       KBDSTRB
  35.          RTS
  36. ;
  37. NEWIN1   STA       (BASL),Y
  38.          STA       CXROMON
  39.          JSR       INVERT
  40. INPUT    JSR       GETKEY
  41.          CMP       #$9B
  42.          BEQ       INPUT
  43.          CMP       #$95
  44.          BNE       CLRCURS
  45.          LDY       OURCH
  46.          JSR       PICK
  47.          ORA       #$80
  48. CLRCURS  JSR       INVERT
  49.          STA       CXROMOFF
  50.          RTS
  51. ;
  52.