home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / SOURCE / DANCNOTE.PR2.txt < prev    next >
Text File  |  2020-08-13  |  4KB  |  124 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. DRAWEXIT RTS
  19. ;
  20. DRAWNOFF LDY #$00
  21. DRAWNON  AND #$0F
  22.          ASL A
  23.          STA DRAWCHNL
  24.          STX DRAWNOTE
  25.          STY DRAWVEL
  26.          LDA #$80
  27.          SEC
  28.          SBC DRAWNOTE
  29.          TAX
  30.          LDA HGRLINEL,X
  31.          CLC
  32.          ADC DRAWCHNL
  33.          STA HGRPTRL 
  34.          LDA HGRLINEH,X
  35.          ADC #$00
  36.          STA HGRPTRH
  37.          LDY #$00
  38.          LDX DRAWVEL
  39.          LDA VELBYTEL,X
  40.          STA (HGRPTRL),Y
  41.          INY
  42.          LDA VELBYTER,X
  43.          STA (HGRPTRL),Y
  44.          RTS
  45. ;
  46. DRAWCHNL DFB $00
  47. DRAWNOTE DFB $00
  48. DRAWVEL  DFB $00
  49. ;
  50. HGRLINEH DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  51.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  52.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  53.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  54.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  55.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  56.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  57.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  58.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  59.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  60.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  61.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  62.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  63.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  64.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  65.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  66.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  67.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  68.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  69.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  70.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  71.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  72.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  73.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  74. HGRLINEL DFB $00,$00,$00,$00,$00,$00,$00,$00
  75.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  76.          DFB $00,$00,$00,$00,$00,$00,$00,$00
  77.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  78.          DFB $00,$00,$00,$00,$00,$00,$00,$00
  79.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  80.          DFB $00,$00,$00,$00,$00,$00,$00,$00
  81.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  82.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  83.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  84.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  85.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  86.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  87.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  88.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  89.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  90.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  91.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  92.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  93.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  94.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  95.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  96.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  97.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  98. VELBYTEL DFB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
  99.          DFB $41,$41,$41,$41,$41,$41,$41,$41,$41,$41
  100.          DFB $41,$41,$41,$41,$41,$41,$41,$41,$41,$41
  101.          DFB $61,$61,$61,$61,$61,$61,$61,$61,$61,$61
  102.          DFB $61,$61,$61,$61,$61,$61,$61,$61,$61,$61
  103.          DFB $71,$71,$71,$71,$71,$71,$71,$71,$71,$71
  104.          DFB $71,$71,$71,$71,$71,$71,$71,$71,$71,$71
  105.          DFB $79,$79,$79,$79,$79,$79,$79,$79,$79,$79
  106.          DFB $79,$79,$79,$79,$79,$79,$79,$79,$79,$79
  107.          DFB $7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D
  108.          DFB $7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D,$7D
  109.          DFB $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  110.          DFB $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  111. VELBYTER DFB $00,$01,$01,$01,$01,$01,$01,$01,$01,$01
  112.          DFB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
  113.          DFB $03,$03,$03,$03,$03,$03,$03,$03,$03,$03
  114.          DFB $03,$03,$03,$03,$03,$03,$03,$03,$03,$03
  115.          DFB $07,$07,$07,$07,$07,$07,$07,$07,$07,$07
  116.          DFB $07,$07,$07,$07,$07,$07,$07,$07,$07,$07
  117.          DFB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
  118.          DFB $0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F,$0F
  119.          DFB $1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F
  120.          DFB $1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F
  121.          DFB $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F
  122.          DFB $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F
  123.          DFB $7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F,$7F
  124.