2019-09-28 12:35:48 +00:00
|
|
|
;License:MIT
|
2020-03-13 00:03:37 +00:00
|
|
|
;(c) 2018-2020 by 4am
|
2019-09-28 12:35:48 +00:00
|
|
|
;
|
|
|
|
; functions for animated title screens
|
|
|
|
;
|
2019-10-14 02:22:47 +00:00
|
|
|
; Public functions:
|
2019-09-28 12:35:48 +00:00
|
|
|
; - MaybeAnimateTitle
|
|
|
|
;
|
|
|
|
|
2019-10-08 17:19:20 +00:00
|
|
|
; /!\ execution falls through from ui.search.mode/FindMatchingTitle
|
2019-10-14 02:22:47 +00:00
|
|
|
;------------------------------------------------------------------------------
|
|
|
|
; MaybeAnimateTitle
|
|
|
|
; slow down to 1 Mhz (always), then check if there is an animation for the
|
|
|
|
; title screenshot we just displayed, and if so, load it and call it
|
|
|
|
;
|
|
|
|
; in: none
|
|
|
|
; out: C clear
|
|
|
|
; all other flags clobbered
|
|
|
|
; all registers clobbered
|
|
|
|
;------------------------------------------------------------------------------
|
2019-09-28 12:35:48 +00:00
|
|
|
MaybeAnimateTitle
|
2019-10-10 01:02:46 +00:00
|
|
|
jsr SwitchToBank2
|
|
|
|
jsr DisableAcceleratorAndSwitchToBank1
|
|
|
|
|
2019-10-09 02:25:22 +00:00
|
|
|
lda #$3F
|
|
|
|
ldy OffscreenPage
|
2019-09-28 12:35:48 +00:00
|
|
|
bne +
|
2019-10-09 02:25:22 +00:00
|
|
|
eor #$60
|
2020-03-25 04:47:08 +00:00
|
|
|
+ sta DEST+1
|
2019-10-09 02:25:22 +00:00
|
|
|
and #$60
|
2020-03-13 00:03:37 +00:00
|
|
|
sta PageFrom+2
|
2019-10-09 02:25:22 +00:00
|
|
|
eor #$60
|
2020-03-13 00:03:37 +00:00
|
|
|
tax
|
2019-09-28 12:35:48 +00:00
|
|
|
lda #$FD
|
2020-03-25 04:47:08 +00:00
|
|
|
sta DEST
|
2019-09-28 12:35:48 +00:00
|
|
|
ldy #0
|
2020-03-25 04:47:08 +00:00
|
|
|
lda (DEST),y ; see if there is a hidden JMP to an
|
2019-09-28 12:35:48 +00:00
|
|
|
cmp #$4C ; animation routine for this screen
|
2019-10-14 02:22:47 +00:00
|
|
|
; at +$1FFD (after the graphics data,
|
|
|
|
; in the last 3 bytes of a $2000 byte
|
|
|
|
; file -- this area part of a 'screen
|
|
|
|
; hole' and is not displayed on screen)
|
|
|
|
bne @exit ; if not, we're done here
|
2020-03-13 00:03:37 +00:00
|
|
|
txa
|
|
|
|
jsr CopyHGR
|
2019-09-28 12:35:48 +00:00
|
|
|
|
2019-10-14 02:22:47 +00:00
|
|
|
; load the animation routine, which is stored in a subdirectory by filename
|
|
|
|
jsr GetGameToLaunch
|
2020-03-24 20:30:14 +00:00
|
|
|
+ST16 +
|
2019-09-28 12:35:48 +00:00
|
|
|
jsr LoadFile
|
|
|
|
!word kAnimatedTitleDirectory
|
2019-10-08 18:43:41 +00:00
|
|
|
+ !word $FDFD
|
2019-09-28 12:35:48 +00:00
|
|
|
!word 0
|
|
|
|
|
|
|
|
ldx #5 ; copy prelaunch code
|
|
|
|
- lda @titleAnimPrelaunch,x
|
|
|
|
sta $106,x
|
|
|
|
dex
|
|
|
|
bpl -
|
|
|
|
|
2020-03-23 20:21:25 +00:00
|
|
|
bit $c050 ; turn on graphics mode (Home set text mode)
|
2019-10-14 02:22:47 +00:00
|
|
|
jsr Launch ; execute the animation
|
|
|
|
|
2020-03-23 16:38:27 +00:00
|
|
|
jsr BuildSearchStore
|
2019-10-14 02:22:47 +00:00
|
|
|
jsr ResyncPage ; we don't know which HGR page is showing
|
|
|
|
; when the animation returns, so resync
|
|
|
|
; the current one with our OffscreenPage
|
|
|
|
; variable
|
|
|
|
|
2019-10-08 04:03:37 +00:00
|
|
|
@exit clc ; tell caller not to refresh screen
|
2019-09-28 12:35:48 +00:00
|
|
|
rts
|
|
|
|
|
2019-10-14 02:22:47 +00:00
|
|
|
@titleAnimPrelaunch ; this is executed from $106/main by |Launch|
|
2019-09-28 12:35:48 +00:00
|
|
|
bit $C082
|
2020-03-25 04:47:08 +00:00
|
|
|
jmp (DEST)
|