From 905c1252f51c8bc35a93b75c57bdb616dd5a2b24 Mon Sep 17 00:00:00 2001
From: "ol.sc" <ol.sc@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 28 Apr 2011 13:06:37 +0000
Subject: [PATCH] No need to explicitly set two page in 40 column mode as two
 pages are the default anyway.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4999 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/apple2/apple2-280-192-8.s | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/libsrc/apple2/apple2-280-192-8.s b/libsrc/apple2/apple2-280-192-8.s
index 97a7014e0..3b99a242e 100644
--- a/libsrc/apple2/apple2-280-192-8.s
+++ b/libsrc/apple2/apple2-280-192-8.s
@@ -142,12 +142,11 @@ FONT:
 INSTALL:
 	.ifdef  __APPLE2ENH__
 	; No page switching if 80 column store is enabled
-	lda	#$02
 	bit	RD80COL
 	bpl	:+
 	lda	#$01
-:	sta	pages
-	.endif
+	sta	pages
+:	.endif
 
 	; Fall through
 
@@ -175,7 +174,7 @@ INIT:
 
 	; Beagle Bros Shape Mechanic fonts don't
 	; scale well so use fixed scaling factor
-	lda	#1
+	lda	#$01
 	sta	SCALE
 
 	; Done, reset the error code
@@ -402,7 +401,7 @@ OUTTEXT:
 	php			; Save Z flag
 	beq	:+		; Not horizontal
 	sec
-	sbc	#7		; Adjust X
+	sbc	#$07		; Adjust X
 	bcs	:+
 	dey
 :	tax
@@ -410,7 +409,7 @@ OUTTEXT:
 	plp			; Restore Z flag
 	bne	:+		; Not vertical
 	sec
-	sbc	#7		; Adjust Y
+	sbc	#$07		; Adjust Y
 :	jsr	HPOSN
 	clc
 	lda	FONT+2*99	; "connection char"
-- 
2.39.5