From: jede <jede@oric.org>
Date: Sun, 8 Oct 2017 16:11:09 +0000 (+0200)
Subject: Adding cgetc
X-Git-Tag: V2.17~88^2~1
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=ff12835ee2f59ff147b67f9e8d194b46fea02f94;p=cc65

Adding cgetc
---

diff --git a/libsrc/telestrat/cgetc.s b/libsrc/telestrat/cgetc.s
index 591f966bc..9bdbf4818 100644
--- 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