home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / SOURCE / JOYCTL.SC2 < prev    next >
Encoding:
Text File  |  1997-06-14  |  1.9 KB  |  66 lines  |  [04] ASCII Text (0x0000)
  1. ; JOYCTL - JOYSTICK MIDI CONTROLLER
  2. ;
  3. ; PHASE ALGORITHM
  4. ;
  5. PHASE0   LDA       $C000     ;3
  6.          BMI       EXITPGM   ;2/3
  7.          LDA       #$00      ;2
  8.          STA       JOYX      ;3
  9.          STA       JOYY      ;3
  10.          LDA       PTRIG     ;4
  11.          LDA       #2        ;2
  12.          STA       PHASE     ;3
  13.          JMP       CHKMIDI   ;3        ;25
  14. EXITPGM  LDA       $C010
  15.          RTS
  16. ;-------------------------------------------
  17. PHASE4   NOP                 ;2
  18.          NOP                 ;2
  19.          NOP                 ;2
  20.          NOP                 ;2
  21.          LDA       PDL1      ;4
  22.          BPL       P1D       ;2/3
  23.          INC       JOYY      ;5
  24.          JMP       PHASE4A   ;3
  25. PHASE4A  JMP       CHKMIDI   ;3        ;25
  26. ;
  27. P1D      NOP                 ;2
  28.          LDA       #8        ;2
  29.          STA       PHASE     ;3
  30.          JMP       CHKMIDI   ;3        ;25
  31. ;-------------------------------------------
  32. PHASE6   NOP                 ;2
  33.          NOP                 ;2
  34.          NOP                 ;2
  35.          NOP                 ;2
  36.          LDA       PDL0      ;4
  37.          BPL       P0D       ;2/3
  38.          INC       JOYX      ;5
  39.          JMP       PHASE6A   ;3
  40. PHASE6A  JMP       CHKMIDI   ;3        ;25
  41. ;
  42. P0D      NOP                 ;2
  43.          LDA       #8        ;2
  44.          STA       PHASE     ;3
  45.          JMP       CHKMIDI   ;3        ;25
  46. ;-------------------------------------------
  47. PHASE8   LDA       JOYX      ;3
  48.          CMP       PREVX     ;3
  49.          BEQ       GOTO10    ;2/3
  50.          CMP       PREV2X    ;3
  51.          BEQ       GOTO10    ;2/3
  52.          TAY                 ;2
  53.          LDA       PREVX     ;3
  54.          STA       PREV2X    ;3
  55.          TYA                 ;2
  56.          STA       PREVX     ;3
  57.          LDA       #18       ;2
  58.          STA       PHASE     ;3
  59.          JMP       CHKMIDI   ;3        ;34 CYCLES
  60. ;
  61. GOTO10   LDA       #10       ;2
  62.          STA       PHASE     ;3
  63.          JMP       CHKMIDI   ;3
  64. ;
  65.          CHN       JOYCTL.SC3
  66.