mirror of
https://github.com/a2-4am/4cade.git
synced 2024-09-27 12:57:21 +00:00
66 lines
1.7 KiB
Plaintext
66 lines
1.7 KiB
Plaintext
;License:MIT
|
|
;(c) 2018-9 by 4am
|
|
;
|
|
; functions for animated title screens
|
|
;
|
|
; - MaybeAnimateTitle
|
|
;
|
|
|
|
; /!\ execution falls through from ui.search.mode/FindMatchingTitle
|
|
MaybeAnimateTitle
|
|
; out: C clear
|
|
lda #$3F
|
|
ldy OffscreenPage
|
|
bne +
|
|
eor #$60
|
|
+ sta SAVE+1
|
|
and #$60
|
|
sta @a+2
|
|
eor #$60
|
|
sta @b+2
|
|
lda #$FD
|
|
sta SAVE
|
|
ldy #0
|
|
lda (SAVE),y ; see if there is a hidden JMP to an
|
|
cmp #$4C ; animation routine for this screen
|
|
bne @exit
|
|
ldx #$20
|
|
@a lda $FD00,y ; SMC
|
|
@b sta $FD00,y ; SMC
|
|
iny
|
|
bne @a
|
|
inc @a+2
|
|
inc @b+2
|
|
dex
|
|
bne @a
|
|
|
|
jsr GetGameToLaunch ; load the animation routine, which is
|
|
; stored in a subdirectory by filename
|
|
+STAY +
|
|
jsr LoadFile
|
|
!word kAnimatedTitleDirectory
|
|
+ !word $FDFD
|
|
!word 0
|
|
|
|
ldy kAnimatedTitleDirectory
|
|
sty ProDOS_prefix ; temporarily set 'root' directory to
|
|
- lda kAnimatedTitleDirectory,y;/title.animated/ so animation file
|
|
sta ProDOS_prefix, y ; can load other files in the same subdirectory
|
|
dey
|
|
bne -
|
|
|
|
ldx #5 ; copy prelaunch code
|
|
- lda @titleAnimPrelaunch,x
|
|
sta $106,x
|
|
dex
|
|
bpl -
|
|
|
|
jsr Launch
|
|
jsr ResyncPage
|
|
@exit clc ; tell caller not to refresh screen
|
|
rts
|
|
|
|
@titleAnimPrelaunch
|
|
bit $C082
|
|
jmp (SAVE)
|