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

diff --git a/libsrc/cbm510/kbhit.s b/libsrc/cbm510/kbhit.s
index b9f32ed0a..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
 
 
-.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