WebSVN – SvarDOS – Diff – /sved/trunk/sved.c

 "xor ax, ax" \
 "done:" \
 parm [es] \
 value [ax];
+unsigned short dosfclose(unsigned short handle);
+#pragma aux dosfclose = \
+"mov ah,0x3e" \
+"int 0x21" \
+"jc done" \
+"xor ax, ax" \
+"done:" \
+parm [bx] \
+value [ax];
 /*****************************************************************************
  * functions                                                                 *
  *****************************************************************************/
+    }
     errflag |= mdr_dos_write(fd, eolbuf, eollen, &bytes);
     l = l->next;
+  }
-  errflag |= mdr_dos_fclose(fd);
+  errflag |= dosfclose(fd);
   /* did it all work? */
   if (errflag == 0) {
     db->modflag = 0;
     if (saveas != db->fname) mdr_dos_truename(db->fname, saveas);
       goto FINDLINE;
+    }
+  }
-  mdr_dos_fclose(fd);
+  dosfclose(fd);
   SKIPLOADING:
   /* rewind cursor to top of file because it has been used by line_add() */
   db_rewind(db);
   return(err);
   IOERR:
-  mdr_dos_fclose(fd);
+  dosfclose(fd);
   return(1);
+}
 /* a custom argv-parsing routine that looks directly inside the PSP, avoids the need

Subversion Repositories SvarDOS