Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/4/DUP.C

@@ -0,0 +1,38 @@
+/*
+ *	El-Kludg-o Dup routine.  Takes advantage of the fact that
+ *	stdout is not closed by Bill Allen's stuff.
+ */
+dup(n)
+	register int n;
+{
+	return(n);
+}
+ advantage of the fact that
+ *	stdout is not closed by Bill Allen's stuff.
+ */
+dup(n)
+	egister int n;
+{
+	return(n);
+}
+ advantage of the fact that
+ *	stdout is not closed by Bill Allen's stuff.
+ */
+dup(n)
+	egister int n;
+{
+	return(n);
+}
+ advantage of the fact that
+ *	stdout is not closed by Bill Allen's stuff.
+ */
+dup(n)
+	egister int n;
+{
+	return(n);
+}
+ advantage of the fact that
+ *	stdout is not closed by Bill Allen's stuff.
+ */
+dup(n)
+	

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/4/IODEC.H

@@ -0,0 +1,52 @@
+# define	MAXFILES	15
+
+struct fileps
+{
+	char	*buff;		/* beginning of buffer */
+	char	*bptr;		/* current position */
+	int	nchars;		/* number of characters internal */
+	int	bsize;		/* size of buffer */
+	char	eoferr;		/* end of file flag */
+	char	wrflag;		/* mode flag */
+	char	*pbuff;		/* bottom of peek buffer */
+};
+
+struct fileps	__filehdr[MAXFILES];
+
+struct param
+{
+	int	bufsize;	/* initial buffer size */
+	int	peeksize;	/* initial peek size */
+};
+
+extern struct param	__param;
+
+int			__statbuf[MAXFILES];
+tial buffer size */
+	int	peeksize;	/* initial peek size */
+};
+
+extern struct param	__param;
+
+int			__sttbuf[MAXFILES];
+tial buffer size */
+	int	peeksize;	/* initial peek size */
+};
+
+extern struct param	__param;
+
+int			__sttbuf[MAXFILES];
+tial buffer size */
+	int	peeksize;	/* initial peek size */
+};
+
+extern struct param	__param;
+
+int			__sttbuf[MAXFILES];
+tial buffer size */
+	int	peeksize;	/* initial peek size */
+};
+
+extern struct param	__param;
+
+int			__st

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/4/SEEK.C

@@ -0,0 +1,33 @@
+/*
+ *	Seek.c -- Whitesmith's equivalent of V6 seek
+ */
+long	lseek();
+
+seek(fildes,offset,ptrname)
+	int	fildes;			/* UNIX / WS file descriptor	*/
+	int	offset;			/* File offset, bytes		*/
+	int	ptrname;		/* Sense variable		*/
+{
+	offset &= 0xffff;		/* Clear sign extension problems*/
+	if(ptrname > 2)			/* Not byte sense seek		*/
+	{				/*				*/
+		offset = offset << 9;	/* Multiply by 512		*/
+		ptrname -= 3;		/* reset to range 0 .. 2	*/
+	}				/********************************/
+	return(lseek(fildes,(long)offset,ptrname));
+}
+-= 3;		/* reset to range 0 .. 2	*/
+	}				/********************************/
+	return(lseek(fildes,(ong)offset,ptrname));
+}
+-= 3;		/* reset to range 0 .. 2	*/
+	}				/********************************/
+	return(lseek(fildes,(ong)offset,ptrname));
+}
+-= 3;		/* reset to range 0 .. 2	*/
+	}				/********************************/
+	return(lseek(fildes,(ong)offset,ptrname));
+}
+-= 3;		/* reset to range 0 .. 2	*/
+	}				/********************************/
+	return(lseek(fildes,(