Category : C Source Code
Archive   : C-ALL.ZIP
Filename : TI714.ASC

 
Output of file : TI714.ASC contained in archive : C-ALL.ZIP







PRODUCT : Borland C++ NUMBER : 714
VERSION : 2.0
OS : DOS
DATE : September 18, 1991 PAGE : 1/3

TITLE : Trapping Disk Errors




/*******************************************************
This program will trap disk errors and prompt the user for
action. Try running it with no disk in drive A: to invoke
its functions.
********************************************************/

#include
#include
#include

#define IGNORE 0
#define RETRY 1
#define ABORT 2

int buf[500];

/* define the error messages for trapping
disk problems */
static char *err_msg[] = {
"write protect",
"unknown unit",
"drive not ready",
"unknown command",
"data error (CRC)",
"bad request",
"seek error",
"unknown media type",
"sector not found",
"printer out of paper",
"write fault",
"read fault",
"general failure",
"reserved",
"reserved",
"invalid disk change"
};
/*
User error interface
*/
error_win(char *msg)
{
int retval;














PRODUCT : Borland C++ NUMBER : 714
VERSION : 2.0
OS : DOS
DATE : September 18, 1991 PAGE : 2/3

TITLE : Trapping Disk Errors




cputs(msg);

/* prompt for user to press a key to abort,
retry, ignore */
while(1)
{
retval= getch();
if (retval == 'a' || retval == 'A')
{
retval = ABORT;
break;
}
if (retval == 'r' || retval == 'R')
{
retval = RETRY;
break;
}
if (retval == 'i' || retval == 'I')
{
retval = IGNORE;
break;
}
}

return(retval);
}

/* pragma warn -par reduces warnings which
occur due to the non use of the
parameters errval, bp and si to the
handler */
#pragma warn -par

int handler(int errval,int ax,int bp,int si)
{
static char msg[80];
unsigned di;
int drive;
int errorno;

di= _DI;
/* if this is not a disk error then it was
another device having trouble */













PRODUCT : Borland C++ NUMBER : 714
VERSION : 2.0
OS : DOS
DATE : September 18, 1991 PAGE : 3/3

TITLE : Trapping Disk Errors




if (ax < 0)
{
/* report the error */
error_win("Device error");
/* and return to the program directly
requesting abort */
hardretn(ABORT);
}
/* otherwise it was a disk error */
drive = ax & 0x00FF;
errorno = di & 0x00FF;
/* report which error it was */
sprintf(msg, "Error: %s on drive "
"%c\r\nA)bort, R)etry, I)gnore: ",
err_msg[errorno], 'A' + drive);
/* return to the program via dos interrupt
0x23 with abort, retry or ignore
as input by the user */
hardresume(error_win(msg));
return ABORT;
}
#pragma warn +par


main()
{
/* install our handler on the hardware
problem interrupt */
harderr(handler);
clrscr();
printf("Make sure there is no disk in "
"drive A:\n");
printf("Press any key ....\n");
getch();
printf("Trying to access drive A:\n");
printf("fopen returned %p\n",
fopen("A:temp.dat", "w"));
return 0;
}












  3 Responses to “Category : C Source Code
Archive   : C-ALL.ZIP
Filename : TI714.ASC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/