From 167192ea8ff0d065bfb520105c3abeebcf0cc88c Mon Sep 17 00:00:00 2001
From: Kevin Cathcart <kevincathcart@gmail.com>
Date: Tue, 2 Oct 2018 22:23:21 -0400
Subject: [PATCH] Fix graphical glitch on file select screen

---
 fileselect.asm | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/fileselect.asm b/fileselect.asm
index 8c97291..0bf9320 100644
--- a/fileselect.asm
+++ b/fileselect.asm
@@ -112,6 +112,23 @@ JMP DrawItem
 
 
 DrawPlayerFile:
+	LDA $1A : AND.w #$0001 : BEQ + : BRA .normal : +
+		JSR DrawPlayerFileShared
+		INC $0710 ; Suppress animated tile updates for this frame
+
+		; re-enable  Stripe Image format upload on this frame
+		; Value loaded must match what gets set by AltBufferTable
+		LDA.w #$2161 : STA $1002
+		BRA .done
+	.normal
+	STZ $0710 ; ensure core animated tile updates are not suppressed
+	LDA #$FFFF : STA.w $1002 ; Suppress Stripe Image format upload on this frame
+.done
+	LDA.w #$0004 : STA $02 ; thing we wrote over
+RTL
+
+
+DrawPlayerFileShared:
 	PHX : PHY : PHB
 
 	SEP #$20 ; set 8-bit accumulator
@@ -407,8 +424,7 @@ DrawPlayerFile:
 	++ : %fs_draw16x8(13,24)
 
 	PLB : PLY : PLX
-	LDA.w #$0004 : STA $02 ; thing we wrote over
-RTL
+RTS
 ;--------------------------------------------------------------------------------
 
 FileSelectItems:
@@ -776,6 +792,6 @@ DrawPlayerFile_credits:
 	+
 	DEC $02 : BNE .nextHeart
 
-	JSL DrawPlayerFile
+	JSR DrawPlayerFileShared
 RTL
 ;--------------------------------------------------------------------------------