mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
130 lines
2.7 KiB
C
130 lines
2.7 KiB
C
|
|
/****************************************************************
|
|
* *
|
|
* CP/M-68K BDOS File I/O Module *
|
|
* *
|
|
* This module contains all file handling BDOS functions *
|
|
* except for read and write for CP/M-68K. Included are: *
|
|
* *
|
|
* seldisk() - select disk *
|
|
* openfile() - open file *
|
|
* move() - general purpose byte mover *
|
|
* *
|
|
* *
|
|
* Compiled with 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 fucntions */
|
|
EXTERN UWORD do_phio(); /* packet disk i/o handler */
|
|
EXTERN UWORD swap(); /* assembly language byte swapper */
|
|
|
|
|
|
/************************
|
|
* seldisk entry point *
|
|
************************/
|
|
|
|
WORD seldisk(dsknum)
|
|
|
|
REG UBYTE dsknum; /* disk number to select */
|
|
|
|
{
|
|
struct iopb selpkt;
|
|
REG UWORD *p; /* scratch pointer */
|
|
REG WORD i;
|
|
BSETUP
|
|
|
|
if (UBWORD(dsknum) > 15) return(0xffff);
|
|
selpkt.iofcn = sel_info;
|
|
selpkt.devnum = dsknum;
|
|
selpkt.ioflags = 0;
|
|
do_phio(&selpkt); /* actually do the disk select */
|
|
if ((GBL.dphp = selpkt.infop) == NULL)
|
|
return(0xffff);
|
|
GBL.dirbufp = (GBL.dphp)->dbufp;
|
|
/* set up GBL copies of dir_buf and dpb ptrs */
|
|
GBL.parmp = (GBL.dphp)->dpbp;
|
|
return(0);
|
|
}
|
|
|
|
|
|
/*******************************
|
|
* General purpose byte mover *
|
|
*******************************/
|
|
|
|
move(p1, p2, i)
|
|
|
|
REG BYTE *p1;
|
|
REG BYTE *p2;
|
|
REG WORD i;
|
|
{
|
|
while (i--)
|
|
*p2++ = *p1++;
|
|
}
|
|
|
|
|
|
/*************************************
|
|
* General purpose filename matcher *
|
|
*************************************/
|
|
|
|
BOOLEAN match(p1, p2, chk_ext)
|
|
|
|
REG UBYTE *p1;
|
|
REG UBYTE *p2;
|
|
BOOLEAN chk_ext;
|
|
{
|
|
REG WORD i;
|
|
REG UBYTE temp;
|
|
BSETUP
|
|
|
|
i = 12;
|
|
do
|
|
{
|
|
temp = (*p1 ^ '?');
|
|
if ( ((*p1++ ^ *p2++) & 0x7f) && temp )
|
|
return(FALSE);
|
|
i -= 1;
|
|
} while (i);
|
|
if (chk_ext)
|
|
{
|
|
if ( (*p1 != '?') && ((*p1 ^ *p2) & ~((GBL.parmp)->exm)) )
|
|
return(FALSE);
|
|
p1 += 2;
|
|
p2 += 2;
|
|
if ((*p1 ^ *p2) & 0x3f) return(FALSE);
|
|
}
|
|
return(TRUE);
|
|
}
|
|
|
|
|
|
/************************
|
|
* openfile entry point *
|
|
************************/
|
|
|
|
BOOLEAN openfile(fcbp, dirp, dirindx)
|
|
|
|
REG struct fcb *fcbp; /* pointer to fcb for file to open */
|
|
struct dirent *dirp; /* pointer to directory entry */
|
|
WORD dirindx;
|
|
|
|
{
|
|
REG UBYTE fcb_ext; /* extent field from fcb */
|
|
REG BOOLEAN rtn;
|
|
|
|
if ( rtn = match(fcbp, dirp, TRUE) )
|
|
{
|
|
fcb_ext = fcbp->extent; /* save extent number from user's fcb */
|
|
move(dirp, fcbp, sizeof *dirp);
|
|
/* copy dir entry into user's fcb */
|
|
fcbp->extent = fcb_ext;
|
|
}
|
|
return(rtn);
|
|
}
|
|
|