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

   1 ;
   2 ; Ullrich von Bassewitz, 06.06.1998
   3 ;
   4 ; int _errno;
   5 ;
   6 ; void _maperrno(void);
   7 ; /* Map an OS error to a system independent error code */
   8 ;
   9
  10         .export         __maperrno
  11         .export         __errno
  12         .import         __oserror
  13         .import         __osmaperrno
  14
  15
  16 .code
  17
  18 __maperrno:
  19         lda     __oserror               ; Get the error code
  20         beq     @L1                     ; Jump if no error
  21         ldx     #$00                    ; Clear error
  22         stx     __oserror
  23         jsr     __osmaperrno            ; Map the code
  24         sta     __errno
  25         stx     __errno+1
  26 @L1:    rts
  27
  28
  29 .bss
  30
  31 __errno:
  32         .word   0
  33