Merge pull request #14 from groessler/something_to_pull

[cc65] / libsrc / cbm510 / kbhit.s

diff --git a/libsrc/cbm510/kbhit.s b/libsrc/cbm510/kbhit.s
index 9e2b3f6f167b53b75e037ddb11fc30626c032f70..92c83e795a94bc237ca539cd7c87a89852317a60 100644 (file)
--- 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        "cbm510.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