From: izydorst <izydorst@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Wed, 25 Dec 2002 02:49:42 +0000 (+0000)
Subject: clrscr now puts the cursor into home position
X-Git-Tag: V2.12.0~1832
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=4f2a18d154a000e85faa2d29ea33969171c66992;p=cc65

clrscr now puts the cursor into home position


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

diff --git a/libsrc/geos/conio/clrscr.s b/libsrc/geos/conio/clrscr.s
index 444823a89..f50a76fef 100644
--- a/libsrc/geos/conio/clrscr.s
+++ b/libsrc/geos/conio/clrscr.s
@@ -2,7 +2,7 @@
 ;
 ; Maciej 'YTM/Elysium' Witkowiak
 ;
-; 27.10.2001
+; 27.10.2001, 23.12.2002
 
 ; void clrscr (void);
 
@@ -12,6 +12,9 @@
 	    .include "../inc/geossym.inc"
 	    .include "../inc/const.inc"
 
+	    .import fixcursor
+	    .importzp cursor_c, cursor_r
+
 _clrscr:
 	    lda #ST_WR_FORE | ST_WR_BACK
 	    sta dispBufferOn
@@ -21,6 +24,10 @@ _clrscr:
 	    sta r3L
 	    sta r3H
 	    sta r2L
+	    sta cursor_c
+	    lda #1
+	    sta cursor_r
+	    jsr fixcursor		; home cursor
 	    lda #199
 	    sta r2H
 	    lda graphMode