From 3edac4cf86313423c23bd8060f02b5b7eecbb900 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Tue, 5 Dec 2017 16:54:53 -0500
Subject: [PATCH] dlowres: update to work (slightly) better

---
 dlowres_mode7/Makefile          |   2 +-
 dlowres_mode7/dlowres_flying.s  |   1 +
 dlowres_mode7/dlowres_mode7.dsk | Bin 143360 -> 143360 bytes
 dlowres_mode7/dlowres_mode7.s   |  14 --------------
 dlowres_mode7/dlowres_utils.s   |   4 +++-
 5 files changed, 5 insertions(+), 16 deletions(-)

diff --git a/dlowres_mode7/Makefile b/dlowres_mode7/Makefile
index a0202ffd..91a7f963 100644
--- a/dlowres_mode7/Makefile
+++ b/dlowres_mode7/Makefile
@@ -23,5 +23,5 @@ dlowres_mode7.o:	dlowres_mode7.s \
 	ca65 -o dlowres_mode7.o dlowres_mode7.s -l dlowres_mode7.lst
 
 clean:	
-	rm -f *~ *.o *.lst
+	rm -f *~ *.o DLOWRES_MODE7 *.lst
 
diff --git a/dlowres_mode7/dlowres_flying.s b/dlowres_mode7/dlowres_flying.s
index 9435f8eb..58861547 100644
--- a/dlowres_mode7/dlowres_flying.s
+++ b/dlowres_mode7/dlowres_flying.s
@@ -35,6 +35,7 @@ flying_start:
 	sta	EIGHTYCOL	; 80col    C00d
 	lda	AN3		; AN3      C05E
 
+	jsr	page_flip
 
 	jsr	init_multiply_tables
 
