mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
70 lines
2.0 KiB
C
70 lines
2.0 KiB
C
|
||
/****************************************************************
|
||
* *
|
||
* CP/M-68K BDOS Disk I/O System Module *
|
||
* *
|
||
* This module translates from the packet oriented I/O *
|
||
* passed from the other BDOS modules into BIOS calls. *
|
||
* *
|
||
* It includes only one external entry point:
|
||
* do_phio() - do physical i/o *
|
||
* *
|
||
* *
|
||
* 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 */
|
||
|
||
#include "biosdef.h" /* Declarations for BIOS entry points */
|
||
|
||
EXTERN udiv(); /* Assembly language unsigned divide routine */
|
||
/* in bdosif.s. It's used because Alcyon C */
|
||
/* can't do / or % without an external */
|
||
|
||
/************************
|
||
* do_phio entry point *
|
||
************************/
|
||
|
||
UWORD do_phio(iop)
|
||
|
||
REG struct iopb *iop; /* iop is a pointer to a i/o parameter block */
|
||
|
||
{
|
||
REG struct dph *hdrp; /* pointer to disk parameter header */
|
||
REG struct dpb *dparmp; /* pointer to disk parameter block */
|
||
struct
|
||
{ /* structure for results of external divide */
|
||
UWORD iotrk;
|
||
UWORD iosect;
|
||
} iopdiv;
|
||
|
||
LOCK /* lock the disk system while doing physical i/o */
|
||
|
||
switch (iop->iofcn)
|
||
{
|
||
case sel_info:
|
||
iop->infop = bseldsk(iop->devnum, iop->ioflags);
|
||
break;
|
||
|
||
case read:
|
||
hdrp = iop->infop;
|
||
dparmp = hdrp->dpbp;
|
||
udiv( iop->devadr, dparmp->spt, &iopdiv );
|
||
bsettrk( iopdiv.iotrk + dparmp->trk_off );
|
||
bsetsec( bsectrn( iopdiv.iosect, hdrp->xlt ) );
|
||
bsetdma(iop->xferadr);
|
||
return(bread());
|
||
|
||
}
|
||
|
||
UNLOCK
|
||
return(0);
|
||
}
|
||
|
||
return(0);
|
||
}
|
||
|
||
|