home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SOURCE / VELGRAPH.SC1 < prev    next >
Encoding:
Text File  |  2001-01-23  |  3.6 KB  |  121 lines  |  [04] ASCII Text (0x0000)
  1. ; VELGRAPH.SC1
  2. ;
  3. ; DOUBLE HIRES ROUTINES - DRAW BOARD FOR DANCING NOTES
  4. ;
  5. INITDHR  STA $C050 ;TEXT OFF
  6.          STA $C057 ;HI RES ON
  7.          STA $C052 ;FULL SCREEN
  8.          STA $C00D ;80 COLUMNS ON
  9.          STA $C05E ;ANNUNCIATOR 3 ON
  10.          STA $C001 ;80 STORE ON - ALLOWS PAGE2 TO SWITCH MAIN/AUX
  11.          STA $C055 ;ACCESS AUX MEMORY
  12.          JSR CLEARSCR
  13.          STA $C054 ;ACCESS MAIN MEMORY
  14.          JSR CLEARSCR
  15.          JSR DRAWGRID
  16.          RTS
  17. ;
  18. DONEDHR  STA $C051 ;TEXT ON
  19.          STA $C056 ;HIRES OFF
  20.          STA $C00C ;80COL OFF
  21.          STA $C054 ;PAGE 1
  22.          STA $C05E ;TURN OFF AN3
  23.          RTS
  24. ;
  25. CLEARSCR LDA #$20
  26.          STA ZPTR+1
  27.          LDA #$00
  28.          STA ZPTR
  29. CLEARSC1 LDA #$00
  30.          LDY #$00
  31. CLEARSC2 STA (ZPTR),Y
  32.          INY
  33.          BNE CLEARSC2
  34.          INC ZPTR+1
  35.          LDA ZPTR+1
  36.          CMP #$40
  37.          BCC CLEARSC1
  38.          RTS
  39. ;
  40. DRAWGRID LDY #$00
  41.          JSR HORIZLN
  42.          LDY #177
  43.          JSR HORIZLN
  44.          RTS
  45. ;
  46. ;
  47. ; HORIZLN - DRAWS HORIZ LINE ACROSS SCREEN. SET Y=VERTICAL COORDINATE
  48. ;
  49. HORIZLN  JSR SETY
  50.          STA $C055
  51.          JSR HORIZLN1
  52.          STA $C054
  53.          JSR HORIZLN1
  54.          RTS
  55. HORIZLN1 LDA #$7F
  56.          LDY #39
  57. HORIZLN2 STA (ZPTR),Y
  58.          DEY
  59.          BPL HORIZLN2
  60.          RTS
  61. ;
  62. ; SETY - GIVEN Y COORD, SET BASE ADDRESS FOR POKING BYTES ON THAT LINE
  63. ;
  64. SETY     LDA HGRLINEL,Y
  65.          STA ZPTR
  66.          LDA HGRLINEH,Y
  67.          STA ZPTR+1
  68.          RTS
  69. ;
  70. ; HIGH RES VERTICAL COORDINATE ADDRESSES
  71. ;
  72. HGRLINEH DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  73.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  74.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  75.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  76.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  77.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  78.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  79.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  80.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  81.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  82.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  83.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  84.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  85.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  86.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  87.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  88.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  89.          DFB $20,$24,$28,$2C,$30,$34,$38,$3C
  90.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  91.          DFB $21,$25,$29,$2D,$31,$35,$39,$3D
  92.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  93.          DFB $22,$26,$2A,$2E,$32,$36,$3A,$3E
  94.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  95.          DFB $23,$27,$2B,$2F,$33,$37,$3B,$3F
  96. HGRLINEL DFB $00,$00,$00,$00,$00,$00,$00,$00
  97.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  98.          DFB $00,$00,$00,$00,$00,$00,$00,$00
  99.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  100.          DFB $00,$00,$00,$00,$00,$00,$00,$00
  101.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  102.          DFB $00,$00,$00,$00,$00,$00,$00,$00
  103.          DFB $80,$80,$80,$80,$80,$80,$80,$80
  104.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  105.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  106.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  107.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  108.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  109.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  110.          DFB $28,$28,$28,$28,$28,$28,$28,$28
  111.          DFB $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
  112.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  113.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  114.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  115.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  116.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  117.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  118.          DFB $50,$50,$50,$50,$50,$50,$50,$50
  119.          DFB $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
  120. ;
  121.