Add handling of write requests

[cc65] / libsrc / c128 / kbhit.s

diff --git a/libsrc/c128/kbhit.s b/libsrc/c128/kbhit.s
index f63b941a903d242fbfdbf5c523cb3edad15786b8..c1bca24160f5f0fbd414949a6e56ba12be28222f 100644 (file)
--- a/libsrc/c128/kbhit.s
+++ b/libsrc/c128/kbhit.s
@@ -1,21 +1,25 @@
 ;
 ; Ullrich von Bassewitz, 18.08.1998
 ;
-; int kbhit (void);
+; unsigned char kbhit (void);
 ;
 
-       .export         _kbhit
-       .import         return0, return1
+        .export         _kbhit
 
-       .include        "c128.inc"
+        .include        "c128.inc"
 
-_kbhit:
-       lda     KEY_COUNT       ; Get number of characters
-;      ora     FKEY_COUNT      ; Or with number of chars from function keys
-       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
+;       ora     FKEY_COUNT      ; Or with number of chars from function keys
+        beq     L9
+        lda     #1
+L9:     rts
 
+.endproc
 
+
+
+