Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-04-28 08:38:09 +00:00
Code Issues Projects Releases Wiki Activity

easter: scroll down attempt

Browse Source
This commit is contained in:
Vince Weaver 2025-04-19 18:24:27 -04:00
parent 6e8bb752c7
commit e0d5c0fc4e
7 changed files with 889 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
graphics/dhgr/easter_scroll/Makefile
View File

@ -123,8 +123,10 @@ music.inc: generate_common MUSIC
./generate_common -a 0xd000 -s zx02_full_decomp_main music.lst >> music.inc ./generate_common -a 0xd000 -s zx02_full_decomp_main music.lst >> music.inc
./generate_common -a 0xd000 -s zx_src_h music.lst >> music.inc ./generate_common -a 0xd000 -s zx_src_h music.lst >> music.inc
./generate_common -a 0xd000 -s zx_src_l music.lst >> music.inc ./generate_common -a 0xd000 -s zx_src_l music.lst >> music.inc
./generate_common -a 0xd000 -s hgr_vertical_scroll_main music.lst >> music.inc ./generate_common -a 0xd000 -s hgr_vertical_scroll_down_main music.lst >> music.inc
./generate_common -a 0xd000 -s hgr_vertical_scroll_aux music.lst >> music.inc ./generate_common -a 0xd000 -s hgr_vertical_scroll_down_aux music.lst >> music.inc
./generate_common -a 0xd000 -s hgr_vertical_scroll_up_main music.lst >> music.inc
./generate_common -a 0xd000 -s hgr_vertical_scroll_up_aux music.lst >> music.inc
./generate_common -a 0xd000 -s slow_copy_main music.lst >> music.inc ./generate_common -a 0xd000 -s slow_copy_main music.lst >> music.inc
./generate_common -a 0xd000 -s slow_copy_aux music.lst >> music.inc ./generate_common -a 0xd000 -s slow_copy_aux music.lst >> music.inc
@ -136,7 +138,8 @@ MUSIC: music.o
music.o: music.s zp.inc \ music.o: music.s zp.inc \
aux_memcopy.s copy_400.s \ aux_memcopy.s copy_400.s \
zx02_optim.s vertical_scroll_down.s \ zx02_optim.s \
vertical_scroll_down.s vertical_scroll_up.s \
slow_copy.s \ slow_copy.s \
music/ivan_roschin_spring_2001.pt3 \ music/ivan_roschin_spring_2001.pt3 \
pt3_lib_core.s \ pt3_lib_core.s \

56
graphics/dhgr/easter_scroll/bucket/bucket.s
View File

@ -128,8 +128,25 @@ prep_for_scroll:
; X = start Y = len A=offset ; X = start Y = len A=offset
ldx #0 ; $A000 ldx #0 ; $A000
ldy #192 ; 128 lines? ldy #191 ; 128 lines?
lda #0 ; start 64 lines in lda #1 ; start 64 lines in
jsr slow_copy_main
ldx #0
ldy #191
lda #1
jsr slow_copy_aux
jsr wait_vblank
jsr hgr_page_flip
;========================
; copy graphic to page 2
ldx #0 ; line in PAGE1/PAGE2 to output to
ldy #192 ; lines to copy
lda #0 ; line to start in $8000
jsr slow_copy_main jsr slow_copy_main
ldx #0 ldx #0
@ -140,54 +157,37 @@ prep_for_scroll:
jsr wait_vblank jsr wait_vblank
jsr hgr_page_flip jsr hgr_page_flip
oog:
jmp oog
;========================
; copy graphic to page 2
ldx #0 ; line in PAGE1/PAGE2 to output to
ldy #128 ; lines to copy
lda #63 ; line to start in $A000
jsr slow_copy_main
ldx #0
ldy #128
lda #63
jsr slow_copy_aux
jsr wait_vblank
jsr hgr_page_flip
;================== ;==================
; scroll a bit ; scroll a bit
lda #62 lda #192
sta SCROLL_COUNT sta SCROLL_COUNT
scroll_loop: scroll_down_loop:
; scroll ; scroll
jsr hgr_vertical_scroll_main jsr hgr_vertical_scroll_down_main ; scroll draw page down 2
.if 0
ldx #0 ldx #0
ldy #2 ldy #2
lda SCROLL_COUNT lda SCROLL_COUNT
jsr slow_copy_main jsr slow_copy_main
.endif
jsr hgr_vertical_scroll_aux jsr hgr_vertical_scroll_down_aux
.if 0
ldx #0 ldx #0
ldy #2 ldy #2
lda SCROLL_COUNT lda SCROLL_COUNT
jsr slow_copy_aux jsr slow_copy_aux
.endif
jsr wait_vblank jsr wait_vblank
jsr hgr_page_flip jsr hgr_page_flip
dec SCROLL_COUNT dec SCROLL_COUNT
bne scroll_loop bne scroll_down_loop

