home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / BUTTONDR.SRC.txt < prev    next >
Text File  |  2020-08-13  |  1KB  |  87 lines
  1. ; BUTTON DRUM TEST
  2. ;
  3.          ORG $6000
  4.          JMP INIT
  5. ;
  6. PB0CHNL  DFB $99
  7. PB0NOTE  DFB 38    ;SNARE1
  8. PB0VEL   DFB $40
  9. PB1CHNL  DFB $99
  10. PB1NOTE  DFB 40    ;SNARE2
  11. PB1VEL   DFB $40
  12. CURRPB0  DFB $00
  13. CURRPB1  DFB $00
  14. PREVPB0  DFB $00
  15. PREVPB1  DFB $00
  16. ;
  17. INIT     LDA #$13
  18.          STA $C0A8
  19.          LDA #$11
  20.          STA $C0A8
  21. LOOP     LDA $C061
  22.          AND #$80
  23.          STA CURRPB0
  24.          LDA $C062
  25.          AND #$80
  26.          STA CURRPB1
  27. ;
  28.          LDA CURRPB0
  29.          CMP PREVPB0
  30.          BNE PB0CHG
  31.          LDA CURRPB1
  32.          CMP PREVPB1
  33.          BNE PB1CHG
  34. ;
  35. GOBACK   LDA CURRPB0
  36.          STA PREVPB0
  37.          LDA CURRPB1
  38.          STA PREVPB1
  39.          LDA $C000
  40.          BPL LOOP
  41.          RTS
  42. ;
  43. PB0CHG   LDA CURRPB0
  44.          BMI PB0DOWN
  45. ;       
  46.          LDA PB0CHNL
  47.          JSR MIDIXMIT
  48.          LDA PB0NOTE
  49.          JSR MIDIXMIT
  50.          LDA #$00
  51.          JSR MIDIXMIT
  52.          JMP GOBACK
  53. ;
  54. PB0DOWN  LDA PB0CHNL
  55.          JSR MIDIXMIT
  56.          LDA PB0NOTE
  57.          JSR MIDIXMIT
  58.          LDA PB0VEL
  59.          JSR MIDIXMIT
  60.          JMP GOBACK
  61. ;
  62. PB1CHG   LDA CURRPB1
  63.          BMI PB1DOWN
  64. ;
  65.          LDA PB1CHNL
  66.          JSR MIDIXMIT
  67.          LDA PB1NOTE
  68.          JSR MIDIXMIT
  69.          LDA #$00
  70.          JSR MIDIXMIT
  71.          JMP GOBACK
  72. ;
  73. PB1DOWN  LDA PB1CHNL
  74.          JSR MIDIXMIT
  75.          LDA PB1NOTE
  76.          JSR MIDIXMIT
  77.          LDA PB1VEL
  78.          JSR MIDIXMIT
  79.          JMP GOBACK
  80. ;
  81. MIDIXMIT STA $C0A9
  82. WAITTDRE LDA $C0A8
  83.          AND #$02
  84.          BEQ WAITTDRE
  85.          RTS
  86. ;
  87.