git.sur5r.net Git - cc65/blob - libsrc/common/_directerrno.s

   1 ;
   2 ; 2003-08-12, Ullrich von Bassewitz
   3 ; 2015-09-24, Greg King
   4 ;
   5 ; Helper function for several high-level file functions.
   6 ;
   7
   8         .include        "errno.inc"
   9
  10         .macpack        cpu
  11
  12 ; ----------------------------------------------------------------------------
  13 ; int __fastcall__ _directerrno (unsigned char code);
  14 ; /* Set errno to a specific error code, clear _oserror, and return -1. Used
  15 ; ** by the library.
  16 ; */
  17
  18 __directerrno:
  19         jsr     __seterrno              ; Set errno (returns with .A = 0)
  20         sta     __oserror               ; Clear __oserror
  21 .if (.cpu .bitand CPU_ISET_65SC02)
  22         dec     a
  23 .else
  24         lda     #$FF                    ; Return -1
  25 .endif
  26         tax
  27         rts