Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/klib/open.c

@@ -0,0 +1,31 @@
+/****************************************************************************
+*
+*		   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	    */
+}						/****************************/