;
; Ullrich von Bassewitz, 06.06.1998
;
; int _errno;
;
; void _maperrno(void);
; /* Map an OS error to a system independent error code */
;

	.export		__maperrno
      	.export		__errno
	.import		__oserror
	.import		__osmaperrno


.code

__maperrno:
	lda	__oserror		; Get the error code
	beq	@L1			; Jump if no error
	ldx	#$00			; Clear error
	stx	__oserror
	jsr	__osmaperrno		; Map the code
       	sta    	__errno
	stx	__errno+1
@L1:	rts


.bss

__errno:
	.word	0