mirror of https://github.com/a2-4am/4cade.git
also add browse mode hotkey for SHR-only slideshow
This commit is contained in:
parent
21547db0f7
commit
3b54a5925a
|
@ -4,10 +4,22 @@
|
||||||
; Super hi-res slideshows
|
; Super hi-res slideshows
|
||||||
;
|
;
|
||||||
; Public functions
|
; Public functions
|
||||||
|
; - AllSHRSlideshow
|
||||||
; - SHRSlideshow
|
; - SHRSlideshow
|
||||||
; - SHRSingle
|
; - SHRSingle
|
||||||
;
|
;
|
||||||
|
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
|
; AllSHRSlideshow
|
||||||
|
; execute mega-attract mode of all super hi-res artwork (and nothing else)
|
||||||
|
;
|
||||||
|
; safe to call if machine can not display super hi-res graphics (clears carry
|
||||||
|
; and exits)
|
||||||
|
;
|
||||||
|
; in: none
|
||||||
|
; out: C=0 if machine can not display SHR
|
||||||
|
; otherwise all registers and flags clobbered
|
||||||
|
;------------------------------------------------------------------------------
|
||||||
AllSHRSlideshow
|
AllSHRSlideshow
|
||||||
clc
|
clc
|
||||||
lda MachineStatus ; only show SHR on IIgs or if we have a VidHD card
|
lda MachineStatus ; only show SHR on IIgs or if we have a VidHD card
|
||||||
|
|
|
@ -36,6 +36,7 @@ kBrowseCheat = 8
|
||||||
kSoftBell = 9 ; must match kInputError
|
kSoftBell = 9 ; must match kInputError
|
||||||
kBrowseJoystick = 10
|
kBrowseJoystick = 10
|
||||||
kBrowseQuit = 11
|
kBrowseQuit = 11
|
||||||
|
kBrowseSHR = 12
|
||||||
|
|
||||||
ldy #kNumBrowseKeys
|
ldy #kNumBrowseKeys
|
||||||
- dey
|
- dey
|
||||||
|
@ -141,6 +142,7 @@ BrowseDispatchTableLo
|
||||||
!byte <SoftBell
|
!byte <SoftBell
|
||||||
!byte <Joystick
|
!byte <Joystick
|
||||||
!byte <OnQuit
|
!byte <OnQuit
|
||||||
|
!byte <AllSHRSlideshow
|
||||||
BrowseDispatchTableHi
|
BrowseDispatchTableHi
|
||||||
!byte >OnBrowseSearch
|
!byte >OnBrowseSearch
|
||||||
!byte >OnBrowsePrevious
|
!byte >OnBrowsePrevious
|
||||||
|
@ -154,8 +156,9 @@ BrowseDispatchTableHi
|
||||||
!byte >SoftBell
|
!byte >SoftBell
|
||||||
!byte >Joystick
|
!byte >Joystick
|
||||||
!byte >OnQuit
|
!byte >OnQuit
|
||||||
|
!byte >AllSHRSlideshow
|
||||||
|
|
||||||
kNumBrowseKeys = 14
|
kNumBrowseKeys = 15
|
||||||
; number of entries in next 2 tables (each)
|
; number of entries in next 2 tables (each)
|
||||||
BrowseKeys
|
BrowseKeys
|
||||||
!byte $83 ; Ctrl-C = toggle cheat mode
|
!byte $83 ; Ctrl-C = toggle cheat mode
|
||||||
|
@ -172,6 +175,7 @@ BrowseKeys
|
||||||
!byte $88 ; left arrow = previous
|
!byte $88 ; left arrow = previous
|
||||||
!byte $90 ; Ctrl-P = launch joystick calibration program
|
!byte $90 ; Ctrl-P = launch joystick calibration program
|
||||||
!byte $91 ; Ctrl-Q = quit
|
!byte $91 ; Ctrl-Q = quit
|
||||||
|
!byte $80 ; Ctrl-@ = SHR-only slideshow
|
||||||
BrowseKeyDispatch
|
BrowseKeyDispatch
|
||||||
!byte kBrowseCheat
|
!byte kBrowseCheat
|
||||||
!byte kBrowseCredits
|
!byte kBrowseCredits
|
||||||
|
@ -187,6 +191,7 @@ BrowseKeyDispatch
|
||||||
!byte kBrowsePrevious
|
!byte kBrowsePrevious
|
||||||
!byte kBrowseJoystick
|
!byte kBrowseJoystick
|
||||||
!byte kBrowseQuit
|
!byte kBrowseQuit
|
||||||
|
!byte kBrowseSHR
|
||||||
|
|
||||||
GameCount
|
GameCount
|
||||||
!word 0
|
!word 0
|
||||||
|
|
Loading…
Reference in New Issue