Upload

Digital Research

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

@@ -0,0 +1,129 @@
+
+/****************************************************************
+*								*
+*		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);
+}
+