home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / JOYCTL.BK0.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  96 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. ;
  19. JMPTABLE EQU       $E0
  20. ;
  21. STS      EQU       $C0A8
  22. DTA      EQU       $C0A9
  23. PTRIG    EQU       $C070
  24. PDL0     EQU       $C064
  25. PDL1     EQU       $C065
  26. ;
  27.          JMP       STARTPGM
  28. ;
  29. XBYTE    DFB       $02
  30. XINVERT  DFB       $00
  31. XMSG0    DFB       $E0
  32. XMSG1    DFB       $00
  33. XMSG2    DFB       $00
  34. ;
  35. YBYTE    DFB       $02
  36. YINVERT  DFB       $01
  37. YMSG0    DFB       $B0
  38. YMSG1    DFB       $01
  39. YMSG2    DFB       $00
  40. ;
  41. STARTPGM LDA       #$00      ;INIT QUEUE
  42.          STA       QHEAD
  43.          STA       QTAIL
  44.          STA       JOYX
  45.          STA       JOYY
  46.          STA       PREVX
  47.          STA       PREVY
  48.          STA       PHASE
  49.          LDA       #$20
  50.          STA       QHEAD+1
  51.          STA       QTAIL+1
  52.          LDA       #$13      ;INIT MIDI
  53.          STA       STS
  54.          LDA       #$11
  55.          STA       STS
  56. ;                            ;SETUP JUMP TABLE IN ZP
  57.          LDA       #>PHASE0
  58.          STA       JMPTABLE+0
  59.          LDA       #<PHASE0
  60.          STA       JMPTABLE+1
  61.          LDA       #>PHASE2
  62.          STA       JMPTABLE+2
  63.          LDA       #<PHASE2
  64.          STA       JMPTABLE+3
  65.          LDA       #>PHASE4
  66.          STA       JMPTABLE+4
  67.          LDA       #<PHASE4
  68.          STA       JMPTABLE+5
  69.          LDA       #>PHASE6
  70.          STA       JMPTABLE+6
  71.          LDA       #<PHASE6
  72.          STA       JMPTABLE+7
  73.          LDA       #>PHASE8
  74.          STA       JMPTABLE+8
  75.          LDA       #<PHASE8
  76.          STA       JMPTABLE+9
  77.          LDA       #>PHASE10
  78.          STA       JMPTABLE+10
  79.          LDA       #<PHASE10
  80.          STA       JMPTABLE+11
  81.          LDA       #>PHASE12
  82.          STA       JMPTABLE+12
  83.          LDA       #<PHASE12
  84.          STA       JMPTABLE+13
  85.          LDA       #>PHASE14
  86.          STA       JMPTABLE+14
  87.          LDA       #<PHASE14
  88.          STA       JMPTABLE+15
  89.          LDA       #>PHASE16
  90.          STA       JMPTABLE+16
  91.          LDA       #<PHASE16
  92.          STA       JMPTABLE+17
  93.          JMP       CHKMIDI
  94. ;
  95.          CHN       JOYCTL.SC1
  96.