home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / SOURCE / FASTJOY.SRC < prev    next >
Encoding:
Text File  |  1997-05-11  |  1.7 KB  |  110 lines  |  [04] ASCII Text (0x0000)
  1. ; FAST JOYSTICK MIDI THRU
  2. ;
  3.          ORG $6000
  4. ;
  5. PREVX    EQU $06
  6. PREVY    EQU $07
  7. CURRX    EQU $08
  8. CURRY    EQU $09
  9. ;
  10.          JMP STARTPGM
  11. ;
  12. XBYTE    DFB $02
  13. XMSG1    DFB $B0
  14. XMSG2    DFB $07
  15. XMSG3    DFB $00
  16. ;
  17. YBYTE    DFB $02
  18. YMSG1    DFB $B0
  19. YMSG2    DFB $0A
  20. YMSG3    DFB $00
  21. ;---------------------
  22. XMITX    LDA $C0A8
  23.          AND #$02
  24.          BEQ XMITX
  25.          STX $C0A9
  26. CHKMIDI  LDA $C0A8
  27.          AND #$01
  28.          BEQ OUT
  29.          LDX $C0A9
  30.          CPX #$F8
  31.          BCS CHKMIDI
  32.          BCC XMITX
  33. OUT      RTS     
  34. ;---------------------
  35. STARTPGM LDA #$13
  36.          STA $C0A8
  37.          LDA #$11
  38.          STA $C0A8
  39.          LDA #$00
  40.          STA PREVX
  41.          STA PREVY
  42. ;
  43. MAINLOOP JSR CHKMIDI
  44. ;
  45. JOY      LDX #$00
  46.          LDY #$00
  47.          LDA #$80
  48.          SEC
  49.          BIT $C070
  50. JOY1     BIT $C064
  51.          BPL JOY2
  52.          INX
  53.          BNE JOY3
  54. JOY2     NOP
  55.          NOP
  56. JOY3     BIT $C065
  57.          BPL JOY4
  58.          INY
  59.          BNE JOY5
  60. JOY4     NOP
  61.          NOP
  62. JOY5     PHA
  63.          DFB $DA   ;PHX
  64.          JSR CHKMIDI
  65.          DFB $FA   ;PLX
  66.          PLA
  67.          SBC #$01
  68.          BCS JOY1
  69. ;
  70.          STX CURRX
  71.          STY CURRY
  72. ;
  73.          LDX CURRX
  74.          CPX PREVX
  75.          BEQ CHKY
  76. ;
  77.          STX PREVX
  78.          TXA
  79.          LDY XBYTE
  80.          STA XMSG1,Y
  81. ;
  82.          LDX XMSG1
  83.          JSR XMITX
  84.          LDX XMSG2
  85.          JSR XMITX
  86.          LDX XMSG3
  87.          JSR XMITX
  88. ;         
  89. CHKY     LDY CURRY
  90.          CPY PREVY
  91.          BEQ CHKKBD
  92. ;
  93.          STY PREVY
  94.          TYA
  95.          LDY YBYTE
  96.          STA YMSG1,Y
  97. ;
  98.          LDX YMSG1
  99.          JSR XMITX
  100.          LDX YMSG2
  101.          JSR XMITX
  102.          LDX YMSG3
  103.          JSR XMITX
  104. ;
  105. CHKKBD   LDA $C000
  106.          BPL MAINLOOP
  107.          LDA $C010
  108.          RTS
  109. ;
  110.