;
; Ullrich von Bassewitz, 26.11.1998
;
-; int kbhit (void);
+; unsigned char kbhit (void);
;
- .export _kbhit
- .import return0, return1
+ .export _kbhit
- .include "pet.inc"
+ .include "pet.inc"
-_kbhit:
- lda KEY_COUNT ; Get number of characters
- bne L1
- jmp return0
-L1: jmp return1
+.proc _kbhit
+ ldx #0 ; High byte of return is always zero
+ lda KEY_COUNT ; Get number of characters
+ beq L9
+ lda #1
+L9: rts
+
+.endproc