1
graphics/dhgr/easter_scroll/music.s
View File

@ -12,6 +12,7 @@ memcpy_routines:
.include "copy_400.s" .include "copy_400.s"
.include "zx02_optim.s" .include "zx02_optim.s"
.include "vertical_scroll_down.s" .include "vertical_scroll_down.s"
.include "vertical_scroll_up.s"
.include "slow_copy.s" .include "slow_copy.s"
music_lib: music_lib:

BIN
graphics/dhgr/easter_scroll/music/ivan_roschin_spring_2001.pt3 Normal file
View File

Binary file not shown.

2
graphics/dhgr/easter_scroll/qload.s
View File

@ -182,7 +182,7 @@ sector_array:
.byte 0,0,0,0 ; ???, MUSIC, BUCKET .byte 0,0,0,0 ; ???, MUSIC, BUCKET
length_array: length_array:
.byte 48,32,100,32 ; ???, MUSIC, BUCKET .byte 48,40,100,32 ; ???, MUSIC, BUCKET
PT3_ENABLE_APPLE_IIC = 1 PT3_ENABLE_APPLE_IIC = 1

36
graphics/dhgr/easter_scroll/vertical_scroll_down.s
View File

@ -1,5 +1,5 @@
;============================== ;==============================
; two page vertical scroll ; two page vertical scroll down
;============================== ;==============================
; ;
; 8*192*40 = 61440 cycles = roughly 16fps best case ; 8*192*40 = 61440 cycles = roughly 16fps best case
@ -7,28 +7,28 @@
; can also be used for dhgr ; can also be used for dhgr
hgr_vertical_scroll_aux: hgr_vertical_scroll_down_aux:
sta RDAUX sta RDAUX
sta WRAUX sta WRAUX
hgr_vertical_scroll_main: hgr_vertical_scroll_down_main:
hgr_vertical_scroll: hgr_vertical_scroll_down:
ldx #0 ldx #0
lda DRAW_PAGE lda DRAW_PAGE
beq hgr_vertical_scroll_page1 beq hgr_vertical_scroll_down_page1
jmp hgr_vertical_scroll_page2 jmp hgr_vertical_scroll_down_page2
hgr_vertical_scroll_page1: hgr_vertical_scroll_down_page1:
; PAGE1 for now ; PAGE1 for now
hgr_page1_vscroll: hgr_page1_vscroll_down:
ldy #39 ldy #39
hgr_page1_vscroll_loop: hgr_page1_vscroll_down_loop:
.if 0 .if 0
lda $37D0,Y ; 189 -> 191 lda $37D0,Y ; 189 -> 191
sta $3FD0,Y sta $3FD0,Y
@ -414,22 +414,22 @@ hgr_page1_vscroll_loop:
dey dey
bmi done_vscroll bmi done_vscroll_down
jmp hgr_page1_vscroll_loop jmp hgr_page1_vscroll_down_loop
done_vscroll: done_vscroll_down:
sta RDMAIN sta RDMAIN
sta WRMAIN sta WRMAIN
rts rts
hgr_vertical_scroll_page2: hgr_vertical_scroll_down_page2:
; PAGE1 for now ; PAGE1 for now
hgr_page2_vscroll: hgr_page2_vscroll_down:
ldy #39 ldy #39
hgr_page2_vscroll_loop: hgr_page2_vscroll_down_loop:
.if 0 .if 0
lda $57D0,Y ; 189 -> 191 lda $57D0,Y ; 189 -> 191
@ -817,11 +817,11 @@ hgr_page2_vscroll_loop:
dey dey
bmi done_vscroll2 bmi done_vscroll2_down
jmp hgr_page2_vscroll_loop jmp hgr_page2_vscroll_down_loop
done_vscroll2: done_vscroll2_down:
sta RDMAIN sta RDMAIN
sta WRMAIN sta WRMAIN
rts rts

835
graphics/dhgr/easter_scroll/vertical_scroll_up.s Normal file
View File

