home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / DHRNOTE.SC2.txt < prev    next >
Text File  |  2020-08-13  |  2KB  |  132 lines
  1. ; DHRNOTE.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. HGRPTRL2 EQU $CE
  12. HGRPTRH2 EQU $CF
  13. ;
  14. MIDIGRPH CMP #$80
  15.          BCC DRAWEXIT
  16.          CMP #$90
  17.          BCC DRAWNOFF
  18.          CMP #$A0
  19.          BCC DRAWNON
  20.          CMP #$E0
  21.          BCC DRAWEXIT
  22.          CMP #$F0
  23. ;;;      BCC PITCHBND
  24. DRAWEXIT RTS
  25. ;
  26. DRAWNOFF LDY #$00
  27. DRAWNON  AND #$0F
  28.          ASL A
  29.          STA DRAWCHNL
  30.          STX DRAWNOTE
  31.          STY DRAWVEL
  32.          LDA DRAWNOTE
  33.          CMP #21
  34.          BCC DRAWEXIT
  35.          CMP #109
  36.          BCS DRAWEXIT
  37.          LDA #108
  38.          SEC
  39.          SBC DRAWNOTE
  40.          ASL A
  41.          TAX
  42.          INX
  43.          INX
  44.          LDA HGRLINEL,X
  45.          CLC
  46.          ADC DRAWCHNL
  47.          STA HGRPTRL 
  48.          LDA HGRLINEH,X
  49.          ADC #$00
  50.          STA HGRPTRH
  51.          INX
  52.          LDA HGRLINEL,X
  53.          CLC
  54.          ADC DRAWCHNL
  55.          STA HGRPTRL2 
  56.          LDA HGRLINEH,X
  57.          ADC #$00
  58.          STA HGRPTRH2
  59.          LDY #$00
  60.          LDX DRAWVEL
  61.          STA $C055        
  62.          LDA VELBYTE1,X
  63.          STA (HGRPTRL),Y
  64.          STA (HGRPTRL2),Y
  65.          INY
  66.          LDA VELBYTE3,X
  67.          STA (HGRPTRL),Y
  68.          STA (HGRPTRL2),Y
  69.          DEY
  70.          STA $C054
  71.          LDA VELBYTE2,X
  72.          STA (HGRPTRL),Y
  73.          STA (HGRPTRL2),Y
  74.          INY
  75.          LDA VELBYTE4,X
  76.          STA (HGRPTRL),Y
  77.          STA (HGRPTRL2),Y
  78.          RTS
  79. ;
  80. PITCHBND AND #$0F
  81.          ASL A
  82.          STA DRAWCHNL
  83.          STX DRAWNOTE
  84.          STY DRAWVEL
  85.          LDX #140
  86.          LDA HGRLINEL,X
  87.          CLC
  88.          ADC DRAWCHNL
  89.          STA HGRPTRL 
  90.          LDA HGRLINEH,X
  91.          ADC #$00
  92.          STA HGRPTRH
  93.          LDY #$00
  94.          LDX DRAWVEL
  95.          CPX #$40
  96.          BCC PBLEFT
  97.          BNE PBRIGHT
  98.          LDA #$00
  99.          STA (HGRPTRL),Y
  100.          INY
  101.          LDA #$00
  102.          STA (HGRPTRL),Y
  103.          RTS
  104. PBRIGHT  TXA
  105.          SEC
  106.          SBC #$40
  107.          ASL A
  108.          TAX
  109.          LDA #$00
  110.          STA (HGRPTRL),Y
  111.          INY
  112.          LDA VELBYTE1,X
  113.          STA (HGRPTRL),Y
  114.          RTS
  115. PBLEFT   TXA
  116.          ASL A
  117.          TAX
  118.          LDA VELBYTE2,X
  119.          EOR #$7F
  120.          STA (HGRPTRL),Y
  121.          INY
  122.          LDA #$00
  123.          STA (HGRPTRL),Y
  124.          RTS
  125. ;
  126. DRAWCHNL DFB $00
  127. DRAWNOTE DFB $00
  128. DRAWVEL  DFB $00
  129. ;
  130. ;
  131.          CHN DHRNOTE.SC4
  132.