X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fcbm510%2Fkbhit.s;h=92c83e795a94bc237ca539cd7c87a89852317a60;hb=934a78731fe1b7fc8d08814fa2321534c20fbc62;hp=5ef5e63ae71406cd11595c8472821f919b9f8b19;hpb=259967895faaf1fb5f78fa99aae5747ba0b77f8b;p=cc65

diff --git a/libsrc/cbm510/kbhit.s b/libsrc/cbm510/kbhit.s
index 5ef5e63ae..92c83e795 100644
--- a/libsrc/cbm510/kbhit.s
+++ b/libsrc/cbm510/kbhit.s
@@ -1,21 +1,22 @@
 ;
 ; Ullrich von Bassewitz, 06.08.1998
 ;
-; int kbhit (void);
+; unsigned char kbhit (void);
 ;
 
-	.export		_kbhit
-	.import		return0, return1
+        .export         _kbhit
+        .import         keyidx: zp
 
-	.include	"zeropage.inc"
 
-.proc	_kbhit
-	lda	KeyIndex      	; 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