4cade/src/ui.attract.dhgr.a

208 lines
8.2 KiB
Plaintext
Raw Normal View History

2019-01-15 00:06:58 +00:00
;license:MIT
;(c) 2018-9 by 4am
2019-01-15 00:06:58 +00:00
;
; Double hi-res slideshows
;
; Public functions
; - DHGRTitleSlideshow
2019-06-26 02:44:39 +00:00
; - DHGRActionSlideshow
; - DHGRSingle
2019-10-08 17:39:06 +00:00
; - BlankHGR
; - HGRMode
2019-01-15 00:06:58 +00:00
;
2019-10-14 02:22:47 +00:00
;------------------------------------------------------------------------------
; DHGRTitleSlideshow
; execute a slideshow of double hi-res title screenshots
;
; safe to call if machine only has 64K (does nothing and exits)
;
; in: none
; out: everything clobbered
; graphics mode reset to display hi-res screen, which is blank
;------------------------------------------------------------------------------
2019-01-15 00:06:58 +00:00
DHGRTitleSlideshow
bit MachineStatus ; only run DHGR slideshow if we have 128K
2019-10-08 23:14:12 +00:00
bvc DHGRRTS
jsr LoadDHGRTransition ; load transition effect code at $6000
2019-01-15 00:06:58 +00:00
jsr BlankDHGR ; switch to DHGR mode with initial blank screen
jsr okvs_iter ; cycle through all listed DHGR files
!word gSlideshowStore
2019-10-08 03:47:36 +00:00
!word DHGRTitleCallback ; address of callback (called on each file)
2019-10-08 17:39:06 +00:00
beq BlankHGR ; switch back to HGR mode with initial blank screen on exit
2019-10-08 17:40:53 +00:00
; (always branches because Z=1 on exit of okvs_iter)
2019-01-15 00:06:58 +00:00
2019-10-14 02:22:47 +00:00
;------------------------------------------------------------------------------
; DHGRActionSlideshow
; execute a slideshow of double hi-res action screenshots
;
; safe to call if machine only has 64K (does nothing and exits)
;
; in: none
; out: everything clobbered
; graphics mode reset to display hi-res screen, which is blank
;------------------------------------------------------------------------------
2019-02-09 01:48:07 +00:00
DHGRActionSlideshow
bit MachineStatus ; only run DHGR slideshow if we have 128K
2019-10-08 18:53:27 +00:00
bvc DHGRRTS
2019-10-08 03:47:36 +00:00
jsr LoadDHGRTransition ; load transition effect code at $6000
2019-02-09 01:48:07 +00:00
jsr BlankDHGR ; switch to DHGR mode with initial blank screen
jsr okvs_iter ; cycle through all listed DHGR files
!word gSlideshowStore
2019-10-08 03:47:36 +00:00
!word DHGRActionCallback ; address of callback (called on each file)
2019-10-08 17:39:06 +00:00
beq BlankHGR ; switch back to HGR mode with initial blank screen on exit
2019-10-08 17:40:53 +00:00
; (always branches because Z=1 on exit of okvs_iter)
2019-02-09 01:48:07 +00:00
2019-10-14 02:22:47 +00:00
;------------------------------------------------------------------------------
; DHGRSingle
; display a single double hi-res screenshot, with transition effect
;
; safe to call if machine only has 64K (does nothing and exits)
;
; in: none
; out: everything clobbered
; graphics mode reset to display hi-res screen, which is blank
;------------------------------------------------------------------------------
2019-06-26 02:44:39 +00:00
DHGRSingle
bit MachineStatus ; only show DHGR screenshots if we have 128K
2019-10-08 18:53:27 +00:00
bvc DHGRRTS
2019-10-08 03:47:36 +00:00
+STAY +
2019-06-27 02:51:34 +00:00
jsr BlankDHGR ; switch to DHGR mode with initial blank screen
jsr LoadDHRFile ; load DHGR file at $4000/main and $4000/aux
2019-09-10 02:38:17 +00:00
!word kRootDirectory
2019-10-08 03:47:36 +00:00
+ !word $FDFD ; SMC
jsr LoadDHGRTransition ; load transition effect code at $6000
2019-10-10 02:21:46 +00:00
jsr ExecuteTransitionAt6000AndWait
2019-10-08 17:39:06 +00:00
; switch back to HGR mode with initial blank screen on exit
; /!\ execution falls through here to BlankHGR
;------------------------------------------------------------------------------
; BlankHGR
; clear and show HGR page 1 without flickering
;
; in: none
; out: text page clobbered (but screen holes preserved)
2019-10-08 23:31:56 +00:00
; A/X/Y=0 (guaranteed by ClearHGR1)
2019-10-08 17:39:06 +00:00
; $2000..$3FFF cleared
;------------------------------------------------------------------------------
BlankHGR
jsr Home
jsr ClearHGR1 ; clear hi-res screen 1
bit PAGE1 ; show hi-res screen 1 (now blank)
; /!\ execution falls through here to HGRMode
;------------------------------------------------------------------------------
; HGRMode
; twiddles softswitches to set HGR mode (does not set page 1 or 2)
;
; in: none
; out: all registers preserved
;------------------------------------------------------------------------------
HGRMode
bit $C057
2019-11-27 21:51:43 +00:00
GRMode
2019-10-08 17:39:06 +00:00
bit $C052
bit $C050
2019-10-08 23:14:12 +00:00
DHGRRTS rts
2019-06-26 02:44:39 +00:00
2019-01-15 00:06:58 +00:00
;------------------------------------------------------------------------------
2019-10-08 03:47:36 +00:00
; LoadDHGRTransition [private]
2019-01-15 00:06:58 +00:00
; looks up name of next DHGR transition effect in DFX.CONF and loads that file
; at $6000
; in: gDFXStore has been initialized
; gGlobalPrefsStore has been initialized
; out: all registers and flags clobbered
; $6000..$BFFF/main contains transition effect code
;------------------------------------------------------------------------------
2019-10-08 03:47:36 +00:00
LoadDHGRTransition
2019-09-10 02:58:16 +00:00
jsr LoadFile ; load DHGR transition effects list into $8000
2019-09-10 02:38:17 +00:00
!word kRootDirectory
!word kDFXConfFile
2019-09-10 02:58:16 +00:00
- !word $8000
2019-01-15 00:06:58 +00:00
jsr ParseKeyValueList ; parse DHGR transition effects list into $6000
!word gDFXStore
2019-09-10 02:58:16 +00:00
!word -
2019-01-15 00:06:58 +00:00
!byte 0
2019-09-16 16:36:10 +00:00
jsr pref_get ; get DHGR transition effect from prefs
2019-01-15 00:06:58 +00:00
!word kNextDFX
!word gDFXStore
2019-10-08 03:47:36 +00:00
+STAY ++ ; A/Y = filename (don't load file yet)
2019-09-16 16:36:10 +00:00
; X = index of the transition in DFX store
+LDADDR gDFXStore
jsr okvs_next ; get transition after this one
+STAY +
2019-01-15 00:06:58 +00:00
2019-09-16 16:36:10 +00:00
jsr pref_set ; update prefs store and save to disk
2019-01-15 00:06:58 +00:00
!word kNextDFX
2019-09-16 16:36:10 +00:00
+ !word $FDFD ; SMC
2019-01-15 00:06:58 +00:00
2019-09-16 16:36:10 +00:00
jsr LoadFile ; now load transition effect code into $6000
2019-09-10 02:38:17 +00:00
!word kFXDirectory
2019-10-08 03:47:36 +00:00
++ !word $FDFD ; SMC
2019-09-10 02:38:17 +00:00
!word $6000
2019-10-08 23:14:12 +00:00
rts
2019-01-15 00:06:58 +00:00
;------------------------------------------------------------------------------
2019-10-08 03:47:36 +00:00
; DHGRTitleCallback [private]
2019-01-15 00:06:58 +00:00
; callback called by okvs_iter on gSlideshowStore
; to load and display a single DHGR title screenshot
; in: A/Y contains address of filename (name only, path is always /TITLE.DHGR/)
2019-01-15 00:06:58 +00:00
; X contains 0-based index of the current record in gSlideshowStore
; out: all registers and flags clobbered
; $0800..$1EFF preserved (this contains the gSlideshowStore OKVS data)
; $2000..$BFFF clobbered by graphics data and transition code
; $2000..$5FFF/aux clobbered
;------------------------------------------------------------------------------
2019-10-08 03:47:36 +00:00
DHGRTitleCallback
2019-09-10 02:38:17 +00:00
bit KBD
2019-10-08 23:14:12 +00:00
bmi DHGRRTS
2019-10-08 03:47:36 +00:00
+STAY +
2019-01-15 00:06:58 +00:00
2019-10-08 17:22:29 +00:00
jsr GetGameInfo
2019-09-21 03:26:32 +00:00
; if game is not found (C will be set here), it means it can't be played on
; this machine due to memory or joystick requirements, so we don't display
; it in slideshows
2019-10-08 23:15:30 +00:00
bcs DHGRRTS
2019-09-21 03:26:32 +00:00
stx gGameToLaunch
2019-01-15 00:06:58 +00:00
; load DHGR screenshot at $4000/main and $4000/aux
jsr LoadDHRFile
2019-09-10 02:38:17 +00:00
!word kDHGRTitleDirectory
2019-10-08 03:47:36 +00:00
+ !word $FDFD
2019-09-10 02:38:17 +00:00
2019-10-10 02:21:46 +00:00
jmp ExecuteTransitionAt6000AndWait
2019-01-15 00:06:58 +00:00
2019-02-09 01:48:07 +00:00
;------------------------------------------------------------------------------
2019-10-08 03:47:36 +00:00
; DHGRActionCallback [private]
2019-02-09 01:48:07 +00:00
; callback called by okvs_iter on gSlideshowStore
; to load and display a single DHGR action screenshot
; in: A/Y contains address of filename (name only, path is always /ACTION.DHGR/)
2019-02-09 01:48:07 +00:00
; X contains 0-based index of the current record in gSlideshowStore
; out: all registers and flags clobbered
; $0800..$1EFF preserved (this contains the gSlideshowStore OKVS data)
; $2000..$BFFF clobbered by graphics data and transition code
; $2000..$5FFF/aux clobbered
;------------------------------------------------------------------------------
2019-10-08 03:47:36 +00:00
DHGRActionCallback
2019-09-10 02:38:17 +00:00
bit KBD
2019-10-08 23:14:12 +00:00
bmi DHGRRTS
2019-10-08 03:47:36 +00:00
+STAY +
2019-02-09 01:48:07 +00:00
2019-10-08 17:22:29 +00:00
jsr GetGameInfoInActionSlideshow
2019-09-21 03:26:32 +00:00
; if game name is not found (C will be set here), it means the game
; can't be played due to memory or joystick requirements, so we hide
; it from slideshows
2019-10-08 23:15:30 +00:00
bcs DHGRRTS
2019-09-21 03:26:32 +00:00
stx gGameToLaunch
2019-02-09 01:48:07 +00:00
; load DHGR screenshot at $4000/main and $4000/aux
jsr LoadDHRFile
2019-09-10 02:38:17 +00:00
!word kDHGRActionDirectory
2019-10-08 03:47:36 +00:00
+ !word $FDFD
2019-09-10 02:38:17 +00:00
2019-10-10 02:21:46 +00:00
; /!\ execution falls through to ui.wait/ExecuteTransitionAt6000AndWait