;
SEND1    LDA XMSG0
         JSR XMITBYTE
         LDA XMSG1
         JSR XMITBYTE
         LDA XMSG2
         JSR XMITBYTE
         JSR FLUSHQ
;
CHKM2    JSR CHKMIDI
;
CHKPDL1C LDA JOYY
         CMP JOYYPREV        ;DID PADDLE Y CHANGE
         BEQ JMPBACKJ
         CMP JOYYPRV2        ;CHK PREVIOUS 2 VALUES OF PDLY
         BEQ JMPBACKJ
         BNE STPRVY
JMPBACKJ JMP JMPBACK
STPRVY   LDY JOYYPREV
         STY JOYYPRV2
         STA JOYYPREV
;
         LDY YUPDBYTE        ;STORE PADDLE VALUE IN MESSAGE
         STA YMSG0,Y
;
         LDA YMSG0
         JSR XMITBYTE
         LDA YMSG1
         JSR XMITBYTE
         LDA YMSG2
         JSR XMITBYTE
         JSR FLUSHQ
         JSR CHKMIDI
;
JMPBACK  LDA $C061
         BMI PB0
         LDA $C062
         BMI PB1
         LDA $C000
         BMI KEY
         JMP MAINLOOP
;
PB0      LDA #$01
         STA PB0DOWN
         JSR ALLOFF
WAITUP0  LDA $C061
         BMI WAITUP0
         JMP MAINLOOP
;
PB1      LDA #$01
         STA PB1DOWN
         JSR ALLOFF
WAITUP1  LDA $C062
         BMI WAITUP1
         JMP MAINLOOP
;
KEY      STA KEYDOWN
         LDA $C010
         RTS
;
ALLOFF   LDA ANOMSG0
         STA $C0A9
WA1      LDA $C0A8
         AND #$02
         BEQ WA1
         LDA ANOMSG1
         STA $C0A9
WA2      LDA $C0A8
         AND #$02
         BEQ WA2
         LDA ANOMSG2
         STA $C0A9
WA3      LDA $C0A8
         AND #$02
         BEQ WA3
         RTS
;
XMITBYTE STA $C0A9
WTD1A    LDA $C0A8
         AND #$02
         BNE WOUT1A
WTD2A    LDA $C0A8
         AND #$01
         BEQ WTD1A
         LDA $C0A9
         CMP #$F8
         BCS WTD2A
         DFB $92
         DFB QHEAD
         INC QHEAD
         JMP WTD2A
WOUT1A   RTS
;
FLUSHQ   LDA QTAIL
         CMP QHEAD
         BEQ WOUT1C
         DFB $B2
         DFB QTAIL
         STA $C0A9
         INC QTAIL
WTD1B    LDA $C0A8
         AND #$02
         BNE WOUT1B
WTD2B    LDA $C0A8
         AND #$01
         BEQ WTD1B
         LDA $C0A9
         CMP #$F8
         BCS WTD2B
         DFB $92
         DFB QHEAD
         INC QHEAD
         JMP WTD2B
WOUT1B   JMP FLUSHQ
WOUT1C   RTS
;
XTABLE   DFB 0,0,4,4,8,8,12,12,16,16,20,20,24,24,28,28
         DFB 32,32,36,36,40,40,44,44,48,48,52,52,56,56,60,60
         DFB 64,64,68,68,72,72,76,76,80,80,84,84,88,88,92,92
         DFB 96,96,100,100,104,104,108,108,112,112,116,116,120
         DFB 120,124,124,124,124,124,124,124,124,124,124
YTABLE   DFB 124,124,120,120,116,116,112,112,108,108,104,104,100
         DFB 100,96,96,92,92,88,88,84,84,80,80,76,76,72,72,68,68,64
         DFB 64,60,60,56,56,52,52,48,48,44,44,40,40,36,36,32,32
         DFB 28,28,24,24,20,20,16,16,12,12,8,8,4,4,0,0,0,0,0,0,0,0,0
;