mirror of
https://github.com/cc65/cc65.git
synced 2024-07-09 01:28:58 +00:00
21 lines
529 B
ArmAsm
21 lines
529 B
ArmAsm
;
|
|
; 2019-12-22, Greg King
|
|
;
|
|
; unsigned char kbhit (void);
|
|
; /* Returns non-zero (true) if a typed character is waiting. */
|
|
;
|
|
|
|
.export _kbhit
|
|
|
|
.include "cx16.inc"
|
|
|
|
|
|
.proc _kbhit
|
|
ldy VIA1::PRA2 ; (KEY_COUNT is in RAM bank 0)
|
|
stz VIA1::PRA2
|
|
lda KEY_COUNT ; Get number of characters
|
|
sty VIA1::PRA2
|
|
tax ; High byte of return (only its zero/nonzero ...
|
|
rts ; ... state matters)
|
|
.endproc
|