mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-03 18:29:53 +00:00
driven: work on credits
This commit is contained in:
Vince Weaver
parent
36f9452db8
commit
dda9f984b8
9
demos/driven/gs_interrupt.s
Normal file
9
demos/driven/gs_interrupt.s
Normal file
@ -0,0 +1,9 @@
|
||||
|
||||
gs_interrupt_handler:
|
||||
; swap back in language card
|
||||
|
||||
; read/write RAM, use $d000 bank1
|
||||
bit $C083
|
||||
bit $C083
|
||||
|
||||
jmp interrupt_handler
|
||||
BIN
demos/driven/music/mA2E_3.pt3
Normal file
BIN
demos/driven/music/mA2E_3.pt3
Normal file
Binary file not shown.
@ -34,7 +34,7 @@ load_loop:
|
||||
bit PAGE1
|
||||
|
||||
lda #0
|
||||
jsr hgr_page1_clearscreen
|
||||
jsr hgr_page1_clearscreen ; unrolled
|
||||
|
||||
; jsr hgr_make_tables
|
||||
|
||||
@ -44,13 +44,17 @@ load_loop:
|
||||
; scroll job
|
||||
;=======================
|
||||
;=======================
|
||||
; so the way this works is that is only displays PAGE1
|
||||
; and it prints new credits just off the bottom of it which
|
||||
; is essentially the top of PAGE2
|
||||
; then it scrolls things up
|
||||
|
||||
ldx #8
|
||||
stx FRAME
|
||||
|
||||
; print message
|
||||
|
||||
lda #192 ; top of $4000 PAGE2
|
||||
lda #183 ; top of $4000 PAGE2
|
||||
sta CV
|
||||
|
||||
lda #<final_credits
|
||||
@ -72,11 +76,9 @@ do_scroll:
|
||||
lda #0
|
||||
sta FRAME
|
||||
|
||||
; clear lines on Page2
|
||||
; clear lines
|
||||
|
||||
; we cheat and setup 192-200 to map to top of page2
|
||||
|
||||
ldx #200
|
||||
ldx #191
|
||||
cl_outer_loop:
|
||||
lda hposn_low,X
|
||||
sta INL
|
||||
@ -89,7 +91,7 @@ cl_inner_loop:
|
||||
dey
|
||||
bpl cl_inner_loop
|
||||
dex
|
||||
cpx #191
|
||||
cpx #183
|
||||
bne cl_outer_loop
|
||||
|
||||
urgh:
|
||||
@ -141,32 +143,31 @@ no_update_message:
|
||||
|
||||
|
||||
final_credits:
|
||||
.byte 12,"Apple ][ Reality",0
|
||||
.byte 16,"DRI\/EN",0
|
||||
.byte 20," ",0
|
||||
.byte 11,"by Deater / Desire",0
|
||||
.byte 20," ",0
|
||||
.byte 4,"This demo won the oldskool demo",0
|
||||
.byte 5,"competition at Demosplash 2023",0
|
||||
.byte 7,"This demo was first shown",0
|
||||
.byte 10,"at Demosplash 2024",0
|
||||
.byte 8,"held in Pittsburgh, PA,",0
|
||||
.byte 12,"in November 2023.",0
|
||||
.byte 12,"in November 2024.",0
|
||||
.byte 20," ",0
|
||||
.byte 13,"Apologies to:",0
|
||||
.byte 14,"Future Crew",0
|
||||
.byte 20," ",0
|
||||
|
||||
.byte 15,"Code used:",0
|
||||
.byte 9,"French Touch -- Plasma",0
|
||||
.byte 7,"DMSC -- ZX02 decompression",0
|
||||
.byte 7,"qkumba -- fast disk loader",0
|
||||
.byte 15,"4am - font",0
|
||||
.byte 2,"K. Kennaway -- iipix image converter",0
|
||||
.byte 3,"O. Schmidt -- sampled audio player",0
|
||||
.byte 6,"Hellmood -- circles/sierzoom",0
|
||||
; .byte 3,"O. Schmidt -- sampled audio player",0
|
||||
; .byte 6,"Hellmood -- circles/sierzoom",0
|
||||
.byte 20," ",0
|
||||
|
||||
.byte 11,"Special Thanks to:",0
|
||||
.byte 5,"mA2E for providing intro music",0
|
||||
.byte 7,"at the extreme-last minute",0
|
||||
; .byte 7,"at the extreme-last minute",0
|
||||
.byte 20," ",0
|
||||
|
||||
.byte 15,"Greets to:",0
|
||||
|
||||
198
demos/driven/part20_credits/font_4am_1x8.s
Normal file
198
demos/driven/part20_credits/font_4am_1x8.s
Normal file
@ -0,0 +1,198 @@
|
||||
;license:MIT
|
||||
;(c) 2023 by 4am
|
||||
;
|
||||
; drawing routines for Million Perfect Tiles Condensed
|
||||
;
|
||||
; Public functions:
|
||||
; - draw_condensed_1x8
|
||||
;
|
||||
|
||||
; VMW: commented, reformatted, minor changes, ca65 assembly
|
||||
; hacked up some more
|
||||
|
||||
FONT_OFFSET = $13
|
||||
|
||||
|
||||
;------------------------------------------------------------------------------
|
||||
; draw_condensed_1x8
|
||||
;
|
||||
; in: A/Y points to zero terminated string, with x-pos and y-pos at start
|
||||
; out: clobbers all registers & flags
|
||||
;------------------------------------------------------------------------------
|
||||
draw_condensed_1x8:
|
||||
|
||||
; store the string location
|
||||
|
||||
sta OUTL
|
||||
sty OUTH
|
||||
|
||||
draw_condensed_1x8_again:
|
||||
|
||||
ldy #0
|
||||
lda (OUTL),Y
|
||||
sta CH
|
||||
bpl still_good
|
||||
|
||||
demo_demo_done:
|
||||
; FIXME: stop music?
|
||||
|
||||
jmp demo_demo_done
|
||||
|
||||
|
||||
still_good:
|
||||
clc
|
||||
lda #1
|
||||
adc OUTL
|
||||
sta OUTL
|
||||
sta dcb_loop_1x8_smc+1
|
||||
|
||||
lda #0
|
||||
adc OUTH
|
||||
sta OUTH
|
||||
sta dcb_loop_1x8_smc+2
|
||||
|
||||
|
||||
ldy CV
|
||||
|
||||
; row0
|
||||
|
||||
lda hposn_low, Y ; get low memory offset
|
||||
clc
|
||||
adc CH ; add in x-coord
|
||||
sta dcb_row_1x8_0+4
|
||||
lda hposn_high, Y ; get high memory offset
|
||||
sta dcb_row_1x8_0+5 ; save it out
|
||||
iny ; go to next row
|
||||
|
||||
; row1
|
||||
|
||||
lda hposn_low, Y
|
||||
adc CH
|
||||
sta dcb_row_1x8_1+4
|
||||
lda hposn_high, Y
|
||||
sta dcb_row_1x8_1+5
|
||||
iny
|
||||
|
||||
; row2
|
||||
|
||||
lda hposn_low, Y
|
||||
adc CH
|
||||
sta dcb_row_1x8_2+4
|
||||
lda hposn_high, Y
|
||||
sta dcb_row_1x8_2+5
|
||||
iny
|
||||
|
||||
; row3
|
||||
|
||||
lda hposn_low, Y
|
||||
adc CH
|
||||
sta dcb_row_1x8_3+4
|
||||
lda hposn_high, Y
|
||||
sta dcb_row_1x8_3+5
|
||||
iny
|
||||
|
||||
; row4
|
||||
|
||||
lda hposn_low, Y
|
||||
adc CH
|
||||
sta dcb_row_1x8_4+4
|
||||
lda hposn_high, Y
|
||||
sta dcb_row_1x8_4+5
|
||||
iny
|
||||
|
||||
; row5
|
||||
|
||||
lda hposn_low, Y
|
||||
adc CH
|
||||
sta dcb_row_1x8_5+4
|
||||
lda hposn_high, Y
|
||||
sta dcb_row_1x8_5+5
|
||||
iny
|
||||
|
||||
; row6
|
||||
|
||||
lda hposn_low, Y
|
||||
adc CH
|
||||
sta dcb_row_1x8_6+4
|
||||
lda hposn_high, Y
|
||||
sta dcb_row_1x8_6+5
|
||||
iny
|
||||
|
||||
; row7
|
||||
|
||||
lda hposn_low, Y
|
||||
adc CH
|
||||
sta dcb_row_1x8_7+4
|
||||
lda hposn_high, Y
|
||||
sta dcb_row_1x8_7+5
|
||||
|
||||
ldx #0
|
||||
dcb_loop_1x8:
|
||||
dcb_loop_1x8_smc:
|
||||
ldy $FDFD, X ; load next char into Y
|
||||
beq dcb_done_1x8
|
||||
|
||||
; cpy #13
|
||||
; bne not_linefeed
|
||||
|
||||
; lda #0
|
||||
; sta CH
|
||||
; clc
|
||||
; lda CV
|
||||
; adc #8
|
||||
; sta CV
|
||||
; inx
|
||||
|
||||
; lda CV
|
||||
; cmp #192
|
||||
; bcc dcb_loop_1x8
|
||||
|
||||
; lda #184
|
||||
; sta CV
|
||||
|
||||
; stx XSAVE
|
||||
; jsr scroll_screen
|
||||
; ldx XSAVE
|
||||
|
||||
; jmp dcb_loop_1x8
|
||||
|
||||
|
||||
not_linefeed:
|
||||
; unrolled loop to write out each line
|
||||
|
||||
dcb_row_1x8_0:
|
||||
lda font_1x8_row0-FONT_OFFSET, Y ; get 1-byte font row
|
||||
sta $FDFD, X ; write out to graphics mem
|
||||
dcb_row_1x8_1:
|
||||
lda font_1x8_row1-FONT_OFFSET, Y
|
||||
sta $FDFD, X
|
||||
dcb_row_1x8_2:
|
||||
lda font_1x8_row2-FONT_OFFSET, Y
|
||||
sta $FDFD, X
|
||||
dcb_row_1x8_3:
|
||||
lda font_1x8_row3-FONT_OFFSET, Y
|
||||
sta $FDFD, X
|
||||
dcb_row_1x8_4:
|
||||
lda font_1x8_row4-FONT_OFFSET, Y
|
||||
sta $FDFD, X
|
||||
dcb_row_1x8_5:
|
||||
lda font_1x8_row5-FONT_OFFSET, Y
|
||||
sta $FDFD, X
|
||||
dcb_row_1x8_6:
|
||||
lda font_1x8_row6-FONT_OFFSET, Y
|
||||
sta $FDFD, X
|
||||
dcb_row_1x8_7:
|
||||
lda font_1x8_row7-FONT_OFFSET, Y
|
||||
sta $FDFD, X
|
||||
|
||||
inc CH
|
||||
inx ; move to next
|
||||
|
||||
bne dcb_loop_1x8 ; bra (well, as long as string
|
||||
; is less than 255 chars)
|
||||
|
||||
dcb_done_1x8:
|
||||
|
||||
rts
|
||||
|
||||
|
||||
@ -1,29 +1,422 @@
|
||||
;==============================
|
||||
; two page vertical scroll
|
||||
;==============================
|
||||
;
|
||||
; 8*192*40 = 61440 cycles = roughly 16fps best case
|
||||
;
|
||||
; initial code, just scroll by 1
|
||||
|
||||
hgr_vertical_scroll:
|
||||
ldx #0
|
||||
|
||||
outer_vscroll_loop:
|
||||
lda hposn_low,X
|
||||
sta OUTL
|
||||
lda hposn_high,X
|
||||
sta OUTH
|
||||
lda DRAW_PAGE
|
||||
; beq hgr_page1_clearscreen
|
||||
; lda #0
|
||||
; beq hgr_page2_clearscreen
|
||||
|
||||
inx
|
||||
|
||||
lda hposn_low,X
|
||||
sta INL
|
||||
lda hposn_high,X
|
||||
sta INH
|
||||
hgr_vertical_scroll_page1:
|
||||
; PAGE1 for now
|
||||
|
||||
hgr_page1_vscroll:
|
||||
|
||||
ldy #39
|
||||
inner_vscroll_loop:
|
||||
lda (INL),Y
|
||||
sta (OUTL),Y
|
||||
hgr_page1_vscroll_loop:
|
||||
|
||||
lda $2400,Y ; 1 -> 0
|
||||
sta $2000,Y
|
||||
lda $2800,Y ; 2 -> 1
|
||||
sta $2400,Y
|
||||
lda $2C00,Y ; 3 -> 2
|
||||
sta $2800,Y
|
||||
lda $3000,Y ; 4 -> 3
|
||||
sta $2C00,Y
|
||||
lda $3400,Y ; 5 -> 4
|
||||
sta $3000,Y
|
||||
lda $3800,Y ; 6 -> 5
|
||||
sta $3400,Y
|
||||
lda $3C00,Y ; 7 -> 6
|
||||
sta $3800,Y
|
||||
lda $2080,Y ; 8 -> 7
|
||||
sta $3C00,Y
|
||||
lda $2480,Y ; 9 -> 8
|
||||
sta $2080,Y
|
||||
lda $2880,Y ; 10 -> 9
|
||||
sta $2480,Y
|
||||
lda $2C80,Y ; 11 -> 10
|
||||
sta $2880,Y
|
||||
lda $3080,Y ; 12 -> 11
|
||||
sta $2C80,Y
|
||||
lda $3480,Y ; 13 -> 12
|
||||
sta $3080,Y
|
||||
lda $3880,Y ; 14 -> 13
|
||||
sta $3480,Y
|
||||
lda $3C80,Y ; 15 -> 14
|
||||
sta $3880,Y
|
||||
lda $2100,Y ; 16 -> 15
|
||||
sta $3C80,Y
|
||||
lda $2500,Y ; 17 -> 16
|
||||
sta $2100,Y
|
||||
lda $2900,Y ; 18 -> 17
|
||||
sta $2500,Y
|
||||
lda $2D00,Y ; 19 -> 18
|
||||
sta $2900,Y
|
||||
lda $3100,Y ; 20 -> 19
|
||||
sta $2D00,Y
|
||||
lda $3500,Y ; 21 -> 20
|
||||
sta $3100,Y
|
||||
lda $3900,Y ; 22 -> 21
|
||||
sta $3500,Y
|
||||
lda $3D00,Y ; 23 -> 22
|
||||
sta $3900,Y
|
||||
lda $2180,Y ; 24 -> 23
|
||||
sta $3D00,Y
|
||||
lda $2580,Y ; 25 -> 24
|
||||
sta $2180,Y
|
||||
lda $2980,Y ; 26 -> 25
|
||||
sta $2580,Y
|
||||
lda $2D80,Y ; 27 -> 26
|
||||
sta $2980,Y
|
||||
lda $3180,Y ; 28 -> 27
|
||||
sta $2D80,Y
|
||||
lda $3580,Y ; 29 -> 28
|
||||
sta $3180,Y
|
||||
lda $3980,Y ; 30 -> 29
|
||||
sta $3580,Y
|
||||
lda $3D80,Y ; 31 -> 30
|
||||
sta $3980,Y
|
||||
lda $2200,Y ; 32 -> 31
|
||||
sta $3D80,Y
|
||||
lda $2600,Y ; 33 -> 32
|
||||
sta $2200,Y
|
||||
lda $2A00,Y ; 34 -> 33
|
||||
sta $2600,Y
|
||||
lda $2E00,Y ; 35 -> 34
|
||||
sta $2A00,Y
|
||||
lda $3200,Y ; 36 -> 35
|
||||
sta $2E00,Y
|
||||
lda $3600,Y ; 37 -> 36
|
||||
sta $3200,Y
|
||||
lda $3A00,Y ; 38 -> 37
|
||||
sta $3600,Y
|
||||
lda $3E00,Y ; 39 -> 38
|
||||
sta $3A00,Y
|
||||
lda $2280,Y ; 40 -> 39
|
||||
sta $3E00,Y
|
||||
lda $2680,Y ; 41 -> 40
|
||||
sta $2280,Y
|
||||
lda $2A80,Y ; 42 -> 41
|
||||
sta $2680,Y
|
||||
lda $2E80,Y ; 43 -> 42
|
||||
sta $2A80,Y
|
||||
lda $3280,Y ; 44 -> 43
|
||||
sta $2E80,Y
|
||||
lda $3680,Y ; 45 -> 44
|
||||
sta $3280,Y
|
||||
lda $3A80,Y ; 46 -> 45
|
||||
sta $3680,Y
|
||||
lda $3E80,Y ; 47 -> 46
|
||||
sta $3A80,Y
|
||||
lda $2300,Y ; 48 -> 47
|
||||
sta $3E80,Y
|
||||
lda $2700,Y ; 49 -> 48
|
||||
sta $2300,Y
|
||||
lda $2B00,Y ; 50 -> 49
|
||||
sta $2700,Y
|
||||
lda $2F00,Y ; 51 -> 50
|
||||
sta $2B00,Y
|
||||
lda $3300,Y ; 52 -> 51
|
||||
sta $2F00,Y
|
||||
lda $3700,Y ; 53 -> 52
|
||||
sta $3300,Y
|
||||
lda $3B00,Y ; 54 -> 53
|
||||
sta $3700,Y
|
||||
lda $3F00,Y ; 55 -> 54
|
||||
sta $3B00,Y
|
||||
lda $2380,Y ; 56 -> 55
|
||||
sta $3F00,Y
|
||||
lda $2780,Y ; 57 -> 56
|
||||
sta $2380,Y
|
||||
lda $2B80,Y ; 58 -> 57
|
||||
sta $2780,Y
|
||||
lda $2F80,Y ; 59 -> 58
|
||||
sta $2B80,Y
|
||||
lda $3380,Y ; 60 -> 59
|
||||
sta $2F80,Y
|
||||
lda $3780,Y ; 61 -> 60
|
||||
sta $3380,Y
|
||||
lda $3B80,Y ; 62 -> 61
|
||||
sta $3780,Y
|
||||
lda $3F80,Y ; 63 -> 62
|
||||
sta $3B80,Y
|
||||
lda $2028,Y ; 64 -> 63
|
||||
sta $3F80,Y
|
||||
lda $2428,Y ; 65 -> 64
|
||||
sta $2028,Y
|
||||
lda $2828,Y ; 66 -> 65
|
||||
sta $2428,Y
|
||||
lda $2C28,Y ; 67 -> 66
|
||||
sta $2828,Y
|
||||
lda $3028,Y ; 68 -> 67
|
||||
sta $2C28,Y
|
||||
lda $3428,Y ; 69 -> 68
|
||||
sta $3028,Y
|
||||
lda $3828,Y ; 70 -> 69
|
||||
sta $3428,Y
|
||||
lda $3C28,Y ; 71 -> 70
|
||||
sta $3828,Y
|
||||
lda $20A8,Y ; 72 -> 71
|
||||
sta $3C28,Y
|
||||
lda $24A8,Y ; 73 -> 72
|
||||
sta $20A8,Y
|
||||
lda $28A8,Y ; 74 -> 73
|
||||
sta $24A8,Y
|
||||
lda $2CA8,Y ; 75 -> 74
|
||||
sta $28A8,Y
|
||||
lda $30A8,Y ; 76 -> 75
|
||||
sta $2CA8,Y
|
||||
lda $34A8,Y ; 77 -> 76
|
||||
sta $30A8,Y
|
||||
lda $38A8,Y ; 78 -> 77
|
||||
sta $34A8,Y
|
||||
lda $3CA8,Y ; 79 -> 78
|
||||
sta $38A8,Y
|
||||
lda $2128,Y ; 80 -> 79
|
||||
sta $3CA8,Y
|
||||
lda $2528,Y ; 81 -> 80
|
||||
sta $2128,Y
|
||||
lda $2928,Y ; 82 -> 81
|
||||
sta $2528,Y
|
||||
lda $2D28,Y ; 83 -> 82
|
||||
sta $2928,Y
|
||||
lda $3128,Y ; 84 -> 83
|
||||
sta $2D28,Y
|
||||
lda $3528,Y ; 85 -> 84
|
||||
sta $3128,Y
|
||||
lda $3928,Y ; 86 -> 85
|
||||
sta $3528,Y
|
||||
lda $3D28,Y ; 87 -> 86
|
||||
sta $3928,Y
|
||||
lda $21A8,Y ; 88 -> 87
|
||||
sta $3D28,Y
|
||||
lda $25A8,Y ; 89 -> 88
|
||||
sta $21A8,Y
|
||||
lda $29A8,Y ; 90 -> 89
|
||||
sta $25A8,Y
|
||||
lda $2DA8,Y ; 91 -> 90
|
||||
sta $29A8,Y
|
||||
lda $31A8,Y ; 92 -> 91
|
||||
sta $2DA8,Y
|
||||
lda $35A8,Y ; 93 -> 92
|
||||
sta $31A8,Y
|
||||
lda $39A8,Y ; 94 -> 93
|
||||
sta $35A8,Y
|
||||
lda $3DA8,Y ; 95 -> 94
|
||||
sta $39A8,Y
|
||||
lda $2228,Y ; 96 -> 95
|
||||
sta $3DA8,Y
|
||||
lda $2628,Y ; 97 -> 96
|
||||
sta $2228,Y
|
||||
lda $2A28,Y ; 98 -> 97
|
||||
sta $2628,Y
|
||||
lda $2E28,Y ; 99 -> 98
|
||||
sta $2A28,Y
|
||||
lda $3228,Y ; 100 -> 99
|
||||
sta $2E28,Y
|
||||
lda $3628,Y ; 101 -> 100
|
||||
sta $3228,Y
|
||||
lda $3A28,Y ; 102 -> 101
|
||||
sta $3628,Y
|
||||
lda $3E28,Y ; 103 -> 102
|
||||
sta $3A28,Y
|
||||
lda $22A8,Y ; 104 -> 103
|
||||
sta $3E28,Y
|
||||
lda $26A8,Y ; 105 -> 104
|
||||
sta $22A8,Y
|
||||
lda $2AA8,Y ; 106 -> 105
|
||||
sta $26A8,Y
|
||||
lda $2EA8,Y ; 107 -> 106
|
||||
sta $2AA8,Y
|
||||
lda $32A8,Y ; 108 -> 107
|
||||
sta $2EA8,Y
|
||||
lda $36A8,Y ; 109 -> 108
|
||||
sta $32A8,Y
|
||||
lda $3AA8,Y ; 110 -> 109
|
||||
sta $36A8,Y
|
||||
lda $3EA8,Y ; 111 -> 110
|
||||
sta $3AA8,Y
|
||||
lda $2328,Y ; 112 -> 111
|
||||
sta $3EA8,Y
|
||||
lda $2728,Y ; 113 -> 112
|
||||
sta $2328,Y
|
||||
lda $2B28,Y ; 114 -> 113
|
||||
sta $2728,Y
|
||||
lda $2F28,Y ; 115 -> 114
|
||||
sta $2B28,Y
|
||||
lda $3328,Y ; 116 -> 115
|
||||
sta $2F28,Y
|
||||
lda $3728,Y ; 117 -> 116
|
||||
sta $3328,Y
|
||||
lda $3B28,Y ; 118 -> 117
|
||||
sta $3728,Y
|
||||
lda $3F28,Y ; 119 -> 118
|
||||
sta $3B28,Y
|
||||
lda $23A8,Y ; 120 -> 119
|
||||
sta $3F28,Y
|
||||
lda $27A8,Y ; 121 -> 120
|
||||
sta $23A8,Y
|
||||
lda $2BA8,Y ; 122 -> 121
|
||||
sta $27A8,Y
|
||||
lda $2FA8,Y ; 123 -> 122
|
||||
sta $2BA8,Y
|
||||
lda $33A8,Y ; 124 -> 123
|
||||
sta $2FA8,Y
|
||||
lda $37A8,Y ; 125 -> 124
|
||||
sta $33A8,Y
|
||||
lda $3BA8,Y ; 126 -> 125
|
||||
sta $37A8,Y
|
||||
lda $3FA8,Y ; 127 -> 126
|
||||
sta $3BA8,Y
|
||||
lda $2050,Y ; 128 -> 127
|
||||
sta $3FA8,Y
|
||||
lda $2450,Y ; 129 -> 128
|
||||
sta $2050,Y
|
||||
lda $2850,Y ; 130 -> 129
|
||||
sta $2450,Y
|
||||
lda $2C50,Y ; 131 -> 130
|
||||
sta $2850,Y
|
||||
lda $3050,Y ; 132 -> 131
|
||||
sta $2C50,Y
|
||||
lda $3450,Y ; 133 -> 132
|
||||
sta $3050,Y
|
||||
lda $3850,Y ; 134 -> 133
|
||||
sta $3450,Y
|
||||
lda $3C50,Y ; 135 -> 134
|
||||
sta $3850,Y
|
||||
lda $20D0,Y ; 136 -> 135
|
||||
sta $3C50,Y
|
||||
lda $24D0,Y ; 137 -> 136
|
||||
sta $20D0,Y
|
||||
lda $28D0,Y ; 138 -> 137
|
||||
sta $24D0,Y
|
||||
lda $2CD0,Y ; 139 -> 138
|
||||
sta $28D0,Y
|
||||
lda $30D0,Y ; 140 -> 139
|
||||
sta $2CD0,Y
|
||||
lda $34D0,Y ; 141 -> 140
|
||||
sta $30D0,Y
|
||||
lda $38D0,Y ; 142 -> 141
|
||||
sta $34D0,Y
|
||||
lda $3CD0,Y ; 143 -> 142
|
||||
sta $38D0,Y
|
||||
lda $2150,Y ; 144 -> 143
|
||||
sta $3CD0,Y
|
||||
lda $2550,Y ; 145 -> 144
|
||||
sta $2150,Y
|
||||
lda $2950,Y ; 146 -> 145
|
||||
sta $2550,Y
|
||||
lda $2D50,Y ; 147 -> 146
|
||||
sta $2950,Y
|
||||
lda $3150,Y ; 148 -> 147
|
||||
sta $2D50,Y
|
||||
lda $3550,Y ; 149 -> 148
|
||||
sta $3150,Y
|
||||
lda $3950,Y ; 150 -> 149
|
||||
sta $3550,Y
|
||||
lda $3D50,Y ; 151 -> 150
|
||||
sta $3950,Y
|
||||
lda $21D0,Y ; 152 -> 151
|
||||
sta $3D50,Y
|
||||
lda $25D0,Y ; 153 -> 152
|
||||
sta $21D0,Y
|
||||
lda $29D0,Y ; 154 -> 153
|
||||
sta $25D0,Y
|
||||
lda $2DD0,Y ; 155 -> 154
|
||||
sta $29D0,Y
|
||||
lda $31D0,Y ; 156 -> 155
|
||||
sta $2DD0,Y
|
||||
lda $35D0,Y ; 157 -> 156
|
||||
sta $31D0,Y
|
||||
lda $39D0,Y ; 158 -> 157
|
||||
sta $35D0,Y
|
||||
lda $3DD0,Y ; 159 -> 158
|
||||
sta $39D0,Y
|
||||
lda $2250,Y ; 160 -> 159
|
||||
sta $3DD0,Y
|
||||
lda $2650,Y ; 161 -> 160
|
||||
sta $2250,Y
|
||||
lda $2A50,Y ; 162 -> 161
|
||||
sta $2650,Y
|
||||
lda $2E50,Y ; 163 -> 162
|
||||
sta $2A50,Y
|
||||
lda $3250,Y ; 164 -> 163
|
||||
sta $2E50,Y
|
||||
lda $3650,Y ; 165 -> 164
|
||||
sta $3250,Y
|
||||
lda $3A50,Y ; 166 -> 165
|
||||
sta $3650,Y
|
||||
lda $3E50,Y ; 167 -> 166
|
||||
sta $3A50,Y
|
||||
lda $22D0,Y ; 168 -> 167
|
||||
sta $3E50,Y
|
||||
lda $26D0,Y ; 169 -> 168
|
||||
sta $22D0,Y
|
||||
lda $2AD0,Y ; 170 -> 169
|
||||
sta $26D0,Y
|
||||
lda $2ED0,Y ; 171 -> 170
|
||||
sta $2AD0,Y
|
||||
lda $32D0,Y ; 172 -> 171
|
||||
sta $2ED0,Y
|
||||
lda $36D0,Y ; 173 -> 172
|
||||
sta $32D0,Y
|
||||
lda $3AD0,Y ; 174 -> 173
|
||||
sta $36D0,Y
|
||||
lda $3ED0,Y ; 175 -> 174
|
||||
sta $3AD0,Y
|
||||
lda $2350,Y ; 176 -> 175
|
||||
sta $3ED0,Y
|
||||
lda $2750,Y ; 177 -> 176
|
||||
sta $2350,Y
|
||||
lda $2B50,Y ; 178 -> 177
|
||||
sta $2750,Y
|
||||
lda $2F50,Y ; 179 -> 178
|
||||
sta $2B50,Y
|
||||
lda $3350,Y ; 180 -> 179
|
||||
sta $2F50,Y
|
||||
lda $3750,Y ; 181 -> 180
|
||||
sta $3350,Y
|
||||
lda $3B50,Y ; 182 -> 181
|
||||
sta $3750,Y
|
||||
lda $3F50,Y ; 183 -> 182
|
||||
sta $3B50,Y
|
||||
lda $23D0,Y ; 184 -> 183
|
||||
sta $3F50,Y
|
||||
lda $27D0,Y ; 185 -> 184
|
||||
sta $23D0,Y
|
||||
lda $2BD0,Y ; 186 -> 185
|
||||
sta $27D0,Y
|
||||
lda $2FD0,Y ; 187 -> 186
|
||||
sta $2BD0,Y
|
||||
lda $33D0,Y ; 188 -> 187
|
||||
sta $2FD0,Y
|
||||
lda $37D0,Y ; 189 -> 188
|
||||
sta $33D0,Y
|
||||
lda $3BD0,Y ; 190 -> 189
|
||||
sta $37D0,Y
|
||||
lda $3FD0,Y ; 191 -> 190
|
||||
sta $3BD0,Y
|
||||
; lda $0000,Y ; 192 -> 191
|
||||
; sta $3FD0,Y
|
||||
|
||||
dey
|
||||
bpl inner_vscroll_loop
|
||||
|
||||
cpx #200
|
||||
bne outer_vscroll_loop
|
||||
bmi done_vscroll
|
||||
|
||||
jmp hgr_page1_vscroll_loop
|
||||
|
||||
done_vscroll:
|
||||
rts
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user