mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-22 16:04:18 +00:00
113 lines
3.0 KiB
C
113 lines
3.0 KiB
C
|
||
/****************************************************************
|
||
* *
|
||
* 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);
|
||
}
|
||
|
||
|
||
rn(255);
|
||
}
|
||
|
||
|
||
|