seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-25 01:14:21 +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

17
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/orglo68/lseek.c Normal file
View File

@@ -0,0 +1,17 @@
#ifdef PDP11
lseek(fd,al,pn)
int fd,pn;
long al;
{
register int b,o;
struct { int wd1; int wd2;};
b = al>>9;
o = al.wd2&0777; /*offset in block*/
if(seek(fd,b,pn+3) < 0)
return(-1);
if(seek(fd,o,1) < 0) /*do offset by seeking relative*/
return(-1);
return(0);
}
#endif