home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / JOYCTL.SC3.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  59 lines
  1. ; JOYCTL - JOYSTICK MIDI CONTROLLER
  2. ;
  3. ;-------------------------------------------
  4. PHASE10  LDA       JOYY      ;3
  5.          CMP       PREVY     ;3
  6.          BEQ       GOTO12    ;2/3
  7.          CMP       PREV2Y    ;3
  8.          BEQ       GOTO12    ;2/3
  9.          TAY                 ;2
  10.          LDA       PREVY     ;3
  11.          STA       PREV2Y    ;3
  12.          TYA                 ;2
  13.          STA       PREVY     ;3
  14.          LDA       #26       ;2
  15.          STA       PHASE     ;3
  16.          JMP       CHKMIDI   ;3        34 CYCLES
  17. ;
  18. GOTO12   LDA       #12       ;2
  19.          STA       PHASE     ;3
  20.          JMP       CHKMIDI   ;3
  21. ;
  22. ;-------------------------------------------
  23. PHASE12  LDA       QHEAD     ;3
  24.          CMP       QTAIL     ;3
  25.          BNE       DOQUEUE   ;2/3
  26.          LDA       #0        ;2
  27.          STA       PHASE     ;3
  28.          JMP       CHKMIDI   ;3        ;16 CYCLES
  29. DOQUEUE  LDA       #14       ;2
  30.          STA       PHASE     ;3
  31.          JMP       CHKMIDI   ;3
  32. ;-------------------------------------------
  33. ;;;PHASE14  LDA       (QTAIL)   ;5         *65C02*
  34. PHASE14  DFB       $B2
  35.          DFB       QTAIL
  36.          STA       DTA       ;4
  37.          INC       QTAIL     ;5
  38.          LDA       #16       ;2
  39.          STA       PHASE     ;3
  40.          JMP       CHKMIDI   ;3        ;22 CYCLES
  41. ;-------------------------------------------
  42. PHASE16  LDA       STS       ;4
  43.          AND       #$02      ;2
  44.          BNE       TDREDONE  ;2/3
  45.          JMP       CHKMIDI   ;3
  46. TDREDONE LDA       #12       ;2
  47.          STA       PHASE     ;3
  48.          JMP       CHKMIDI   ;3        ;19 CYCLES
  49. ;-------------------------------------------
  50. PHASE18  LDY       PREVX     ;3
  51.          LDA       XTABLE,Y  ;5
  52. NOXINV   LDY       XBYTE     ;4
  53.          STA       XMSG0,Y   ;5  STICK INTO MIDI MESSAGE
  54.          LDA       #20       ;2
  55.          STA       PHASE     ;3
  56.          JMP       CHKMIDI   ;3        ;25 CYCLES
  57. ;-------------------------------------------
  58.          CHN       JOYCTL.SC4
  59.