X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fatari%2Fclrscr.s;h=b352a83de8d629f8573cb027c308494daeaacf35;hb=2273b7575c1dfc70ddc41f32c58d37ed537980ad;hp=946f3a2da35e92f5083b54c0f02b273429c4e2ca;hpb=72294dc011c366ffbba40e3d6fccda3c031a0741;p=cc65

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