mirror of https://github.com/cc65/cc65.git
28 lines
720 B
ArmAsm
28 lines
720 B
ArmAsm
;
|
|
; 2003-08-12, Ullrich von Bassewitz
|
|
; 2015-09-24, Greg King
|
|
;
|
|
; Helper function for several high-level file functions.
|
|
;
|
|
|
|
.include "errno.inc"
|
|
|
|
.macpack cpu
|
|
|
|
; ----------------------------------------------------------------------------
|
|
; int __fastcall__ __directerrno (unsigned char code);
|
|
; /* Set errno to a specific error code, clear __oserror, and return -1. Used
|
|
; ** by the library.
|
|
; */
|
|
|
|
___directerrno:
|
|
jsr ___seterrno ; Set errno (returns with .A = 0)
|
|
sta ___oserror ; Clear ___oserror
|
|
.if (.cpu .bitand CPU_ISET_65SC02)
|
|
dec a
|
|
.else
|
|
lda #$FF ; Return -1
|
|
.endif
|
|
tax
|
|
rts
|