added sleep() implementation

[cc65] / libsrc / cbm / c_ckout.s

diff --git a/libsrc/cbm/c_ckout.s b/libsrc/cbm/c_ckout.s
index 7fffe9f70bc63515ca0f7f1e5978baa5a52a9291..299254c03d611a4ddf96bcd2ee55f37a514940f4 100644 (file)
--- a/libsrc/cbm/c_ckout.s
+++ b/libsrc/cbm/c_ckout.s
@@ -1,24 +1,16 @@
 ;
 ; Ullrich von Bassewitz, 03.06.1999
 ;
-; unsigned __fastcall__ cbm_ckout (unsigned char FN);
+; unsigned char __fastcall__ cbm_k_ckout (unsigned char FN);
 ;
 
-               .include        "cbm.inc"
+               .export         _cbm_k_ckout
+        .import         CKOUT
 
-               .export         _cbm_ckout
 
-_cbm_ckout:
+_cbm_k_ckout:
        tax
                jsr     CKOUT
-       ldx     #0
-       bcc     @Ok
-       inx
-       rts
-@Ok:   txa
-       rts
-
-
-
-
-
+       bcs     @NotOk
+       lda     #0
+@NotOk:        rts