home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / JOYTEST.BA1.txt < prev    next >
Text File  |  2020-08-13  |  3KB  |  127 lines
  1. ;
  2. SEND1    LDA XMSG0
  3.          JSR XMITBYTE
  4.          LDA XMSG1
  5.          JSR XMITBYTE
  6.          LDA XMSG2
  7.          JSR XMITBYTE
  8.          JSR FLUSHQ
  9. ;
  10. CHKM2    JSR CHKMIDI
  11. ;
  12. CHKPDL1C LDA JOYY
  13.          CMP JOYYPREV        ;DID PADDLE Y CHANGE
  14.          BEQ JMPBACKJ
  15.          CMP JOYYPRV2        ;CHK PREVIOUS 2 VALUES OF PDLY
  16.          BEQ JMPBACKJ
  17.          BNE STPRVY
  18. JMPBACKJ JMP JMPBACK
  19. STPRVY   LDY JOYYPREV
  20.          STY JOYYPRV2
  21.          STA JOYYPREV
  22. ;
  23.          LDY YUPDBYTE        ;STORE PADDLE VALUE IN MESSAGE
  24.          STA YMSG0,Y
  25. ;
  26.          LDA YMSG0
  27.          JSR XMITBYTE
  28.          LDA YMSG1
  29.          JSR XMITBYTE
  30.          LDA YMSG2
  31.          JSR XMITBYTE
  32.          JSR FLUSHQ
  33.          JSR CHKMIDI
  34. ;
  35. JMPBACK  LDA $C061
  36.          BMI PB0
  37.          LDA $C062
  38.          BMI PB1
  39.          LDA $C000
  40.          BMI KEY
  41.          JMP MAINLOOP
  42. ;
  43. PB0      LDA #$01
  44.          STA PB0DOWN
  45.          JSR ALLOFF
  46. WAITUP0  LDA $C061
  47.          BMI WAITUP0
  48.          JMP MAINLOOP
  49. ;
  50. PB1      LDA #$01
  51.          STA PB1DOWN
  52.          JSR ALLOFF
  53. WAITUP1  LDA $C062
  54.          BMI WAITUP1
  55.          JMP MAINLOOP
  56. ;
  57. KEY      STA KEYDOWN
  58.          LDA $C010
  59.          RTS
  60. ;
  61. ALLOFF   LDA ANOMSG0
  62.          STA $C0A9
  63. WA1      LDA $C0A8
  64.          AND #$02
  65.          BEQ WA1
  66.          LDA ANOMSG1
  67.          STA $C0A9
  68. WA2      LDA $C0A8
  69.          AND #$02
  70.          BEQ WA2
  71.          LDA ANOMSG2
  72.          STA $C0A9
  73. WA3      LDA $C0A8
  74.          AND #$02
  75.          BEQ WA3
  76.          RTS
  77. ;
  78. XMITBYTE STA $C0A9
  79. WTD1A    LDA $C0A8
  80.          AND #$02
  81.          BNE WOUT1A
  82. WTD2A    LDA $C0A8
  83.          AND #$01
  84.          BEQ WTD1A
  85.          LDA $C0A9
  86.          CMP #$F8
  87.          BCS WTD2A
  88.          DFB $92
  89.          DFB QHEAD
  90.          INC QHEAD
  91.          JMP WTD2A
  92. WOUT1A   RTS
  93. ;
  94. FLUSHQ   LDA QTAIL
  95.          CMP QHEAD
  96.          BEQ WOUT1C
  97.          DFB $B2
  98.          DFB QTAIL
  99.          STA $C0A9
  100.          INC QTAIL
  101. WTD1B    LDA $C0A8
  102.          AND #$02
  103.          BNE WOUT1B
  104. WTD2B    LDA $C0A8
  105.          AND #$01
  106.          BEQ WTD1B
  107.          LDA $C0A9
  108.          CMP #$F8
  109.          BCS WTD2B
  110.          DFB $92
  111.          DFB QHEAD
  112.          INC QHEAD
  113.          JMP WTD2B
  114. WOUT1B   JMP FLUSHQ
  115. WOUT1C   RTS
  116. ;
  117. XTABLE   DFB 0,0,4,4,8,8,12,12,16,16,20,20,24,24,28,28
  118.          DFB 32,32,36,36,40,40,44,44,48,48,52,52,56,56,60,60
  119.          DFB 64,64,68,68,72,72,76,76,80,80,84,84,88,88,92,92
  120.          DFB 96,96,100,100,104,104,108,108,112,112,116,116,120
  121.          DFB 120,124,124,124,124,124,124,124,124,124,124
  122. YTABLE   DFB 124,124,120,120,116,116,112,112,108,108,104,104,100
  123.          DFB 100,96,96,92,92,88,88,84,84,80,80,76,76,72,72,68,68,64
  124.          DFB 64,60,60,56,56,52,52,48,48,44,44,40,40,36,36,32,32
  125.          DFB 28,28,24,24,20,20,16,16,12,12,8,8,4,4,0,0,0,0,0,0,0,0,0
  126. ;
  127.