pattern number is preserved so cclear and clrscr will not mess with drawing

git-svn-id: svn://svn.cc65.org/cc65/trunk@2065 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-04-17 11:51:43 +00:00
parent 04e4ecc319
commit c4fc55d877
2 changed files with 11 additions and 3 deletions
--- a/libsrc/geos/conio/cclear.s
+++ b/libsrc/geos/conio/cclear.s
@@ -40,8 +40,12 @@ _cclear:
 	ldx	#r4
 	ldy 	#3
 	jsr 	DShiftLeft
-	lda	#0		; pattern
+	lda	curPattern	; store current pattern
+	pha
+	lda	#0		; set pattern to clear
 	jsr	SetPattern
 	jsr	Rectangle
+	pla
+	jsr	SetPattern	; restore pattern
 	jsr	fixcursor
 L9:	rts