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

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

@@ -0,0 +1,33 @@
/* OPEN A FILE FOR VMS
* copyright (c) 1980 by Whitesmiths, Ltd.
*/
#include <std.h>
#include "vms.h"
FILE open(fname, mode)
TEXT *fname;
COUNT mode;
{
return(_open(fname,mode,0));
}
FILE opena(fname,mode)
TEXT *fname;
COUNT mode;
{
return(_open(fname,mode,0));
}
FILE openb(fname,mode)
TEXT *fname;
COUNT mode;
{
return(_open(fname,mode,1));
}
FILE _open(fname, mode, rsize)
TEXT *fname;
COUNT mode;
BYTES rsize;
{
return (_copen(fname, WOPEN | (mode + 1) & 03, rsize));
}