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 444823a898cf640a34a7a73443bd226da4744949..f50a76fef7b091bfbe034ca12282c188843eeb4f 100644 (file)
--- 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