;
;
; JOYCTRL - JOYSTICK MIDI CONTROLLERS WITH MIDI THRU
;
;
CHKMIDI  LDA $C0A8
         AND #$01            ;DID WE GET MIDI DATA
         BEQ CHKMRTS         ;NO - CONTINUE PROCESSING
         LDA $C0A9           ;YES- GET MIDI BYTE
         CMP #$F8
         BCS CHKMIDI         ;DON'T STORE REALTIME MSGS
         LDY #$00
         STA (QHEAD),Y       ;STORE MIDI MESSAGE
         INC QHEAD
         JMP CHKMIDI
CHKMRTS  RTS
;
STOREQ   LDY #$00
         STA (QHEAD),Y       ;STORE MIDI MESSAGE
         INC QHEAD
;         LDA QHEAD
;         CMP QTAIL
;         BEQ QFULL
         RTS
QFULL    BRK
;
XTABLE   DFB 0,0
         DFB 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8
         DFB 9,9,10,10,11,11,12,12,13,13,14,14,15,15,16,16
         DFB 17,17,18,18,19,19,20,20,21,21,22,22,23,23,24,24
         DFB 25,25,26,26,27,27,28,28,29,29,30,30,31,31,32,32
         DFB 33,33,34,34,35,35,36,36,37,37,38,38,39,39,40,40
         DFB 41,41,42,42,43,43,44,44,45,45,46,46,47,47,48,48
         DFB 49,49,50,50,51,51,52,52,53,53,54,54,55,55,56,56
         DFB 57,57,58,58,59,59,60,60,61,61,62,62,63,63,64,64
         DFB 65,65,66,66,67,67,68,68,69,69,70,70,71,71,72,72
         DFB 73,73,74,74,75,75,76,76,77,77,78,78,79,79,80,80
         DFB 81,81,82,82,83,83,84,84,85,85,86,86,87,87,88,88
         DFB 89,89,90,90,91,91,92,92,93,93,94,94,95,95,96,96
         DFB 97,97,98,98,99,99,100,100,101,101,102,102,103,103,104,104
         DFB 105,105,106,106,107,107,108,108,109,109,110,110,111,111,112,112
         DFB 113,113,114,114,115,115,116,116,117,117,118,118,119,119,120,120
         DFB 121,121,122,122,123,123,124,124,125,125,126,126,127,127
;
YTABLE   DFB 127,127,126,126,125,125,124,124,123,123,122,122,121,121,120,120
         DFB 119,119,118,118,117,117,116,116,115,115,114,114,113,113,112,112
         DFB 111,111,110,110,109,109,108,108,107,107,106,106,105,105,104,104
         DFB 103,103,102,102,101,101,100,100,99,99,98,98,97,97,96,96
         DFB 95,95,94,94,93,93,92,92,91,91,90,90,89,89,88,88
         DFB 87,87,86,86,85,85,84,84,83,83,82,82,81,81,80,80
         DFB 79,79,78,78,77,77,76,76,75,75,74,74,73,73,72,72
         DFB 71,71,70,70,69,69,68,68,67,67,66,66,65,65,64,64
         DFB 63,63,62,62,61,61,60,60,59,59,58,58,57,57,56,56
         DFB 55,55,54,54,53,53,52,52,51,51,50,50,49,49,48,48
         DFB 47,47,46,46,45,45,44,44,43,43,42,42,41,41,40,40
         DFB 39,39,38,38,37,37,36,36,35,35,34,34,33,33,32,32
         DFB 31,31,30,30,29,29,28,28,27,27,26,26,25,25,24,24
         DFB 23,23,22,22,21,21,20,20,19,19,18,18,17,17,16,16
         DFB 15,15,14,14,13,13,12,12,11,11,10,10,9,9,8,8
         DFB 7,7,6,6,5,5,4,4,3,3,2,2,1,1,0,0
;