/**************************************************************** * * * CP/M-68K BDOS Main Routine * * * * This is the main routine for the BDOS for CP/M-68K * * It has one entry point, _bdos, which is called from * * the assembly language trap handler found in bdosif.s. * * The parameters are a function number (integer) and an * * information parameter (which is passed from bdosif as * * both an integer and a pointer). * The BDOS can potentially return a pointer, long word, * * or word * * * * 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" /* Declarations of BIOS functions */ /* Declare EXTERN functions */ EXTERN warmboot(); /* Warm Boot function */ EXTERN BOOLEAN constat(); /* Console status */ EXTERN UBYTE conin(); /* Console Input function */ EXTERN tabout(); /* Console output with tab expansion */ EXTERN UBYTE rawconio(); /* Raw console I/O */ EXTERN prt_line(); /* Print line until delimiter */ EXTERN readline(); /* Buffered console read */ EXTERN seldsk(); /* Select disk */ EXTERN BOOLEAN openfile(); /* Open File */ EXTERN UWORD close_fi(); /* Close File */ EXTERN UWORD search(); /* Search first and next fcns */ EXTERN UWORD dirscan(); /* General directory scanning routine */ EXTERN UWORD bdosrw(); /* Sequential and Random disk read/write */ EXTERN BOOLEAN create(); /* Create file */ EXTERN BOOLEAN delete(); /* Delete file */ EXTERN BOOLEAN rename(); /* Rename file */ EXTERN BOOLEAN set_attr(); /* Set file attributes */ EXTERN getsize(); /* Get File Size */ EXTERN setran(); /* Set Random Record */ EXTERN free_sp(); /* Get Disk Free Space */ EXTERN UWORD flushit(); /* Flush Buffers */ EXTERN UWORD pgmld(); /* Program Load */ EXTERN UWORD setexc(); /* Set Exception Vector */ EXTERN set_tpa(); /* Get/Set TPA Limits */ EXTERN move(); /* general purpose byte mover */ /* Declare "true" global variables; i.e., those which will pertain to the entire file system and thus will remain global even when this becomes a multi-tasking file system */ GLOBAL UWORD log_dsk; /* 16-bit vector of logged in drives */ GLOBAL UWORD ro_dsk; /* 16-bit vector of read-only drives */ GLOBAL UWORD crit_dsk; /* 16-bit vector of drives in "critical" state. Used to control dir checksums */ GLOBAL BYTE *tpa_lp; /* TPA lower boundary (permanent) */ GLOBAL BYTE *tpa_lt; /* TPA lower boundary (temporary) */ GLOBAL BYTE *tpa_hp; /* TPA upper boundary (permanent) */ GLOBAL BYTE *tpa_ht; /* TPA upper boundary (temporary) */ /* Declare the "state variables". These are globals for the single-thread version of the file system, but are put in a structure so they can be based, with a pointer coming from the calling process */ GLOBAL struct stvars gbls; struct tempstr { UBYTE tempdisk; BOOLEAN reselect; struct fcb *fptr; }; /**************************************************************** * * * _bdos MAIN ROUTINE * * * * Called with _bdos(func, info, infop) * * * * Where: * * func is the BDOS function number (d0.w) * * info is the word parameter (d1.w) * * infop is the pointer parameter (d1.l) * * note that info is the word form of infop* * * ****************************************************************/ UWORD _bdos(func,info,infop) REG WORD func; /* BDOS function number */ REG UWORD info; /* d1.w word parameter */ REG UBYTE *infop; /* d1.l pointer parameter */ { REG UWORD rtnval; LOCAL struct tempstr temp; BSETUP temp.reselect = FALSE; temp.fptr = infop; rtnval = 0; switch (func) /* switch on function number */ { case 0: warmboot(0); /* warm boot function */ /* break; */ case 1: return((UWORD)conin()); /* console input function */ /* break; */ case 2: tabout((UBYTE)info); /* console output with */ break; /* tab expansion */ case 3: return((UWORD)brdr()); /* get reader from bios */ /* break; */ case 4: bpun((UBYTE)info); /* punch output to bios */ break; case 5: blstout((UBYTE)info); /* list output from bios */ break; case 6: return((UWORD)rawconio(info)); /* raw console I/O */ /* break; */ case 7: return(bgetiob()); /* get i/o byte */ /* break; */ case 8: bsetiob(info); /* set i/o byte function */ break; case 9: prt_line(infop); /* print line function */ break; case 10: readline(infop); /* read buffered con input */ break; case 11: return((UWORD)constat()); /* console status */ /* break; */ case 12: return(VERSION); /* return version number */ /* break; */ case 13: log_dsk = 0; /* reset disk system */ ro_dsk = 0; crit_dsk= 0; GBL.curdsk = 0xff; GBL.dfltdsk = 0; break; case 14: seldsk((UBYTE)info); /* select disk */ GBL.dfltdsk = (UBYTE)info; break; case 15: tmp_sel(&temp); /* open file */ infop->extent = 0; infop->s2 = 0; rtnval = dirscan(openfile, infop, 0); break; case 16: tmp_sel(&temp); /* close file */ rtnval = close_fi(infop); break; case 17: GBL.srchp = infop; /* search first */ rtnval = search(infop, 0, &temp); break; case 18: infop = GBL.srchp; /* search next */ temp.fptr = infop; rtnval = search(infop, 1, &temp); break; case 19: tmp_sel(&temp); /* delete file */ rtnval = dirscan(delete, infop, 2); break; case 20: tmp_sel(&temp); /* read sequential */ rtnval = bdosrw(infop, TRUE, 0); break; case 21: tmp_sel(&temp); /* write sequential */ rtnval = bdosrw(infop, FALSE, 0); break; case 22: tmp_sel(&temp); /* create file */ infop->extent = 0; infop->s1 = 0; infop->s2 = 0; infop->rcdcnt = 0; /* Zero extent, S1, S2, rcrdcnt. create zeros rest */ rtnval = dirscan(create, infop, 8); break; case 23: tmp_sel(&temp); /* rename file */ rtnval = dirscan(rename, infop, 2); break; case 24: return(log_dsk); /* return login vector */ /* break; */ case 25: return(UBWORD(GBL.dfltdsk)); /* return current disk */ /* break; */ case 26: GBL.dmaadr = infop; /* set dma address */ break; /* No function 27 -- Get Allocation Vector */ case 28: ro_dsk |= 1<drvcode = temp.tempdisk; /* if reselected disk, restore it now */ return(rtnval); /* return the BDOS return value */ } /* end _bdos */ tmp_sel(temptr) /* temporarily select disk pointed to by fcb */ REG struct tempstr *temptr; { REG struct fcb *fcbp; REG UBYTE tmp_dsk; BSETUP fcbp = temptr->fptr; /* get local copy of fcb pointer */ tmp_dsk = (temptr->tempdisk = fcbp->drvcode); seldsk( tmp_dsk ? tmp_dsk - 1 : GBL.dfltdsk ); fcbp->drvcode = GBL.user; temptr->reselect = TRUE; }