home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / SOURCE / ERICSRC2 / JOYCTL.SC1 < prev    next >
Text File  |  1997-07-21  |  2KB  |  60 lines
  1. ; JOYCTL - JOYSTICK MIDI CONTROLLER
  2. ;
  3. ; PHASE ALGORITHM
  4. ;-------------------------------------------
  5. NODATA   NOP                 ;2        NEED 8 CYCLES
  6.          NOP                 ;2
  7.          NOP                 ;2
  8.          NOP                 ;2     
  9. RTMSG    NOP                 ;2        NEED 9 CYCLES
  10.          NOP                 ;2
  11.          NOP                 ;2
  12.          JMP       SWITCH    ;3
  13. ;-------------------------------------------
  14. CHKMIDI  LDA       STS       ;4
  15.          AND       #$01      ;2
  16.          BEQ       NODATA    ;2/3 
  17. CHKMID2  LDA       DTA       ;4
  18.          CMP       #$F8      ;2
  19.          BCS       RTMSG     ;2/3
  20. ;;;      STA       (QHEAD)   ;5                  *65C02*
  21.          DFB       $92
  22.          DFB       QHEAD
  23.          INC       QHEAD     ;5
  24. ;;***TEST 7/21/97 - IF ADD THIS NEED TO CHANGE BRA BELOW TO $DC
  25. ;;         LDA       STS       ;4                ;CHECK FOR MORE DATA
  26. ;;         AND       #$01      ;2
  27. ;;         BNE       CHKMID2   ;2/3
  28. ;;***
  29. SWITCH   LDX       PHASE     ;3
  30. ;;;      JMP       (JMPTABLE,X)        ;6        *65C02* ;TOTAL 35 CYCLES
  31.          DFB       $7C
  32.          DFB       JMPTABLE
  33.          DFB       $00
  34. ;-------------------------------------------
  35. P1DONE   LDA       #6        ;2
  36.          STA       PHASE     ;3
  37. ;         BRA       CHKMIDI   ;2        ;25      *65C02*
  38.          DFB       $80
  39.          DFB       $E3
  40. ;
  41. PHASE2   LDA       PDL0      ;4
  42.          BPL       P0DONE    ;2/3
  43.          INC       JOYX      ;5
  44.          LDA       PDL1      ;4
  45.          BPL       P1DONE    ;2/3
  46.          INC       JOYY      ;5
  47.          JMP       CHKMIDI   ;3        ;25
  48. ;
  49. P0DONE   NOP                 ;2
  50.          NOP                 ;2
  51.          NOP                 ;2
  52.          NOP                 ;2
  53.          NOP                 ;2
  54.          LDA       #4        ;2
  55.          STA       PHASE     ;3
  56.          JMP       CHKMIDI   ;3        ;25
  57. ;
  58. ;-------------------------------------------
  59.          CHN       JOYCTL.SC2
  60.