git.sur5r.net Git - cc65/blob - libsrc/cbm/c_chkin.s

   1 ;
   2 ; Marc 'BlackJack' Rintsch, 20.03.2001
   3 ;
   4 ; unsigned char __fastcall__ cbm_k_chkin (unsigned char FN);
   5 ;
   6
   7         .include        "cbm.inc"
   8
   9         .export         _cbm_k_chkin
  10
  11
  12 _cbm_k_chkin:
  13         tax
  14         jsr     CHKIN
  15         ldx     #0              ; Clear high byte
  16         bcs     @NotOk
  17         txa
  18 @NotOk: rts
  19