home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / DANCNOTE.SC2.txt < prev    next >
Text File  |  2020-08-13  |  3KB  |  128 lines
  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. VELBYTEL DFB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
  101.          DFB $41,$41,$41,$41,$41,$41,$41,$41,$41,$41
  102.          DFB $41,$41,$41,$41,$41,$41,$41,$41,$41,$41
  103.          DFB $61,$61,$61,$61,$61,$61,$61,$61,$61,$61
  104.          DFB $61,$61,$61,$61,$61,$61,$61,$61,$61,$61
  105.          DFB $71,$71,$71,$71,$71,$71,$71,$71,$71,$71
  106.          DFB $71,$71,$71,$71,$71,$71,$71,$71,$71,$71
  107.          DFB $79,$79,$79,$79,$79,$79,$79,$79,$79,$79
  108.          DFB $79,$79,$79,$79,$79,$79,$79,$79,$79,$79
  109.          DFB $7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D
  110.          DFB $7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D
  111.          DFB $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  112.          DFB $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  113. VELBYTER DFB $00,$01,$01,$01,$01,$01,$01,$01,$01,$01
  114.          DFB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
  115.          DFB $03,$03,$03,$03,$03,$03,$03,$03,$03,$03
  116.          DFB $03,$03,$03,$03,$03,$03,$03,$03,$03,$03
  117.          DFB $07,$07,$07,$07,$07,$07,$07,$07,$07,$07
  118.          DFB $07,$07,$07,$07,$07,$07,$07,$07,$07,$07
  119.          DFB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
  120.          DFB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
  121.          DFB $1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F
  122.          DFB $1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F
  123.          DFB $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F
  124.          DFB $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F
  125.          DFB $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  126. ;
  127.          CHN DANCNOTE.SC3
  128.