mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
22 lines
379 B
C
22 lines
379 B
C
#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 */
|
|
}
|