;
; 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