Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/boot/dskutil.c

@@ -0,0 +1,109 @@
+
+/****************************************************************
+*								*
+*	    CP/M-68K Loader BDOS Disk Utilities Module		*
+*								*
+*	This module contains the miscellaneous utilities  	*
+*	for manipulating the disk in CP/M-68K.  Included are:	*
+*								*
+*		dirscan()   - general purpose dir scanning	*
+*		dir_rd()    - read directory sector		*
+*		rdsec()	    - read/write disk sector		*
+*								*
+*								*
+*	Configured for Alcyon C on the VAX			*
+*								*
+****************************************************************/
+
+#include "stdio.h"		/* Standard I/O declarations */
+
+#include "bdosdef.h"		/* Type and structure declarations for BDOS */
+
+#include "pktio.h"		/* Packet I/O definitions */
+
+
+/* declare external functions and variables */
+EXTERN UWORD	do_phio();	/* external physical disk I/O routine */
+
+
+/**********************
+* read/write routine  *
+**********************/
+
+UWORD rdsec(secnum, dma)
+/* General disk sector read routine */
+/* It simply sets up a I/O packet and sends it to do_phio */
+
+LONG	secnum;			/* logical sector number to read/write */
+UBYTE	*dma;			/* dma address				*/
+
+{
+    struct iopb	rwpkt;
+    BSETUP
+
+    rwpkt.iofcn = (BYTE)read;
+    rwpkt.ioflags = (BYTE)0;
+    rwpkt.devadr = secnum;			/* sector number	*/
+    rwpkt.xferadr = dma;			/* dma address		*/
+
+/*		parameters that are currently not used by do_phio
+    rwpkt.devnum = GBL.curdsk;
+    rwpkt.devtype = disk;
+    rwpkt.xferlen = 1;
+				*/
+    rwpkt.infop = GBL.dphp;			/* pass ptr to dph	*/
+    return(do_phio(&rwpkt));
+}
+
+
+/***************************
+*  directory read routine  *
+***************************/
+
+UWORD dir_rd(secnum)
+
+WORD secnum;
+{
+    BSETUP
+
+    return( rdsec((LONG)secnum, GBL.dirbufp) );
+}
+
+
+/************************
+*  dirscan entry point	*
+************************/
+
+UWORD dirscan(funcp, fcbp)
+
+BOOLEAN (*funcp)();		/* funcp is a pointer to a Boolean function */
+REG struct fcb *fcbp;		/* fcbp is a pointer to a fcb */
+
+{
+    REG UWORD 	i;		/* loop counter		*/
+    REG struct dpb *dparmp;	/* pointer to disk parm block */
+    REG UWORD 	dirsec;		/* sector number we're working on */
+
+    BSETUP
+
+    dparmp = GBL.parmp;			/* init ptr to dpb */
+
+    for ( i =  0 ; i <= dparmp->drm ; i++ )
+    {				/* main directory scanning loop		*/
+	if ( ! (i & 3) )
+	{			/* inside loop happens when we need to 
+				   read another directory sector	*/
+	    dirsec = i >> 2;
+	    if (dir_rd(dirsec))	/* read the directory sector	*/
+		return(0xffff);
+	}
+
+	if ( (*funcp)(fcbp, (GBL.dirbufp) + (i&3), i) )
+			/* call function with parms of (1) fcb ptr,
+			   (2) pointer to directory entry, and
+		   	   (3) directory index		  	*/
+	    return(i & 3);		/* return directory code	*/
+    }
+    return(255);
+}
+