|
;
|
|
; 2022-03-28, Greg King
|
|
;
|
|
; unsigned char kbhit (void);
|
|
; /* Returns non-zero (true) if a typed character is waiting. */
|
|
;
|
|
|
|
.export _kbhit
|
|
|
|
.import KBDBUF_PEEK
|
|
|
|
|
|
.proc _kbhit
|
|
jsr KBDBUF_PEEK
|
|
txa ; Low byte of return (only its zero/nonzero ...
|
|
rts ; ... state matters)
|
|
.endproc
|