home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / SOURCE / TESTCTRL.SC0 < prev    next >
Encoding:
Text File  |  1997-04-10  |  2.0 KB  |  90 lines  |  [04] ASCII Text (0x0000)
  1. ;
  2. ;
  3. ; JOYCTRL - JOYSTICK MIDI CONTROLLERS WITH MIDI THRU
  4. ;
  5. ;
  6. XTOUT    EQU $C064
  7. YTOUT    EQU $C065
  8. PTRIG    EQU $C070
  9. ;
  10. QHEAD    EQU $06
  11. QTAIL    EQU $08
  12. ;
  13.          ORG $6000
  14. ;
  15.          JMP STARTPGM
  16. ;
  17. ; PUBLIC VARIABLES:
  18. ;
  19. CHANNEL  DFB $00   ;WHICH CHANNEL TO SEND THE MESSAGE ON (0-F)
  20. ;
  21. XUPDBYTE DFB $02   ;WHICH BYTE OF THE MESSAGE TO UPDATE (1 OR 2)
  22. XINVERT  DFB $00   ;WHETHER TO INVERT THE PADDLE VALUE (EX: 0->7F, 7F->0)
  23. XMSG0    DFB $E0   ;STATUS BYTE OF MESSAGE FOR X AXIS
  24. XMSG1    DFB $00   ;DATABYTE 1
  25. XMSG2    DFB $00   ;DATABYTE 2
  26. ;
  27. YUPDBYTE DFB $02
  28. YINVERT  DFB $01
  29. YMSG0    DFB $B0
  30. YMSG1    DFB $01   ;MODULATION
  31. YMSG2    DFB $00
  32. ;
  33. KEYDOWN  DFB $00
  34. PB0DOWN  DFB $00
  35. PB1DOWN  DFB $00
  36. DEBUG    DFB $00   ;PRINT MIDI DATA ON SCREEN
  37. ;
  38. ;PRIVATE VARIABLES
  39. ;
  40. MIDIBUF  DFB $00,$20         ; MIDI BUFFER ADDRESS
  41. JOYX     DFB $00
  42. JOYY     DFB $00
  43. JOYXNEW  DFB $00   ;USED IF JOYSTICK VALUE IS TO BE INVERTED
  44. JOYYNEW  DFB $00
  45. JOYXPREV DFB $00
  46. JOYYPREV DFB $00
  47. ASAVE    DFB $00
  48. XSAVE    DFB $00
  49. YSAVE    DFB $00
  50. PDL0DONE DFB $00
  51. PDL1DONE DFB $00
  52. PDL0HI   DFB $00
  53. PDL0LO   DFB $00
  54. PDL1HI   DFB $00
  55. PDL1LO   DFB $00
  56. ;
  57. STARTPGM SEI
  58.          LDA #$13            ;INITIALIZE MIDI INTERFACE
  59.          STA $C0A8
  60.          LDA #$11
  61.          STA $C0A8
  62.          LDA #$0             ;INITIALIZE VARIABLES
  63.          STA KEYDOWN
  64.          STA PB0DOWN
  65.          STA PB1DOWN
  66.          STA PDL0DONE
  67.          STA PDL1DONE
  68.          LDA MIDIBUF         ;SET UP BUFFER PTR
  69.          STA QHEAD
  70.          STA QTAIL
  71.          LDA MIDIBUF+1
  72.          STA QHEAD+1
  73.          STA QTAIL+1
  74.          LDA #$43            ;INIT TIMER
  75.          STA $C0A1
  76.          LDA #$01            ;WRITE CTRL REG 2
  77.          STA $C0A0
  78.          LDA #$03            ;NO INTERRUPTS
  79.          STA $C0A0
  80.          STA $C0A1           
  81.          LDA #$FF            ;HI BYTE OF TIMER
  82.          STA $C0A4
  83.          LDA #$FF            ;LO BYTE OF TIMER
  84.          STA $C0A5
  85.          LDA #$01            ;PLUG TIMER
  86.          STA $C0A0
  87. ;         BIT PTRIG           ;TRIGGER PADDLE CAPACITOR DISCHARGE
  88. ;
  89.          CHN TESTCTRL.SC1
  90.