Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/6/READL.C

@@ -0,0 +1,25 @@
+#include "portab.h"
+
+LONG	readl(fd,buf,lnum)			/* CLEAR FUNCTION ***********/
+WORD		fd;		/* file descriptor */
+REG BYTE	*buf;		/* addr */
+LONG	 	lnum;		/* size */
+{
+LONG		R;
+REG UWORD	tmp;
+
+	R = lnum;
+	while (lnum != 0)
+		{
+		  tmp = (lnum < 32768L)? (int)lnum : 32768;
+		  if (read(fd,buf,tmp) != tmp)
+			break;
+		  buf += tmp;
+		  lnum -= tmp;
+		}
+	return(R-lnum);		/* number of bytes read */
+}
+		/* number of bytes read */
+}
+		/* number of bytes read */
+}