home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / SOURCE / JOYCTL.BK3 < prev    next >
Encoding:
Text File  |  1997-06-14  |  2.0 KB  |  74 lines  |  [04] ASCII Text (0x0000)
  1. ; JOYCTL - JOYSTICK MIDI CONTROLLER
  2. ;
  3. ;-------------------------------------------
  4. PHASE10  LDA       JOYY
  5.          CMP       PREVY
  6.          BEQ       GOTO12
  7.          CMP       PREV2Y
  8.          BEQ       GOTO12
  9.          PHA
  10.          LDA       PREVY
  11.          STA       PREV2Y
  12.          PLA
  13.          STA       PREVY
  14. ;                            ;X CHANGED. PUT MIDI MESSAGE ON QUEUE
  15.          ASL       A         ;MULTIPLY BY 2 TO GET RANGE OF 0-110
  16.          CLC
  17.          ADC       #10       ;ADD 10 TO GET RANGE OF 10-120
  18.          STA       TEMP
  19.          LDX       YINVERT   ;IF INVERTING, SUBTRACT IT FROM 130
  20.          BEQ       NOYINV
  21.          LDA       #130
  22.          SEC
  23.          SBC       TEMP
  24. NOYINV   LDY       YBYTE
  25.          STA       YMSG0,Y   ;STICK INTO MIDI MESSAGE
  26.          LDA       YMSG0
  27. ;;;      STA       (QHEAD)   ;         *65C02*
  28.          DFB       $92
  29.          DFB       QHEAD
  30.          INC       QHEAD
  31.          LDA       YMSG1
  32. ;;;      STA       (QHEAD)   ;         *65C02*
  33.          DFB       $92
  34.          DFB       QHEAD
  35.          INC       QHEAD
  36.          LDA       YMSG2
  37. ;;;      STA       (QHEAD)   ;         *65C02*
  38.          DFB       $92
  39.          DFB       QHEAD
  40.          INC       QHEAD
  41. ;
  42. GOTO12   LDA       #12
  43.          STA       PHASE
  44.          JMP       CHKMIDI
  45. ;
  46. ;-------------------------------------------
  47. PHASE12  LDA       QHEAD
  48.          CMP       QTAIL
  49.          BNE       DOQUEUE
  50.          LDA       #0
  51.          STA       PHASE
  52.          JMP       CHKMIDI
  53. DOQUEUE  LDA       #14
  54.          STA       PHASE
  55.          JMP       CHKMIDI
  56. ;-------------------------------------------
  57. ;;;PHASE14  LDA       (QTAIL)   ;         *65C02*
  58. PHASE14  DFB       $B2
  59.          DFB       QTAIL
  60.          STA       $C0A9
  61.          INC       QTAIL
  62.          LDA       #16
  63.          STA       PHASE
  64.          JMP       CHKMIDI
  65. ;-------------------------------------------
  66. PHASE16  LDA       $C0A8
  67.          AND       #$02
  68.          BNE       TDREDONE
  69.          JMP       CHKMIDI
  70. TDREDONE LDA       #12
  71.          STA       PHASE
  72.          JMP       CHKMIDI
  73. ;-------------------------------------------
  74.