2 ; jede jede@oric.org 2017-10-01
8 .include "telestrat.inc"
11 ; this routine could be quicker if we wrote in page 2 variables,
12 ; but it's better to use telemon routine in that case, because telemon can manage 4 I/O
13 lda cursor ; if cursor equal to 0, then switch off cursor
16 ldx #$00 ; x is the first screen
17 BRK_TELEMON(XCSSCR) ; display cursor
18 jmp loop ; could be replaced by a bne/beq but 'jmp' is cleaner than a bne/beq which could expect some matters
21 ldx #$00 ; x is the first screen
22 BRK_TELEMON(XCOSCR) ; switch off cursor
25 BRK_TELEMON XRD0 ; waits until key is pressed