[simh.git] / Ibm1130 / utils / checkdisk.c

/*\r
 * (C) Copyright 2002, Brian Knittel.\r
 * You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN\r
 * RISK basis, there is no warranty of fitness for any purpose, and the rest of the\r
 * usual yada-yada. Please keep this notice and the copyright in any distributions\r
 * or modifications.\r
 *\r
 * This is not a supported product, but I welcome bug reports and fixes.\r
 * Mail to sim@ibm1130.org\r
 */\r
\r
// checkdisk - validates and optionally dumps an IBM1130 DMS2 disk image file\r
//\r
// Usage:\r
//		checkdisk [-f] [-d cyl.sec|abssec] [-n count] filename\r
//\r
// Examples:\r
//		checkdisk file.dsk\r
//				report any misnumbered sectors in file.dsk\r
//\r
//		checkdisk -f file.dsk\r
//				report and fix any misnumbered sectors\r
//\r
//		checkdisk -d 198.0 file.dsk\r
//				dump cylinder 198 sector 0\r
//\r
//		checkdisk -d 0 file.dsk\r
//				dump absolute sector 0\r
//\r
//		checkdisk -d 198.0 -n 4 file.dsk\r
//				dump 4 sectors starting at m.n\r
// -----------------------------------------------------------------------------------------\r
#include <stdio.h>\r
#include <stdlib.h>\r
#include <string.h>\r
#include "util_io.h"\r
\r
#ifdef _WIN32\r
#  include <io.h> \r
#else\r
	long filelength (int fno);\r
