From 3b54a5925a616846c3e0bca31c2a729e8909058b Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Mon, 6 Jun 2022 01:10:40 -0400
Subject: [PATCH] also add browse mode hotkey for SHR-only slideshow

---
 src/ui.attract.shr.a | 12 ++++++++++++
 src/ui.browse.mode.a |  7 ++++++-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/src/ui.attract.shr.a b/src/ui.attract.shr.a
index 3d878faf0..94b3911bf 100644
--- a/src/ui.attract.shr.a
+++ b/src/ui.attract.shr.a
@@ -4,10 +4,22 @@
 ; Super hi-res slideshows
 ;
 ; Public functions
+; - AllSHRSlideshow
 ; - SHRSlideshow
 ; - 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
          clc
          lda   MachineStatus         ; only show SHR on IIgs or if we have a VidHD card
diff --git a/src/ui.browse.mode.a b/src/ui.browse.mode.a
index f52f5baa2..869b81320 100644
--- a/src/ui.browse.mode.a
+++ b/src/ui.browse.mode.a
@@ -36,6 +36,7 @@ kBrowseCheat    = 8
 kSoftBell       = 9 ; must match kInputError
 kBrowseJoystick = 10
 kBrowseQuit     = 11
+kBrowseSHR      = 12
 
          ldy   #kNumBrowseKeys
 -        dey
@@ -141,6 +142,7 @@ BrowseDispatchTableLo
          !byte <SoftBell
          !byte <Joystick
          !byte <OnQuit
+         !byte <AllSHRSlideshow
 BrowseDispatchTableHi
          !byte >OnBrowseSearch
          !byte >OnBrowsePrevious
@@ -154,8 +156,9 @@ BrowseDispatchTableHi
          !byte >SoftBell
          !byte >Joystick
          !byte >OnQuit
+         !byte >AllSHRSlideshow
 
-kNumBrowseKeys = 14
+kNumBrowseKeys = 15
                                      ; number of entries in next 2 tables (each)
 BrowseKeys
          !byte $83                   ; Ctrl-C = toggle cheat mode
@@ -172,6 +175,7 @@ BrowseKeys
          !byte $88                   ; left arrow = previous
          !byte $90                   ; Ctrl-P = launch joystick calibration program
          !byte $91                   ; Ctrl-Q = quit
+         !byte $80                   ; Ctrl-@ = SHR-only slideshow
 BrowseKeyDispatch
          !byte kBrowseCheat
          !byte kBrowseCredits
@@ -187,6 +191,7 @@ BrowseKeyDispatch
          !byte kBrowsePrevious
          !byte kBrowseJoystick
          !byte kBrowseQuit
+         !byte kBrowseSHR
 
 GameCount
          !word 0