Implemented cursor functionality.

2014-11-29 20:07:30 +01:00
parent 7dac57f60d
commit ac88639f4a
4 changed files with 30 additions and 10 deletions
--- a/libsrc/c1p/cgetc.s
+++ b/libsrc/c1p/cgetc.s
@@ -2,7 +2,28 @@
 ; char cgetc (void);
 ;
        .export         _cgetc
-        .include        "c1p.inc"
+        .import         cursor

-; Direct use of input routine from 65V PROM MONITOR
-_cgetc = INPUTC
+        .include        "c1p.inc"
+        .include        "extzp.inc"
+
+; Input routine from 65V PROM MONITOR, show cursor if enabled
+_cgetc:
+        lda     cursor          ; show cursor?
+        beq     nocursor
+        ldy     CURS_X
+        lda     (SCREEN_PTR),y  ; fetch current character
+        sta     CURS_SAV        ; save it
+        lda     #$A1            ; full white square
+        sta     (SCREEN_PTR),y  ; store at cursor position
+nocursor:
+        jsr     INPUTC
+        pha                     ; save retrieved character
+        lda     cursor          ; was cursor on?
+        beq     nocursor2
+        lda     CURS_SAV        ; fetch saved character
+        ldy     CURS_X
+        sta     (SCREEN_PTR),y  ; store at cursor position
+nocursor2:
+        pla                     ; restore retrieved character
+        rts