;
; 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