#   include <sys/types.h>\r
#   include <sys/stat.h>\r
#endif\r
\r
#ifndef TRUE\r
#  define BOOL  int\r
#  define TRUE  1\r
#  define FALSE 0\r
#endif\r
\r
#define DSK_NUMWD	321				/* words/sector */\r
#define DSK_NUMSC	4				/* sectors/surface */\r
#define DSK_NUMSF	2				/* surfaces/cylinder */\r
#define DSK_NUMCY	203				/* cylinders/drive */\r
#define DSK_NUMDR	5				/* drives/controller */\r
#define DSK_SIZE (DSK_NUMCY * DSK_NUMSF * DSK_NUMSC * DSK_NUMWD)  /* words/drive */\r
\r
char *usestr  = "Usage: checkdisk [-f] [-d cyl.sec|abssec] [-n count] diskfile";\r
char *baddisk = "Cannot fix this";\r
\r
void bail (char *msg);\r
char *lowcase (char *str);\r
\r
int main (int argc, char **argv)\r
{\r
	FILE *fp;\r
	char *fname = NULL, *arg, *argval;\r
	int i, j, cyl, sec, pos, asec, retry, nbad = 0, nfixed = 0, nline;\r
	BOOL fixit = FALSE, dump = FALSE;\r
	int dsec, nsec = 1;\r
	unsigned short wd, buf[DSK_NUMWD];\r
\r
	for (i = 1; i < argc;) {\r
		arg = argv[i++];\r
		if (*arg == '-') {\r
			arg++;\r
			lowcase(arg);\r
			while (*arg) {\r
				switch (*arg++) {\r
					case 'f':\r
						fixit = TRUE;\r
						break;\r
\r
					case 'd':\r
						dump = TRUE;\r
\r
						if (i >= argc)\r
							bail(usestr);\r
\r
						argval = argv[i++];\r
						if (strchr(argval, '.') != NULL) {\r
							if (sscanf(argval, "%d.%d", &cyl, &sec) != 2)\r
								bail(usestr);\r
\r
							dsec = cyl*(DSK_NUMSF*DSK_NUMSC) + sec;\r
						}\r
						else if (sscanf(argval, "%d", &dsec) != 1)\r
							bail(usestr);\r
\r
						if (dsec < 0 || dsec >= (DSK_NUMCY*DSK_NUMSF*DSK_NUMSC))\r
							bail("No such sector");\r
\r
						break;\r
\r
					case 'n':\r
						if (i >= argc)\r
							bail(usestr);\r
\r
						argval = argv[i++];\r
						if (sscanf(argval, "%d", &nsec) != 1)\r
							bail(usestr);\r
\r
						if (nsec <= 0)\r
							bail(usestr);\r
\r
						break;\r
\r
					default:\r
						bail(usestr);\r
				}\r
			}\r
		}\r
		else if (fname == NULL)\r
			fname = arg;\r
		else\r
			bail(usestr);\r
	}\r
\r
	if (fname == NULL)\r
		bail(usestr);\r
\r
	if ((fp = fopen(fname, "rb+")) == NULL) {\r
		perror(fname);\r
		return 1;\r
	}\r
\r
	if (filelength(fileno(fp)) != 2*DSK_SIZE) {\r
		fprintf(stderr, "File is wrong length, expected %d\n", DSK_SIZE);\r
		bail(baddisk);\r
	}\r
\r
	for (cyl = 0; cyl < DSK_NUMCY; cyl++) {\r
		for (sec = 0; sec < (DSK_NUMSF*DSK_NUMSC); sec++) {\r
			retry = 1;\r
again:\r
			asec = cyl*(DSK_NUMSF*DSK_NUMSC) + sec;\r
			pos  = asec*2*DSK_NUMWD;\r
\r
			if (fseek(fp, pos, SEEK_SET) !=	0) {\r
				fprintf(stderr, "Error seeking to pos %x\n", pos);\r
				bail(baddisk);\r
			}\r
\r
			if (fxread(&wd, sizeof(wd), 1, fp) != 1) {\r
				fprintf(stderr, "Error reading word at abs sec %x, cyl %x, sec %x at offset %x\n", asec, cyl, sec, pos);\r
				bail(baddisk);\r
			}\r
\r
			if (wd != asec) {\r
				fprintf(stderr, "Bad sector #%x at abs sec %x, cyl %x, sec %x at offset %x\n", wd, asec, cyl, sec, pos);\r
				nbad++;\r
\r
				if (fixit) {\r
					if (fseek(fp, pos, SEEK_SET) !=	0) {\r
						fprintf(stderr, "Error seeking to pos %x\n", pos);\r
						bail(baddisk);\r
					}\r
\r
					if (fxwrite(&asec, sizeof(wd), 1, fp) != 1) {\r
						fprintf(stderr, "Error writing sector # to abs sec %x, cyl %x, sec %x at offset %x\n", asec, cyl, sec, pos);\r
						bail(baddisk);\r
					}\r
\r
					if (retry) {\r
						retry = 0;\r
						nfixed++;\r
						goto again;\r
					}\r
	\r
					fprintf(stderr, "Failed after retry\n");\r
					bail(baddisk);\r
				}\r
			}\r
		}\r
	}\r
\r
	if (nbad)\r
		printf("%d bad sector mark%s %s\n", nbad, (nbad == 1) ? "" : "s", fixit ? "fixed" : "found");\r
	else if (! dump)\r
		printf("All sector marks OK\n");\r
\r
	if (! dump)\r
		return 0;\r
\r
	pos  = dsec*2*DSK_NUMWD;\r
	if (fseek(fp, pos, SEEK_SET) !=	0) {\r
		fprintf(stderr, "Error seeking to pos %x\n", pos);\r
		bail(baddisk);\r
	}\r
\r
	for (i = 0; i < nsec; i++) {\r
		cyl = dsec / (DSK_NUMSF*DSK_NUMSC);\r
		sec = dsec - cyl*(DSK_NUMSF*DSK_NUMSC);\r
\r
		if (fxread(&buf, sizeof(buf[0]), DSK_NUMWD, fp) != DSK_NUMWD) {\r
			fprintf(stderr, "Error reading abs sec %x, cyl %x, sec %x at offset %x\n", dsec, cyl, sec, pos);\r
			bail(baddisk);\r
		}\r
\r
		printf("\nSector %d.%d - %d - /%04x label %04x\n", cyl, sec, dsec, dsec, buf[0]);\r
		for (nline = 0, j = 1; j < DSK_NUMWD; j++) {\r
			printf("%04x", buf[j]);\r
			if (++nline == 16) {\r
				putchar('\n');\r
				nline = 0;\r
			}\r
			else\r
				putchar(' ');\r
		}\r
\r
		dsec++;\r
	}\r
\r
	return 0;\r
}\r
\r
void bail (char *msg)\r
{\r
	fprintf(stderr, "%s\n", msg);\r
	exit(1);\r
}\r
\r
/* ------------------------------------------------------------------------ \r
 * lowcase - force a string to lower case (ASCII)\r
 * ------------------------------------------------------------------------ */\r
