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

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