;
; Marc 'BlackJack' Rintsch, 20.03.2001
;
; unsigned char __fastcall__ cbm_k_chkin (unsigned char FN);
;

        .export         _cbm_k_chkin
        .import         CHKIN

_cbm_k_chkin:
        tax
        jsr     CHKIN
        ldx     #0              ; Clear high byte
        bcs     @NotOk
        txa
@NotOk: rts