From 16af39de8d9270be42ddf64a07e0b177217cbf5b Mon Sep 17 00:00:00 2001
From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 26 Nov 2002 21:31:01 +0000
Subject: [PATCH] setcursor now updates OLDADR from COLCRS and ROWCRS

git-svn-id: svn://svn.cc65.org/cc65/trunk@1655 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/atari/cgetc.s | 27 ++++++++++++++++++++++-----
 1 file changed, 22 insertions(+), 5 deletions(-)

diff --git a/libsrc/atari/cgetc.s b/libsrc/atari/cgetc.s
index 62e00d2e5..2aa4a342c 100644
--- a/libsrc/atari/cgetc.s
+++ b/libsrc/atari/cgetc.s
@@ -6,9 +6,9 @@
 ;
 
 	.include "atari.inc"
-	.export _cgetc
-	.import	cursor
-	
+	.export _cgetc,setcursor
+	.import	cursor,mul40
+
 _cgetc:
 	jsr	setcursor
 	jsr	@1
@@ -26,8 +26,25 @@ _cgetc:
 
 .proc	setcursor
 
-	lda	OLDCHR		; get char at current cursor position
-	ldy	#0		; needed later
+	ldy	#0
+	lda	OLDCHR
+	sta	(OLDADR),y
+
+	lda	ROWCRS
+	jsr	mul40
+	clc
+	adc	SAVMSC		; add start of screen memory
+	sta	OLDADR
+	txa
+	adc	SAVMSC+1
+	sta	OLDADR+1
+	lda	COLCRS
+	adc	OLDADR
+	sta	OLDADR
+	bcc	nc
+	inc	OLDADR+1
+nc:	lda	(OLDADR),y
+	sta	OLDCHR
 
 	ldx	cursor		; current cursor setting as requested by the user
 	beq	off