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