From 88a4f6af7c493457e910fbd6a90b6e6815c825d8 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Thu, 22 Aug 2019 00:50:50 -0400 Subject: [PATCH] ootw: ending: now scrolls --- ootw/ending.s | 157 +++++++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 148 insertions(+), 9 deletions(-) diff --git a/ootw/ending.s b/ootw/ending.s index b2971c90..1b92b8e0 100644 --- a/ootw/ending.s +++ b/ootw/ending.s @@ -9,8 +9,22 @@ ending: + ;========================= + ; set up sound + ;========================= + + jsr pt3_setup + + lda #1 + sta LOOP + + +; jmp quit_level + jsr wait_until_keypressed +repeat_ending: + ;=========================== ; Enable graphics ;=========================== @@ -30,7 +44,7 @@ ending: sta DISP_PAGE -repeat_ending: + ;=========================== ; show some pictures @@ -93,14 +107,6 @@ repeat_ending: ;============================ - ;========================= - ; set up sound - ;========================= - - jsr pt3_setup - - lda #1 - sta LOOP @@ -606,6 +612,73 @@ quit_level: jsr HOME lda KEYRESET ; clear strobe + ;====================== + ; scroll credits + ;====================== + + ; + ; + ; 0@24 + ; 0@23,1@24 + ; 0@22,1@23,2@24... + ; 0@0... + + + ldx #46 + +scroll_loop: + jsr HOME + + ldy #0 + stx XPOS +print_loop: + + lda credit_list,Y + sta OUTL + lda credit_list+1,Y + sta OUTH + + tya + pha + + ldy XPOS + jsr gotoy + + jsr print_string + + pla + tay + + iny + iny + + inc XPOS + inc XPOS + lda XPOS + cmp #48 + bne print_loop + + txa + pha + ldx #20 + jsr long_wait + pla + tax + + dex + dex + bpl scroll_loop + + ldx #200 + jsr long_wait + + jsr HOME + bit KEYRESET + + ;====================== + ; print end message + ;====================== + lda #0 sta DRAW_PAGE @@ -624,9 +697,75 @@ quit_level: jmp repeat_ending +; 0123456789012345678901234567890123456789 +; DESIGNED BY ..... ERIC CHAHI +; +; ARTWORK ......... ERIC CHAHI +; +; MUSIC BY ........ JEAN-FRANCOIS FREITAS +; +; SOUND EFFECTS +; JEAN-FRANCOIS FREITAS +; ERIC CHAHI +; +; APPLE II PORT +; VINCE WEAVER +; +; APPLE ][ FOREVER + +credits0:.byte "",0 +credits1:.byte " DESIGNED BY ..... ERIC CHAHI",0 +credits2:.byte "",0 +credits3:.byte " ARTWORK ......... ERIC CHAHI",0 +credits4:.byte "",0 +credits5:.byte " MUSIC BY ........ JEAN-FRANCOIS FREITAS",0 +credits6:.byte "",0 +credits7:.byte " SOUND EFFECTS",0 +credits8:.byte " JEAN-FRANCOIS FREITAS",0 +credits9:.byte " ERIC CHAHI",0 +credits10:.byte "",0 +credits11:.byte " APPLE II+ PORT",0 +credits12:.byte " VINCE WEAVER",0 +credits13:.byte "",0 +credits14:.byte " APPLE ][ FOREVER",0 + +credit_list: + .word credits0 ; 0 + .word credits0 ; 1 + .word credits0 ; 2 + .word credits1 ; 3 + .word credits2 ; 4 + .word credits3 ; 5 + .word credits4 ; 6 + .word credits5 ; 7 + .word credits6 ; 8 + .word credits0 ; 9 + .word credits7 ; 10 + .word credits8 ; 11 + .word credits9 ; 12 + .word credits10 ; 13 + .word credits11 ; 14 + .word credits12 ; 16 + .word credits0 ; 15 + .word credits0 ; 18 + .word credits13 ; 17 + .word credits14 ; 19 + .word credits0 ; 20 + .word credits0 ; 21 + .word credits0 ; 22 + end_message: .byte 6,10,"NOW GO BACK TO ANOTHER EARTH",0 + ;============================ + ; set BASL/BASH to offset w Y +gotoy: + lda gr_offsets,Y + sta BASL + lda gr_offsets+1,Y + sta BASH + rts + ;====================== ; wait until keypressed ;======================