Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/clib/blkio.c

@@ -0,0 +1,78 @@
+/****************************************************************************/
+/*									    */
+/*			   _ b l k i o   F u n c t i o n		    */
+/*			   -----------------------------		    */
+/*	Copyright 1982 by Digital Research Inc.  All rights reserved.       */
+/*									    */
+/*	The _blkio function is used to read / write a set of contiguous	    */
+/*	sectors in an open file.					    */
+/*	Note: it will use CP/M function 44 (Set Multi-Sector Count) if	    */
+/*	MAXSXFR > 1.  This is for BDOS version 3.0 or greater.		    */
+/*									    */
+/*	Calling Sequence:						    */
+/*									    */
+/*		ret = _blkio(ccb,sector,buffer,count,bdosfunc);		    */
+/*									    */
+/*	Where:								    */
+/*		ret	=  sectors actually read/written		    */
+/*		ccb	-> the open file channel control block		    */
+/*		sector	=  The desired starting sector number		    */
+/*		buffer  =  The memory address to begin transfer		    */
+/*		count	=  the number of sectors to read/write		    */
+/*		bdosfunc=  The BDOS function number (B_READ / B_WRITE)	    */
+/*									    */
+/*									    */
+/****************************************************************************/
+#include	<portab.h>
+#include	<cpm.h>
+	LONG
+_blkio(ccb,sector,buffer,count,bdosfunc)
+						/****************************/
+	REG  FD		*ccb;			/* open file pointer	    */
+	REG  LONG	sector;			/* Sector number	    */
+	REG  BYTE	*buffer;		/* User's buffer area	    */
+	REG  LONG	count;			/* # of sectors to do	    */
+	REG  int	bdosfunc;		/* BDOS function to use	    */
+						/****************************/
+
+{						/****************************/
+	REG  WORD	nsecs;			/* # secs to xfer each time */
+	REG  LONG	seccnt;			/* # sectors processed	    */
+	REG  WORD	xuser;			/* old user number	    */
+						/****************************/
+	seccnt = 0;				/* Zero count initally	    */
+	xuser = __BDOS(USER,0xFFL);		/* Get current user #	    */
+	if(xuser != ccb->user)			/* File have a different 1? */
+	  __BDOS(USER,(LONG)ccb->user);		/* Yes, set to that	    */
+						/*			    */
+	while (count > 0)			/* Until all sectors xferred*/
+	{					/*			    */
+		__BDOS(SETDMA,buffer);		/* Set new DMA address	    */
+		ccb->fcb.record = sector;	/* Set new record number    */
+#if _MAXSXFR > 1				/* Can we xfer multi-secs?  */
+		nsecs = min(_MAXSXFR,count);	/* Ifso, xfer many	    */
+		__BDOS(SETMSC,nsecs);		/* Always set before r/w    */
+#else						/*   if possible	    */
+		nsecs = 1;			/* o.w. xfer singly	    */
+#endif						/*			    */
+		if(__BDOS(bdosfunc,&(ccb->fcb))	/* do the read	    	    */
+			!= 0)			/* Check for errors	    */
+		{				/****************************/
+	/*** WE SHOULD CHECK FOR SPARSE FILES HERE... ***/
+		  if(nsecs>1)			/* were we trying multi-sec?*/
+		    nsecs = __cpmrv >>_MAXSHFT;	/* adjust nsecs read ifso   */
+		  else nsecs=0;			/* ow. assume 0 secs read   */
+		  if(ccb->user != xuser)	/* Changed users?	    */
+			__BDOS(USER,(LONG)xuser);/* Yes, change back	    */
+		  return(seccnt+nsecs);		/* Return nfg		    */
+		}				/****************************/
+						/*			    */
+		sector += nsecs;		/* Increment sector number  */
+		count  -= nsecs;		/* Down count		    */
+		seccnt += nsecs;		/* Bump sector count	    */
+		buffer += nsecs*SECSIZ;		/* Increment address	    */
+	}					/****************************/
+	if(ccb->user != xuser)			/* Different user #'s??	    */
+	  __BDOS(USER,(LONG)xuser);		/* Yes, reset to original   */
+	return(seccnt);				/* All is OK		    */
+}						/****************************/