@ -0,0 +1,835 @@
;==============================
; two page vertical scroll up
;==============================
;
; 8*192*40 = 61440 cycles = roughly 16fps best case
;
; initial code, just scroll by 1
hgr_vertical_scroll_up_aux:
sta RDAUX
sta WRAUX
hgr_vertical_scroll_up_main:
hgr_vertical_scroll_up:
ldx #0
lda DRAW_PAGE
beq hgr_vertical_scroll_up_page1
jmp hgr_vertical_scroll_up_page2
hgr_vertical_scroll_up_page1:
; PAGE1 for now
hgr_page1_vscroll_up:
ldy #39
hgr_page1_vscroll_up_loop:
lda $2800,Y ; 2 -> 0
sta $2000,Y
lda $2C00,Y ; 3 -> 1
sta $2400,Y
lda $3000,Y ; 4 -> 2
sta $2800,Y
lda $3400,Y ; 5 -> 3
sta $2C00,Y
lda $3800,Y ; 6 -> 4
sta $3000,Y
lda $3C00,Y ; 7 -> 5
sta $3400,Y
lda $2080,Y ; 8 -> 6
sta $3800,Y
lda $2480,Y ; 9 -> 7
sta $3C00,Y
lda $2880,Y ; 10 -> 8
sta $2080,Y
lda $2C80,Y ; 11 -> 9
sta $2480,Y
lda $3080,Y ; 12 -> 10
sta $2880,Y
lda $3480,Y ; 13 -> 11
sta $2C80,Y
lda $3880,Y ; 14 -> 12
sta $3080,Y
lda $3C80,Y ; 15 -> 13
sta $3480,Y
lda $2100,Y ; 16 -> 14
sta $3880,Y
lda $2500,Y ; 17 -> 15
sta $3C80,Y
lda $2900,Y ; 18 -> 16
sta $2100,Y
lda $2D00,Y ; 19 -> 17
sta $2500,Y
lda $3100,Y ; 20 -> 18
sta $2900,Y
lda $3500,Y ; 21 -> 19
sta $2D00,Y
lda $3900,Y ; 22 -> 20
sta $3100,Y
lda $3D00,Y ; 23 -> 21
sta $3500,Y
lda $2180,Y ; 24 -> 22
sta $3900,Y
lda $2580,Y ; 25 -> 23
sta $3D00,Y
lda $2980,Y ; 26 -> 24
sta $2180,Y
lda $2D80,Y ; 27 -> 25
sta $2580,Y
lda $3180,Y ; 28 -> 26
sta $2980,Y
lda $3580,Y ; 29 -> 27
sta $2D80,Y
lda $3980,Y ; 30 -> 28
sta $3180,Y
lda $3D80,Y ; 31 -> 29
sta $3580,Y
lda $2200,Y ; 32 -> 30
sta $3980,Y
lda $2600,Y ; 33 -> 31
sta $3D80,Y
lda $2A00,Y ; 34 -> 32
sta $2200,Y
lda $2E00,Y ; 35 -> 33
sta $2600,Y
lda $3200,Y ; 36 -> 34
sta $2A00,Y
lda $3600,Y ; 37 -> 35
sta $2E00,Y
lda $3A00,Y ; 38 -> 36
sta $3200,Y
lda $3E00,Y ; 39 -> 37
sta $3600,Y
lda $2280,Y ; 40 -> 38
sta $3A00,Y
lda $2680,Y ; 41 -> 39
sta $3E00,Y
lda $2A80,Y ; 42 -> 40
sta $2280,Y
lda $2E80,Y ; 43 -> 41
sta $2680,Y
lda $3280,Y ; 44 -> 42
sta $2A80,Y
lda $3680,Y ; 45 -> 43
sta $2E80,Y
lda $3A80,Y ; 46 -> 44
sta $3280,Y
lda $3E80,Y ; 47 -> 45
sta $3680,Y
lda $2300,Y ; 48 -> 46
sta $3A80,Y
lda $2700,Y ; 49 -> 47
sta $3E80,Y
lda $2B00,Y ; 50 -> 48
sta $2300,Y
lda $2F00,Y ; 51 -> 49
sta $2700,Y
lda $3300,Y ; 52 -> 50
sta $2B00,Y
lda $3700,Y ; 53 -> 51
sta $2F00,Y
lda $3B00,Y ; 54 -> 52
sta $3300,Y
lda $3F00,Y ; 55 -> 53
sta $3700,Y
lda $2380,Y ; 56 -> 54
sta $3B00,Y
lda $2780,Y ; 57 -> 55
sta $3F00,Y
lda $2B80,Y ; 58 -> 56
sta $2380,Y
lda $2F80,Y ; 59 -> 57
sta $2780,Y
lda $3380,Y ; 60 -> 58
sta $2B80,Y
lda $3780,Y ; 61 -> 59
sta $2F80,Y
lda $3B80,Y ; 62 -> 60
sta $3380,Y
lda $3F80,Y ; 63 -> 61
sta $3780,Y
lda $2028,Y ; 64 -> 62
sta $3B80,Y
lda $2428,Y ; 65 -> 63
sta $3F80,Y
lda $2828,Y ; 66 -> 64
sta $2028,Y
lda $2C28,Y ; 67 -> 65
sta $2428,Y
lda $3028,Y ; 68 -> 66
sta $2828,Y
lda $3428,Y ; 69 -> 67
sta $2C28,Y
lda $3828,Y ; 70 -> 68
sta $3028,Y
lda $3C28,Y ; 71 -> 69
sta $3428,Y
lda $20A8,Y ; 72 -> 70
sta $3828,Y
lda $24A8,Y ; 73 -> 71
sta $3C28,Y
lda $28A8,Y ; 74 -> 72
sta $20A8,Y
lda $2CA8,Y ; 75 -> 73
sta $24A8,Y
lda $30A8,Y ; 76 -> 74
sta $28A8,Y
lda $34A8,Y ; 77 -> 75
sta $2CA8,Y
lda $38A8,Y ; 78 -> 76
sta $30A8,Y
lda $3CA8,Y ; 79 -> 77
sta $34A8,Y
lda $2128,Y ; 80 -> 78
sta $38A8,Y
lda $2528,Y ; 81 -> 79
sta $3CA8,Y
lda $2928,Y ; 82 -> 80
sta $2128,Y
lda $2D28,Y ; 83 -> 81
sta $2528,Y
lda $3128,Y ; 84 -> 82
sta $2928,Y
lda $3528,Y ; 85 -> 83
sta $2D28,Y
lda $3928,Y ; 86 -> 84
sta $3128,Y
lda $3D28,Y ; 87 -> 85
sta $3528,Y
lda $21A8,Y ; 88 -> 86
sta $3928,Y
lda $25A8,Y ; 89 -> 87
sta $3D28,Y
lda $29A8,Y ; 90 -> 88
sta $21A8,Y
lda $2DA8,Y ; 91 -> 89
sta $25A8,Y
lda $31A8,Y ; 92 -> 90
sta $29A8,Y
lda $35A8,Y ; 93 -> 91
sta $2DA8,Y
lda $39A8,Y ; 94 -> 92
sta $31A8,Y
lda $3DA8,Y ; 95 -> 93
sta $35A8,Y
lda $2228,Y ; 96 -> 94
sta $39A8,Y
lda $2628,Y ; 97 -> 95
sta $3DA8,Y
lda $2A28,Y ; 98 -> 96
sta $2228,Y
lda $2E28,Y ; 99 -> 97
sta $2628,Y
lda $3228,Y ; 100 -> 98
sta $2A28,Y
lda $3628,Y ; 101 -> 99
sta $2E28,Y
lda $3A28,Y ; 102 -> 100
sta $3228,Y
lda $3E28,Y ; 103 -> 101
sta $3628,Y
lda $22A8,Y ; 104 -> 102
sta $3A28,Y
lda $26A8,Y ; 105 -> 103
sta $3E28,Y
lda $2AA8,Y ; 106 -> 104
sta $22A8,Y
lda $2EA8,Y ; 107 -> 105
sta $26A8,Y
lda $32A8,Y ; 108 -> 106
sta $2AA8,Y
lda $36A8,Y ; 109 -> 107
sta $2EA8,Y
lda $3AA8,Y ; 110 -> 108
sta $32A8,Y
lda $3EA8,Y ; 111 -> 109
sta $36A8,Y
lda $2328,Y ; 112 -> 110
sta $3AA8,Y
lda $2728,Y ; 113 -> 111
sta $3EA8,Y
lda $2B28,Y ; 114 -> 112
sta $2328,Y
lda $2F28,Y ; 115 -> 113
sta $2728,Y
lda $3328,Y ; 116 -> 114
sta $2B28,Y
lda $3728,Y ; 117 -> 115
sta $2F28,Y
lda $3B28,Y ; 118 -> 116
sta $3328,Y
lda $3F28,Y ; 119 -> 117
sta $3728,Y
lda $23A8,Y ; 120 -> 118
sta $3B28,Y
lda $27A8,Y ; 121 -> 119
sta $3F28,Y
lda $2BA8,Y ; 122 -> 120
sta $23A8,Y
lda $2FA8,Y ; 123 -> 121
sta $27A8,Y
lda $33A8,Y ; 124 -> 122
sta $2BA8,Y
lda $37A8,Y ; 125 -> 123
sta $2FA8,Y
lda $3BA8,Y ; 126 -> 124
sta $33A8,Y
lda $3FA8,Y ; 127 -> 125
sta $37A8,Y
lda $2050,Y ; 128 -> 126
sta $3BA8,Y
lda $2450,Y ; 129 -> 127
sta $3FA8,Y
lda $2850,Y ; 130 -> 128
sta $2050,Y
lda $2C50,Y ; 131 -> 129
sta $2450,Y
lda $3050,Y ; 132 -> 130
sta $2850,Y
lda $3450,Y ; 133 -> 131
sta $2C50,Y
lda $3850,Y ; 134 -> 132
sta $3050,Y
lda $3C50,Y ; 135 -> 133
sta $3450,Y
lda $20D0,Y ; 136 -> 134
sta $3850,Y
lda $24D0,Y ; 137 -> 135
sta $3C50,Y
lda $28D0,Y ; 138 -> 136
sta $20D0,Y
lda $2CD0,Y ; 139 -> 137
sta $24D0,Y
lda $30D0,Y ; 140 -> 138
sta $28D0,Y
lda $34D0,Y ; 141 -> 139
sta $2CD0,Y
lda $38D0,Y ; 142 -> 140
sta $30D0,Y
lda $3CD0,Y ; 143 -> 141
sta $34D0,Y
lda $2150,Y ; 144 -> 142
sta $38D0,Y
lda $2550,Y ; 145 -> 143
sta $3CD0,Y
lda $2950,Y ; 146 -> 144
sta $2150,Y
lda $2D50,Y ; 147 -> 145
sta $2550,Y
lda $3150,Y ; 148 -> 146
sta $2950,Y
lda $3550,Y ; 149 -> 147
sta $2D50,Y
lda $3950,Y ; 150 -> 148
sta $3150,Y
lda $3D50,Y ; 151 -> 149
sta $3550,Y
lda $21D0,Y ; 152 -> 150
sta $3950,Y
lda $25D0,Y ; 153 -> 151
sta $3D50,Y
lda $29D0,Y ; 154 -> 152
sta $21D0,Y
lda $2DD0,Y ; 155 -> 153
sta $25D0,Y
lda $31D0,Y ; 156 -> 154
sta $29D0,Y
lda $35D0,Y ; 157 -> 155
sta $2DD0,Y
lda $39D0,Y ; 158 -> 156
sta $31D0,Y
lda $3DD0,Y ; 159 -> 157
sta $35D0,Y
.if 0
lda $2250,Y ; 160 -> 158
sta $39D0,Y
lda $2650,Y ; 161 -> 159
sta $3DD0,Y
lda $2A50,Y ; 162 -> 160
sta $2250,Y
lda $2E50,Y ; 163 -> 161
sta $2650,Y
lda $3250,Y ; 164 -> 162
sta $2A50,Y
lda $3650,Y ; 165 -> 163
sta $2E50,Y
lda $3A50,Y ; 166 -> 164
sta $3250,Y
lda $3E50,Y ; 167 -> 165
sta $3650,Y
lda $22D0,Y ; 168 -> 166
sta $3A50,Y
lda $26D0,Y ; 169 -> 167
sta $3E50,Y
lda $2AD0,Y ; 170 -> 168
sta $22D0,Y
lda $2ED0,Y ; 171 -> 169
sta $26D0,Y
lda $32D0,Y ; 172 -> 170
sta $2AD0,Y
lda $36D0,Y ; 173 -> 171
sta $2ED0,Y
lda $3AD0,Y ; 174 -> 172
sta $32D0,Y
lda $3ED0,Y ; 175 -> 173
sta $36D0,Y
lda $2350,Y ; 176 -> 174
sta $3AD0,Y
lda $2750,Y ; 177 -> 175
sta $3ED0,Y
lda $2B50,Y ; 178 -> 176
sta $2350,Y
lda $2F50,Y ; 179 -> 177
sta $2750,Y
lda $3350,Y ; 180 -> 178
sta $2B50,Y
lda $3750,Y ; 181 -> 179
sta $2F50,Y
lda $3B50,Y ; 182 -> 180
sta $3350,Y
lda $3F50,Y ; 183 -> 181
sta $3750,Y
lda $23D0,Y ; 184 -> 182
sta $3B50,Y
lda $27D0,Y ; 185 -> 183
sta $3F50,Y
lda $2BD0,Y ; 186 -> 184
sta $23D0,Y
lda $2FD0,Y ; 187 -> 185
sta $27D0,Y
lda $33D0,Y ; 188 -> 186
sta $2BD0,Y
lda $37D0,Y ; 189 -> 187
sta $2FD0,Y
lda $3BD0,Y ; 190 -> 188
sta $33D0,Y
lda $3FD0,Y ; 191 -> 189
sta $37D0,Y
lda $0000,Y ; 192 -> 190
sta $3BD0,Y
lda $0000,Y ; 193 -> 191
sta $3FD0,Y
.endif
dey
bmi done_vscroll_up
jmp hgr_page1_vscroll_up_loop
done_vscroll_up:
sta RDMAIN
sta WRMAIN
rts
hgr_vertical_scroll_up_page2:
; PAGE1 for now
hgr_page2_vscroll_up:
ldy #39
hgr_page2_vscroll_up_loop:
lda $4800,Y ; 2 -> 0
sta $4000,Y
lda $4C00,Y ; 3 -> 1
sta $4400,Y
lda $5000,Y ; 4 -> 2
sta $4800,Y
lda $5400,Y ; 5 -> 3
sta $4C00,Y
lda $5800,Y ; 6 -> 4
sta $5000,Y
lda $5C00,Y ; 7 -> 5
sta $5400,Y
lda $4080,Y ; 8 -> 6
sta $5800,Y
lda $4480,Y ; 9 -> 7
sta $5C00,Y
lda $4880,Y ; 10 -> 8
sta $4080,Y
lda $4C80,Y ; 11 -> 9
sta $4480,Y
lda $5080,Y ; 12 -> 10
sta $4880,Y
lda $5480,Y ; 13 -> 11
sta $4C80,Y
lda $5880,Y ; 14 -> 12
sta $5080,Y
lda $5C80,Y ; 15 -> 13
sta $5480,Y
lda $4100,Y ; 16 -> 14
sta $5880,Y
lda $4500,Y ; 17 -> 15
sta $5C80,Y
lda $4900,Y ; 18 -> 16
sta $4100,Y
lda $4D00,Y ; 19 -> 17
sta $4500,Y
lda $5100,Y ; 20 -> 18
sta $4900,Y
lda $5500,Y ; 21 -> 19
sta $4D00,Y
lda $5900,Y ; 22 -> 20
sta $5100,Y
lda $5D00,Y ; 23 -> 21
sta $5500,Y
lda $4180,Y ; 24 -> 22
sta $5900,Y
lda $4580,Y ; 25 -> 23
sta $5D00,Y
lda $4980,Y ; 26 -> 24
sta $4180,Y
lda $4D80,Y ; 27 -> 25
sta $4580,Y
lda $5180,Y ; 28 -> 26
sta $4980,Y
lda $5580,Y ; 29 -> 27
sta $4D80,Y
lda $5980,Y ; 30 -> 28
sta $5180,Y
lda $5D80,Y ; 31 -> 29
sta $5580,Y
lda $4200,Y ; 32 -> 30
sta $5980,Y
lda $4600,Y ; 33 -> 31
sta $5D80,Y
lda $4A00,Y ; 34 -> 32
sta $4200,Y
lda $4E00,Y ; 35 -> 33
sta $4600,Y
lda $5200,Y ; 36 -> 34
sta $4A00,Y
lda $5600,Y ; 37 -> 35
sta $4E00,Y
lda $5A00,Y ; 38 -> 36
sta $5200,Y
lda $5E00,Y ; 39 -> 37
sta $5600,Y
lda $4280,Y ; 40 -> 38
sta $5A00,Y
lda $4680,Y ; 41 -> 39
sta $5E00,Y
lda $4A80,Y ; 42 -> 40
sta $4280,Y
lda $4E80,Y ; 43 -> 41
sta $4680,Y
lda $5280,Y ; 44 -> 42
sta $4A80,Y
lda $5680,Y ; 45 -> 43
sta $4E80,Y
lda $5A80,Y ; 46 -> 44
sta $5280,Y
lda $5E80,Y ; 47 -> 45
sta $5680,Y
lda $4300,Y ; 48 -> 46
sta $5A80,Y
lda $4700,Y ; 49 -> 47
sta $5E80,Y
lda $4B00,Y ; 50 -> 48
sta $4300,Y
lda $4F00,Y ; 51 -> 49
sta $4700,Y
lda $5300,Y ; 52 -> 50
sta $4B00,Y
lda $5700,Y ; 53 -> 51
sta $4F00,Y
lda $5B00,Y ; 54 -> 52
sta $5300,Y
lda $5F00,Y ; 55 -> 53
sta $5700,Y
lda $4380,Y ; 56 -> 54
sta $5B00,Y
lda $4780,Y ; 57 -> 55
sta $5F00,Y
lda $4B80,Y ; 58 -> 56
sta $4380,Y
lda $4F80,Y ; 59 -> 57
sta $4780,Y
lda $5380,Y ; 60 -> 58
sta $4B80,Y
lda $5780,Y ; 61 -> 59
sta $4F80,Y
lda $5B80,Y ; 62 -> 60
sta $5380,Y
lda $5F80,Y ; 63 -> 61
sta $5780,Y
lda $4028,Y ; 64 -> 62
sta $5B80,Y
lda $4428,Y ; 65 -> 63
sta $5F80,Y
lda $4828,Y ; 66 -> 64
sta $4028,Y
lda $4C28,Y ; 67 -> 65
sta $4428,Y
lda $5028,Y ; 68 -> 66
sta $4828,Y
lda $5428,Y ; 69 -> 67
sta $4C28,Y
lda $5828,Y ; 70 -> 68
sta $5028,Y
lda $5C28,Y ; 71 -> 69
sta $5428,Y
lda $40A8,Y ; 72 -> 70
sta $5828,Y
lda $44A8,Y ; 73 -> 71
sta $5C28,Y
lda $48A8,Y ; 74 -> 72
sta $40A8,Y
lda $4CA8,Y ; 75 -> 73
sta $44A8,Y
lda $50A8,Y ; 76 -> 74
sta $48A8,Y
lda $54A8,Y ; 77 -> 75
sta $4CA8,Y
lda $58A8,Y ; 78 -> 76
sta $50A8,Y
lda $5CA8,Y ; 79 -> 77
sta $54A8,Y
lda $4128,Y ; 80 -> 78
sta $58A8,Y
lda $4528,Y ; 81 -> 79
sta $5CA8,Y
lda $4928,Y ; 82 -> 80
sta $4128,Y
lda $4D28,Y ; 83 -> 81
sta $4528,Y
lda $5128,Y ; 84 -> 82
sta $4928,Y
lda $5528,Y ; 85 -> 83
sta $4D28,Y
lda $5928,Y ; 86 -> 84
sta $5128,Y
lda $5D28,Y ; 87 -> 85
sta $5528,Y
lda $41A8,Y ; 88 -> 86
sta $5928,Y
lda $45A8,Y ; 89 -> 87
sta $5D28,Y
lda $49A8,Y ; 90 -> 88
sta $41A8,Y
lda $4DA8,Y ; 91 -> 89
sta $45A8,Y
lda $51A8,Y ; 92 -> 90
sta $49A8,Y
lda $55A8,Y ; 93 -> 91
sta $4DA8,Y
lda $59A8,Y ; 94 -> 92
sta $51A8,Y
lda $5DA8,Y ; 95 -> 93
sta $55A8,Y
lda $4228,Y ; 96 -> 94
sta $59A8,Y
lda $4628,Y ; 97 -> 95
sta $5DA8,Y
lda $4A28,Y ; 98 -> 96
sta $4228,Y
lda $4E28,Y ; 99 -> 97
sta $4628,Y
lda $5228,Y ; 100 -> 98
sta $4A28,Y
lda $5628,Y ; 101 -> 99
sta $4E28,Y
lda $5A28,Y ; 102 -> 100
sta $5228,Y
lda $5E28,Y ; 103 -> 101
sta $5628,Y
lda $42A8,Y ; 104 -> 102
sta $5A28,Y
lda $46A8,Y ; 105 -> 103
sta $5E28,Y
lda $4AA8,Y ; 106 -> 104
sta $42A8,Y
lda $4EA8,Y ; 107 -> 105
sta $46A8,Y
lda $52A8,Y ; 108 -> 106
sta $4AA8,Y
lda $56A8,Y ; 109 -> 107
sta $4EA8,Y
lda $5AA8,Y ; 110 -> 108
sta $52A8,Y
lda $5EA8,Y ; 111 -> 109
sta $56A8,Y
lda $4328,Y ; 112 -> 110
sta $5AA8,Y
lda $4728,Y ; 113 -> 111
sta $5EA8,Y
lda $4B28,Y ; 114 -> 112
sta $4328,Y
lda $4F28,Y ; 115 -> 113
sta $4728,Y
lda $5328,Y ; 116 -> 114
sta $4B28,Y
lda $5728,Y ; 117 -> 115
sta $4F28,Y
lda $5B28,Y ; 118 -> 116
sta $5328,Y
lda $5F28,Y ; 119 -> 117
sta $5728,Y
lda $43A8,Y ; 120 -> 118
sta $5B28,Y
lda $47A8,Y ; 121 -> 119
sta $5F28,Y
lda $4BA8,Y ; 122 -> 120
sta $43A8,Y
lda $4FA8,Y ; 123 -> 121
sta $47A8,Y
lda $53A8,Y ; 124 -> 122
sta $4BA8,Y
lda $57A8,Y ; 125 -> 123
sta $4FA8,Y
lda $5BA8,Y ; 126 -> 124
sta $53A8,Y
lda $5FA8,Y ; 127 -> 125
sta $57A8,Y
lda $4050,Y ; 128 -> 126
sta $5BA8,Y
lda $4450,Y ; 129 -> 127
sta $5FA8,Y
lda $4850,Y ; 130 -> 128
sta $4050,Y
lda $4C50,Y ; 131 -> 129
sta $4450,Y
lda $5050,Y ; 132 -> 130
sta $4850,Y
lda $5450,Y ; 133 -> 131
sta $4C50,Y
lda $5850,Y ; 134 -> 132
sta $5050,Y
lda $5C50,Y ; 135 -> 133
sta $5450,Y
lda $40D0,Y ; 136 -> 134
sta $5850,Y
lda $44D0,Y ; 137 -> 135
sta $5C50,Y
lda $48D0,Y ; 138 -> 136
sta $40D0,Y
lda $4CD0,Y ; 139 -> 137
sta $44D0,Y
lda $50D0,Y ; 140 -> 138
sta $48D0,Y
lda $54D0,Y ; 141 -> 139
sta $4CD0,Y
lda $58D0,Y ; 142 -> 140
sta $50D0,Y
lda $5CD0,Y ; 143 -> 141
sta $54D0,Y
lda $4150,Y ; 144 -> 142
sta $58D0,Y
lda $4550,Y ; 145 -> 143
sta $5CD0,Y
lda $4950,Y ; 146 -> 144
sta $4150,Y
lda $4D50,Y ; 147 -> 145
sta $4550,Y
lda $5150,Y ; 148 -> 146
sta $4950,Y
lda $5550,Y ; 149 -> 147
sta $4D50,Y
lda $5950,Y ; 150 -> 148
sta $5150,Y
lda $5D50,Y ; 151 -> 149
sta $5550,Y
lda $41D0,Y ; 152 -> 150
sta $5950,Y
lda $45D0,Y ; 153 -> 151
sta $5D50,Y
lda $49D0,Y ; 154 -> 152
sta $41D0,Y
lda $4DD0,Y ; 155 -> 153
sta $45D0,Y
lda $51D0,Y ; 156 -> 154
sta $49D0,Y
lda $55D0,Y ; 157 -> 155
sta $4DD0,Y
lda $59D0,Y ; 158 -> 156
sta $51D0,Y
lda $5DD0,Y ; 159 -> 157
sta $55D0,Y
.if 0
lda $4250,Y ; 160 -> 158
sta $59D0,Y
lda $4650,Y ; 161 -> 159
sta $5DD0,Y
lda $4A50,Y ; 162 -> 160
sta $4250,Y
lda $4E50,Y ; 163 -> 161
sta $4650,Y
lda $5250,Y ; 164 -> 162
sta $4A50,Y
lda $5650,Y ; 165 -> 163
sta $4E50,Y
lda $5A50,Y ; 166 -> 164
sta $5250,Y
lda $5E50,Y ; 167 -> 165
sta $5650,Y
lda $42D0,Y ; 168 -> 166
sta $5A50,Y
lda $46D0,Y ; 169 -> 167
sta $5E50,Y
lda $4AD0,Y ; 170 -> 168
sta $42D0,Y
lda $4ED0,Y ; 171 -> 169
sta $46D0,Y
lda $52D0,Y ; 172 -> 170
sta $4AD0,Y
lda $56D0,Y ; 173 -> 171
sta $4ED0,Y
lda $5AD0,Y ; 174 -> 172
sta $52D0,Y
lda $5ED0,Y ; 175 -> 173
sta $56D0,Y
lda $4350,Y ; 176 -> 174
sta $5AD0,Y
lda $4750,Y ; 177 -> 175
sta $5ED0,Y
lda $4B50,Y ; 178 -> 176
sta $4350,Y
lda $4F50,Y ; 179 -> 177
sta $4750,Y
lda $5350,Y ; 180 -> 178
sta $4B50,Y
lda $5750,Y ; 181 -> 179
sta $4F50,Y
lda $5B50,Y ; 182 -> 180
sta $5350,Y
lda $5F50,Y ; 183 -> 181
sta $5750,Y
lda $43D0,Y ; 184 -> 182
sta $5B50,Y
lda $47D0,Y ; 185 -> 183
sta $5F50,Y
lda $4BD0,Y ; 186 -> 184
sta $43D0,Y
lda $4FD0,Y ; 187 -> 185
sta $47D0,Y
lda $53D0,Y ; 188 -> 186
sta $4BD0,Y
lda $57D0,Y ; 189 -> 187
sta $4FD0,Y
lda $5BD0,Y ; 190 -> 188
sta $53D0,Y
lda $5FD0,Y ; 191 -> 189
sta $57D0,Y
lda $2000,Y ; 192 -> 190
sta $5BD0,Y
lda $2000,Y ; 193 -> 191
sta $5FD0,Y
.endif
dey
bmi done_vscroll2_up
jmp hgr_page2_vscroll_up_loop
done_vscroll2_up:
sta RDMAIN
sta WRMAIN
rts