switch to HGR mode in places where we might be in DHGR mode

src/ui.attract.dhgr.a

@@ -89,6 +89,8 @@ BlankHGR
          jsr   Home
          jsr   ClearHGR1             ; clear hi-res screen 1
          bit   PAGE1                 ; show hi-res screen 1 (now blank)
+         lda   #1
+         sta   OffscreenPage
          ; /!\ execution falls through here to HGRMode
 ;------------------------------------------------------------------------------
 ; HGRMode
@@ -104,6 +106,12 @@ GRMode
          bit   $C050
 DHGRRTS  rts
 
+ForceHGRMode
+gMachineInDHGRMode=*+1
+         lda   #$00
+         bne   BlankHGR
+         beq   DHGRRTS
+
 ;------------------------------------------------------------------------------
 ; LoadDHGRTransition [private]
 ; looks up name of next DHGR transition effect in DFX.CONF and loads that file

src/ui.browse.mode.a

@@ -116,6 +116,12 @@ OnBrowseChanged
          jsr   LoadGameTitleOffscreen
          jsr   DrawUIWithoutDots
          jmp   MaybeAnimateTitle
+BrowseCreditsWrapper
+         jsr   Credits
+         jmp   ForceBrowseChanged
+BrowseHelpWrapper
+         jsr   Help
+         jmp   ForceBrowseChanged
 
 ;------------------------------------------------------------------------------
 
@@ -126,8 +132,8 @@ BrowseDispatchTableLo
          !byte <SearchMode
          !byte <OnBrowseTab
          !byte <OnBrowseLaunch
-         !byte <Help
-         !byte <Credits
+         !byte <BrowseHelpWrapper
+         !byte <BrowseCreditsWrapper
          !byte <OnBrowseCheat
          !byte <SoftBell
 BrowseDispatchTableHi
@@ -137,8 +143,8 @@ BrowseDispatchTableHi
          !byte >SearchMode
          !byte >OnBrowseTab
          !byte >OnBrowseLaunch
-         !byte >Help
-         !byte >Credits
+         !byte >BrowseHelpWrapper
+         !byte >BrowseCreditsWrapper
          !byte >OnBrowseCheat
          !byte >SoftBell
 

src/ui.common.a

@@ -57,11 +57,12 @@ Home
          sta   CLOCKCTL              ; black border
          sta   CLOCKCTL              ; set twice for VidHD
 @noSHR
-         ldx   #(.end-@start-1)
--        lda   @start,x
-         sta   $106,x
+         ldx   #(.end-@start)
+-        lda   @start-1,x
+         sta   $105,x
          dex
-         bpl   -
+         bne   -
+         stx   gMachineInDHGRMode
          jmp   $106
 @start
          ; this will be run from main memory
@@ -109,6 +110,7 @@ BlankDHGR
          bit   PAGE1
          lda   #1
          sta   OffscreenPage
+         sta   gMachineInDHGRMode
          jmp   HGRMode
 
 ;------------------------------------------------------------------------------

src/ui.credits.a

@@ -21,6 +21,7 @@ Credits
          !word kRootDirectory
          !word kCreditsFile
          !word $8000
+         jsr   ForceHGRMode
          jsr   ClearOffscreen
          lda   OffscreenPage
          ror                         ; draw on offscreen page
@@ -30,8 +31,7 @@ Credits
          jsr   ShowOtherPage         ; show credits
          jsr   WaitForKeyFor30Seconds; wait
 --       bit   CLEARKBD              ; don't care about key
-         jsr   ShowOtherPage         ; back to previous page
--        clc                         ; if called from search mode, tell caller not to refresh
+-        sec                         ; if called from search mode, tell caller to refresh
          rts
 
 ;------------------------------------------------------------------------------

src/ui.offscreen.a

@@ -70,6 +70,7 @@ LoadCoverOffscreen
          lda   #<kCoverFile
 LoadOffscreenFromAY
          sta   @fname
+         jsr   ForceHGRMode
          jsr   GetOffscreenAddress
          sta   +
          jsr   LoadFile
@@ -96,6 +97,7 @@ LoadGameTitleOffscreen
          and   #HAS_DHGR_TITLE
          bne   @dhgr
 @hgr
+         jsr   ForceHGRMode
          jsr   GetOffscreenAddress
          sta   @addrhi
          jsr   LoadFile

src/ui.wait.a

@@ -81,6 +81,7 @@ WaitForKeyFor30Seconds
 ; out:   exits via MegaAttractMode and everything is clobbered
 ;------------------------------------------------------------------------------
 CoverFade
+         jsr   ForceHGRMode
          jsr   LoadCoverOffscreen
          jsr   ShowOtherPage
          lda   OffscreenPage