From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 26 Nov 2002 21:34:13 +0000 (+0000)
Subject: always use setcursor to update cursor settings
X-Git-Tag: V2.12.0~1990
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=93f6ee340d6bcbb77faa0dcedecc28bc2fdbfdc4;p=cc65

always use setcursor to update cursor settings


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

diff --git a/libsrc/atari/cputc.s b/libsrc/atari/cputc.s
index ca3f92028..906a79282 100644
--- a/libsrc/atari/cputc.s
+++ b/libsrc/atari/cputc.s
@@ -9,7 +9,7 @@
 	.export		plot, cputdirect, putchar
 	.import		popa, _gotoxy, mul40
 	.importzp	tmp4,ptr4
-	.import		_revflag
+	.import		_revflag,setcursor
 
 	.include	"atari.inc"
 
@@ -25,7 +25,7 @@ _cputc:
 	lda	#0
 	sta	COLCRS
 	beq	plot		; return
-	
+
 L4:	cmp	#$0A		; LF
 	beq	newline
 	cmp	#ATEOL 	  	; Atari-EOL?
@@ -45,18 +45,6 @@ L4:	cmp	#$0A		; LF
 cputdirect:			; accepts screen code
 	jsr	putchar
 
-	; update cursor position pointer
-	ldy	#0
-	lda	OLDCHR
-	sta	(OLDADR),y
-	inc	OLDADR
-	bne	L1
-	inc	OLDADR+1
-L1:	lda	(OLDADR),y
-	sta	OLDCHR
-	ora	_revflag
-	sta	(OLDADR),y
-	
 ; advance cursor
 	inc	COLCRS
 	lda	COLCRS
@@ -73,7 +61,8 @@ newline:
 	bne	plot
 	lda	#0
 	sta	ROWCRS
-plot:	ldy	COLCRS
+plot:	jsr	setcursor
+	ldy	COLCRS
 	ldx	ROWCRS
 	rts
 
@@ -86,32 +75,21 @@ putchar:
 	sta	(OLDADR),y
 
 	lda	ROWCRS
-	jsr	mul40
-L3:	clc
+	jsr	mul40		; destroys tmp4
+	clc
 	adc	SAVMSC		; add start of screen memory
 	sta	ptr4
-	lda	tmp4
+	txa
 	adc	SAVMSC+1
 	sta	ptr4+1
 	pla			; get char again
 
+	ora	_revflag
 	sta	OLDCHR
 
-	ora	_revflag
 	ldy	COLCRS
 	sta	(ptr4),y
-
-	; update OLDADR (maybe ROWCRS and COLCRS were changed)
-	sty	tmp4
-	lda	ptr4
-	clc
-	adc	tmp4
-	sta	OLDADR
-	lda	ptr4+1
-	adc	#0
-	sta	OLDADR+1
-	rts
+	jmp	setcursor
 
 	.rodata
 ataint:	.byte	64,0,32,96
-