11 .include "zeropage.inc"
13 ; Initialize one-character buffer that is filled by kbhit()
17 sta CHARBUF ; No character in buffer initially
20 ; Input routine from 65V PROM MONITOR, show cursor if enabled
23 lda CHARBUF ; character in buffer available?
25 tax ; save character in X
27 sta CHARBUF ; empty buffer
28 beq restorex ; restore X and return
30 lda cursor ; show cursor?
33 lda (SCREEN_PTR),y ; fetch current character
35 lda #$A1 ; full white square
36 sta (SCREEN_PTR),y ; store at cursor position
38 jsr INPUTC ; get input character in A
40 beq done ; was cursor on?
42 lda tmp1 ; fetch saved character
44 sta (SCREEN_PTR),y ; store at cursor position
47 txa ; restore saved character from X
49 ldx #$00 ; high byte of int return value