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         .include        "errno.inc"
   9
  10
  11 .code
  12
  13 __maperrno:
  14         lda     __oserror               ; Get the error code
  15         beq     @L1                     ; Jump if no error
  16         ldx     #$00                    ; Clear error
  17         stx     __oserror
  18         jsr     __osmaperrno            ; Map the code
  19         sta     __errno
  20         stx     __errno+1
  21 @L1:    rts
  22
  23
  24