1;
2; Ullrich von Bassewitz, 06.08.1998
3;
4; unsigned char kbhit (void);
5;
6
7        .export         _kbhit
8
9        .include        "plus4.inc"
10
11
12.proc   _kbhit
13
14        ldx     #0              ; High byte of return is always zero
15        lda     KEY_COUNT       ; Get number of characters
16        ora     FKEY_COUNT      ; Or with number of chars from function keys
17        beq     L9
18        lda     #1
19L9:     rts
20
21.endproc
22
23
24
25