home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / AUTO300.SRC.txt next >
Text File  |  2020-08-13  |  2KB  |  81 lines
  1. ;AUTO REPEAT
  2. ;
  3. PREDELAY EQU       255
  4. RPTDELAY EQU       32
  5. BASL     EQU       $28
  6. KSW      EQU       $38
  7. OURCH    EQU       $57B
  8. KBD      EQU       $C000
  9. KBDSTRB  EQU       $C010
  10. AKD      EQU       $C010
  11. CXROMOFF EQU       $C006
  12. CXROMON  EQU       $C007
  13. ALTCHAR  EQU       $C01E
  14. INVERT   EQU       $CEDD
  15. PICK     EQU       $CF01
  16. ;
  17.          ORG       $300
  18. ;
  19.          LDA       #>NEWIN
  20.          STA       KSW
  21.          LDA       #<NEWIN
  22.          STA       KSW+1
  23.          RTS
  24. ;
  25. NEWIN    PHA
  26.          STY       YSAVE
  27.          BIT       ALTCHAR
  28.          BPL       NEWIN1
  29.          STA       (BASL),Y
  30.          STA       CXROMON
  31.          JSR       INVERT
  32. ;
  33. NEWIN1   LDA       #RPTDELAY
  34.          BIT       RPTFLAG
  35.          BMI       WAIT
  36.          LDA       #PREDELAY
  37. WAIT     SEC
  38. WAIT1    LDY       #128
  39. WAIT2    BIT       AKD
  40.          BPL       RPTOFF
  41.          DEY
  42.          BNE       WAIT2
  43.          SBC       #1
  44.          BNE       WAIT1
  45.          LDA       KBD
  46.          BIT       KBDSTRB
  47.          ORA       #$80
  48.          CMP       OLDKEY
  49.          BEQ       RPTON
  50.          LDY       #0
  51.          BEQ       FIXRPT
  52. RPTON    LDY       #$80
  53. FIXRPT   STY       RPTFLAG
  54.          JMP       GETKEY1
  55. RPTOFF   LDA       #0
  56.          STA       RPTFLAG
  57. GETKEY   LDA       KBD
  58.          BPL       GETKEY
  59.          BIT       KBDSTRB
  60. GETKEY1  STA       OLDKEY
  61.          BIT       ALTCHAR
  62.          BPL       CLRCURS1
  63.          CMP       #$9B
  64.          BEQ       NEWIN1
  65.          CMP       #$95
  66.          BNE       CLRCURS
  67.          LDY       OURCH
  68.          JSR       PICK
  69.          ORA       #$80
  70. CLRCURS  JSR       INVERT
  71.          STA       CXROMOFF
  72. CLRCURS1 PLA
  73.          LDY       YSAVE
  74.          STA       (BASL),Y
  75.          LDA       OLDKEY
  76.          RTS
  77. OLDKEY   DFB       0
  78. RPTFLAG  DFB       0
  79. YSAVE    DS        1
  80. ;
  81.