mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
38 lines
1.4 KiB
C
38 lines
1.4 KiB
C
/****************************************************************************
|
||
*
|
||
* C F I L E O P E N R O U T I N E
|
||
* -------------------------------------
|
||
*
|
||
* The "open" routine opens a "C" file and returns a file id.
|
||
*
|
||
* Calling Sequence:
|
||
*
|
||
* fid = open(fname,mode,type);
|
||
*
|
||
* Where:
|
||
*
|
||
* fname is the address of a null terminated file name.
|
||
* mode is the open mode:
|
||
*
|
||
* 0 => READ access only
|
||
* 1 => WRITE access only
|
||
* 2 => Both READ and WRITE
|
||
* type is 0 for ASCII files, 1 for BINARY
|
||
*
|
||
*
|
||
*****************************************************************************/
|
||
#include <portab.h> /* */
|
||
WORD xopen(fname,mode,xtype) /****************************/
|
||
BYTE *fname; /* -> File name */
|
||
WORD mode; /* Open mode */
|
||
WORD xtype; /* File type */
|
||
{ /****************************/
|
||
return(_open(fname,mode,xtype)); /* Call clib routine */
|
||
} /****************************/
|
||
e,xtype)); /* Call clib routine */
|
||
} /****************************/
|
||
e,xtype)); /* Call clib routine */
|
||
} /****************************/
|
||
e,xtype)); /* Call clib routine */
|
||
} /****************************/
|
||
|