diff --git a/dlowres_mode7/dlowres_mode7.dsk b/dlowres_mode7/dlowres_mode7.dsk
index 78a9a39670bbb9d8fce189bb5e2fc973e5d1f431..e65a5ffb3c0c9842a62a197ce0e0609efb00fb2f 100644
GIT binary patch
delta 1685
zcmZ`(eN0nV6u<Xbd5@OT55RW;Z6C$4))g#YipWM7vO!XXAWXN#1$8X6Zmi5iT{M&r
zFFNp9<ZbKzaYNlBJTn)!COTM5*g}ymU>n73S+dP7jNvj3qW?In-F>y7`?|?HJ-^>M
z_jk^{=caAfn6_(7ze~_66A%q)ie5r1=%sWVP16h=Pb+B^oghHv4^`T*irX6ICbbg4
zH@M|mj!BXf*g}w*@D1emCik75yQL>=%xe&D%q3XsM&y{htHD}Ne4(=aifWb4x_v~u
zRO+`M5wbd-(jL*RoYxl4%!~7uC38#c-NN>cm2pROQW=T&bi4$w3o{+7;9Wu2`2?eW
zSVAp4(^<#v*B6P|zur4N+YdzBv8<V_Z$ft)xc!3ES&BURCgh+3=FohD)Q@eF8E5x{
zO3u@FkW=K60|*%hbBvx8@xUB4c7RLQiMIk<LP_FuK-a4tn;x5<*~fW==7Y;9Pl}K>
zvAJTK_&RoqZ($eL$_6Gv>p5SFl#cI9PvWqo$G4HV&tbGYz<0PlU6d~+yawMEr=t{?
zs~wXC4VaCy>I0P_g*SK-qSUlh+%!H!tV7&s(I^LHw^=6MKLt6pFXgeK-t1GbP`HFs
zQezeVU0Dd@4A>_ax>#b@bY*UiWv>079*^VjOvB&1wAUty`><OnucGS=uURI(ja#J%
zZkO6{TM@TW_@pb1^60&}ufY_9M=#Cc9*My_EDr|7o~j7$;n%TM5gR3i_!8k>m-*?9
zsA~`2EAB)NCVId>5pEwJBDM{2B-SLK961#K6>G-At=i@8M>|9(c8j}kD`^9v#y9Y;
z?nZei4{z?VG#5#0SxDQBTe=&`+@wFSn>@r;u?e^Hn^@7oSF+I)5vg6Wl#@s`li16w
z_$F@S>sh%$)L7CY3%IcBq*-+GPS#S2or9u_e^vHe<eE^UbA&mY@Ue^7xWS=8wl~gV
z92}Zu`DRu)8_W{69o8olu`@fw9RV|W-?PI0!x_p)X<q99+?|Nf>~U~3^!rUCx~W6n
zGXpToohP>P81X%bKaF@Fs*3Q35q}i%XApl5iEjQq#D9qR3v%EC#GgR?2pVWBx&V&e
z2YnYn?|twte-XtnKZRmc5Dm01kbwnqaxw3Fge2eqxKk2pJ~R97yrY6XMNb%>+z8#n
zK+h}%!@rpeEbC1*wVC-QkijUy*3d8Jf^~WMc@|(}k{4l-1(Y&|MObJ7cE${b3fAQo
z=38yxMJ6u_))W%Z#FQ)~7Ob&=y-e8x%qOsyc@DIfhfKDwatn)xa&379<K@=!;*N6g
z5mU36xYh!`5PDnFp_%+?Rr?a$mB+F<06-){zA$kXR%wir`Pe6iO1&qvFw=Wh3zKD&
z;B#k|z;k-2QYj)DYRvny0WMdhQXt}8y#g9n$H##PP>fClzrF0g^3!B+)PKJJAB#}~
zT0@NnuYNt@m$xJD10zfn5|yubp#f$?qGW(Z<uam4l&<=xg!a_bco|ZP$-pE*X;Gx1
z0+XN10%;0XuKy+3rHGfkABiW+8lVl*-r5z=6i<2`4~&lbFUcF&#3YiYR!jw^Cj6gX
zyi6ohRBF<>hMEXo@n4R1#Uw{7`bSALJ*I0Uy2<BByHsMyAwV+}@B+0we2_yXK5W`h
zUH`1Tg0oj|$*!%~%$03;p<+{AJ#kH-fV_cWP|UEzI=nSGFo$blQo(TXFu-KyvFB4>
YR##@Pe%>VCJa?!&2cGZFq4vPP0ElaR1poj5

delta 589
zcmYk4&rcIk5Xa{|SNdovi`XpG!tSPeU=7)B+but8lUf@ZNT3i}f89KJ_QVYeCdPz=
ziD}G>x9Y`s@n91P>#4Y_G`2!&i8oUD3;Y8NWtK?eOD1`rneTk(CG$2rY_r2EPu|`h
zEWL*z=7k4`CllsuEFRN9VSygbXrME>hY1aCu?g5UXQPSuqyh6Rb`Dbsg!?RYAvC8n
zc+4^v7)LCz9BgF|jaoF3+>IJBb3Z$oO+L+DffsD0C!E&cUHQ#Mh%A<g_fd7AH2*S}
z?gDfG;15Rc%m65u@BSBVE&Ue*bE$v%G&Z@M?(&Txa<f{xo+6)yiO(klMf#QhmdTh<
zq0rAG<3tfEeZY7`A>n?HNbQ58y@umTM)|98@|s9IA```natQ?c$Z40ig4Y-l6`J)X
zLI`0*r1j=Uw<~nX_5F-3?u1c(j5ku@r!p~o!$9|HU%vmUwQN@^`6yf!>3-d|oge2D
z{S^Fup<Qn`oDbhx=q-8sARyAl!B3~<DuNz#r-EZ+Z44&`__5;p@0==x4z9GpgOB0h
zXP3bO85eAYb9eJ<aban$5QZDLVhgt?VY--Eyt7<XbD4ZGQ+TLOtM}$s3k%D6)iBI3
g<k<)+*Lg}O`oJ?51S@Gl6~DyuZJq3F>vWBr0fU;T0RR91

diff --git a/dlowres_mode7/dlowres_mode7.s b/dlowres_mode7/dlowres_mode7.s
index 2f5e55ed..69305bad 100644
--- a/dlowres_mode7/dlowres_mode7.s
+++ b/dlowres_mode7/dlowres_mode7.s
@@ -7,20 +7,6 @@
 	jsr	HOME
 	jsr	set_gr_page0
 
-	;================================
-	; Set up Double Low-res
-	;================================
-;	lda	SET_GR		; graphics C050
-;	lda	LORES		; lores	   C056
-;	lda	TEXTGR		; mixset   C053
-;	sta	EIGHTYSTORE_OFF	; 80store  C001
-;	sta	EIGHTYCOL	; 80col	   C00d
-;	lda	AN3		; AN3	   C05E
-
-	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/dlowres_mode7/dlowres_utils.s b/dlowres_mode7/dlowres_utils.s
index 57182a52..45fb2afc 100644
--- a/dlowres_mode7/dlowres_utils.s
+++ b/dlowres_mode7/dlowres_utils.s
@@ -33,13 +33,15 @@ page_flip:
 	beq	page_flip_show_1					; 2nt/3
 page_flip_show_0:
         bit	PAGE0							; 4
-	lda	#4							; 2
+;	lda	#4							; 2
+	lda	#0
 	sta	DRAW_PAGE	; DRAW_PAGE=1				; 3
 	lda	#0							; 2
 	sta	DISP_PAGE	; DISP_PAGE=0				; 3
 	rts								; 6
 page_flip_show_1:
 	bit	PAGE1							; 4
+	lda	#0
 	sta	DRAW_PAGE	; DRAW_PAGE=0				; 3
 	lda	#1							; 2
 	sta	DISP_PAGE	; DISP_PAGE=1				; 3