; unsigned char __fastcall__ cbm_k_chkin (unsigned char FN);
;
- .export _cbm_k_chkin
- .import CHKIN
+ .include "cbm.inc"
+ .export _cbm_k_chkin
+
_cbm_k_chkin:
- tax
- jsr CHKIN
- bcs @NotOk
- lda #0
-@NotOk: rts
+ tax
+ jsr CHKIN
+ ldx #0 ; Clear high byte
+ bcs @NotOk
+ txa
+@NotOk: rts