mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-04-27 17:43:00 +00:00
easter: scroll down attempt
This commit is contained in:
Vince Weaver
parent
6e8bb752c7
commit
e0d5c0fc4e
@ -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 zx_src_h 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_aux 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_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_aux music.lst >> music.inc
|
||||
|
||||
@ -136,7 +138,8 @@ MUSIC: music.o
|
||||
|
||||
music.o: music.s zp.inc \
|
||||
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 \
|
||||
music/ivan_roschin_spring_2001.pt3 \
|
||||
pt3_lib_core.s \
|
||||
|
||||
@ -128,8 +128,25 @@ prep_for_scroll:
|
||||
; X = start Y = len A=offset
|
||||
|
||||
ldx #0 ; $A000
|
||||
ldy #192 ; 128 lines?
|
||||
lda #0 ; start 64 lines in
|
||||
ldy #191 ; 128 lines?
|
||||
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
|
||||
|
||||
ldx #0
|
||||
@ -140,54 +157,37 @@ prep_for_scroll:
|
||||
jsr wait_vblank
|
||||
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
|
||||
|
||||
lda #62
|
||||
lda #192
|
||||
sta SCROLL_COUNT
|
||||
|
||||
scroll_loop:
|
||||
scroll_down_loop:
|
||||
|
||||
; scroll
|
||||
jsr hgr_vertical_scroll_main
|
||||
jsr hgr_vertical_scroll_down_main ; scroll draw page down 2
|
||||
|
||||
.if 0
|
||||
ldx #0
|
||||
ldy #2
|
||||
lda SCROLL_COUNT
|
||||
jsr slow_copy_main
|
||||
.endif
|
||||
|
||||
jsr hgr_vertical_scroll_aux
|
||||
|
||||
jsr hgr_vertical_scroll_down_aux
|
||||
.if 0
|
||||
ldx #0
|
||||
ldy #2
|
||||
lda SCROLL_COUNT
|
||||
jsr slow_copy_aux
|
||||
|
||||
.endif
|
||||
jsr wait_vblank
|
||||
jsr hgr_page_flip
|
||||
|
||||
dec SCROLL_COUNT
|
||||
bne scroll_loop
|
||||
bne scroll_down_loop
|
||||
|
||||
|
||||
|
||||
|
||||
@ -12,6 +12,7 @@ memcpy_routines:
|
||||
.include "copy_400.s"
|
||||
.include "zx02_optim.s"
|
||||
.include "vertical_scroll_down.s"
|
||||
.include "vertical_scroll_up.s"
|
||||
.include "slow_copy.s"
|
||||
|
||||
music_lib:
|
||||
|
||||
BIN
graphics/dhgr/easter_scroll/music/ivan_roschin_spring_2001.pt3
Normal file
BIN
graphics/dhgr/easter_scroll/music/ivan_roschin_spring_2001.pt3
Normal file
Binary file not shown.
@ -182,7 +182,7 @@ sector_array:
|
||||
.byte 0,0,0,0 ; ???, MUSIC, BUCKET
|
||||
|
||||
length_array:
|
||||
.byte 48,32,100,32 ; ???, MUSIC, BUCKET
|
||||
.byte 48,40,100,32 ; ???, MUSIC, BUCKET
|
||||
|
||||
|
||||
PT3_ENABLE_APPLE_IIC = 1
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
;==============================
|
||||
; two page vertical scroll
|
||||
; two page vertical scroll down
|
||||
;==============================
|
||||
;
|
||||
; 8*192*40 = 61440 cycles = roughly 16fps best case
|
||||
@ -7,28 +7,28 @@
|
||||
|
||||
; can also be used for dhgr
|
||||
|
||||
hgr_vertical_scroll_aux:
|
||||
hgr_vertical_scroll_down_aux:
|
||||
sta RDAUX
|
||||
sta WRAUX
|
||||
|
||||
hgr_vertical_scroll_main:
|
||||
hgr_vertical_scroll_down_main:
|
||||
|
||||
|
||||
hgr_vertical_scroll:
|
||||
hgr_vertical_scroll_down:
|
||||
ldx #0
|
||||
|
||||
lda DRAW_PAGE
|
||||
beq hgr_vertical_scroll_page1
|
||||
jmp hgr_vertical_scroll_page2
|
||||
beq hgr_vertical_scroll_down_page1
|
||||
jmp hgr_vertical_scroll_down_page2
|
||||
|
||||
|
||||
hgr_vertical_scroll_page1:
|
||||
hgr_vertical_scroll_down_page1:
|
||||
; PAGE1 for now
|
||||
|
||||
hgr_page1_vscroll:
|
||||
hgr_page1_vscroll_down:
|
||||
|
||||
ldy #39
|
||||
hgr_page1_vscroll_loop:
|
||||
hgr_page1_vscroll_down_loop:
|
||||
.if 0
|
||||
lda $37D0,Y ; 189 -> 191
|
||||
sta $3FD0,Y
|
||||
@ -414,22 +414,22 @@ hgr_page1_vscroll_loop:
|
||||
|
||||
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 WRMAIN
|
||||
rts
|
||||
|
||||
hgr_vertical_scroll_page2:
|
||||
hgr_vertical_scroll_down_page2:
|
||||
; PAGE1 for now
|
||||
|
||||
hgr_page2_vscroll:
|
||||
hgr_page2_vscroll_down:
|
||||
|
||||
ldy #39
|
||||
hgr_page2_vscroll_loop:
|
||||
hgr_page2_vscroll_down_loop:
|
||||
|
||||
.if 0
|
||||
lda $57D0,Y ; 189 -> 191
|
||||
@ -817,11 +817,11 @@ hgr_page2_vscroll_loop:
|
||||
|
||||
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 WRMAIN
|
||||
rts
|
||||
|
||||
835
graphics/dhgr/easter_scroll/vertical_scroll_up.s
Normal file
835
graphics/dhgr/easter_scroll/vertical_scroll_up.s
Normal 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
|
||||
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user