2019-09-27 07:38:51 +00:00
|
|
|
;
|
2022-04-02 13:39:35 +00:00
|
|
|
; 2022-03-29, Greg King
|
2019-09-27 07:38:51 +00:00
|
|
|
;
|
|
|
|
|
; char cgetc (void);
|
|
|
|
|
; /* Return a character from the keyboard. */
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export _cgetc
|
|
|
|
|
|
2019-12-25 15:56:32 +00:00
|
|
|
.import _kbhit, cursor, GETIN
|
2019-09-27 07:38:51 +00:00
|
|
|
|
|
|
|
|
.include "cx16.inc"
|
|
|
|
|
.macpack generic
|
|
|
|
|
|
|
|
|
|
|
2022-04-02 13:39:35 +00:00
|
|
|
screen_addr := $1B000 ; VRAM address of text screen
|
|
|
|
|
|
2019-12-25 15:56:32 +00:00
|
|
|
_cgetc: jsr _kbhit
|
2019-09-27 07:38:51 +00:00
|
|
|
bnz L3 ; Jump if there are already chars waiting
|
|
|
|
|
|
|
|
|
|
; Switch the cursor on if wanted.
|
|
|
|
|
|
|
|
|
|
lda CURS_FLAG ; Save cursor's current enable flag
|
|
|
|
|
tay
|
|
|
|
|
lda cursor
|
|
|
|
|
jsr setcursor
|
2019-12-25 15:56:32 +00:00
|
|
|
L1: jsr _kbhit
|
2019-09-27 07:38:51 +00:00
|
|
|
bze L1 ; Wait for key
|
|
|
|
|
tya
|
|
|
|
|
eor #%00000001 ; (Cursor flag uses negative logic)
|
|
|
|
|
jsr setcursor ; Restore previous cursor condition
|
|
|
|
|
|
|
|
|
|
; An internal Kernal function can't be used because it might be moved in future
|
|
|
|
|
; revisions. Use an official function; but, make sure that it reads
|
|
|
|
|
; the keyboard.
|
|
|
|
|
|
|
|
|
|
L3: ldy IN_DEV ; Save current input device
|
|
|
|
|
stz IN_DEV ; Keyboard
|
2019-10-01 09:30:36 +00:00
|
|
|
phy
|
2019-09-27 07:38:51 +00:00
|
|
|
jsr GETIN ; Read char, and return in .A
|
2019-10-01 09:30:36 +00:00
|
|
|
ply
|
2019-09-27 07:38:51 +00:00
|
|
|
sty IN_DEV ; Restore input device
|
|
|
|
|
ldx #>$0000
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
; Switch the cursor on or off.
|
|
|
|
|
|
|
|
|
|
setcursor:
|
|
|
|
|
tax ; On or off?
|
|
|
|
|
bnz seton ; Go set it on
|
|
|
|
|
lda CURS_FLAG ; Is the cursor currently off?
|
|
|
|
|
bnz crs9 ; Jump if yes
|
|
|
|
|
inc CURS_FLAG ; Mark it as off
|
|
|
|
|
ldx CURS_STATE ; Cursor currently displayed?
|
|
|
|
|
bze crs9 ; Jump if not
|
|
|
|
|
|
|
|
|
|
; Restore the current character in video RAM.
|
|
|
|
|
; Restore that character's colors.
|
|
|
|
|
|
|
|
|
|
stz VERA::CTRL ; Use port 0
|
|
|
|
|
lda CURS_Y
|
2022-04-02 13:39:35 +00:00
|
|
|
add #<(>screen_addr)
|
2019-09-27 07:38:51 +00:00
|
|
|
sta VERA::ADDR+1 ; Set row number
|
2022-04-02 13:39:35 +00:00
|
|
|
lda #VERA::INC1 | ^screen_addr ; Increment address by one
|
2019-09-27 07:38:51 +00:00
|
|
|
sta VERA::ADDR+2
|
|
|
|
|
lda CURS_X ; Get character column
|
|
|
|
|
asl a
|
|
|
|
|
sta VERA::ADDR
|
|
|
|
|
ldx CURS_CHAR
|
|
|
|
|
stx VERA::DATA0
|
|
|
|
|
ldx CURS_COLOR
|
|
|
|
|
stx VERA::DATA0
|
|
|
|
|
stz CURS_STATE ; Cursor not displayed
|
|
|
|
|
crs9: rts
|
|
|
|
|
|
|
|
|
|
seton: stz CURS_FLAG
|
|
|
|
|
rts
|
