mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
308 lines
6.6 KiB
C
308 lines
6.6 KiB
C
|
|
/****************************************************************
|
|
* *
|
|
* CP/M-68K BDOS Miscellaneous Module *
|
|
* *
|
|
* This module contains miscellaneous loose ends for *
|
|
* CP/M-68K. Included are: *
|
|
* *
|
|
* bdosinit() - BDOS initialization routine *
|
|
* called from CCP for system init *
|
|
* warmboot() - BDOS warm boot exit routine *
|
|
* error() - BDOS error printing routine *
|
|
* ro_err() - BDOS read-only file error routine *
|
|
* setexc() - BDOS set exception vector *
|
|
* set_tpa() - BDOS get/set TPA limits *
|
|
* serial # and copyright notice, machine readable *
|
|
* *
|
|
* *
|
|
* Configured for Alcyon C on the VAX *
|
|
* *
|
|
****************************************************************/
|
|
|
|
#include "bdosinc.h" /* Standard I/O declarations */
|
|
|
|
#include "bdosdef.h" /* Type and structure declarations for BDOS */
|
|
|
|
#include "biosdef.h" /* BIOS definitions, needed for bios wboot */
|
|
|
|
|
|
/* serial # and copyright notice */
|
|
|
|
char *copyrt="CP/M-68K(tm), Version 1.1, Copyright (c) 1983, Digital Research";
|
|
char *serial="XXXX-0000-654321";
|
|
|
|
|
|
|
|
/* Declare external functions */
|
|
EXTERN conout(); /* Console Output function */
|
|
EXTERN UBYTE conin(); /* Console Input function */
|
|
EXTERN prt_line(); /* Print String function */
|
|
EXTERN UWORD _bdos(); /* BDOS main routine */
|
|
EXTERN UBYTE *traphndl(); /* assembly language trap handler */
|
|
EXTERN initexc(); /* init the exception handler in */
|
|
/* exceptn.s */
|
|
EXTERN UWORD dirscan(); /* Directory scanning routine */
|
|
EXTERN BOOLEAN set_attr(); /* Set File attributes function */
|
|
EXTERN UWORD dir_rd(); /* Read directory sector routine */
|
|
|
|
/* Declare external variables */
|
|
EXTERN UWORD log_dsk; /* logged-on disk vector */
|
|
EXTERN UWORD ro_dsk; /* read-only disk vector */
|
|
EXTERN UWORD crit_dsk; /* vector of critical disks */
|
|
EXTERN BYTE *tpa_lt; /* TPA lower limit (temporary) */
|
|
EXTERN BYTE *tpa_lp; /* TPA lower limit (permanent) */
|
|
EXTERN BYTE *tpa_ht; /* TPA upper limit (temporary) */
|
|
EXTERN BYTE *tpa_hp; /* TPA upper limit (permanent) */
|
|
EXTERN BOOLEAN submit; /* external variables from CCP */
|
|
EXTERN BOOLEAN morecmds;
|
|
|
|
|
|
#define trap2v 34 /* trap 2 vector number */
|
|
#define ctrlc 3 /* control-c */
|
|
|
|
|
|
/********************************
|
|
* bdos initialization routine *
|
|
********************************/
|
|
|
|
bdosinit()
|
|
/* Initialize the File System */
|
|
{
|
|
REG struct
|
|
{
|
|
WORD nmbr;
|
|
BYTE *low;
|
|
LONG length;
|
|
} *segp;
|
|
BSETUP
|
|
|
|
bsetvec(trap2v, &traphndl); /* set up trap vector */
|
|
GBL.kbchar = 0; /* initialize the "global" variables */
|
|
GBL.delim = '$';
|
|
GBL.lstecho = FALSE;
|
|
GBL.echodel = TRUE;
|
|
GBL.chainp = NULL;
|
|
_bdos(13); /* reset disk system function */
|
|
segp = bgetseg(); /* get pointer to memory segment table */
|
|
tpa_lt = tpa_lp = segp->low;
|
|
tpa_ht = tpa_hp = tpa_lp + segp->length;
|
|
initexc( &(GBL.excvec[0]) );
|
|
}
|
|
|
|
|
|
/************************
|
|
* warmboot entry point *
|
|
************************/
|
|
|
|
warmboot(parm)
|
|
/* Warm Boot the system */
|
|
WORD parm; /* 1 to reset submit flag */
|
|
{
|
|
BSETUP
|
|
|
|
log_dsk &= ~ro_dsk; /* log off any disk marked read-only */
|
|
/* note that this code is specifically for a single-
|
|
thread system. It won't work in a multi-task sys */
|
|
ro_dsk = 0;
|
|
crit_dsk = 0;
|
|
if (parm)
|
|
submit = morecmds = FALSE;
|
|
GBL.curdsk = 0xff; /* set current disk to "unknown" */
|
|
tpa_lt = tpa_lp;
|
|
tpa_ht = tpa_hp;
|
|
initexc( &(GBL.excvec[0]) );
|
|
bwboot();
|
|
}
|
|
|
|
|
|
/*************************/
|
|
/* disk error handlers */
|
|
/*************************/
|
|
|
|
prt_err(p)
|
|
/* print the error message */
|
|
|
|
BYTE *p;
|
|
{
|
|
BSETUP
|
|
|
|
prt_line(p);
|
|
prt_line(" error on drive $");
|
|
conout(GBL.curdsk + 'A');
|
|
}
|
|
|
|
|
|
abrt_err(p)
|
|
/* print the error message and always abort */
|
|
|
|
BYTE *p;
|
|
{
|
|
prt_err(p);
|
|
warmboot(1);
|
|
}
|
|
|
|
|
|
ext_err(cont,p)
|
|
/* print the error message, and allow for retry, abort, or ignore */
|
|
|
|
REG BOOLEAN cont; /* Boolean for whether continuing is allowed */
|
|
BYTE *p; /* pointer to error message */
|
|
{
|
|
REG UBYTE ch;
|
|
|
|
prt_err(p);
|
|
do
|
|
{
|
|
prt_line("\n\rDo you want to: Abort (A), Retry (R)$");
|
|
if (cont) prt_line(", or Continue with bad data (C)$");
|
|
prt_line("? $");
|
|
ch = conin() & 0x5f;
|
|
prt_line("\r\n$");
|
|
|
|
switch ( ch )
|
|
{
|
|
case ctrlc: warmboot(1);
|
|
case 'A': warmboot(1);
|
|
case 'C': if (cont) return(1);
|
|
break;
|
|
case 'R': return(0);
|
|
}
|
|
} while (TRUE);
|
|
}
|
|
|
|
|
|
/********************************/
|
|
/* Read-only File Error Routine */
|
|
/********************************/
|
|
|
|
ro_err(fcbp,dirindx)
|
|
/* File R/O error */
|
|
|
|
REG struct fcb *fcbp;
|
|
WORD dirindx;
|
|
{
|
|
REG BYTE *p;
|
|
REG UWORD i;
|
|
REG UBYTE ch;
|
|
|
|
p = (BYTE *)fcbp;
|
|
prt_line("CP/M Disk file error: $");
|
|
i = 8;
|
|
do conout(*++p & 0x7f); while (--i);
|
|
conout('.');
|
|
i = 3;
|
|
do conout(*++p & 0x7f); while (--i);
|
|
prt_line(" is read-only.$");
|
|
do
|
|
{
|
|
prt_line("\r\nDo you want to: Change it to read/write (C), or Abort (A)? $");
|
|
ch = conin() & 0x5f;
|
|
prt_line("\r\n$");
|
|
|
|
switch ( ch )
|
|
{
|
|
case ctrlc: warmboot(1);
|
|
case 'A': warmboot(1);
|
|
case 'C': fcbp->ftype[robit] &= 0x7f;
|
|
dirscan(set_attr, fcbp, 2);
|
|
return(dir_rd(dirindx >> 2));
|
|
} /* Reset the directory buffer !!!! */
|
|
} while (TRUE);
|
|
}
|
|
|
|
|
|
/************************
|
|
* error entry point *
|
|
************************/
|
|
|
|
error(errnum)
|
|
/* Print error message, do appropriate response */
|
|
|
|
UWORD errnum; /* error number */
|
|
{
|
|
BSETUP
|
|
|
|
prt_line("\r\nCP/M Disk $");
|
|
switch (errnum)
|
|
{
|
|
case 0: return( ext_err(TRUE,"read$") );
|
|
/* break; */
|
|
|
|
case 1: return( ext_err(TRUE,"write$") );
|
|
/* break; */
|
|
|
|
case 2: abrt_err("select$");
|
|
/* break; */
|
|
|
|
case 3: return( ext_err(FALSE,"select$") );
|
|
/* break; */
|
|
|
|
case 4: abrt_err("change$");
|
|
/* break; */
|
|
|
|
}
|
|
}
|
|
|
|
|
|
/*****************************
|
|
* set exception entry point *
|
|
*****************************/
|
|
|
|
setexc(epbp)
|
|
/* Set Exception Vector */
|
|
REG struct
|
|
{
|
|
WORD vecnum;
|
|
BYTE *newvec;
|
|
BYTE *oldvec;
|
|
} *epbp;
|
|
|
|
{
|
|
REG WORD i;
|
|
BSETUP
|
|
|
|
i = epbp->vecnum-2;
|
|
if ( i==32 || i==33) return(-1);
|
|
if ( (30 <= i) && (i <= 37) ) i -= 20;
|
|
else if ( (i < 0) || (i > 9) ) return(255);
|
|
epbp->oldvec = GBL.excvec[i];
|
|
GBL.excvec[i] = epbp->newvec;
|
|
return(0);
|
|
}
|
|
|
|
|
|
/*****************************
|
|
* get/set TPA entry point *
|
|
*****************************/
|
|
|
|
set_tpa(p)
|
|
/* Get/Set TPA Limits */
|
|
REG struct
|
|
{
|
|
UWORD parms;
|
|
BYTE *low;
|
|
BYTE *high;
|
|
} *p;
|
|
|
|
#define set 1
|
|
#define sticky 2
|
|
|
|
{
|
|
if (p->parms & set)
|
|
{
|
|
tpa_lt = p->low;
|
|
tpa_ht = p->high;
|
|
if (p->parms & sticky)
|
|
{
|
|
tpa_lp = tpa_lt;
|
|
tpa_hp = tpa_ht;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
p->low = tpa_lt;
|
|
p->high = tpa_ht;
|
|
}
|
|
}
|