home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / PROJECT / SOURCE / BACKOUT / DANCNOTE.SC2 < prev    next >
Encoding:
Text File  |  1996-02-16  |  5.2 KB  |  174 lines  |  [04] ASCII Text (0x0000)
  1. ; DANCNOTE.SC2
  2. ;-------------------------
  3. ; MIDIGRPH ROUTINE
  4. ; A=STATUS BYTE (9X OR 8X)
  5. ; X=NOTE 
  6. ; Y=VELOCITY
  7. ;--------------------------
  8. ;
  9. HGRPTRL  EQU $EE
  10. HGRPTRH  EQU $EF
  11. ;
  12. MIDIGRPH CMP #$80
  13.          BCC DRAWEXIT
  14.          CMP #$90
  15.          BCC DRAWNOFF
  16.          CMP #$A0
  17.          BCC DRAWNON
  18.          CMP #$E0
  19.          BCC DRAWEXIT
  20.          CMP #$F0
  21.          BCC PITCHBND
  22. DRAWEXIT RTS
  23. ;
  24. DRAWNOFF LDY #$00
  25. DRAWNON  AND #$0F
  26.          ASL A
  27.          STA DRAWCHNL
  28.          STX DRAWNOTE
  29.          STY DRAWVEL
  30.          LDA #$80
  31.          SEC
  32.          SBC DRAWNOTE
  33.          TAX
  34.          LDA HGRLINEL,X
  35.          CLC
  36.          ADC DRAWCHNL
  37.          STA HGRPTRL 
  38.          LDA HGRLINEH,X
  39.          ADC #$00
  40.          STA HGRPTRH
  41.          LDY #$00
  42.          LDX DRAWVEL
  43.          LDA VELBYTEL,X
  44.          STA (HGRPTRL),Y
  45.          INY
  46.          LDA VELBYTER,X
  47.          STA (HGRPTRL),Y
  48.          RTS
  49. ;
  50. PITCHBND AND #$0F
  51.          ASL A
  52.          STA DRAWCHNL
  53.          STX DRAWNOTE
  54.          STY DRAWVEL
  55.          LDX #140
  56.          LDA HGRLINEL,X
  57.          CLC
  58.          ADC DRAWCHNL
  59.          STA HGRPTRL 
  60.          LDA HGRLINEH,X
  61.          ADC #$00
  62.          STA HGRPTRH
  63.          LDY #$00
  64.          LDX DRAWVEL
  65.          CPX #$40
  66.          BCC PBLEFT
  67.          BNE PBRIGHT
  68.          LDA #$00
  69.          STA (HGRPTRL),Y
  70.          INY
  71.          LDA #$00
  72.          STA (HGRPTRL),Y
  73.          RTS
  74. PBRIGHT  TXA
  75.          SEC
  76.          SBC #$40
  77.          ASL A
  78.          TAX
  79.          LDA #$00
  80.          STA (HGRPTRL),Y
  81.          INY
  82.          LDA VELBYTER,X
  83.          STA (HGRPTRL),Y
  84.          RTS
  85. PBLEFT   TXA
  86.          ASL A
  87.          TAX
  88.          LDA VELBYTER,X
  89.          EOR #$7F
  90.          STA (HGRPTRL),Y
  91.          INY
  92.          LDA #$00
  93.          STA (HGRPTRL),Y
  94.          RTS
  95. ;
  96. DRAWCHNL DFB $00
  97. DRAWNOTE DFB $00
  98. DRAWVEL  DFB $00
  99. ;
  100. HGRLINEH DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  101.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  102.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  103.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  104.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  105.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  106.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  107.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  108.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  109.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  110.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  111.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  112.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  113.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  114.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  115.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  116.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  117.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  118.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  119.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  120.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  121.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  122.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  123.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  124. HGRLINEL DFB $00,$00,$00,$00,$00,$00,$00,$00
  125.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  126.          DFB $00,$00,$00,$00,$00,$00,$00,$00
  127.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  128.          DFB $00,$00,$00,$00,$00,$00,$00,$00
  129.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  130.          DFB $00,$00,$00,$00,$00,$00,$00,$00
  131.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  132.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  133.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  134.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  135.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  136.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  137.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  138.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  139.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  140.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  141.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  142.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  143.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  144.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  145.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  146.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  147.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  148. VELBYTEL DFB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
  149.          DFB $41,$41,$41,$41,$41,$41,$41,$41,$41,$41
  150.          DFB $41,$41,$41,$41,$41,$41,$41,$41,$41,$41
  151.          DFB $61,$61,$61,$61,$61,$61,$61,$61,$61,$61
  152.          DFB $61,$61,$61,$61,$61,$61,$61,$61,$61,$61
  153.          DFB $71,$71,$71,$71,$71,$71,$71,$71,$71,$71
  154.          DFB $71,$71,$71,$71,$71,$71,$71,$71,$71,$71
  155.          DFB $79,$79,$79,$79,$79,$79,$79,$79,$79,$79
  156.          DFB $79,$79,$79,$79,$79,$79,$79,$79,$79,$79
  157.          DFB $7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D
  158.          DFB $7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D
  159.          DFB $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  160.          DFB $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  161. VELBYTER DFB $00,$01,$01,$01,$01,$01,$01,$01,$01,$01
  162.          DFB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
  163.          DFB $03,$03,$03,$03,$03,$03,$03,$03,$03,$03
  164.          DFB $03,$03,$03,$03,$03,$03,$03,$03,$03,$03
  165.          DFB $07,$07,$07,$07,$07,$07,$07,$07,$07,$07
  166.          DFB $07,$07,$07,$07,$07,$07,$07,$07,$07,$07
  167.          DFB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
  168.          DFB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
  169.          DFB $1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F
  170.          DFB $1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F
  171.          DFB $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F
  172.          DFB $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F
  173.          DFB $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  174.