From: ol.sc <ol.sc@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 8 Jan 2010 23:09:02 +0000 (+0000)
Subject: Some optimization.
X-Git-Tag: V2.13.2~52
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=246a8db9ac481755a169822484dfd174d0e63a1e;p=cc65

Some optimization.

git-svn-id: svn://svn.cc65.org/cc65/trunk@4546 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/libsrc/apple2/apple2-40-48-16.s b/libsrc/apple2/apple2-40-48-16.s
index b3d319861..477e24a53 100644
--- a/libsrc/apple2/apple2-40-48-16.s
+++ b/libsrc/apple2/apple2-40-48-16.s
@@ -567,16 +567,16 @@ next:	sta	ERR
 ; Must set an error code: NO
 BAR:
 	bit	$C082		; Switch in ROM
+	lda	X2
+	sta	H2
 	inc	Y2
-	ldx	X2
-	stx	H2
-:	ldy	X1
-	lda	Y1
-	jsr	HLINE
-	inc	Y1
-	lda	Y2
-	cmp	Y1
-	bne	:-
+	ldx	Y1
+:	txa
+	ldy	X1
+	jsr	HLINE		; Preserves X
+	inx
+	cpx	Y2
+	bcc	:-
 	bit	$C080		; Switch in LC bank 2 for R/O
 	rts