Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-14 13:33:48 +00:00
Code Issues Projects Releases Wiki Activity

ootw: ending: now scrolls

Browse Source
This commit is contained in:
Vince Weaver 2019-08-22 00:50:50 -04:00
parent 032436b32a
commit 88a4f6af7c
1 changed files with 148 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

157
ootw/ending.s
View File

@ -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
;======================