Adding cgetc

diff --git a/libsrc/telestrat/cgetc.s b/libsrc/telestrat/cgetc.s
index 591f966bcd37c049dc84d856aaa30191be0440b0..9bdbf4818fad07d77a5ec6f2ddb187a516954c5b 100644 (file)
--- a/libsrc/telestrat/cgetc.s
+++ b/libsrc/telestrat/cgetc.s
@@ -3,9 +3,24 @@
 ;
     .export    _cgetc
    
+    .import    cursor
+
+    
     .include   "telestrat.inc"
 
 .proc _cgetc
+        ; this routine could be quicker if we wrote in page 2 variables, but it's better to use telemon routine in that case, because telemon can manage 4 I/O
+        lda     cursor      ; if cursor equal to 0, then switch off cursor
+        beq     switchoff_cursor
+       
+        ldx     #$00         ; x is the first screen
+        BRK_TELEMON(XCSSCR)  ; display cursor
+        jmp     loop         ; could be replaced by a bne/beq but 'jmp' is cleaner than a bne/beq which could expect some
+        
+switchoff_cursor:        
+        ldx     #$00         ; x is the first screen
+        BRK_TELEMON(XCOSCR)  ; switch off cursor        
+        
 loop:   
         BRK_TELEMON XRD0
         bcs     loop