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