Renamed the old geos target to geos-cbm.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5343 b7a2c559-68d2-44c3-8de9-860c34a00d81
2011-12-28 17:11:21 +00:00
parent 70a3bcb0df
commit e6d74e7205
215 changed files with 20 additions and 20 deletions
--- a/libsrc/geos-cbm/conio/cgetc.s
+++ b/libsrc/geos-cbm/conio/cgetc.s
@@ -0,0 +1,40 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 27.10.2001
+; 06.03.2002
+
+; unsigned char cgetc (void);
+
+	    .export _cgetc
+	    .import update_cursor
+	    .importzp cursor_x, cursor_y, cursor_flag
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+_cgetc:
+; show cursor if needed
+	    lda cursor_flag
+	    beq L0
+
+	    jsr update_cursor
+	    lda cursor_x
+	    ldx cursor_x+1
+	    sta stringX
+	    stx stringX+1
+	    lda	cursor_y
+	    sec
+	    sbc	curHeight
+	    sta stringY
+	    jsr PromptOn
+
+L0:	    jsr GetNextChar
+	    tax
+	    beq L0
+	    pha
+	    jsr PromptOff
+	    pla
+	    ldx #0
+	    rts