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

   1 ;
   2 ; Ullrich von Bassewitz, 03.06.1999
   3 ;
   4 ; unsigned __fastcall__ cbm_open (void);
   5 ;
   6
   7         .include        "cbm.inc"
   8
   9         .export         _cbm_open
  10
  11 _cbm_open:
  12         jsr     OPEN
  13         ldx     #0
  14         bcc     @Ok
  15         inx
  16         rts
  17 @Ok:    txa
  18         rts
  19