fall back to DHGR if SHR artwork is unavailable

This commit is contained in:
4am 2021-01-21 01:36:23 -05:00
parent 095d2e6d93
commit 087ca8ea90
1 changed files with 6 additions and 4 deletions

View File

@ -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