xref: /csrg-svn/sys/vax/mba/hp.c (revision 5726)
1 /*	hp.c	4.45	82/02/08	*/
2 
3 #ifdef HPDEBUG
4 int	hpdebug;
5 #endif
6 #ifdef HPBDEBUG
7 int	hpbdebug;
8 #endif
9 
10 #include "hp.h"
11 #if NHP > 0
12 /*
13  * HP disk driver for RP0x+RMxx+ML11
14  *
15  * TODO:
16  *	check RM80 skip sector handling when ECC's occur later
17  *	check offset recovery handling
18  *	see if DCLR and/or RELEASE set attention status
19  *	print bits of mr && mr2 symbolically
20  */
21 
22 #include "../h/param.h"
23 #include "../h/systm.h"
24 #include "../h/dk.h"
25 #include "../h/buf.h"
26 #include "../h/conf.h"
27 #include "../h/dir.h"
28 #include "../h/user.h"
29 #include "../h/map.h"
30 #include "../h/pte.h"
31 #include "../h/mbareg.h"
32 #include "../h/mbavar.h"
33 #include "../h/mtpr.h"
34 #include "../h/vm.h"
35 #include "../h/cmap.h"
36 #include "../h/dkbad.h"
37 #include "../h/dkio.h"
38 
39 #include "../h/hpreg.h"
40 
41 /* THIS SHOULD BE READ OFF THE PACK, PER DRIVE */
42 struct	size {
43 	daddr_t	nblocks;
44 	int	cyloff;
45 } hp6_sizes[8] = {
46 	15884,	0,		/* A=cyl 0 thru 37 */
47 	33440,	38,		/* B=cyl 38 thru 117 */
48 	340670,	0,		/* C=cyl 0 thru 814 */
49 	0,	0,
50 	0,	0,
51 	0,	0,
52 #ifndef NOBADSECT
53 	291280,	118,		/* G=cyl 118 thru 814 */
54 #else
55 	291346,	118,
56 #endif
57 	0,	0,
58 }, rm3_sizes[8] = {
59 	15884,	0,		/* A=cyl 0 thru 99 */
60 	33440,	100,		/* B=cyl 100 thru 309 */
61 	131680,	0,		/* C=cyl 0 thru 822 */
62 	0,	0,
63 	0,	0,
64 	0,	0,
65 #ifndef NOBADSECT
66 	81984,	310,		/* G=cyl 310 thru 822 */
67 #else
68 	82080,	310,
69 #endif
70 	0,	0,
71 }, rm5_sizes[8] = {
72 	15884,	0,		/* A=cyl 0 thru 26 */
73 	33440,	27,		/* B=cyl 27 thru 81 */
74 	500384,	0,		/* C=cyl 0 thru 822 */
75 	15884,	562,		/* D=cyl 562 thru 588 */
76 	55936,	589,		/* E=cyl 589 thru 680 */
77 #ifndef NOBADSECT
78 	86240,	681,		/* F=cyl 681 thru 822 */
79 	158592,	562,		/* G=cyl 562 thru 822 */
80 #else
81 	86336,	681,
82 	158688,	562,
83 #endif
84 	291346,	82,		/* H=cyl 82 thru 561 */
85 }, rm80_sizes[8] = {
86 	15884,	0,		/* A=cyl 0 thru 36 */
87 	33440,	37,		/* B=cyl 37 thru 114 */
88 	242606,	0,		/* C=cyl 0 thru 558 */
89 	0,	0,
90 	0,	0,
91 	0,	0,
92 	82080,	115,		/* G=cyl 115 thru 304 */
93 	110143,	305,		/* H=cyl 305 thru 558 */
94 }, hp7_sizes[8] = {
95 	15844,	0,		/* A=cyl 0 thru 9 */
96 	64000,	10,		/* B=cyl 10 thru 49 */
97 	1008000,0,		/* C=cyl 0 thru 629 */
98 	15884,	330,		/* D=cyl 330 thru 339 */
99 	256000,	340,		/* E=cyl 340 thru 499 */
100 	207850,	500,		/* F=cyl 500 thru 629 */
101 	479850,	330,		/* G=cyl 330 thru 629 */
102 	448000,	50,		/* H=cyl 50 thru 329 */
103 };
104 /* END OF STUFF WHICH SHOULD BE READ IN PER DISK */
105 
106 #define	_hpSDIST	2
107 #define	_hpRDIST	3
108 
109 int	hpSDIST = _hpSDIST;
110 int	hpRDIST = _hpRDIST;
111 
112 short	hptypes[] =
113 	{ MBDT_RM03, MBDT_RM05, MBDT_RP06, MBDT_RM80, MBDT_RP05, MBDT_RP07,
114 	  MBDT_ML11A, MBDT_ML11B, 0 };
115 struct	mba_device *hpinfo[NHP];
116 int	hpattach(),hpustart(),hpstart(),hpdtint();
117 struct	mba_driver hpdriver =
118 	{ hpattach, 0, hpustart, hpstart, hpdtint, 0,
119 	  hptypes, "hp", 0, hpinfo };
120 
121 struct hpst {
122 	short	nsect;
123 	short	ntrak;
124 	short	nspc;
125 	short	ncyl;
126 	struct	size *sizes;
127 } hpst[] = {
128 	32,	5,	32*5,	823,	rm3_sizes,	/* RM03 */
129 	32,	19,	32*19,	823,	rm5_sizes,	/* RM05 */
130 	22,	19,	22*19,	815,	hp6_sizes,	/* RP06 */
131 	31,	14, 	31*14,	559,	rm80_sizes,	/* RM80 */
132 	22,	19,	22*19,	411,	hp6_sizes,	/* RP05 */
133 	50,	32,	50*32,	630,	hp7_sizes,	/* RP07 */
134 	1,	1,	1,	1,	0,		/* ML11A */
135 	1,	1,	1,	1,	0,		/* ML11B */
136 };
137 
138 u_char	hp_offset[16] = {
139     HPOF_P400, HPOF_M400, HPOF_P400, HPOF_M400,
140     HPOF_P800, HPOF_M800, HPOF_P800, HPOF_M800,
141     HPOF_P1200, HPOF_M1200, HPOF_P1200, HPOF_M1200,
142     0, 0, 0, 0,
143 };
144 
145 struct	buf	rhpbuf[NHP];
146 #ifndef NOBADSECT
147 struct	buf	bhpbuf[NHP];
148 struct	dkbad	hpbad[NHP];
149 #endif
150 /* SHOULD CONSOLIDATE ALL THIS STUFF INTO A STRUCTURE */
151 char	hpinit[NHP];
152 char	hprecal[NHP];
153 char	hphdr[NHP];
154 daddr_t	mlsize[NHP];
155 
156 #define	b_cylin b_resid
157 
158 /* #define ML11 0  to remove ML11 support */
159 #define	ML11	(hptypes[mi->mi_type] == MBDT_ML11A)
160 #define	RP06	(hptypes[mi->mi_type] <= MBDT_RP06)
161 #define	RM80	(hptypes[mi->mi_type] == MBDT_RM80)
162 
163 #ifdef INTRLVE
164 daddr_t dkblock();
165 #endif
166 
167 int	hpseek;
168 
169 /*ARGSUSED*/
170 hpattach(mi, slave)
171 	struct mba_device *mi;
172 {
173 	if (hptypes[mi->mi_type] == MBDT_ML11B)
174 		mi->mi_type--;	/* A CHEAT - ML11B D.T. SHOULD == ML11A */
175 	if (ML11) {
176 		register struct hpdevice *hpaddr =
177 			(struct hpdevice *)mi->mi_drv;
178 		register int trt, sz;
179 
180 		sz = hpaddr->hpmr & HPMR_SZ;
181 		if ((hpaddr->hpmr & HPMR_ARRTYP) == 0)
182 			sz >>= 2;
183 		mlsize[mi->mi_unit] = sz;
184 		if (mi->mi_dk >= 0) {
185 			trt = (hpaddr->hpmr & HPMR_TRT) >> 8;
186 			dk_mspw[mi->mi_dk] = 1.0 / (1<<(20-trt));
187 		}
188 	} else if (mi->mi_dk >= 0) {
189 		register struct hpst *st = &hpst[mi->mi_type];
190 
191 		dk_mspw[mi->mi_dk] = 1.0 / 60 / (st->nsect * 256);
192 	}
193 }
194 
195 hpstrategy(bp)
196 	register struct buf *bp;
197 {
198 	register struct mba_device *mi;
199 	register struct hpst *st;
200 	register int unit;
201 	long sz, bn;
202 	int xunit = minor(bp->b_dev) & 07;
203 	int s;
204 
205 	sz = bp->b_bcount;
206 	sz = (sz+511) >> 9;
207 	unit = dkunit(bp);
208 	if (unit >= NHP)
209 		goto bad;
210 	mi = hpinfo[unit];
211 	if (mi == 0 || mi->mi_alive == 0)
212 		goto bad;
213 	st = &hpst[mi->mi_type];
214 	if (ML11) {
215 		if (bp->b_blkno < 0 ||
216 		    dkblock(bp)+sz > mlsize[mi->mi_unit])
217 			goto bad;
218 		bp->b_cylin = 0;
219 	} else {
220 		if (bp->b_blkno < 0 ||
221 		    (bn = dkblock(bp))+sz > st->sizes[xunit].nblocks)
222 			goto bad;
223 		bp->b_cylin = bn/st->nspc + st->sizes[xunit].cyloff;
224 	}
225 	s = spl5();
226 	disksort(&mi->mi_tab, bp);
227 	if (mi->mi_tab.b_active == 0)
228 		mbustart(mi);
229 	splx(s);
230 	return;
231 
232 bad:
233 	bp->b_flags |= B_ERROR;
234 	iodone(bp);
235 	return;
236 }
237 
238 hpustart(mi)
239 	register struct mba_device *mi;
240 {
241 	register struct hpdevice *hpaddr = (struct hpdevice *)mi->mi_drv;
242 	register struct buf *bp = mi->mi_tab.b_actf;
243 	register struct hpst *st = &hpst[mi->mi_type];
244 	daddr_t bn;
245 	int sn, dist;
246 
247 	hpaddr->hpcs1 = 0;
248 	if ((hpaddr->hpcs1&HP_DVA) == 0)
249 		return (MBU_BUSY);
250 	if ((hpaddr->hpds & HPDS_VV) == 0 || hpinit[mi->mi_unit] == 0) {
251 #ifndef NOBADSECT
252 		struct buf *bbp = &bhpbuf[mi->mi_unit];
253 #endif
254 
255 		hpinit[mi->mi_unit] = 1;
256 		hpaddr->hpcs1 = HP_DCLR|HP_GO;
257 		if (mi->mi_mba->mba_drv[0].mbd_as & (1<<mi->mi_drive))
258 			printf("DCLR attn\n");
259 		hpaddr->hpcs1 = HP_PRESET|HP_GO;
260 		if (!ML11)
261 			hpaddr->hpof = HPOF_FMT22;
262 		mbclrattn(mi);
263 #ifndef NOBADSECT
264 		if (!ML11) {
265 			bbp->b_flags = B_READ|B_BUSY;
266 			bbp->b_dev = bp->b_dev;
267 			bbp->b_bcount = 512;
268 			bbp->b_un.b_addr = (caddr_t)&hpbad[mi->mi_unit];
269 			bbp->b_blkno = st->ncyl*st->nspc - st->nsect;
270 			bbp->b_cylin = st->ncyl - 1;
271 			mi->mi_tab.b_actf = bbp;
272 			bbp->av_forw = bp;
273 			bp = bbp;
274 		}
275 #endif
276 	}
277 	if (mi->mi_tab.b_active || mi->mi_hd->mh_ndrive == 1)
278 		return (MBU_DODATA);
279 	if (ML11)
280 		return (MBU_DODATA);
281 	if ((hpaddr->hpds & HPDS_DREADY) != HPDS_DREADY)
282 		return (MBU_DODATA);
283 	bn = dkblock(bp);
284 	sn = bn%st->nspc;
285 	sn = (sn+st->nsect-hpSDIST)%st->nsect;
286 	if (bp->b_cylin == (hpaddr->hpdc & 0xffff)) {
287 		if (hpseek)
288 			return (MBU_DODATA);
289 		dist = ((hpaddr->hpla & 0xffff)>>6) - st->nsect + 1;
290 		if (dist < 0)
291 			dist += st->nsect;
292 		if (dist > st->nsect - hpRDIST)
293 			return (MBU_DODATA);
294 	} else
295 		hpaddr->hpdc = bp->b_cylin;
296 	if (hpseek)
297 		hpaddr->hpcs1 = HP_SEEK|HP_GO;
298 	else {
299 		hpaddr->hpda = sn;
300 		hpaddr->hpcs1 = HP_SEARCH|HP_GO;
301 	}
302 	return (MBU_STARTED);
303 }
304 
305 hpstart(mi)
306 	register struct mba_device *mi;
307 {
308 	register struct hpdevice *hpaddr = (struct hpdevice *)mi->mi_drv;
309 	register struct buf *bp = mi->mi_tab.b_actf;
310 	register struct hpst *st = &hpst[mi->mi_type];
311 	daddr_t bn;
312 	int sn, tn;
313 
314 	bn = dkblock(bp);
315 	if (ML11)
316 		hpaddr->hpda = bn;
317 	else {
318 		sn = bn%st->nspc;
319 		tn = sn/st->nsect;
320 		sn %= st->nsect;
321 		hpaddr->hpdc = bp->b_cylin;
322 		hpaddr->hpda = (tn << 8) + sn;
323 	}
324 	if (hphdr[mi->mi_unit]) {
325 		if (bp->b_flags & B_READ)
326 			return (HP_RHDR|HP_GO);
327 		else
328 			return (HP_WHDR|HP_GO);
329 	}
330 	return (0);
331 }
332 
333 hpdtint(mi, mbsr)
334 	register struct mba_device *mi;
335 	int mbsr;
336 {
337 	register struct hpdevice *hpaddr = (struct hpdevice *)mi->mi_drv;
338 	register struct buf *bp = mi->mi_tab.b_actf;
339 	int retry = 0;
340 
341 #ifndef NOBADSECT
342 	if (bp->b_flags&B_BAD) {
343 		if (hpecc(mi, CONT))
344 			return(MBD_RESTARTED);
345 	}
346 #endif
347 	if (hpaddr->hpds&HPDS_ERR || mbsr&MBSR_EBITS) {
348 #ifdef HPDEBUG
349 		if (hpdebug) {
350 			int dc = hpaddr->hpdc, da = hpaddr->hpda;
351 
352 			printf("hperr: bp %x cyl %d blk %d as %o ",
353 				bp, bp->b_cylin, bp->b_blkno,
354 				hpaddr->hpas&0xff);
355 			printf("dc %x da %x\n",dc&0xffff, da&0xffff);
356 			printf("errcnt %d ", mi->mi_tab.b_errcnt);
357 			printf("mbsr=%b ", mbsr, mbsr_bits);
358 			printf("er1=%b er2=%b\n",
359 			    hpaddr->hper1, HPER1_BITS,
360 			    hpaddr->hper2, HPER2_BITS);
361 			DELAY(1000000);
362 		}
363 #endif
364 		if (hpaddr->hper1&HPER1_WLE) {
365 			printf("hp%d: write locked\n", dkunit(bp));
366 			bp->b_flags |= B_ERROR;
367 		} else if ((hpaddr->hper1&0xffff) == HPER1_FER && RP06 &&
368 		    hphdr[mi->mi_unit] == 0) {
369 #ifndef NOBADSECT
370 			if (hpecc(mi, BSE))
371 				return(MBD_RESTARTED);
372 			else
373 #endif
374 				goto hard;
375 		} else if (++mi->mi_tab.b_errcnt > 27 ||
376 		    mbsr & MBSR_HARD ||
377 		    hpaddr->hper1 & HPER1_HARD ||
378 		    hphdr[mi->mi_unit] ||
379 		    (!ML11 && (hpaddr->hper2 & HPER2_HARD))) {
380 hard:
381 			harderr(bp, "hp");
382 			if (mbsr & (MBSR_EBITS &~ (MBSR_DTABT|MBSR_MBEXC)))
383 				printf("mbsr=%b ", mbsr, mbsr_bits);
384 			printf("er1=%b er2=%b",
385 			    hpaddr->hper1, HPER1_BITS,
386 			    hpaddr->hper2, HPER2_BITS);
387 			if (hpaddr->hpmr)
388 				printf(" mr=%o", hpaddr->hpmr&0xffff);
389 			if (hpaddr->hpmr2)
390 				printf(" mr2=%o", hpaddr->hpmr2&0xffff);
391 			printf("\n");
392 			bp->b_flags |= B_ERROR;
393 			hprecal[mi->mi_unit] = 0;
394 		} else if ((hpaddr->hper2 & HPER2_BSE) && !ML11) {
395 #ifndef NOBADSECT
396 			if (hpecc(mi, BSE))
397 				return(MBD_RESTARTED);
398 			else
399 #endif
400 				goto hard;
401 		} else if (RM80 && hpaddr->hper2&HPER2_SSE) {
402 			(void) hpecc(mi, SSE);
403 			return (MBD_RESTARTED);
404 		} else if ((hpaddr->hper1&(HPER1_DCK|HPER1_ECH))==HPER1_DCK) {
405 			if (hpecc(mi, ECC))
406 				return (MBD_RESTARTED);
407 			/* else done */
408 		} else
409 			retry = 1;
410 		hpaddr->hpcs1 = HP_DCLR|HP_GO;
411 		if (ML11) {
412 			if (mi->mi_tab.b_errcnt >= 16)
413 				goto hard;
414 		} else if ((mi->mi_tab.b_errcnt&07) == 4) {
415 			hpaddr->hpcs1 = HP_RECAL|HP_GO;
416 			hprecal[mi->mi_unit] = 1;
417 			return(MBD_RESTARTED);
418 		}
419 		if (retry)
420 			return (MBD_RETRY);
421 	}
422 #ifdef HPDEBUG
423 	else
424 		if (hpdebug && hprecal[mi->mi_unit]) {
425 			printf("recal %d ", hprecal[mi->mi_unit]);
426 			printf("errcnt %d\n", mi->mi_tab.b_errcnt);
427 			printf("mbsr=%b ", mbsr, mbsr_bits);
428 			printf("er1=%b er2=%b\n",
429 			    hpaddr->hper1, HPER1_BITS,
430 			    hpaddr->hper2, HPER2_BITS);
431 		}
432 #endif
433 	switch (hprecal[mi->mi_unit]) {
434 
435 	case 1:
436 		hpaddr->hpdc = bp->b_cylin;
437 		hpaddr->hpcs1 = HP_SEEK|HP_GO;
438 		hprecal[mi->mi_unit]++;
439 		return (MBD_RESTARTED);
440 	case 2:
441 		if (mi->mi_tab.b_errcnt < 16 ||
442 		    (bp->b_flags & B_READ) == 0)
443 			goto donerecal;
444 		hpaddr->hpof = hp_offset[mi->mi_tab.b_errcnt & 017]|HPOF_FMT22;
445 		hpaddr->hpcs1 = HP_OFFSET|HP_GO;
446 		hprecal[mi->mi_unit]++;
447 		return (MBD_RESTARTED);
448 	donerecal:
449 	case 3:
450 		hprecal[mi->mi_unit] = 0;
451 		return (MBD_RETRY);
452 	}
453 	hphdr[mi->mi_unit] = 0;
454 	bp->b_resid = -(mi->mi_mba->mba_bcr) & 0xffff;
455 	if (mi->mi_tab.b_errcnt >= 16) {
456 		/*
457 		 * This is fast and occurs rarely; we don't
458 		 * bother with interrupts.
459 		 */
460 		hpaddr->hpcs1 = HP_RTC|HP_GO;
461 		while (hpaddr->hpds & HPDS_PIP)
462 			;
463 		mbclrattn(mi);
464 	}
465 	if (!ML11) {
466 		hpaddr->hpof = HPOF_FMT22;
467 		hpaddr->hpcs1 = HP_RELEASE|HP_GO;
468 	}
469 	return (MBD_DONE);
470 }
471 
472 hpread(dev)
473 	dev_t dev;
474 {
475 	register int unit = minor(dev) >> 3;
476 
477 	if (unit >= NHP)
478 		u.u_error = ENXIO;
479 	else
480 		physio(hpstrategy, &rhpbuf[unit], dev, B_READ, minphys);
481 }
482 
483 hpwrite(dev)
484 	dev_t dev;
485 {
486 	register int unit = minor(dev) >> 3;
487 
488 	if (unit >= NHP)
489 		u.u_error = ENXIO;
490 	else
491 		physio(hpstrategy, &rhpbuf[unit], dev, B_WRITE, minphys);
492 }
493 
494 /*ARGSUSED*/
495 hpioctl(dev, cmd, addr, flag)
496 	dev_t dev;
497 	int cmd;
498 	caddr_t addr;
499 	int flag;
500 {
501 
502 	switch (cmd) {
503 	case DKIOCHDR:	/* do header read/write */
504 		hphdr[minor(dev)>>3] = 1;
505 		return;
506 
507 	default:
508 		u.u_error = ENXIO;
509 	}
510 }
511 
512 hpecc(mi, flag)
513 	register struct mba_device *mi;
514 	int flag;
515 {
516 	register struct mba_regs *mbp = mi->mi_mba;
517 	register struct hpdevice *rp = (struct hpdevice *)mi->mi_drv;
518 	register struct buf *bp = mi->mi_tab.b_actf;
519 	register struct hpst *st = &hpst[mi->mi_type];
520 	int npf, o;
521 	int bn, cn, tn, sn;
522 	int bcr;
523 
524 	bcr = mbp->mba_bcr & 0xffff;
525 	if (bcr)
526 		bcr |= 0xffff0000;		/* sxt */
527 #ifndef NOBADSECT
528 	if (flag == CONT)
529 		npf = bp->b_error;
530 	else
531 #endif
532 		npf = btop(bcr + bp->b_bcount);
533 	o = (int)bp->b_un.b_addr & PGOFSET;
534 	bn = dkblock(bp);
535 	cn = bp->b_cylin;
536 	sn = bn%(st->nspc) + npf;
537 	tn = sn/st->nsect;
538 	sn %= st->nsect;
539 	cn += tn/st->ntrak;
540 	tn %= st->ntrak;
541 	switch (flag) {
542 	case ECC:
543 		{
544 		register int i;
545 		caddr_t addr;
546 		struct pte mpte;
547 		int bit, byte, mask;
548 
549 		npf--;		/* because block in error is previous block */
550 		printf("hp%d%c: soft ecc sn%d\n", dkunit(bp),
551 		    'a'+(minor(bp->b_dev)&07), bp->b_blkno + npf);
552 		mask = rp->hpec2&0xffff;
553 		i = (rp->hpec1&0xffff) - 1;		/* -1 makes 0 origin */
554 		bit = i&07;
555 		i = (i&~07)>>3;
556 		byte = i + o;
557 		while (i < 512 && (int)ptob(npf)+i < bp->b_bcount && bit > -11) {
558 			mpte = mbp->mba_map[npf+btop(byte)];
559 			addr = ptob(mpte.pg_pfnum) + (byte & PGOFSET);
560 			putmemc(addr, getmemc(addr)^(mask<<bit));
561 			byte++;
562 			i++;
563 			bit -= 8;
564 		}
565 		if (bcr == 0)
566 			return (0);
567 		npf++;
568 		break;
569 		}
570 
571 	case SSE:
572 		rp->hpof |= HPOF_SSEI;
573 		mbp->mba_bcr = -(bp->b_bcount - (int)ptob(npf));
574 		break;
575 
576 #ifndef NOBADSECT
577 	case BSE:
578 #ifdef HPBDEBUG
579 		if (hpbdebug)
580 		printf("hpecc, BSE: bn %d cn %d tn %d sn %d\n", bn, cn, tn, sn);
581 #endif
582 		if ((bn = isbad(&hpbad[mi->mi_unit], cn, tn, sn)) < 0)
583 			return(0);
584 		bp->b_flags |= B_BAD;
585 		bp->b_error = npf + 1;
586 		bn = st->ncyl*st->nspc - st->nsect - 1 - bn;
587 		cn = bn/st->nspc;
588 		sn = bn%st->nspc;
589 		tn = sn/st->nsect;
590 		sn %= st->nsect;
591 		mbp->mba_bcr = -512;
592 #ifdef HPBDEBUG
593 		if (hpbdebug)
594 		printf("revector to cn %d tn %d sn %d\n", cn, tn, sn);
595 #endif
596 		break;
597 
598 	case CONT:
599 #ifdef HPBDEBUG
600 		if (hpbdebug)
601 		printf("hpecc, CONT: bn %d cn %d tn %d sn %d\n", bn,cn,tn,sn);
602 #endif
603 		npf = bp->b_error;
604 		bp->b_flags &= ~B_BAD;
605 		mbp->mba_bcr = -(bp->b_bcount - (int)ptob(npf));
606 		if ((mbp->mba_bcr & 0xffff) == 0)
607 			return(0);
608 		break;
609 #endif
610 	}
611 	rp->hpcs1 = HP_DCLR|HP_GO;
612 	if (rp->hpof&HPOF_SSEI)
613 		sn++;
614 	rp->hpdc = cn;
615 	rp->hpda = (tn<<8) + sn;
616 	mbp->mba_sr = -1;
617 	mbp->mba_var = (int)ptob(npf) + o;
618 	rp->hpcs1 = bp->b_flags&B_READ ? HP_RCOM|HP_GO : HP_WCOM|HP_GO;
619 	mi->mi_tab.b_errcnt = 0;	/* error has been corrected */
620 	return (1);
621 }
622 
623 #define	DBSIZE	20
624 
625 hpdump(dev)
626 	dev_t dev;
627 {
628 	register struct mba_device *mi;
629 	register struct mba_regs *mba;
630 	struct hpdevice *hpaddr;
631 	char *start;
632 	int num, unit;
633 	register struct hpst *st;
634 
635 	num = maxfree;
636 	start = 0;
637 	unit = minor(dev) >> 3;
638 	if (unit >= NHP)
639 		return (ENXIO);
640 #define	phys(a,b)	((b)((int)(a)&0x7fffffff))
641 	mi = phys(hpinfo[unit],struct mba_device *);
642 	if (mi == 0 || mi->mi_alive == 0)
643 		return (ENXIO);
644 	mba = phys(mi->mi_hd, struct mba_hd *)->mh_physmba;
645 	mba->mba_cr = MBCR_INIT;
646 	hpaddr = (struct hpdevice *)&mba->mba_drv[mi->mi_drive];
647 	if ((hpaddr->hpds & HPDS_VV) == 0) {
648 		hpaddr->hpcs1 = HP_DCLR|HP_GO;
649 		hpaddr->hpcs1 = HP_PRESET|HP_GO;
650 		hpaddr->hpof = HPOF_FMT22;
651 	}
652 	st = &hpst[mi->mi_type];
653 	if (dumplo < 0 || dumplo + num >= st->sizes[minor(dev)&07].nblocks)
654 		return (EINVAL);
655 	while (num > 0) {
656 		register struct pte *hpte = mba->mba_map;
657 		register int i;
658 		int blk, cn, sn, tn;
659 		daddr_t bn;
660 
661 		blk = num > DBSIZE ? DBSIZE : num;
662 		bn = dumplo + btop(start);
663 		cn = bn/st->nspc + st->sizes[minor(dev)&07].cyloff;
664 		sn = bn%st->nspc;
665 		tn = sn/st->nsect;
666 		sn = sn%st->nsect;
667 		hpaddr->hpdc = cn;
668 		hpaddr->hpda = (tn << 8) + sn;
669 		for (i = 0; i < blk; i++)
670 			*(int *)hpte++ = (btop(start)+i) | PG_V;
671 		mba->mba_sr = -1;
672 		mba->mba_bcr = -(blk*NBPG);
673 		mba->mba_var = 0;
674 		hpaddr->hpcs1 = HP_WCOM | HP_GO;
675 		while ((hpaddr->hpds & HPDS_DRY) == 0)
676 			;
677 		if (hpaddr->hpds&HPDS_ERR)
678 			return (EIO);
679 		start += blk*NBPG;
680 		num -= blk;
681 	}
682 	return (0);
683 }
684 #endif
685