Optimizing (from Polluks tip)

diff --git a/libsrc/telestrat/cgetc.s b/libsrc/telestrat/cgetc.s
index 2b0fc7758ef9a834b4d2136c442f0c7e3f2e0714..6a6b23318ab436eb3a2238ff271d716c31d43b6c 100644 (file)
--- a/libsrc/telestrat/cgetc.s
+++ b/libsrc/telestrat/cgetc.s
@@ -10,7 +10,7 @@
 .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
+        ldx     cursor       ; if cursor equal to 0, then switch off cursor
         beq     switchoff_cursor
        
         ldx     #$00         ; x is the first screen
@@ -18,7 +18,7 @@
         jmp     loop         ; could be replaced by a bne/beq but 'jmp' is cleaner than a bne/beq which could expect some matters
         
 switchoff_cursor:        
-        ldx     #$00         ; x is the first screen
+        ; at this step X is equal to $00, X must be set, because it's the id of the screen (telestrat can handle 4 virtuals screen)
         BRK_TELEMON(XCOSCR)  ; switch off cursor        
         
 loop: