From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Wed, 27 Nov 2002 15:05:01 +0000 (+0000)
Subject: call setcursur when finished
X-Git-Tag: V2.12.0~1985
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=6116ee51ecb99ac1f5a3b58f5c8bc15ff367d1a7;p=cc65

call setcursur when finished


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

diff --git a/libsrc/atari/clrscr.s b/libsrc/atari/clrscr.s
index 946f3a2da..b352a83de 100644
--- a/libsrc/atari/clrscr.s
+++ b/libsrc/atari/clrscr.s
@@ -7,6 +7,7 @@
 	.export		_clrscr
 	.include	"atari.inc"
 	.importzp	ptr1
+	.import		setcursor
 
 _clrscr:lda	SAVMSC		; screen memory
 	sta	ptr1
@@ -15,6 +16,7 @@ _clrscr:lda	SAVMSC		; screen memory
 	adc	#>(40*24)
 	sta	ptr1+1
 	lda	#0		; screen code of space char
+	sta	OLDCHR
 	ldy	#<(40*24)	; 40x24: size of default atari screen
 	ldx	#>(40*24)
 _clr1:	sta	(ptr1),y
@@ -31,5 +33,4 @@ _clr1:	sta	(ptr1),y
 
 done:	sta	COLCRS
 	sta	ROWCRS
-	rts
-
+	jmp	setcursor