Upload

Digital Research

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

@@ -0,0 +1,26 @@
+/****************************************************************************
+*
+*		   C   F I L E   C R E A T E   R O U T I N E
+*		   -----------------------------------------
+*
+*	The "creat" routine opens a new "C" file and returns a file id. 
+*
+*	Calling Sequence:
+*
+*		fid = creat(fname,prot,type);
+*
+*	Where:
+*
+*		fname	is the address of a null terminated file name.
+*		prot	is the UNIX file protection
+*		type	is 0 for ASCII, 1 for BINARY
+*
+*****************************************************************************/
+#include <portab.h>
+WORD	xcreat(fname,prot,type)			/****************************/
+	BYTE	*fname;				/* -> File name		    */
+	WORD	prot;				/* Open mode		    */
+	WORD	type;				/* ASCII/BINARY flag	    */
+{						/****************************/
+	return(_creat(fname,prot,type));	/* Call clib routine	    */
+}						/****************************/