From efdcf2bada7b2c36a6282cd1fbb1d5ed46490ee4 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Fri, 17 Nov 2017 16:29:33 -0500
Subject: [PATCH] tfv: fix opener bug only seen on real hardware

was depending on random setting of value in zero page
---
 tfv/tfv.s        |  5 +++++
 tfv/tfv_opener.s | 11 ++++++++---
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/tfv/tfv.s b/tfv/tfv.s
index 5c18ea9f..92fce7f0 100644
--- a/tfv/tfv.s
+++ b/tfv/tfv.s
@@ -7,6 +7,11 @@
 	jsr	HOME
 	jsr	set_gr_page0
 
+	lda	#0
+	sta	DISP_PAGE	; Forgot to set initially
+				; real hardware and AppleWin default
+				; to different values
+
 	;===================================
 	; zero out the zero page that we use
 	;===================================
diff --git a/tfv/tfv_opener.s b/tfv/tfv_opener.s
index 8debb462..9cac8fc7 100644
--- a/tfv/tfv_opener.s
+++ b/tfv/tfv_opener.s
@@ -25,6 +25,10 @@ shine_loop:
 	cmp	#30
 	bne	shine_loop
 
+	jsr	page_flip
+
+	; Done, print string
+
 	lda	#8
 	sta	CH		; HTAB 9
 
@@ -39,13 +43,14 @@ shine_loop:
 
 	jsr	print_string		; print("A VMW SOFTWARE PRODUCTION");
 
-
 	jsr	wait_until_keypressed
 
+	rts
 
-	;=================
+
+	;=====================
 	; display part of logo
-	;=================
+	;=====================
 	;
 draw_segment:
 	lda	#0