The spans do now contain the size of a span, no longer the end offset.

[cc65] / libsrc / atari / kbhit.s

diff --git a/libsrc/atari/kbhit.s b/libsrc/atari/kbhit.s
index 25418c15d016c7c67e4054621c16859c1f1aa342..2aff6dad3969f727da7faac8af285704ce5a379c 100644 (file)
--- a/libsrc/atari/kbhit.s
+++ b/libsrc/atari/kbhit.s
@@ -1,21 +1,23 @@
 ;
-; Ullrich von Bassewitz, 06.08.1998
+; Christian Groessler, 19-Feb-2000
 ;
-; int kbhit (void);
+; unsigned char kbhit (void);
 ;
 
        .export         _kbhit
-       .import         return0, return1
+       .import         return1
 
        .include        "atari.inc"
 
-_kbhit:
-       lda     CH      ; Get number of characters
-       cmp     #$FF
-       bne     L1
-       jmp     return1
-L1:    jmp     return0
+.proc   _kbhit
 
+       ldx     CH              ; last pressed key
+       inx                     ; 255 means "no key"
+       bne     L1
+        txa                     ; X = A = 0
+        rts
+L1:    jmp     return1
 
+.endproc