mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
219 lines
3.4 KiB
ArmAsm
219 lines
3.4 KiB
ArmAsm
;======================
|
|
; scroll credits
|
|
;======================
|
|
|
|
end_credits:
|
|
|
|
lda KEYRESET
|
|
bit SET_TEXT ; switch to text mode
|
|
|
|
; clear to space
|
|
|
|
lda #$a0
|
|
sta clear_all_color+1
|
|
|
|
|
|
; X is starting YPOS to print at
|
|
|
|
ldx #48
|
|
stx YPOS
|
|
|
|
scroll_loop:
|
|
|
|
jsr clear_all ; trashes A,Y
|
|
|
|
ldy #0 ; credit offset
|
|
ldx YPOS
|
|
print_loop:
|
|
|
|
cpx #48
|
|
bcs after_print
|
|
|
|
cpy #48
|
|
bcs after_print
|
|
|
|
; write next line
|
|
|
|
|
|
;============================
|
|
; set BASL/BASH to offset w Y
|
|
|
|
lda gr_offsets,X
|
|
sta BASL
|
|
lda gr_offsets+1,X
|
|
clc
|
|
adc DRAW_PAGE
|
|
sta BASH
|
|
|
|
; get credit line
|
|
lda credit_list,Y
|
|
sta OUTL
|
|
lda credit_list+1,Y
|
|
sta OUTH
|
|
|
|
tya
|
|
pha
|
|
|
|
;============================
|
|
; print the string
|
|
jsr print_string ; trashes Y
|
|
|
|
pla
|
|
tay
|
|
|
|
after_print:
|
|
|
|
inx
|
|
inx
|
|
|
|
iny
|
|
iny
|
|
|
|
cpx #48 ; if off screen, don't print
|
|
bne print_loop
|
|
|
|
;====================
|
|
; done printing
|
|
|
|
jsr page_flip ; flip page
|
|
|
|
;====================
|
|
; delay a bit
|
|
;====================
|
|
; 400ms normally
|
|
; if credits on screen, wait much longer
|
|
|
|
ldx YPOS
|
|
cpx #0
|
|
beq credits_long_pause
|
|
|
|
credits_short_pause:
|
|
ldx #40 ; time to sleep (X*10ms)
|
|
jsr long_wait ; trashes A,X
|
|
jmp credits_done_pause
|
|
|
|
credits_long_pause:
|
|
; actual games pauses 10s, then scrolls again
|
|
; delay 6s?
|
|
|
|
ldx #200
|
|
jsr long_wait
|
|
|
|
ldx #200
|
|
jsr long_wait
|
|
|
|
ldx #200
|
|
jsr long_wait
|
|
|
|
credits_done_pause:
|
|
|
|
bit KEYRESET
|
|
|
|
|
|
;===================
|
|
; scroll
|
|
|
|
dec YPOS
|
|
dec YPOS
|
|
lda YPOS
|
|
cmp #256-48 ; scroll until all off screen
|
|
bne scroll_loop
|
|
|
|
|
|
;============================================
|
|
; actual games pauses 10s, then scrolls again
|
|
;============================================
|
|
; delay 6s?
|
|
|
|
; ldx #200
|
|
; jsr long_wait
|
|
|
|
; ldx #200
|
|
; jsr long_wait
|
|
|
|
; ldx #200
|
|
; jsr long_wait
|
|
|
|
; jsr HOME
|
|
bit KEYRESET
|
|
|
|
;======================
|
|
; print final message
|
|
;======================
|
|
|
|
jsr clear_all
|
|
|
|
lda #<end_message
|
|
sta OUTL
|
|
lda #>end_message
|
|
sta OUTH
|
|
|
|
jsr move_and_print
|
|
|
|
jsr page_flip
|
|
|
|
rts
|
|
|
|
|
|
; 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 'DEATER' 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 credits0 ; 4
|
|
.word credits3 ; 5
|
|
.word credits0 ; 6
|
|
.word credits5 ; 7
|
|
.word credits0 ; 8
|
|
.word credits0 ; 9
|
|
.word credits7 ; 10
|
|
.word credits8 ; 11
|
|
.word credits9 ; 12
|
|
.word credits0 ; 13
|
|
.word credits11 ; 14
|
|
.word credits12 ; 16
|
|
.word credits0 ; 15
|
|
.word credits0 ; 18
|
|
.word credits0 ; 17
|
|
.word credits14 ; 19
|
|
.word credits0 ; 20
|
|
.word credits0 ; 21
|
|
.word credits0 ; 22
|
|
.word credits0 ; 23
|
|
|
|
end_message:
|
|
.byte 6,10,"NOW GO BACK TO ANOTHER EARTH",0
|
|
|