mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 17:29:50 +00:00
29 lines
942 B
ArmAsm
29 lines
942 B
ArmAsm
;
|
|
; jede jede@oric.org 2017-10-01
|
|
;
|
|
.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
|
|
ldx 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 matters
|
|
|
|
switchoff_cursor:
|
|
; 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:
|
|
BRK_TELEMON XRD0 ; waits until key is pressed
|
|
bcs loop
|
|
rts
|
|
.endproc
|