POSIX file I/O by Oliver Schmidt
git-svn-id: svn://svn.cc65.org/cc65/trunk@3457 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
18
libsrc/apple2/fileerr.s
Normal file
18
libsrc/apple2/fileerr.s
Normal file
@@ -0,0 +1,18 @@
|
||||
;
|
||||
; 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
|
||||
Reference in New Issue
Block a user