seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-23 16:34:07 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/creatvms.c Normal file
View File

@@ -0,0 +1,32 @@
/* CREATE A NEW FILE FOR VMS
* copyright (c) 1980 by Whitesmiths, Ltd.
*/
#include <std.h>
#include "vms.h"
FILE creat(fname, mode)
TEXT *fname;
COUNT mode;
{
return (_creat(fname, mode, 0));
}
FILE creata(fname, mode)
TEXT *fname;
COUNT mode;
{
return (_creat(fname, mode, 0));
}
FILE creatb(fname, mode)
TEXT *fname;
COUNT mode;
{
return (_creat(fname, mode, 1));
}
FILE _creat(fname, mode, rsize)
TEXT *fname;
COUNT mode;
BYTES rsize;
{
return (_copen(fname, (mode + 1) & 03, rsize));
}