conio with fixed width and proportional font support

git-svn-id: svn://svn.cc65.org/cc65/trunk@1178 b7a2c559-68d2-44c3-8de9-860c34a00d81
2002-03-08 16:47:34 +00:00
parent d537134626
commit ae74057353
10 changed files with 96 additions and 92 deletions
--- a/libsrc/geos/conio/cgetc.s
+++ b/libsrc/geos/conio/cgetc.s
@@ -3,32 +3,28 @@
 ; Maciej 'YTM/Elysium' Witkowiak
 ;
 ; 27.10.2001
+; 06.03.2002

 ; unsigned char cgetc (void);

 	    .export _cgetc
+	    .import update_cursor

 	    .include "../inc/jumptab.inc"
 	    .include "../inc/geossym.inc"
-	    .include "cursor.inc"
+	    .include "../inc/cursor.inc"

 _cgetc:
 ; show cursor if needed
 	    lda cursor_flag
 	    beq L0

-	    lda #1
-	    sta r3L
+	    jsr update_cursor
 	    lda cursor_x
 	    ldx cursor_x+1
-	    sta r4L
 	    sta stringX
-	    stx r4H
 	    stx stringX+1
-	    lda cursor_y
-	    sec
-	    sbc curHeight
-	    sta r5L
+	    lda	cursor_y
 	    sta stringY
 	    jsr PosSprite
 	    jsr PromptOn