no TGI_ERR_NO_MEM or TGI_ERR_NO_IOCB anymore: replaced by TGI_ERR_NO_RES

[cc65] / libsrc / cbm610 / kbhit.s

diff --git a/libsrc/cbm610/kbhit.s b/libsrc/cbm610/kbhit.s
index 0a5fcc1973021b9854f0fb5ab9d25a376b3ac498..b9f32ed0ab1b0c45e0157ffc1bf6291803b053f4 100644 (file)
--- a/libsrc/cbm610/kbhit.s
+++ b/libsrc/cbm610/kbhit.s
@@ -1,23 +1,16 @@
 ;
-; Ullrich von Bassewitz, 2003-12-20
+; Ullrich von Bassewitz, 06.08.1998
 ;
 ; int kbhit (void);
 ;
 
        .export         _kbhit
-
-        .importzp       sysp0
        .import         return0, return1
+        .import         keyidx: zp
 
-       .include        "cbm610.inc"
 
 .proc  _kbhit
-        ldx     IndReg
-        lda     #$0F
-        sta     IndReg
-        ldy     #$D1            ; Number of keys in kbd buffer
-        lda     (sysp0),y
-        stx     IndReg
+       lda     keyidx          ; Get number of characters
        bne     L1
        jmp     return0
 L1:    jmp     return1