git.sur5r.net Git - cc65/blob - libsrc/apple2/fileerr.s

   1 ;
   2 ; Oliver Schmidt, 15.01.2004
   3 ;
   4 ; Error handling for ProDOS 8 file I/O
   5 ;
   6
   7         .export         errnoexit, oserrexit
   8
   9         .include        "errno.inc"
  10
  11 errnoexit:
  12         jsr     __seterrno      ; Returns with A = 0
  13
  14 oserrexit:
  15         sta     __oserror
  16         lda     #$FF
  17         tax
  18         rts