From 195b5f0a07e4efaf4675437aca0426be8006c69f Mon Sep 17 00:00:00 2001 From: jede Date: Mon, 16 Oct 2017 18:15:53 +0200 Subject: [PATCH] Optimizing (from Polluks tip) --- libsrc/telestrat/cgetc.s | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libsrc/telestrat/cgetc.s b/libsrc/telestrat/cgetc.s index 2b0fc7758..6a6b23318 100644 --- 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: -- 2.39.5