\r
char *lowcase (char *str)\r
{\r
	char *s;\r
\r
	for (s = str; *s; s++) {\r
		if (*s >= 'A' && *s <= 'Z')\r
			*s += 32;\r
	} \r
\r
	return str;\r
}\r
\r
#ifndef _WIN32\r
\r
long filelength (int fno)\r
{\r
    struct stat sb;\r
    \r
    if (fstat(fno, &sb) != 0)\r
		return 0;\r
\r
	return (long) sb.st_size;\r
}\r
#endif\r
\r
Commit	Line	Data
196ba1fc PH	1	/*\r
	2	* (C) Copyright 2002, Brian Knittel.\r
	3	* You may freely use this program, but: it offered strictly on an AS-IS, AT YOUR OWN\r
	4	* RISK basis, there is no warranty of fitness for any purpose, and the rest of the\r
	5	* usual yada-yada. Please keep this notice and the copyright in any distributions\r
	6	* or modifications.\r
	7	*\r
	8	* This is not a supported product, but I welcome bug reports and fixes.\r
	9	* Mail to sim@ibm1130.org\r
	10	*/\r
	11	\r
	12	// checkdisk - validates and optionally dumps an IBM1130 DMS2 disk image file\r
	13	//\r
	14	// Usage:\r
	15	// checkdisk [-f] [-d cyl.sec\|abssec] [-n count] filename\r
	16	//\r
	17	// Examples:\r
	18	// checkdisk file.dsk\r
	19	// report any misnumbered sectors in file.dsk\r
	20	//\r
	21	// checkdisk -f file.dsk\r
	22	// report and fix any misnumbered sectors\r
	23	//\r
	24	// checkdisk -d 198.0 file.dsk\r
	25	// dump cylinder 198 sector 0\r
	26	//\r
	27	// checkdisk -d 0 file.dsk\r
	28	// dump absolute sector 0\r
	29	//\r
	30	// checkdisk -d 198.0 -n 4 file.dsk\r
	31	// dump 4 sectors starting at m.n\r
	32	// -----------------------------------------------------------------------------------------\r
	33	#include <stdio.h>\r
	34	#include <stdlib.h>\r
	35	#include <string.h>\r
	36	#include "util_io.h"\r
	37	\r
	38	#ifdef _WIN32\r
	39	# include <io.h> \r
	40	#else\r
	41	long filelength (int fno);\r
	42	# include <sys/types.h>\r
	43	# include <sys/stat.h>\r
	44	#endif\r
	45	\r
	46	#ifndef TRUE\r
	47	# define BOOL int\r
	48	# define TRUE 1\r
	49	# define FALSE 0\r
	50	#endif\r
	51	\r
	52	#define DSK_NUMWD 321 /* words/sector */\r
	53	#define DSK_NUMSC 4 /* sectors/surface */\r
	54	#define DSK_NUMSF 2 /* surfaces/cylinder */\r
	55	#define DSK_NUMCY 203 /* cylinders/drive */\r
	56	#define DSK_NUMDR 5 /* drives/controller */\r
	57	#define DSK_SIZE (DSK_NUMCY * DSK_NUMSF * DSK_NUMSC * DSK_NUMWD) /* words/drive */\r
	58	\r
	59	char *usestr = "Usage: checkdisk [-f] [-d cyl.sec\|abssec] [-n count] diskfile";\r
	60	char *baddisk = "Cannot fix this";\r
	61	\r
	62	void bail (char *msg);\r
	63	char lowcase (char str);\r
	64	\r
