2014-11-08 23:58:32 +00:00
|
|
|
;
|
|
|
|
|
; char cgetc (void);
|
|
|
|
|
;
|
|
|
|
|
.export _cgetc
|
2014-11-29 19:07:30 +00:00
|
|
|
.import cursor
|
|
|
|
|
|
2015-02-03 21:42:35 +00:00
|
|
|
.include "osic1p.inc"
|
2014-11-29 19:07:30 +00:00
|
|
|
.include "extzp.inc"
|
2015-02-12 20:29:19 +00:00
|
|
|
.include "zeropage.inc"
|
2014-11-08 23:58:32 +00:00
|
|
|
|
2014-11-29 19:07:30 +00:00
|
|
|
; Input routine from 65V PROM MONITOR, show cursor if enabled
|
|
|
|
|
_cgetc:
|
|
|
|
|
lda cursor ; show cursor?
|
|
|
|
|
beq nocursor
|
|
|
|
|
ldy CURS_X
|
|
|
|
|
lda (SCREEN_PTR),y ; fetch current character
|
2015-02-12 20:29:19 +00:00
|
|
|
sta tmp1 ; save it
|
2014-11-29 19:07:30 +00:00
|
|
|
lda #$A1 ; full white square
|
|
|
|
|
sta (SCREEN_PTR),y ; store at cursor position
|
|
|
|
|
nocursor:
|
|
|
|
|
jsr INPUTC
|
|
|
|
|
pha ; save retrieved character
|
|
|
|
|
lda cursor ; was cursor on?
|
|
|
|
|
beq nocursor2
|
2015-02-12 20:29:19 +00:00
|
|
|
lda tmp1 ; fetch saved character
|
2014-11-29 19:07:30 +00:00
|
|
|
ldy CURS_X
|
|
|
|
|
sta (SCREEN_PTR),y ; store at cursor position
|
|
|
|
|
nocursor2:
|
|
|
|
|
pla ; restore retrieved character
|
|
|
|
|
rts
|
