6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-14 03:31:59 +00:00
Code Issues Projects Releases Wiki Activity

Correcting comments

Browse Source
This commit is contained in:
jede 2017-10-08 18:14:26 +02:00
parent ff12835ee2
commit a01c8c238c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libsrc/telestrat/cgetc.s
View File

@ -5,24 +5,24 @@
.import cursor .import cursor
.include "telestrat.inc" .include "telestrat.inc"
.proc _cgetc .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 ; 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 lda cursor ; if cursor equal to 0, then switch off cursor
beq switchoff_cursor beq switchoff_cursor
ldx #$00 ; x is the first screen ldx #$00 ; x is the first screen
BRK_TELEMON(XCSSCR) ; display cursor 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 jmp loop ; could be replaced by a bne/beq but 'jmp' is cleaner than a bne/beq which could expect some matters
switchoff_cursor: switchoff_cursor:
ldx #$00 ; x is the first screen ldx #$00 ; x is the first screen
BRK_TELEMON(XCOSCR) ; switch off cursor BRK_TELEMON(XCOSCR) ; switch off cursor
loop: loop:
BRK_TELEMON XRD0 BRK_TELEMON XRD0 ; waits until key is pressed
bcs loop bcs loop
rts rts
.endproc .endproc