From 087ca8ea9057a92f0de6318febd7673805e888f3 Mon Sep 17 00:00:00 2001
From: 4am <a2_4am@sent.com>
Date: Thu, 21 Jan 2021 01:36:23 -0500
Subject: [PATCH] fall back to DHGR if SHR artwork is unavailable

---
 src/ui.artwork.a | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/ui.artwork.a b/src/ui.artwork.a
index a7f599d..a4a7e37 100644
--- a/src/ui.artwork.a
+++ b/src/ui.artwork.a
@@ -25,7 +25,7 @@ kArtworkGSRootDirectory              ; length-prefixed pathname of SHGR graphic
 DisplayArtwork
 WeCanHazSHR
          ldx   #0                    ; SMC
-         jsr   ResetPath
+-        jsr   ResetPath
          +LDADDR kArtworkRootDirectory
          dex
          bne   +
@@ -49,7 +49,7 @@ WeCanHazSHR
          !word kProDOSFileBuffer
          plx
          bcc   +
--        jmp   SoftBell
+         jmp   SoftBell
 +        sta   $C000                 ; display double hi-res page 1
          sta   $C00D
          sta   $C05E
@@ -65,8 +65,10 @@ WeCanHazSHR
          !word gPathname
          !word kProDOSFileBuffer
          plx
-         bcs   -
-         lda   $C029
+         bcc   +
+         ldx   #0
+         bra   -
++        lda   $C029
          ora   #$81
          sta   $C029                 ; set GS NEWVIDEO mode to turn on SHR mode