mirror of
https://github.com/cc65/cc65.git
synced 2024-11-19 06:31:31 +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
|