home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / JOYCTL.SC0.txt < prev    next >
Text File  |  2020-08-13  |  3KB  |  127 lines
  1. ; JOYCTL - JOYSTICK MIDI CONTROLLER
  2. ;
  3. ; PHASE ALGORITHM
  4. ;
  5. ;
  6.          ORG       $6000
  7. ;
  8. QHEAD    EQU       $06
  9. QTAIL    EQU       $08
  10. JOYX     EQU       $19
  11. JOYY     EQU       $1A
  12. PREVX    EQU       $1B
  13. PREVY    EQU       $1C
  14. PHASE    EQU       $1D
  15. TEMP     EQU       $1E
  16. PREV2X   EQU       $CE
  17. PREV2Y   EQU       $CF
  18. HEADSAVE EQU       $D7
  19. ;
  20. JMPTABLE EQU       $DE
  21. ;
  22. STS      EQU       $C0A8
  23. DTA      EQU       $C0A9
  24. PTRIG    EQU       $C070
  25. PDL0     EQU       $C064
  26. PDL1     EQU       $C065
  27. ;
  28.          JMP       STARTPGM
  29. ;
  30. XBYTE    DFB       $02
  31. XMSG0    DFB       $E0
  32. XMSG1    DFB       $00
  33. XMSG2    DFB       $00
  34. ;
  35. YBYTE    DFB       $02
  36. YMSG0    DFB       $B0
  37. YMSG1    DFB       $01
  38. YMSG2    DFB       $00
  39. ;
  40. STARTPGM LDA       #$00      ;INIT QUEUE
  41.          STA       QHEAD
  42.          STA       QTAIL
  43.          STA       JOYX
  44.          STA       JOYY
  45.          STA       PREVX
  46.          STA       PREVY
  47.          STA       PHASE
  48.          LDA       #$20
  49.          STA       QHEAD+1
  50.          STA       QTAIL+1
  51.          LDA       #$13      ;INIT MIDI
  52.          STA       STS
  53.          LDA       #$11
  54.          STA       STS
  55. ;                            ;SETUP JUMP TABLE IN ZP
  56.          LDA       #>PHASE0
  57.          STA       JMPTABLE+0
  58.          LDA       #<PHASE0
  59.          STA       JMPTABLE+1
  60.          LDA       #>PHASE2
  61.          STA       JMPTABLE+2
  62.          LDA       #<PHASE2
  63.          STA       JMPTABLE+3
  64.          LDA       #>PHASE4
  65.          STA       JMPTABLE+4
  66.          LDA       #<PHASE4
  67.          STA       JMPTABLE+5
  68.          LDA       #>PHASE6
  69.          STA       JMPTABLE+6
  70.          LDA       #<PHASE6
  71.          STA       JMPTABLE+7
  72.          LDA       #>PHASE8
  73.          STA       JMPTABLE+8
  74.          LDA       #<PHASE8
  75.          STA       JMPTABLE+9
  76.          LDA       #>PHASE10
  77.          STA       JMPTABLE+10
  78.          LDA       #<PHASE10
  79.          STA       JMPTABLE+11
  80.          LDA       #>PHASE12
  81.          STA       JMPTABLE+12
  82.          LDA       #<PHASE12
  83.          STA       JMPTABLE+13
  84.          LDA       #>PHASE14
  85.          STA       JMPTABLE+14
  86.          LDA       #<PHASE14
  87.          STA       JMPTABLE+15
  88.          LDA       #>PHASE16
  89.          STA       JMPTABLE+16
  90.          LDA       #<PHASE16
  91.          STA       JMPTABLE+17
  92.          LDA       #>PHASE18
  93.          STA       JMPTABLE+18
  94.          LDA       #<PHASE18
  95.          STA       JMPTABLE+19
  96.          LDA       #>PHASE20
  97.          STA       JMPTABLE+20
  98.          LDA       #<PHASE20
  99.          STA       JMPTABLE+21
  100.          LDA       #>PHASE22
  101.          STA       JMPTABLE+22
  102.          LDA       #<PHASE22
  103.          STA       JMPTABLE+23
  104.          LDA       #>PHASE24
  105.          STA       JMPTABLE+24
  106.          LDA       #<PHASE24
  107.          STA       JMPTABLE+25
  108.          LDA       #>PHASE26
  109.          STA       JMPTABLE+26
  110.          LDA       #<PHASE26
  111.          STA       JMPTABLE+27
  112.          LDA       #>PHASE28
  113.          STA       JMPTABLE+28
  114.          LDA       #<PHASE28
  115.          STA       JMPTABLE+29
  116.          LDA       #>PHASE30
  117.          STA       JMPTABLE+30
  118.          LDA       #<PHASE30
  119.          STA       JMPTABLE+31
  120.          LDA       #>PHASE32
  121.          STA       JMPTABLE+32
  122.          LDA       #<PHASE32
  123.          STA       JMPTABLE+33
  124.          JMP       CHKMIDI
  125. ;
  126.          CHN       JOYCTL.SC1
  127.