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

   1 ;
   2 ; Ullrich von Bassewitz, 03.06.1999
   3 ;
   4 ; unsigned char __fastcall__ cbm_k_ckout (unsigned char FN);
   5 ;
   6
   7         .export         _cbm_k_ckout
   8         .import         CKOUT
   9
  10
  11 _cbm_k_ckout:
  12         tax
  13         jsr     CKOUT
  14         ldx     #0              ; Clear high byte
  15         bcs     @NotOk
  16         txa
  17 @NotOk: rts