mirror of
https://github.com/cc65/cc65.git
synced 2024-11-18 15:05:14 +00:00
19 lines
278 B
ArmAsm
19 lines
278 B
ArmAsm
|
;
|
||
|
|
; Oliver Schmidt, 15.01.2004
|
||
|
|
;
|
||
|
|
; Error handling for ProDOS 8 file I/O
|
||
|
|
;
|
||
|
|
|
||
|
|
.export errnoexit, oserrexit
|
||
|
|
|
||
|
|
.include "errno.inc"
|
||
|
|
|
||
|
|
errnoexit:
|
||
|
|
jsr __seterrno ; Returns with A = 0
|
||
|
|
|
||
|
|
oserrexit:
|
||
|
|
sta __oserror
|
||
|
|
lda #$FF
|
||
|
|
tax
|
||
|
|
rts
|