Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/writel.c

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