add a return -1 helper

2024-01-11 18:19:13 +01:00
parent 57e65a6bf6
commit 5d49fde788
8 changed files with 28 additions and 39 deletions
--- a/libsrc/common/fmisc.s
+++ b/libsrc/common/fmisc.s
@@ -5,7 +5,7 @@
 ;

        .export         _clearerr, _feof, _ferror, _fileno, _fflush
-        .import         return0
+        .import         return0, ___directerrno
        .importzp       ptr1

        .include        "_file.inc"
@@ -78,10 +78,7 @@ err:    rts
 ; If the file is not valid, fileno must set errno and return -1

 error:  lda     #<EBADF
-        jsr     ___seterrno
-        lda     #$FF
-        tax
-        rts
+        jmp     ___directerrno
 .endproc

 ;
@@ -89,5 +86,3 @@ error:  lda     #<EBADF
 ;

 _fflush = return0
-
-