65	int main (int argc, char **argv)\r
66	{\r
67	FILE *fp;\r
68	char fname = NULL, arg, *argval;\r
69	int i, j, cyl, sec, pos, asec, retry, nbad = 0, nfixed = 0, nline;\r
70	BOOL fixit = FALSE, dump = FALSE;\r
71	int dsec, nsec = 1;\r
72	unsigned short wd, buf[DSK_NUMWD];\r
73	\r
74	for (i = 1; i < argc;) {\r
75	arg = argv[i++];\r
76	if (*arg == '-') {\r
77	arg++;\r
78	lowcase(arg);\r
79	while (*arg) {\r
80	switch (*arg++) {\r
81	case 'f':\r
82	fixit = TRUE;\r
83	break;\r
84	\r
85	case 'd':\r
86	dump = TRUE;\r
87	\r
88	if (i >= argc)\r
89	bail(usestr);\r
90	\r
91	argval = argv[i++];\r
92	if (strchr(argval, '.') != NULL) {\r
93	if (sscanf(argval, "%d.%d", &cyl, &sec) != 2)\r
94	bail(usestr);\r
95	\r
96	dsec = cyl(DSK_NUMSFDSK_NUMSC) + sec;\r
97	}\r
98	else if (sscanf(argval, "%d", &dsec) != 1)\r
99	bail(usestr);\r
100	\r
101	if (dsec < 0 \|\| dsec >= (DSK_NUMCYDSK_NUMSFDSK_NUMSC))\r
102	bail("No such sector");\r
103	\r
104	break;\r
105	\r
106	case 'n':\r
107	if (i >= argc)\r
108	bail(usestr);\r
109	\r
110	argval = argv[i++];\r
111	if (sscanf(argval, "%d", &nsec) != 1)\r
112	bail(usestr);\r
113	\r
114	if (nsec <= 0)\r
115	bail(usestr);\r
116	\r
117	break;\r
118	\r
119	default:\r
120	bail(usestr);\r
121	}\r
122	}\r
123	}\r
124	else if (fname == NULL)\r
125	fname = arg;\r
126	else\r
127	bail(usestr);\r
128	}\r
129	\r
130	if (fname == NULL)\r
131	bail(usestr);\r
132	\r
133	if ((fp = fopen(fname, "rb+")) == NULL) {\r
134	perror(fname);\r
135	return 1;\r
136	}\r
137	\r
138	if (filelength(fileno(fp)) != 2*DSK_SIZE) {\r
139	fprintf(stderr, "File is wrong length, expected %d\n", DSK_SIZE);\r
140	bail(baddisk);\r
141	}\r
142	\r
143	for (cyl = 0; cyl < DSK_NUMCY; cyl++) {\r
144	for (sec = 0; sec < (DSK_NUMSF*DSK_NUMSC); sec++) {\r
145	retry = 1;\r
146	again:\r
147	asec = cyl(DSK_NUMSFDSK_NUMSC) + sec;\r
148	pos = asec2DSK_NUMWD;\r
149	\r
150	if (fseek(fp, pos, SEEK_SET) != 0) {\r
151	fprintf(stderr, "Error seeking to pos %x\n", pos);\r
152	bail(baddisk);\r
153	}\r
154	\r
155	if (fxread(&wd, sizeof(wd), 1, fp) != 1) {\r
156	fprintf(stderr, "Error reading word at abs sec %x, cyl %x, sec %x at offset %x\n", asec, cyl, sec, pos);\r
157	bail(baddisk);\r
158	}\r
159	\r
160	if (wd != asec) {\r
161	fprintf(stderr, "Bad sector #%x at abs sec %x, cyl %x, sec %x at offset %x\n", wd, asec, cyl, sec, pos);\r
162	nbad++;\r
163	\r
164	if (fixit) {\r
165	if (fseek(fp, pos, SEEK_SET) != 0) {\r
166	fprintf(stderr, "Error seeking to pos %x\n", pos);\r
167	bail(baddisk);\r
168	}\r
169	\r
170	if (fxwrite(&asec, sizeof(wd), 1, fp) != 1) {\r
171	fprintf(stderr, "Error writing sector # to abs sec %x, cyl %x, sec %x at offset %x\n", asec, cyl, sec, pos);\r
172	bail(baddisk);\r
173	}\r
174	\r
175	if (retry) {\r
176	retry = 0;\r
177	nfixed++;\r
178	goto again;\r
179	}\r
180	\r
181	fprintf(stderr, "Failed after retry\n");\r
182	bail(baddisk);\r
183	}\r
184	}\r
185	}\r
186	}\r
187	\r
188	if (nbad)\r
189	printf("%d bad sector mark%s %s\n", nbad, (nbad == 1) ? "" : "s", fixit ? "fixed" : "found");\r
190	else if (! dump)\r
191	printf("All sector marks OK\n");\r
192	\r
193	if (! dump)\r
194	return 0;\r
195	\r
196	pos = dsec2DSK_NUMWD;\r
197	if (fseek(fp, pos, SEEK_SET) != 0) {\r
198	fprintf(stderr, "Error seeking to pos %x\n", pos);\r
199	bail(baddisk);\r
200	}\r
201	\r
202	for (i = 0; i < nsec; i++) {\r
203	cyl = dsec / (DSK_NUMSF*DSK_NUMSC);\r
204	sec = dsec - cyl(DSK_NUMSFDSK_NUMSC);\r
205	\r
206	if (fxread(&buf, sizeof(buf[0]), DSK_NUMWD, fp) != DSK_NUMWD) {\r
207	fprintf(stderr, "Error reading abs sec %x, cyl %x, sec %x at offset %x\n", dsec, cyl, sec, pos);\r
208	bail(baddisk);\r
209	}\r
210	\r
211	printf("\nSector %d.%d - %d - /%04x label %04x\n", cyl, sec, dsec, dsec, buf[0]);\r
212	for (nline = 0, j = 1; j < DSK_NUMWD; j++) {\r
213	printf("%04x", buf[j]);\r
214	if (++nline == 16) {\r
215	putchar('\n');\r
216	nline = 0;\r
217	}\r
218	else\r
219	putchar(' ');\r
220	}\r
221	\r
222	dsec++;\r
223	}\r
224	\r
225	return 0;\r
226	}\r
227	\r
228	void bail (char *msg)\r
229	{\r
230	fprintf(stderr, "%s\n", msg);\r
231	exit(1);\r
232	}\r
233	\r
234	/* ------------------------------------------------------------------------ \r
235	* lowcase - force a string to lower case (ASCII)\r
236	* ------------------------------------------------------------------------ */\r
237	\r
238	char lowcase (char str)\r
239	{\r
240	char *s;\r
241	\r
242	for (s = str; *s; s++) {\r
243	if (s >= 'A' && s <= 'Z')\r
244	*s += 32;\r
245	} \r
246	\r
247	return str;\r
248	}\r
249	\r
250	#ifndef _WIN32\r
251	\r
252	long filelength (int fno)\r
253	{\r
254	struct stat sb;\r
255	\r
256	if (fstat(fno, &sb) != 0)\r
257	return 0;\r
258	\r
259	return (long) sb.st_size;\r
260	}\r
261	#endif\r
262	\r