mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-17 13:29:39 +00:00
420 lines
8.5 KiB
ArmAsm
420 lines
8.5 KiB
ArmAsm
; Thumbnail Credits
|
|
|
|
;
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
;=====================
|
|
;=====================
|
|
; Thumbnail Credits
|
|
;=====================
|
|
;=====================
|
|
|
|
; $2000-$3FFF = hires page1
|
|
; $4000-$5FFF = hires page2
|
|
; $6000-$7FFF = temp graphics
|
|
; $8000-$BFFF = code
|
|
|
|
|
|
thumbnail_credits:
|
|
|
|
lda #0 ; clear screen
|
|
jsr hgr_page1_clearscreen
|
|
lda #0 ; clear screen
|
|
jsr hgr_page2_clearscreen
|
|
|
|
bit PAGE2 ; start viewing page2
|
|
|
|
; load the logo set 1
|
|
|
|
lda #<summary1_data
|
|
sta zx_src_l+1
|
|
lda #>summary1_data
|
|
sta zx_src_h+1
|
|
lda #$60
|
|
jsr zx02_full_decomp
|
|
|
|
|
|
lda #0
|
|
sta COUNT
|
|
|
|
lda #$0 ; draw to PAGE1 to start (so end credits)
|
|
sta DRAW_PAGE ; ends on PAGE1
|
|
|
|
credits_logo_outer_outer:
|
|
|
|
; lda #200 ; 4 seconds? actual is 5ish
|
|
; sta IRQ_COUNTDOWN
|
|
|
|
lda DRAW_PAGE
|
|
and #$20
|
|
bne cloo_page2
|
|
|
|
cloo_page1:
|
|
lda #0 ; clear screen
|
|
jsr hgr_page1_clearscreen
|
|
jmp cloo_write_text
|
|
|
|
cloo_page2:
|
|
lda #0 ; clear screen
|
|
jsr hgr_page2_clearscreen
|
|
|
|
|
|
cloo_write_text:
|
|
|
|
lda #12
|
|
sta CH
|
|
lda #192
|
|
sta CV
|
|
|
|
pha
|
|
txa
|
|
pha
|
|
tya
|
|
pha
|
|
|
|
ldx COUNT
|
|
|
|
lda credits_list_low,X
|
|
ldy credits_list_high,X
|
|
|
|
jsr draw_font_1x10_multiple
|
|
|
|
pla
|
|
tay
|
|
pla
|
|
tax
|
|
pla
|
|
|
|
;========================
|
|
;========================
|
|
; draw the thumbnail
|
|
; TODO: scroll it in
|
|
;========================
|
|
;========================
|
|
|
|
ldx COUNT ; patch the source offsets
|
|
lda logo_x_offsets,X
|
|
sta clo_smc1+1
|
|
lda logo_y_offsets,X
|
|
sta clo_smc2+1
|
|
|
|
ldx #63
|
|
credits_logo_outer:
|
|
|
|
; setup output pointer
|
|
|
|
lda hposn_low+16,X ; adjust Y position
|
|
clc
|
|
adc #0 ; (was 15 to center on screen)
|
|
sta OUTL
|
|
|
|
; setup high
|
|
|
|
clc
|
|
lda hposn_high+16,X ; adjust Y position
|
|
adc DRAW_PAGE
|
|
sta OUTH
|
|
|
|
|
|
; setup input pointers
|
|
|
|
stx XSAVE
|
|
txa
|
|
clc
|
|
clo_smc2:
|
|
adc #0
|
|
tax
|
|
|
|
lda hposn_low,X
|
|
clc
|
|
clo_smc1:
|
|
adc #0
|
|
sta INL
|
|
|
|
lda hposn_high,X
|
|
eor #$40 ; $2000 -> $6000 0010 -> 0110
|
|
sta INH
|
|
ldx XSAVE
|
|
|
|
ldy #9
|
|
credits_logo_inner:
|
|
lda (INL),Y
|
|
sta (OUTL),Y
|
|
dey
|
|
bpl credits_logo_inner
|
|
|
|
dex
|
|
bpl credits_logo_outer
|
|
|
|
lda DRAW_PAGE
|
|
eor #$20
|
|
sta DRAW_PAGE
|
|
|
|
bne cloo_disp_page1
|
|
|
|
cloo_disp_page2:
|
|
bit PAGE2
|
|
jmp cloo_done_flip
|
|
|
|
cloo_disp_page1:
|
|
bit PAGE1
|
|
|
|
cloo_done_flip:
|
|
|
|
; done drawing...
|
|
|
|
;======================================
|
|
; scroll it right
|
|
;======================================
|
|
|
|
lda DRAW_PAGE
|
|
eor #$20
|
|
sta DRAW_PAGE ; do it on visible page
|
|
|
|
lda #0
|
|
sta SCROLL_X
|
|
|
|
scroll_right_loop:
|
|
jsr horiz_scroll_right
|
|
|
|
; sleep?
|
|
|
|
inc SCROLL_X
|
|
lda SCROLL_X
|
|
cmp #15
|
|
bne scroll_right_loop
|
|
|
|
;======================================
|
|
; pause a bit
|
|
;======================================
|
|
|
|
lda #2
|
|
jsr wait_seconds
|
|
|
|
;======================================
|
|
; scroll it left
|
|
;======================================
|
|
|
|
lda #0
|
|
sta SCROLL_X
|
|
scroll_left_loop:
|
|
jsr horiz_scroll_left
|
|
|
|
; sleep?
|
|
|
|
inc SCROLL_X
|
|
lda SCROLL_X
|
|
cmp #25
|
|
bne scroll_left_loop
|
|
|
|
|
|
; flip back to off-screen
|
|
lda DRAW_PAGE
|
|
eor #$20
|
|
sta DRAW_PAGE
|
|
|
|
;======================================
|
|
; wait until IRQ countdown or keypress
|
|
;======================================
|
|
;cloo_check_again:
|
|
; lda KEYPRESS
|
|
; bmi cloo_check_done
|
|
|
|
; lda IRQ_COUNTDOWN
|
|
; bne cloo_check_again
|
|
|
|
cloo_check_done:
|
|
bit KEYRESET
|
|
|
|
inc COUNT
|
|
lda COUNT
|
|
|
|
cmp #12
|
|
bne skip_summary2
|
|
|
|
; reload logos when we hit 12
|
|
|
|
lda #<summary2_data
|
|
sta zx_src_l+1
|
|
lda #>summary2_data
|
|
sta zx_src_h+1
|
|
lda #$60
|
|
jsr zx02_full_decomp
|
|
lda #0
|
|
skip_summary2:
|
|
cmp #21
|
|
beq done_credits_logo
|
|
|
|
jmp credits_logo_outer_outer
|
|
|
|
done_credits_logo:
|
|
|
|
rts
|
|
|
|
|
|
.include "horiz_scroll_simple.s"
|
|
|
|
|
|
logo_y_offsets:
|
|
.byte 0,0,0,0
|
|
.byte 64,64,64,64
|
|
.byte 128,128,128,128
|
|
.byte 0,0,0,0
|
|
.byte 64,64,64,64
|
|
.byte 128
|
|
|
|
logo_x_offsets:
|
|
.byte 0,10,20,30
|
|
.byte 0,10,20,30
|
|
.byte 0,10,20,30
|
|
.byte 0,10,20,30
|
|
.byte 0,10,20,30
|
|
.byte 0
|
|
|
|
credits_list_low:
|
|
.byte <credit_message1,<credit_message2,<credit_message3
|
|
.byte <credit_message4,<credit_message5,<credit_message6
|
|
.byte <credit_message7,<credit_message8,<credit_message9
|
|
.byte <credit_message10,<credit_message11,<credit_message12
|
|
.byte <credit_message13,<credit_message14,<credit_message15
|
|
.byte <credit_message16,<credit_message17,<credit_message18
|
|
.byte <credit_message19,<credit_message20,<credit_message21
|
|
|
|
credits_list_high:
|
|
.byte >credit_message1,>credit_message2,>credit_message3
|
|
.byte >credit_message4,>credit_message5,>credit_message6
|
|
.byte >credit_message7,>credit_message8,>credit_message9
|
|
.byte >credit_message10,>credit_message11,>credit_message12
|
|
.byte >credit_message13,>credit_message14,>credit_message15
|
|
.byte >credit_message16,>credit_message17,>credit_message18
|
|
.byte >credit_message19,>credit_message20,>credit_message21
|
|
|
|
|
|
|
|
|
|
credit_message1: ; intro
|
|
credit_message2: ; intro ships
|
|
credit_message3: ; intro explosion
|
|
.byte 11, 96,"GRAPHICS -- MARVEL",13
|
|
.byte 14,108,"A2 -- DEATER",13
|
|
.byte 13,128,"MUSIC - SKAVEN",13
|
|
.byte 15,140,"AY -- MA2E",13
|
|
.byte 13,160,"CODE -- DEATER",0
|
|
;credit_message2: ; intro ships
|
|
; .byte 11, 96,"GRAPHICS -- MARVEL",13
|
|
; .byte 14,108,"A2 -- DEATER",13
|
|
; .byte 13,128,"MUSIC - SKAVEN",13
|
|
; .byte 14,140,"AY - DEATER",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
;credit_message3: ; intro explosion
|
|
; .byte 11, 96,"GRAPHICS -- MARVEL",13
|
|
; .byte 14,108,"A2 -- DEATER",13
|
|
; .byte 13,128,"MUSIC - SKAVEN",13
|
|
; .byte 14,140,"AY - DEATER",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
credit_message4: ; logo
|
|
.byte 12, 96,"GRAPHICS - PIXEL",13
|
|
.byte 14,108,"A2 -- DEATER",0
|
|
credit_message5: ; chessboard
|
|
credit_message9: ; ape
|
|
credit_message10: ; leaves
|
|
credit_message16: ; transmission
|
|
.byte 12, 96,"GRAPHICS -- PIXEL",13
|
|
.byte 14,108,"A2 -- DEATER",13
|
|
.byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
.byte 15,140,"AY -- Z00M",13
|
|
.byte 13,160,"CODE -- DEATER",0
|
|
credit_message6: ; tunnel
|
|
credit_message7: ; circles
|
|
credit_message8: ; interference
|
|
credit_message13: ; plasma
|
|
credit_message14: ; cube
|
|
credit_message15: ; balls
|
|
credit_message17: ; voxel
|
|
.byte 9, 96,"MUSIC -- PURPLE MOTION",13
|
|
.byte 15,108,"AY -- Z00M",13
|
|
.byte 13,128,"CODE -- DEATER",0
|
|
;credit_message7: ; circles
|
|
; .byte 9, 96,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,108,"AY -- Z00M",13
|
|
; .byte 13,128,"CODE -- DEATER",0
|
|
;credit_message8: ; interference
|
|
; .byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,140,"AY -- Z00M",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
;credit_message9: ; ape
|
|
; .byte 12, 96,"GRAPHICS -- PIXEL",13
|
|
; .byte 14,108,"A2 -- DEATER",13
|
|
; .byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,140,"AY -- Z00M",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
;credit_message10: ; leaves
|
|
; .byte 12, 96,"GRAPHICS -- PIXEL",13
|
|
; .byte 14,108,"A2 -- DEATER",13
|
|
; .byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,140,"AY -- Z00M",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
credit_message11: ; lens
|
|
credit_message12: ; roto
|
|
.byte 7, 96,"GRAPHICS -- PIXEL / SKAVEN",13
|
|
.byte 14,108,"A2 -- DEATER",13
|
|
.byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
.byte 15,140,"AY -- Z00M",13
|
|
.byte 13,160,"CODE -- DEATER",0
|
|
;credit_message12: ; roto
|
|
; .byte 12, 96,"GRAPHICS -- PIXEL",13 ; / SKAVEN
|
|
; .byte 14,108,"A2 -- DEATER",13
|
|
; .byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,140,"AY -- Z00M",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
;credit_message13: ; plasma
|
|
; .byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,140,"AY -- Z00M",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
;credit_message14: ; cube
|
|
; .byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,140,"AY -- Z00M",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
;credit_message15: ; balls
|
|
; .byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,140,"AY -- Z00M",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
;credit_message16: ; transmission
|
|
; .byte 12, 96,"GRAPHICS -- PIXEL",13
|
|
; .byte 14,108,"A2 -- DEATER",13
|
|
; .byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,140,"AY -- Z00M",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
;credit_message17: ; voxel
|
|
; .byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
; .byte 15,140,"AY -- Z00M",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
credit_message18: ; polar
|
|
.byte 11, 96,"GRAPHICS -- MARVEL",13
|
|
.byte 14,108,"A2 -- DEATER",13
|
|
.byte 9,128,"MUSIC -- PURPLE MOTION",13
|
|
.byte 15,140,"AY -- Z00M",13
|
|
.byte 13,160,"CODE -- DEATER",0
|
|
credit_message19: ; 3D
|
|
.byte 14, 96,"WORLD - TRUG",13
|
|
.byte 14,108,"A2 -- DEATER",13
|
|
.byte 13,128,"MUSIC - SKAVEN",13
|
|
.byte 14,140,"AY -- DEATER",13
|
|
.byte 13,160,"CODE -- DEATER",0
|
|
credit_message20: ; NUTS
|
|
credit_message21: ; CREDITS
|
|
.byte 12, 96,"GRAPHICS -- PIXEL",13
|
|
.byte 14,108,"A2 -- DEATER",13
|
|
.byte 13,128,"MUSIC - SKAVEN",13
|
|
.byte 14,140,"AY -- DEATER",13
|
|
.byte 13,160,"CODE -- DEATER",0
|
|
;credit_message21: ; CREDITS
|
|
; .byte 12, 96,"GRAPHICS -- PIXEL",13
|
|
; .byte 14,108,"A2 -- DEATER",13
|
|
; .byte 13,128,"MUSIC - SKAVEN",13
|
|
; .byte 14,140,"AY -- DEATER",13
|
|
; .byte 13,160,"CODE -- DEATER",0
|
|
|
|
|
|
|