xref: /illumos-gate/usr/src/uts/common/io/fdc.c (revision 1518b816b22db27acb81c63823981b340d1534ce)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 /*
22  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
23  * Use is subject to license terms.
24  */
25 /*
26  * Copyright 2012 Garrett D'Amore <garrett@damore.org>.  All rights reserved.
27  */
28 
29 
30 /*
31  * Floppy Disk Controller Driver
32  *
33  *   for the standard PC architecture using the Intel 8272A fdc.
34  *   Note that motor control and drive select use a latch external
35  *   to the fdc.
36  *
37  *   This driver is EISA capable, and uses DMA buffer chaining if available.
38  *   If this driver is attached to the ISA bus nexus (or if the EISA bus driver
39  *   does not support DMA buffer chaining), then the bus driver must ensure
40  *   that dma mapping (breakup) and dma engine requests are properly degraded.
41  */
42 
43 /*
44  * hack for bugid 1160621:
45  * workaround compiler optimization bug by turning on DEBUG
46  */
47 #ifndef DEBUG
48 #define	DEBUG	1
49 #endif
50 
51 #include <sys/param.h>
52 #include <sys/buf.h>
53 #include <sys/ioctl.h>
54 #include <sys/uio.h>
55 #include <sys/open.h>
56 #include <sys/conf.h>
57 #include <sys/file.h>
58 #include <sys/cmn_err.h>
59 #include <sys/note.h>
60 #include <sys/debug.h>
61 #include <sys/kmem.h>
62 #include <sys/stat.h>
63 
64 #include <sys/autoconf.h>
65 #include <sys/dkio.h>
66 #include <sys/vtoc.h>
67 #include <sys/kstat.h>
68 
69 #include <sys/fdio.h>
70 #include <sys/fdc.h>
71 #include <sys/i8272A.h>
72 #include <sys/fd_debug.h>
73 #include <sys/promif.h>
74 #include <sys/ddi.h>
75 #include <sys/sunddi.h>
76 
77 /*
78  * bss (uninitialized data)
79  */
80 static void *fdc_state_head;		/* opaque handle top of state structs */
81 static ddi_dma_attr_t fdc_dma_attr;
82 static ddi_device_acc_attr_t fdc_accattr = {DDI_DEVICE_ATTR_V0,
83 	DDI_STRUCTURE_LE_ACC, DDI_STRICTORDER_ACC};
84 
85 /*
86  * Local static data
87  */
88 #define	OURUN_TRIES	12
89 static uchar_t rwretry = 4;
90 static uchar_t skretry = 3;
91 static uchar_t configurecmd[4] = {FO_CNFG, 0, 0x0F, 0};
92 static uchar_t recalcmd[2] = {FO_RECAL, 0};
93 static uchar_t senseintcmd = FO_SINT;
94 
95 /*
96  * error handling
97  *
98  * for debugging, set rwretry and skretry = 1
99  *		set fcerrlevel to 1
100  *		set fcerrmask  to 224  or 644
101  *
102  * after debug, set rwretry to 4, skretry to 3, and fcerrlevel to 5
103  * set fcerrmask to FDEM_ALL
104  * or remove the define DEBUG
105  */
106 static uint_t fcerrmask = FDEM_ALL;
107 static int fcerrlevel = 6;
108 
109 #define	KIOIP	KSTAT_INTR_PTR(fcp->c_intrstat)
110 
111 
112 static xlate_tbl_t drate_mfm[] = {
113 	{  250, 2},
114 	{  300, 1},
115 	{  417, 0},
116 	{  500, 0},
117 	{ 1000, 3},
118 	{    0, 0}
119 };
120 
121 static xlate_tbl_t sector_size[] = {
122 	{  256, 1},
123 	{  512, 2},
124 	{ 1024, 3},
125 	{    0, 2}
126 };
127 
128 static xlate_tbl_t motor_onbits[] = {
129 	{  0, 0x10},
130 	{  1, 0x20},
131 	{  2, 0x40},
132 	{  3, 0x80},
133 	{  0, 0x80}
134 };
135 
136 static xlate_tbl_t step_rate[] = {
137 	{  10, 0xF0},		/* for 500K data rate */
138 	{  20, 0xE0},
139 	{  30, 0xD0},
140 	{  40, 0xC0},
141 	{  50, 0xB0},
142 	{  60, 0xA0},
143 	{  70, 0x90},
144 	{  80, 0x80},
145 	{  90, 0x70},
146 	{ 100, 0x60},
147 	{ 110, 0x50},
148 	{ 120, 0x40},
149 	{ 130, 0x30},
150 	{ 140, 0x20},
151 	{ 150, 0x10},
152 	{ 160, 0x00},
153 	{   0, 0x00}
154 };
155 
156 #ifdef notdef
157 static xlate_tbl_t head_unld[] = {
158 	{  16, 0x1},		/* for 500K data rate */
159 	{  32, 0x2},
160 	{  48, 0x3},
161 	{  64, 0x4},
162 	{  80, 0x5},
163 	{  96, 0x6},
164 	{ 112, 0x7},
165 	{ 128, 0x8},
166 	{ 144, 0x9},
167 	{ 160, 0xA},
168 	{ 176, 0xB},
169 	{ 192, 0xC},
170 	{ 208, 0xD},
171 	{ 224, 0xE},
172 	{ 240, 0xF},
173 	{ 256, 0x0},
174 	{   0, 0x0}
175 };
176 #endif
177 
178 static struct fdcmdinfo {
179 	char *cmdname;		/* command name */
180 	uchar_t ncmdbytes;	/* number of bytes of command */
181 	uchar_t nrsltbytes;	/* number of bytes in result */
182 	uchar_t cmdtype;		/* characteristics */
183 } fdcmds[] = {
184 	"", 0, 0, 0,			/* - */
185 	"", 0, 0, 0,			/* - */
186 	"read_track", 9, 7, 1,		/* 2 */
187 	"specify", 3, 0, 3,		/* 3 */
188 	"sense_drv_status", 2, 1, 3,	/* 4 */
189 	"write", 9, 7, 1,		/* 5 */
190 	"read", 9, 7, 1,		/* 6 */
191 	"recalibrate", 2, 0, 2,		/* 7 */
192 	"sense_int_status", 1, 2, 3,	/* 8 */
193 	"write_del", 9, 7, 1,		/* 9 */
194 	"read_id", 2, 7, 2,		/* A */
195 	"", 0, 0, 0,			/* - */
196 	"read_del", 9, 7, 1,		/* C */
197 	"format_track", 10, 7, 1,	/* D */
198 	"dump_reg", 1, 10, 4,		/* E */
199 	"seek", 3, 0, 2,		/* F */
200 	"version", 1, 1, 3,		/* 10 */
201 	"", 0, 0, 0,			/* - */
202 	"perp_mode", 2, 0, 3,		/* 12 */
203 	"configure", 4, 0, 4,		/* 13 */
204 	/* relative seek */
205 };
206 
207 
208 static int
209 fdc_bus_ctl(dev_info_t *, dev_info_t *, ddi_ctl_enum_t, void *, void *);
210 static int get_ioaddr(dev_info_t *dip, int *ioaddr);
211 static int get_unit(dev_info_t *dip, int *cntrl_num);
212 
213 struct bus_ops fdc_bus_ops = {
214 	BUSO_REV,
215 	nullbusmap,
216 	0,	/* ddi_intrspec_t (*bus_get_intrspec)(); */
217 	0,	/* int 	(*bus_add_intrspec)(); */
218 	0,	/* void (*bus_remove_intrspec)(); */
219 	i_ddi_map_fault,
220 	0,
221 	ddi_dma_allochdl,
222 	ddi_dma_freehdl,
223 	ddi_dma_bindhdl,
224 	ddi_dma_unbindhdl,
225 	ddi_dma_flush,
226 	ddi_dma_win,
227 	ddi_dma_mctl,
228 	fdc_bus_ctl,
229 	ddi_bus_prop_op,
230 };
231 
232 static int fdc_getinfo(dev_info_t *, ddi_info_cmd_t, void *, void **);
233 static int fdc_probe(dev_info_t *);
234 static int fdc_attach(dev_info_t *, ddi_attach_cmd_t);
235 static int fdc_detach(dev_info_t *, ddi_detach_cmd_t);
236 static int fdc_quiesce(dev_info_t *);
237 static int fdc_enhance_probe(struct fdcntlr *fcp);
238 
239 struct dev_ops	fdc_ops = {
240 	DEVO_REV,		/* devo_rev, */
241 	0,			/* refcnt  */
242 	fdc_getinfo,		/* getinfo */
243 	nulldev,		/* identify */
244 	fdc_probe,		/* probe */
245 	fdc_attach,		/* attach */
246 	fdc_detach,		/* detach */
247 	nodev,			/* reset */
248 	(struct cb_ops *)0,	/* driver operations */
249 	&fdc_bus_ops,		/* bus operations */
250 	NULL,			/* power */
251 	fdc_quiesce,		/* quiesce */
252 };
253 
254 /*
255  * This is the loadable module wrapper.
256  */
257 #include <sys/modctl.h>
258 
259 extern struct mod_ops mod_driverops;
260 
261 static struct modldrv modldrv = {
262 	&mod_driverops,		/* Type of module. This one is a driver */
263 	"Floppy Controller",	/* Name of the module. */
264 	&fdc_ops,		/* Driver ops vector */
265 };
266 
267 static struct modlinkage modlinkage = {
268 	MODREV_1, (void *)&modldrv, NULL
269 };
270 
271 int
_init(void)272 _init(void)
273 {
274 	int retval;
275 
276 	if ((retval = ddi_soft_state_init(&fdc_state_head,
277 	    sizeof (struct fdcntlr) + NFDUN * sizeof (struct fcu_obj), 0)) != 0)
278 		return (retval);
279 
280 	if ((retval = mod_install(&modlinkage)) != 0)
281 		ddi_soft_state_fini(&fdc_state_head);
282 	return (retval);
283 }
284 
285 int
_fini(void)286 _fini(void)
287 {
288 	int retval;
289 
290 	if ((retval = mod_remove(&modlinkage)) != 0)
291 		return (retval);
292 	ddi_soft_state_fini(&fdc_state_head);
293 	return (retval);
294 }
295 
296 int
_info(struct modinfo * modinfop)297 _info(struct modinfo *modinfop)
298 {
299 	return (mod_info(&modlinkage, modinfop));
300 }
301 
302 
303 int fdc_abort(struct fcu_obj *);
304 int fdc_dkinfo(struct fcu_obj *, struct dk_cinfo *);
305 int fdc_select(struct fcu_obj *, int, int);
306 int fdgetchng(struct fcu_obj *, int);
307 int fdresetchng(struct fcu_obj *, int);
308 int fdrecalseek(struct fcu_obj *, int, int, int);
309 int fdrw(struct fcu_obj *, int, int, int, int, int, caddr_t, uint_t);
310 int fdtrkformat(struct fcu_obj *, int, int, int, int);
311 int fdrawioctl(struct fcu_obj *, int, caddr_t);
312 
313 static struct fcobjops fdc_iops = {
314 		fdc_abort,	/* controller abort */
315 		fdc_dkinfo,	/* get disk controller info */
316 
317 		fdc_select,	/* select / deselect unit */
318 		fdgetchng,	/* get media change */
319 		fdresetchng,	/* reset media change */
320 		fdrecalseek,	/* recal / seek */
321 		NULL,		/* read /write request (UNUSED) */
322 		fdrw,		/* read /write sector */
323 		fdtrkformat,	/* format track */
324 		fdrawioctl	/* raw ioctl */
325 };
326 
327 
328 /*
329  * Function prototypes
330  */
331 void encode(xlate_tbl_t *tablep, int val, uchar_t *rcode);
332 int decode(xlate_tbl_t *, int, int *);
333 static int fdc_propinit1(struct fdcntlr *, int);
334 static void fdc_propinit2(struct fdcntlr *);
335 void fdcquiesce(struct fdcntlr *);
336 int fdcsense_chng(struct fdcntlr *, int);
337 int fdcsense_drv(struct fdcntlr *, int);
338 int fdcsense_int(struct fdcntlr *, int *, int *);
339 int fdcspecify(struct fdcntlr *, int, int, int);
340 int fdcspdchange(struct fdcntlr *, struct fcu_obj *, int);
341 static int fdc_exec(struct fdcntlr *, int, int);
342 int fdcheckdisk(struct fdcntlr *, int);
343 static uint_t fdc_intr(caddr_t arg);
344 static void fdwatch(void *arg);
345 static void fdmotort(void *arg);
346 static int fdrecover(struct fdcntlr *);
347 static int fdc_motorsm(struct fcu_obj *, int, int);
348 static int fdc_statemach(struct fdcntlr *);
349 int fdc_docmd(struct fdcntlr *, uchar_t *, uchar_t);
350 int fdc_result(struct fdcntlr *, uchar_t *, uchar_t);
351 
352 
353 static int
fdc_bus_ctl(dev_info_t * dip,dev_info_t * rdip,ddi_ctl_enum_t ctlop,void * arg,void * result)354 fdc_bus_ctl(dev_info_t *dip, dev_info_t *rdip, ddi_ctl_enum_t ctlop,
355     void *arg, void *result)
356 {
357 	struct 	fdcntlr *fcp;
358 	struct	fcu_obj *fjp;
359 
360 	_NOTE(ARGUNUSED(result));
361 
362 	FCERRPRINT(FDEP_L0, FDEM_ATTA,
363 	    (CE_CONT, "fdc_bus_ctl: cmd= %x\n", ctlop));
364 
365 	if ((fcp = ddi_get_driver_private(dip)) == NULL)
366 		return (DDI_FAILURE);
367 
368 	switch (ctlop) {
369 
370 	case DDI_CTLOPS_REPORTDEV:
371 		cmn_err(CE_CONT, "?%s%d at %s%d\n",
372 		    ddi_get_name(rdip), ddi_get_instance(rdip),
373 		    ddi_get_name(dip), ddi_get_instance(dip));
374 		FCERRPRINT(FDEP_L3, FDEM_ATTA,
375 		    (CE_WARN, "fdc_bus_ctl: report %s%d at %s%d",
376 		    ddi_get_name(rdip), ddi_get_instance(rdip),
377 		    ddi_get_name(dip), ddi_get_instance(dip)));
378 		return (DDI_SUCCESS);
379 
380 	case DDI_CTLOPS_INITCHILD:
381 	{
382 		dev_info_t *udip = (dev_info_t *)arg;
383 		int cntlr;
384 		int len;
385 		int unit;
386 		char name[MAXNAMELEN];
387 
388 		FCERRPRINT(FDEP_L3, FDEM_ATTA,
389 		    (CE_WARN, "fdc_bus_ctl: init child 0x%p", (void*)udip));
390 		cntlr = fcp->c_number;
391 
392 		len = sizeof (unit);
393 		if (ddi_prop_op(DDI_DEV_T_ANY, udip, PROP_LEN_AND_VAL_BUF,
394 		    DDI_PROP_DONTPASS, "unit", (caddr_t)&unit, &len)
395 		    != DDI_PROP_SUCCESS ||
396 		    cntlr != FDCTLR(unit) ||
397 		    (fcp->c_unit[FDUNIT(unit)])->fj_dip)
398 			return (DDI_NOT_WELL_FORMED);
399 
400 		(void) sprintf(name, "%d,%d", cntlr, FDUNIT(unit));
401 		ddi_set_name_addr(udip, name);
402 
403 		fjp = fcp->c_unit[FDUNIT(unit)];
404 		fjp->fj_unit = unit;
405 		fjp->fj_dip = udip;
406 		fjp->fj_ops = &fdc_iops;
407 		fjp->fj_fdc = fcp;
408 		fjp->fj_iblock = &fcp->c_iblock;
409 
410 		ddi_set_driver_private(udip, fjp);
411 
412 		return (DDI_SUCCESS);
413 	}
414 	case DDI_CTLOPS_UNINITCHILD:
415 	{
416 		dev_info_t *udip = (dev_info_t *)arg;
417 
418 		FCERRPRINT(FDEP_L3, FDEM_ATTA,
419 		    (CE_WARN, "fdc_bus_ctl: uninit child 0x%p", (void *)udip));
420 		fjp = ddi_get_driver_private(udip);
421 		ddi_set_driver_private(udip, NULL);
422 		fjp->fj_dip = NULL;
423 		ddi_set_name_addr(udip, NULL);
424 		return (DDI_SUCCESS);
425 	}
426 	default:
427 		return (DDI_FAILURE);
428 	}
429 }
430 
431 static int
fdc_getinfo(dev_info_t * dip,ddi_info_cmd_t cmd,void * arg,void ** result)432 fdc_getinfo(dev_info_t *dip, ddi_info_cmd_t cmd, void *arg, void **result)
433 {
434 	struct fdcntlr *fcp;
435 	int rval;
436 
437 	_NOTE(ARGUNUSED(dip));
438 
439 	switch (cmd) {
440 	case DDI_INFO_DEVT2DEVINFO:
441 		if (fcp = ddi_get_soft_state(fdc_state_head, (dev_t)arg)) {
442 			*result = fcp->c_dip;
443 			rval = DDI_SUCCESS;
444 			break;
445 		} else {
446 			rval = DDI_FAILURE;
447 			break;
448 		}
449 	case DDI_INFO_DEVT2INSTANCE:
450 		*result = (void *)(uintptr_t)getminor((dev_t)arg);
451 		rval = DDI_SUCCESS;
452 		break;
453 	default:
454 		rval = DDI_FAILURE;
455 	}
456 	return (rval);
457 }
458 
459 static int
fdc_probe(dev_info_t * dip)460 fdc_probe(dev_info_t *dip)
461 {
462 	int	debug[2];
463 	int ioaddr;
464 	int	len;
465 	uchar_t	stat;
466 
467 	len = sizeof (debug);
468 	if (ddi_prop_op(DDI_DEV_T_ANY, dip, PROP_LEN_AND_VAL_BUF,
469 	    DDI_PROP_DONTPASS, "debug", (caddr_t)debug, &len) ==
470 	    DDI_PROP_SUCCESS) {
471 		fcerrlevel = debug[0];
472 		fcerrmask = (uint_t)debug[1];
473 	}
474 
475 	FCERRPRINT(FDEP_L3, FDEM_ATTA, (CE_WARN, "fdc_probe: dip %p",
476 	    (void*)dip));
477 
478 	if (get_ioaddr(dip, &ioaddr) != DDI_SUCCESS)
479 		return (DDI_PROBE_FAILURE);
480 
481 	stat = inb(ioaddr + FCR_MSR);
482 	if ((stat & (MS_RQM | MS_DIO | MS_CB)) != MS_RQM &&
483 	    (stat & ~MS_DIO) != MS_CB)
484 		return (DDI_PROBE_FAILURE);
485 
486 	return (DDI_PROBE_SUCCESS);
487 }
488 
489 static int
fdc_attach(dev_info_t * dip,ddi_attach_cmd_t cmd)490 fdc_attach(dev_info_t *dip, ddi_attach_cmd_t cmd)
491 {
492 	struct fdcntlr *fcp;
493 	struct fcu_obj *fjp;
494 	int cntlr_num, ctlr, unit;
495 	int intr_set = 0;
496 	int len;
497 	char name[MAXNAMELEN];
498 
499 	FCERRPRINT(FDEP_L3, FDEM_ATTA, (CE_WARN, "fdc_attach: dip %p",
500 	    (void*)dip));
501 
502 	switch (cmd) {
503 	case DDI_ATTACH:
504 		if (ddi_getprop
505 		    (DDI_DEV_T_ANY, dip, 0, "ignore-hardware-nodes", 0)) {
506 			len = sizeof (cntlr_num);
507 			if (ddi_prop_op(DDI_DEV_T_ANY, dip,
508 			    PROP_LEN_AND_VAL_BUF, DDI_PROP_DONTPASS, "unit",
509 			    (caddr_t)&cntlr_num, &len) != DDI_PROP_SUCCESS) {
510 				FCERRPRINT(FDEP_L3, FDEM_ATTA, (CE_WARN,
511 				    "fdc_attach failed: dip %p", (void*)dip));
512 				return (DDI_FAILURE);
513 			}
514 		} else {
515 			if (get_unit(dip, &cntlr_num) != DDI_SUCCESS)
516 				return (DDI_FAILURE);
517 		}
518 
519 		ctlr = ddi_get_instance(dip);
520 		if (ddi_soft_state_zalloc(fdc_state_head, ctlr) != 0)
521 			return (DDI_FAILURE);
522 		fcp = ddi_get_soft_state(fdc_state_head, ctlr);
523 
524 		for (unit = 0, fjp = (struct fcu_obj *)(fcp+1);
525 		    unit < NFDUN; unit++) {
526 			fcp->c_unit[unit] = fjp++;
527 		}
528 		fcp->c_dip = dip;
529 
530 		if (fdc_propinit1(fcp, cntlr_num) != DDI_SUCCESS)
531 			goto no_attach;
532 
533 		/* get iblock cookie to initialize mutex used in the ISR */
534 		if (ddi_get_iblock_cookie(dip, (uint_t)0, &fcp->c_iblock) !=
535 		    DDI_SUCCESS) {
536 			cmn_err(CE_WARN,
537 			    "fdc_attach: cannot get iblock cookie");
538 			goto no_attach;
539 		}
540 		mutex_init(&fcp->c_lock, NULL, MUTEX_DRIVER, fcp->c_iblock);
541 		intr_set = 1;
542 
543 		/* setup interrupt handler */
544 		if (ddi_add_intr(dip, (uint_t)0, NULL,
545 		    (ddi_idevice_cookie_t *)0, fdc_intr, (caddr_t)fcp) !=
546 		    DDI_SUCCESS) {
547 			cmn_err(CE_WARN, "fdc: cannot add intr");
548 			goto no_attach;
549 		}
550 		intr_set++;
551 
552 		/*
553 		 * acquire the DMA channel
554 		 * this assumes that the chnl is not shared; else allocate
555 		 * and free the chnl with each fdc request
556 		 */
557 		if (ddi_dmae_alloc(dip, fcp->c_dmachan, DDI_DMA_DONTWAIT, NULL)
558 		    != DDI_SUCCESS) {
559 			cmn_err(CE_WARN, "fdc: cannot acquire dma%d",
560 			    fcp->c_dmachan);
561 			goto no_attach;
562 		}
563 		(void) ddi_dmae_getattr(dip, &fdc_dma_attr);
564 		fdc_dma_attr.dma_attr_align = MMU_PAGESIZE;
565 
566 		mutex_init(&fcp->c_dorlock, NULL, MUTEX_DRIVER, fcp->c_iblock);
567 		cv_init(&fcp->c_iocv, NULL, CV_DRIVER, fcp->c_iblock);
568 		sema_init(&fcp->c_selsem, 1, NULL, SEMA_DRIVER, NULL);
569 
570 		(void) sprintf(name, "fdc%d", ctlr);
571 		fcp->c_intrstat = kstat_create("fdc", ctlr, name,
572 		    "controller", KSTAT_TYPE_INTR, 1, KSTAT_FLAG_PERSISTENT);
573 		if (fcp->c_intrstat) {
574 			kstat_install(fcp->c_intrstat);
575 		}
576 
577 		ddi_set_driver_private(dip, fcp);
578 
579 		/*
580 		 * reset the controller
581 		 */
582 		sema_p(&fcp->c_selsem);
583 		mutex_enter(&fcp->c_lock);
584 		fcp->c_csb.csb_xstate = FXS_RESET;
585 		fcp->c_flags |= FCFLG_WAITING;
586 		fdcquiesce(fcp);
587 
588 		/* first test for mode == Model 30 */
589 		fcp->c_mode = (inb(fcp->c_regbase + FCR_SRB) & 0x1c) ?
590 		    FDCMODE_AT : FDCMODE_30;
591 
592 		while (fcp->c_flags & FCFLG_WAITING) {
593 			cv_wait(&fcp->c_iocv, &fcp->c_lock);
594 		}
595 		mutex_exit(&fcp->c_lock);
596 		sema_v(&fcp->c_selsem);
597 
598 		fdc_propinit2(fcp);
599 
600 		ddi_report_dev(dip);
601 		return (DDI_SUCCESS);
602 
603 	case DDI_RESUME:
604 
605 		fcp = ddi_get_driver_private(dip);
606 
607 		mutex_enter(&fcp->c_lock);
608 		fcp->c_suspended = B_FALSE;
609 		fcp->c_csb.csb_xstate = FXS_RESET;
610 		fcp->c_flags |= FCFLG_WAITING;
611 		fdcquiesce(fcp);
612 
613 		while (fcp->c_flags & FCFLG_WAITING) {
614 			cv_wait(&fcp->c_iocv, &fcp->c_lock);
615 		}
616 		mutex_exit(&fcp->c_lock);
617 
618 		/* should be good to go now */
619 		sema_v(&fcp->c_selsem);
620 
621 		return (DDI_SUCCESS);
622 		/* break; */
623 
624 	default:
625 		return (DDI_FAILURE);
626 	}
627 
628 no_attach:
629 	if (intr_set) {
630 		if (intr_set > 1)
631 			ddi_remove_intr(dip, 0, fcp->c_iblock);
632 		mutex_destroy(&fcp->c_lock);
633 	}
634 	ddi_soft_state_free(fdc_state_head, cntlr_num);
635 	return (DDI_FAILURE);
636 }
637 
638 static int
fdc_propinit1(struct fdcntlr * fcp,int cntlr)639 fdc_propinit1(struct fdcntlr *fcp, int cntlr)
640 {
641 	dev_info_t *dip;
642 	int len;
643 	int value;
644 
645 	dip = fcp->c_dip;
646 	len = sizeof (value);
647 
648 	if (get_ioaddr(dip, &value) != DDI_SUCCESS)
649 		return (DDI_FAILURE);
650 
651 	fcp->c_regbase = (ushort_t)value;
652 
653 	if (ddi_prop_op(DDI_DEV_T_ANY, dip, PROP_LEN_AND_VAL_BUF,
654 	    DDI_PROP_DONTPASS, "dma-channels", (caddr_t)&value, &len)
655 	    != DDI_PROP_SUCCESS) {
656 			cmn_err(CE_WARN,
657 			    "fdc_attach: Error, could not find a dma channel");
658 			return (DDI_FAILURE);
659 	}
660 	fcp->c_dmachan = (ushort_t)value;
661 	fcp->c_number = cntlr;
662 	return (DDI_SUCCESS);
663 }
664 
665 static void
fdc_propinit2(struct fdcntlr * fcp)666 fdc_propinit2(struct fdcntlr *fcp)
667 {
668 	dev_info_t *dip;
669 	int ccr;
670 	int len;
671 	int value;
672 
673 	dip = fcp->c_dip;
674 	len = sizeof (value);
675 
676 	if (ddi_prop_op(DDI_DEV_T_ANY, dip, PROP_LEN_AND_VAL_BUF,
677 	    DDI_PROP_DONTPASS, "chip", (caddr_t)&value, &len)
678 	    == DDI_PROP_SUCCESS)
679 		fcp->c_chip = value;
680 	else {
681 		static uchar_t perpindcmd[2] = {FO_PERP, 0};
682 		static uchar_t versioncmd = FO_VRSN;
683 		uchar_t result;
684 
685 		fcp->c_chip = i8272A;
686 		(void) fdc_docmd(fcp, &versioncmd, 1);
687 		/*
688 		 * Ignored return. If failed, warning was issued by fdc_docmd.
689 		 * fdc_results retrieves the controller/drive status
690 		 */
691 		if (!fdc_result(fcp, &result, 1) && result == 0x90) {
692 			/*
693 			 * try a perpendicular_mode cmd to ensure
694 			 * that we really have an enhanced controller
695 			 */
696 			if (fdc_docmd(fcp, perpindcmd, 2) ||
697 			    fdc_docmd(fcp, configurecmd, 4))
698 				/*
699 				 * perpindicular_mode will be rejected by
700 				 * older controllers; make sure we don't hang.
701 				 */
702 				(void) fdc_result(fcp, &result, 1);
703 				/*
704 				 * Ignored return. If failed, warning was
705 				 * issued by fdc_result.
706 				 */
707 			else
708 				/* enhanced type controller */
709 
710 				if ((fcp->c_chip = fdc_enhance_probe(fcp)) == 0)
711 					/* default enhanced cntlr */
712 					fcp->c_chip = i82077;
713 		}
714 		(void) ddi_prop_update_int(DDI_DEV_T_NONE, dip,
715 		    "chip", fcp->c_chip);
716 		/*
717 		 * Ignoring return value because, for passed arguments, only
718 		 * DDI_SUCCESS is returned.
719 		 */
720 	}
721 	if (fcp->c_chip >= i82077 && fcp->c_mode == FDCMODE_30 &&
722 	    (inb(fcp->c_regbase + FCR_DIR) & 0x70) == 0)
723 		for (ccr = 0; ccr <= (FCC_NOPREC | FCC_DRATE); ccr++) {
724 			/*
725 			 * run through all the combinations of NOPREC and
726 			 * datarate selection, and see if they show up in the
727 			 * Model 30 DIR
728 			 */
729 			outb(fcp->c_regbase + FCR_CCR, ccr);
730 			drv_usecwait(5);
731 			if ((inb(fcp->c_regbase + FCR_DIR) &
732 			    (FCC_NOPREC | FCC_DRATE)) != ccr) {
733 				fcp->c_mode = FDCMODE_AT;
734 				break;
735 			}
736 		}
737 	else
738 		fcp->c_mode = FDCMODE_AT;
739 	outb(fcp->c_regbase + FCR_CCR, 0);
740 }
741 
742 static int
fdc_enhance_probe(struct fdcntlr * fcp)743 fdc_enhance_probe(struct fdcntlr *fcp)
744 {
745 	static uchar_t nsccmd = FO_NSC;
746 	uint_t	ddic;
747 	int	retcode = 0;
748 	uchar_t	result;
749 	uchar_t	save;
750 
751 	/*
752 	 * Try to identify the enhanced floppy controller.
753 	 * This is required so that we can program the DENSEL output to
754 	 * control 3D mode (1.0 MB, 1.6 MB and 2.0 MB unformatted capacity,
755 	 * 720 KB, 1.2 MB, and 1.44 MB formatted capacity) 3.5" dual-speed
756 	 * floppy drives.  Refer to bugid 1195155.
757 	 */
758 
759 	(void) fdc_docmd(fcp, &nsccmd, 1);
760 	/*
761 	 * Ignored return. If failed, warning was issued by fdc_docmd.
762 	 * fdc_results retrieves the controller/drive status
763 	 */
764 	if (!fdc_result(fcp, &result, 1) && result != S0_IVCMD) {
765 		/*
766 		 * only enhanced National Semi PC8477 core
767 		 * should respond to this command
768 		 */
769 		if ((result & 0xf0) == 0x70) {
770 			/* low 4 bits may change */
771 			fcp->c_flags |= FCFLG_3DMODE;
772 			retcode = PC87322;
773 		} else
774 			cmn_err(CE_CONT,
775 "?fdc: unidentified, enhanced, National Semiconductor cntlr %x\n", result);
776 	} else {
777 		save = inb(fcp->c_regbase + FCR_SRA);
778 
779 		do {
780 			/* probe for motherboard version of SMC cntlr */
781 
782 			/* try to enable configuration mode */
783 			ddic = ddi_enter_critical();
784 			outb(fcp->c_regbase + FCR_SRA, FSA_ENA5);
785 			outb(fcp->c_regbase + FCR_SRA, FSA_ENA5);
786 			ddi_exit_critical(ddic);
787 
788 			outb(fcp->c_regbase + FCR_SRA, 0x0F);
789 			if (inb(fcp->c_regbase + FCR_SRB) != 0x00)
790 				/* always expect 0 from config reg F */
791 				break;
792 			outb(fcp->c_regbase + FCR_SRA, 0x0D);
793 			if (inb(fcp->c_regbase + FCR_SRB) != 0x65)
794 				/* expect 0x65 from config reg D */
795 				break;
796 			outb(fcp->c_regbase + FCR_SRA, 0x0E);
797 			result = inb(fcp->c_regbase + FCR_SRB);
798 			if (result != 0x02) {
799 				/* expect revision level 2 from config reg E */
800 				cmn_err(CE_CONT,
801 "?fdc: unidentified, enhanced, SMC cntlr revision %x\n", result);
802 				/* break;	*/
803 			}
804 			fcp->c_flags |= FCFLG_3DMODE;
805 			retcode = FDC37C665;
806 		} while (retcode == 0);
807 		outb(fcp->c_regbase + FCR_SRA, FSA_DISB);
808 
809 		while (retcode == 0) {
810 			/* probe for adapter version of SMC cntlr */
811 			ddic = ddi_enter_critical();
812 			outb(fcp->c_regbase + FCR_SRA, FSA_ENA6);
813 			outb(fcp->c_regbase + FCR_SRA, FSA_ENA6);
814 			ddi_exit_critical(ddic);
815 
816 			outb(fcp->c_regbase + FCR_SRA, 0x0F);
817 			if (inb(fcp->c_regbase + FCR_SRB) != 0x00)
818 				/* always expect 0 from config reg F */
819 				break;
820 			outb(fcp->c_regbase + FCR_SRA, 0x0D);
821 			if (inb(fcp->c_regbase + FCR_SRB) != 0x66)
822 				/* expect 0x66 from config reg D */
823 				break;
824 			outb(fcp->c_regbase + FCR_SRA, 0x0E);
825 			result = inb(fcp->c_regbase + FCR_SRB);
826 			if (result != 0x02) {
827 				/* expect revision level 2 from config reg E */
828 				cmn_err(CE_CONT,
829 "?fdc: unidentified, enhanced, SMC cntlr revision %x\n", result);
830 				/* break;	*/
831 			}
832 			fcp->c_flags |= FCFLG_3DMODE;
833 			retcode = FDC37C666;
834 		}
835 		outb(fcp->c_regbase + FCR_SRA, FSA_DISB);
836 
837 		drv_usecwait(10);
838 		outb(fcp->c_regbase + FCR_SRA, save);
839 	}
840 	return (retcode);
841 }
842 
843 static int
fdc_detach(dev_info_t * dip,ddi_detach_cmd_t cmd)844 fdc_detach(dev_info_t *dip, ddi_detach_cmd_t cmd)
845 {
846 	struct fdcntlr *fcp;
847 	int unit;
848 	int rval = 0;
849 
850 	FCERRPRINT(FDEP_L3, FDEM_ATTA, (CE_WARN, "fdc_detach: dip %p",
851 	    (void*)dip));
852 
853 	fcp = ddi_get_driver_private(dip);
854 
855 	switch (cmd) {
856 	case DDI_DETACH:
857 		for (unit = 0; unit < NFDUN; unit++)
858 			if ((fcp->c_unit[unit])->fj_dip) {
859 				rval = EBUSY;
860 				break;
861 			}
862 		kstat_delete(fcp->c_intrstat);
863 		fcp->c_intrstat = NULL;
864 		ddi_remove_intr(fcp->c_dip, 0, fcp->c_iblock);
865 		if (ddi_dmae_release(fcp->c_dip, fcp->c_dmachan) !=
866 		    DDI_SUCCESS)
867 			cmn_err(CE_WARN, "fdc_detach: dma release failed, "
868 			    "dip %p, dmachan %x",
869 			    (void*)fcp->c_dip, fcp->c_dmachan);
870 		ddi_prop_remove_all(fcp->c_dip);
871 		ddi_set_driver_private(fcp->c_dip, NULL);
872 
873 		mutex_destroy(&fcp->c_lock);
874 		mutex_destroy(&fcp->c_dorlock);
875 		cv_destroy(&fcp->c_iocv);
876 		sema_destroy(&fcp->c_selsem);
877 		ddi_soft_state_free(fdc_state_head, ddi_get_instance(dip));
878 		break;
879 
880 	case DDI_SUSPEND:
881 		/*
882 		 * For suspend, we just use the semaphore to
883 		 * keep any child devices from accessing any of our
884 		 * hardware routines, and then shutdown the hardware.
885 		 *
886 		 * On resume, we'll reinit the hardware and release the
887 		 * semaphore.
888 		 */
889 		sema_p(&fcp->c_selsem);
890 
891 		if (ddi_dmae_disable(fcp->c_dip, fcp->c_dmachan) !=
892 		    DDI_SUCCESS) {
893 			cmn_err(CE_WARN, "fdc_suspend: dma disable failed, "
894 			    "dip %p, dmachan %x", (void *)fcp->c_dip,
895 			    fcp->c_dmachan);
896 			/* give it back on failure */
897 			sema_v(&fcp->c_selsem);
898 			return (DDI_FAILURE);
899 		}
900 
901 		mutex_enter(&fcp->c_lock);
902 		fcp->c_suspended = B_TRUE;
903 		mutex_exit(&fcp->c_lock);
904 
905 		rval = DDI_SUCCESS;
906 		break;
907 
908 	default:
909 		rval = EINVAL;
910 		break;
911 	}
912 	return (rval);
913 }
914 
915 
916 int
fdc_abort(struct fcu_obj * fjp)917 fdc_abort(struct fcu_obj *fjp)
918 {
919 	struct fdcntlr *fcp = fjp->fj_fdc;
920 	int unit = fjp->fj_unit & 3;
921 
922 	FCERRPRINT(FDEP_L3, FDEM_RESE, (CE_WARN, "fdc_abort"));
923 	if (fcp->c_curunit == unit) {
924 		mutex_enter(&fcp->c_lock);
925 		if (fcp->c_flags & FCFLG_WAITING) {
926 			/*
927 			 * this can cause data corruption !
928 			 */
929 			fdcquiesce(fcp);
930 			fcp->c_csb.csb_xstate = FXS_RESET;
931 			fcp->c_flags |= FCFLG_TIMEOUT;
932 			if (ddi_dmae_stop(fcp->c_dip, fcp->c_dmachan) !=
933 			    DDI_SUCCESS)
934 				cmn_err(CE_WARN,
935 				    "fdc_detach: dma release failed, "
936 				    "dip %p, dmachan %x",
937 				    (void*)fcp->c_dip, fcp->c_dmachan);
938 		}
939 		mutex_exit(&fcp->c_lock);
940 		drv_usecwait(500);
941 		return (DDI_SUCCESS);
942 	}
943 	return (DDI_FAILURE);
944 }
945 
946 int
fdc_dkinfo(struct fcu_obj * fjp,struct dk_cinfo * dcp)947 fdc_dkinfo(struct fcu_obj *fjp, struct dk_cinfo *dcp)
948 {
949 	struct fdcntlr *fcp = fjp->fj_fdc;
950 
951 	(void) strncpy((char *)&dcp->dki_cname, ddi_get_name(fcp->c_dip),
952 	    DK_DEVLEN);
953 	dcp->dki_ctype = DKC_UNKNOWN; /* no code for generic PC/AT fdc */
954 	dcp->dki_flags = DKI_FMTTRK;
955 	dcp->dki_addr = fcp->c_regbase;
956 	dcp->dki_space = 0;
957 	dcp->dki_prio = fcp->c_intprio;
958 	dcp->dki_vec = fcp->c_intvec;
959 	(void) strncpy((char *)&dcp->dki_dname, ddi_driver_name(fjp->fj_dip),
960 	    DK_DEVLEN);
961 	dcp->dki_slave = fjp->fj_unit & 3;
962 	dcp->dki_maxtransfer = maxphys / DEV_BSIZE;
963 	return (DDI_SUCCESS);
964 }
965 
966 /*
967  * on=> non-zero = select, 0 = de-select
968  */
969 int
fdc_select(struct fcu_obj * fjp,int funit,int on)970 fdc_select(struct fcu_obj *fjp, int funit, int on)
971 {
972 	struct fdcntlr *fcp = fjp->fj_fdc;
973 	int unit = funit & 3;
974 
975 	if (on) {
976 		/* possess controller */
977 		sema_p(&fcp->c_selsem);
978 		FCERRPRINT(FDEP_L2, FDEM_DSEL,
979 		    (CE_NOTE, "fdc_select unit %d: on", funit));
980 
981 		if (fcp->c_curunit != unit || !(fjp->fj_flags & FUNIT_CHAROK)) {
982 			fcp->c_curunit = unit;
983 			fjp->fj_flags |= FUNIT_CHAROK;
984 			if (fdcspecify(fcp,
985 			    fjp->fj_chars->fdc_transfer_rate,
986 			    fjp->fj_drive->fdd_steprate, 40))
987 				cmn_err(CE_WARN,
988 				    "fdc_select: controller setup rejected "
989 				    "fdcntrl %p transfer rate %x step rate %x"
990 				    " head load time 40", (void*)fcp,
991 				    fjp->fj_chars->fdc_transfer_rate,
992 				    fjp->fj_drive->fdd_steprate);
993 		}
994 
995 		mutex_enter(&fcp->c_dorlock);
996 
997 		/* make sure drive is not selected in case we change speed */
998 		fcp->c_digout = (fcp->c_digout & ~FD_DRSEL) |
999 		    (~unit & FD_DRSEL);
1000 		outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1001 
1002 		(void) fdc_motorsm(fjp, FMI_STARTCMD,
1003 		    fjp->fj_drive->fdd_motoron);
1004 		/*
1005 		 * Return value ignored - fdcmotort deals with failure.
1006 		 */
1007 		if (fdcspdchange(fcp, fjp, fjp->fj_attr->fda_rotatespd)) {
1008 			/* 3D drive requires 500 ms for speed change */
1009 			(void) fdc_motorsm(fjp, FMI_RSTARTCMD, 5);
1010 			/*
1011 			 * Return value ignored - fdcmotort deals with failure.
1012 			 */
1013 		}
1014 
1015 		fcp->c_digout = (fcp->c_digout & ~FD_DRSEL) | (unit & FD_DRSEL);
1016 		outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1017 
1018 		mutex_exit(&fcp->c_dorlock);
1019 		fcp->c_csb.csb_drive = (uchar_t)unit;
1020 	} else {
1021 		FCERRPRINT(FDEP_L2, FDEM_DSEL,
1022 		    (CE_NOTE, "fdc_select unit %d: off", funit));
1023 
1024 		mutex_enter(&fcp->c_dorlock);
1025 
1026 		fcp->c_digout |= FD_DRSEL;
1027 		outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1028 		(void) fdc_motorsm(fjp, FMI_IDLECMD,
1029 		    fjp->fj_drive->fdd_motoroff);
1030 		/*
1031 		 * Return value ignored - fdcmotort deals with failure.
1032 		 */
1033 
1034 		mutex_exit(&fcp->c_dorlock);
1035 
1036 		/* give up controller */
1037 		sema_v(&fcp->c_selsem);
1038 	}
1039 	return (0);
1040 }
1041 
1042 
1043 int
fdgetchng(struct fcu_obj * fjp,int funit)1044 fdgetchng(struct fcu_obj *fjp, int funit)
1045 {
1046 	if (fdcsense_drv(fjp->fj_fdc, funit & 3))
1047 		cmn_err(CE_WARN, "fdgetchng: write protect check failed");
1048 	return (fdcsense_chng(fjp->fj_fdc, funit & 3));
1049 }
1050 
1051 
1052 int
fdresetchng(struct fcu_obj * fjp,int funit)1053 fdresetchng(struct fcu_obj *fjp, int funit)
1054 {
1055 	struct fdcntlr *fcp = fjp->fj_fdc;
1056 	int unit = funit & 3;
1057 	int newcyl;			/* where to seek for reset of DSKCHG */
1058 
1059 	FCERRPRINT(FDEP_L2, FDEM_CHEK, (CE_NOTE, "fdmediachng unit %d", funit));
1060 
1061 	if (fcp->c_curpcyl[unit])
1062 		newcyl = fcp->c_curpcyl[unit] - 1;
1063 	else
1064 		newcyl = 1;
1065 	return (fdrecalseek(fjp, funit, newcyl, 0));
1066 }
1067 
1068 
1069 /*
1070  * fdrecalseek
1071  */
1072 int
fdrecalseek(struct fcu_obj * fjp,int funit,int arg,int execflg)1073 fdrecalseek(struct fcu_obj *fjp, int funit, int arg, int execflg)
1074 {
1075 	struct fdcntlr *fcp = fjp->fj_fdc;
1076 	struct fdcsb *csb;
1077 	int unit = funit & 3;
1078 	int rval;
1079 
1080 	FCERRPRINT(FDEP_L2, FDEM_RECA, (CE_NOTE, "fdrecalseek unit %d to %d",
1081 	    funit, arg));
1082 
1083 	csb = &fcp->c_csb;
1084 	csb->csb_cmd[1] = (uchar_t)unit;
1085 	if (arg < 0) {			/* is recal... */
1086 		*csb->csb_cmd = FO_RECAL;
1087 		csb->csb_ncmds = 2;
1088 		csb->csb_timer = 28;
1089 	} else {
1090 		*csb->csb_cmd = FO_SEEK;
1091 		csb->csb_cmd[2] = (uchar_t)arg;
1092 		csb->csb_ncmds = 3;
1093 		csb->csb_timer = 10;
1094 	}
1095 	csb->csb_nrslts = 2;	/* 2 for SENSE INTERRUPTS */
1096 	csb->csb_opflags = CSB_OFINRPT;
1097 	csb->csb_maxretry = skretry;
1098 	csb->csb_dmahandle = NULL;
1099 	csb->csb_handle_bound = 0;
1100 	csb->csb_dmacookiecnt = 0;
1101 	csb->csb_dmacurrcookie = 0;
1102 	csb->csb_dmawincnt = 0;
1103 	csb->csb_dmacurrwin = 0;
1104 
1105 	/* send cmd off to fdc_exec */
1106 	if (rval = fdc_exec(fcp, 1, execflg))
1107 		goto out;
1108 
1109 	if (!(*csb->csb_rslt & S0_SEKEND) ||
1110 	    (*csb->csb_rslt & S0_ICMASK) ||
1111 	    ((*csb->csb_rslt & S0_ECHK) && arg < 0) ||
1112 	    csb->csb_cmdstat)
1113 		rval = ENODEV;
1114 
1115 	if (fdcsense_drv(fcp, unit))
1116 		cmn_err(CE_WARN, "fdgetchng: write protect check failed");
1117 out:
1118 	return (rval);
1119 }
1120 
1121 
1122 /*
1123  * fdrw- used only for read/writing sectors into/from kernel buffers.
1124  */
1125 int
fdrw(struct fcu_obj * fjp,int funit,int rw,int cyl,int head,int sector,caddr_t bufp,uint_t len)1126 fdrw(struct fcu_obj *fjp, int funit, int rw, int cyl, int head,
1127     int sector, caddr_t bufp, uint_t len)
1128 {
1129 	struct fdcntlr *fcp = fjp->fj_fdc;
1130 	struct fdcsb *csb;
1131 	uint_t dmar_flags = 0;
1132 	int unit = funit & 3;
1133 	int rval;
1134 	ddi_acc_handle_t mem_handle = NULL;
1135 	caddr_t aligned_buf;
1136 	size_t real_size;
1137 
1138 	FCERRPRINT(FDEP_L1, FDEM_RW, (CE_CONT, "fdrw unit %d\n", funit));
1139 
1140 	csb = &fcp->c_csb;
1141 	if (rw) {
1142 		dmar_flags = DDI_DMA_READ;
1143 		csb->csb_opflags = CSB_OFDMARD | CSB_OFINRPT;
1144 		*csb->csb_cmd = FO_MT | FO_MFM | FO_SK | FO_RDDAT;
1145 	} else { /* write */
1146 		dmar_flags = DDI_DMA_WRITE;
1147 		csb->csb_opflags = CSB_OFDMAWT | CSB_OFINRPT;
1148 		*csb->csb_cmd = FO_MT | FO_MFM | FO_WRDAT;
1149 	}
1150 	csb->csb_cmd[1] = (uchar_t)(unit | ((head & 0x1) << 2));
1151 	csb->csb_cmd[2] = (uchar_t)cyl;
1152 	csb->csb_cmd[3] = (uchar_t)head;
1153 	csb->csb_cmd[4] = (uchar_t)sector;
1154 	encode(sector_size, fjp->fj_chars->fdc_sec_size,
1155 	    &csb->csb_cmd[5]);
1156 	csb->csb_cmd[6] = (uchar_t)max(fjp->fj_chars->fdc_secptrack, sector);
1157 	csb->csb_cmd[7] = fjp->fj_attr->fda_gapl;
1158 	csb->csb_cmd[8] = 0xFF;
1159 
1160 	csb->csb_ncmds = 9;
1161 	csb->csb_nrslts = 7;
1162 	csb->csb_timer = 36;
1163 	if (rw == FDRDONE)
1164 		csb->csb_maxretry = 1;
1165 	else
1166 		csb->csb_maxretry = rwretry;
1167 
1168 	csb->csb_dmahandle = NULL;
1169 	csb->csb_handle_bound = 0;
1170 	csb->csb_dmacookiecnt = 0;
1171 	csb->csb_dmacurrcookie = 0;
1172 	csb->csb_dmawincnt = 0;
1173 	csb->csb_dmacurrwin = 0;
1174 	dmar_flags |= (DDI_DMA_STREAMING | DDI_DMA_PARTIAL);
1175 
1176 	if (ddi_dma_alloc_handle(fcp->c_dip, &fdc_dma_attr, DDI_DMA_SLEEP,
1177 	    0, &csb->csb_dmahandle) != DDI_SUCCESS) {
1178 		rval = EINVAL;
1179 		goto out;
1180 	}
1181 
1182 	/*
1183 	 * allocate a page aligned buffer to dma to/from. This way we can
1184 	 * ensure the cookie is a whole multiple of granularity and avoids
1185 	 * any alignment issues.
1186 	 */
1187 	rval = ddi_dma_mem_alloc(csb->csb_dmahandle, len, &fdc_accattr,
1188 	    DDI_DMA_CONSISTENT, DDI_DMA_SLEEP, NULL, &aligned_buf,
1189 	    &real_size, &mem_handle);
1190 	if (rval != DDI_SUCCESS) {
1191 		rval = EINVAL;
1192 		goto out;
1193 	}
1194 
1195 	if (dmar_flags & DDI_DMA_WRITE) {
1196 		bcopy(bufp, aligned_buf, len);
1197 	}
1198 
1199 	rval = ddi_dma_addr_bind_handle(csb->csb_dmahandle, NULL, aligned_buf,
1200 	    len, dmar_flags, DDI_DMA_SLEEP, 0, &csb->csb_dmacookie,
1201 	    &csb->csb_dmacookiecnt);
1202 
1203 	if (rval == DDI_DMA_MAPPED) {
1204 		csb->csb_dmawincnt = 1;
1205 		csb->csb_handle_bound = 1;
1206 	} else if (rval == DDI_DMA_PARTIAL_MAP) {
1207 		csb->csb_handle_bound = 1;
1208 		if (ddi_dma_numwin(csb->csb_dmahandle, &csb->csb_dmawincnt) !=
1209 		    DDI_SUCCESS) {
1210 			cmn_err(CE_WARN, "fdrw: dma numwin failed");
1211 			rval = EINVAL;
1212 			goto out;
1213 		}
1214 	} else {
1215 		cmn_err(CE_WARN,
1216 		    "fdrw: dma addr bind handle failed, rval = %d", rval);
1217 		rval = EINVAL;
1218 		goto out;
1219 	}
1220 	rval = fdc_exec(fcp, 1, 1);
1221 
1222 	if (dmar_flags & DDI_DMA_READ) {
1223 		bcopy(aligned_buf, bufp, len);
1224 	}
1225 
1226 out:
1227 	if (csb->csb_dmahandle) {
1228 		if (csb->csb_handle_bound) {
1229 			if (ddi_dma_unbind_handle(csb->csb_dmahandle) !=
1230 			    DDI_SUCCESS)
1231 				cmn_err(CE_WARN, "fdrw: "
1232 				    "dma unbind handle failed");
1233 			csb->csb_handle_bound = 0;
1234 		}
1235 		if (mem_handle != NULL) {
1236 			ddi_dma_mem_free(&mem_handle);
1237 		}
1238 		ddi_dma_free_handle(&csb->csb_dmahandle);
1239 		csb->csb_dmahandle = NULL;
1240 	}
1241 	return (rval);
1242 }
1243 
1244 
1245 int
fdtrkformat(struct fcu_obj * fjp,int funit,int cyl,int head,int filldata)1246 fdtrkformat(struct fcu_obj *fjp, int funit, int cyl, int head, int filldata)
1247 {
1248 	struct fdcntlr *fcp = fjp->fj_fdc;
1249 	struct fdcsb *csb;
1250 	int unit = funit & 3;
1251 	int fmdatlen, lsector, lstart;
1252 	int interleave, numsctr, offset, psector;
1253 	uchar_t *dp;
1254 	int rval;
1255 	ddi_acc_handle_t mem_handle = NULL;
1256 	caddr_t aligned_buf;
1257 	size_t real_size;
1258 
1259 	FCERRPRINT(FDEP_L2, FDEM_FORM,
1260 	    (CE_NOTE, "fdformattrk unit %d cyl=%d, hd=%d", funit, cyl, head));
1261 
1262 	csb = &fcp->c_csb;
1263 
1264 	csb->csb_opflags = CSB_OFDMAWT | CSB_OFINRPT;
1265 
1266 	*csb->csb_cmd = FO_FRMT | FO_MFM;
1267 	csb->csb_cmd[1] = (head << 2) | unit;
1268 	encode(sector_size, fjp->fj_chars->fdc_sec_size,
1269 	    &csb->csb_cmd[2]);
1270 	csb->csb_cmd[3] = numsctr = fjp->fj_chars->fdc_secptrack;
1271 	csb->csb_cmd[4] = fjp->fj_attr->fda_gapf;
1272 	csb->csb_cmd[5] = (uchar_t)filldata;
1273 
1274 	csb->csb_npcyl = (uchar_t)(cyl * fjp->fj_chars->fdc_steps);
1275 
1276 	csb->csb_dmahandle = NULL;
1277 	csb->csb_handle_bound = 0;
1278 	csb->csb_dmacookiecnt = 0;
1279 	csb->csb_dmacurrcookie = 0;
1280 	csb->csb_dmawincnt = 0;
1281 	csb->csb_dmacurrwin = 0;
1282 	csb->csb_ncmds = 6;
1283 	csb->csb_nrslts = 7;
1284 	csb->csb_timer = 32;
1285 	csb->csb_maxretry = rwretry;
1286 
1287 	/*
1288 	 * alloc space for format track cmd
1289 	 */
1290 	/*
1291 	 * NOTE: have to add size of fifo also - for dummy format action
1292 	 */
1293 	fmdatlen = 4 * numsctr;
1294 
1295 	if (ddi_dma_alloc_handle(fcp->c_dip, &fdc_dma_attr, DDI_DMA_SLEEP,
1296 	    0, &csb->csb_dmahandle) != DDI_SUCCESS) {
1297 		rval = EINVAL;
1298 		goto out;
1299 	}
1300 
1301 	/*
1302 	 * allocate a page aligned buffer to dma to/from. This way we can
1303 	 * ensure the cookie is a whole multiple of granularity and avoids
1304 	 * any alignment issues.
1305 	 */
1306 	rval = ddi_dma_mem_alloc(csb->csb_dmahandle, fmdatlen, &fdc_accattr,
1307 	    DDI_DMA_CONSISTENT, DDI_DMA_SLEEP, NULL, &aligned_buf,
1308 	    &real_size, &mem_handle);
1309 	if (rval != DDI_SUCCESS) {
1310 		rval = EINVAL;
1311 		goto out;
1312 	}
1313 	dp = (uchar_t *)aligned_buf;
1314 
1315 	interleave = fjp->fj_attr->fda_intrlv;
1316 	offset = (numsctr + interleave - 1) / interleave;
1317 	for (psector = lstart = 1;
1318 	    psector <= numsctr; psector += interleave, lstart++) {
1319 		for (lsector = lstart; lsector <= numsctr; lsector += offset) {
1320 			*dp++ = (uchar_t)cyl;
1321 			*dp++ = (uchar_t)head;
1322 			*dp++ = (uchar_t)lsector;
1323 			*dp++ = csb->csb_cmd[2];
1324 		}
1325 	}
1326 
1327 	rval = ddi_dma_addr_bind_handle(csb->csb_dmahandle, NULL, aligned_buf,
1328 	    fmdatlen, DDI_DMA_WRITE | DDI_DMA_STREAMING | DDI_DMA_PARTIAL,
1329 	    DDI_DMA_SLEEP, 0, &csb->csb_dmacookie, &csb->csb_dmacookiecnt);
1330 
1331 	if (rval == DDI_DMA_MAPPED) {
1332 		csb->csb_dmawincnt = 1;
1333 		csb->csb_handle_bound = 1;
1334 	} else if (rval == DDI_DMA_PARTIAL_MAP) {
1335 		csb->csb_handle_bound = 1;
1336 		if (ddi_dma_numwin(csb->csb_dmahandle, &csb->csb_dmawincnt) !=
1337 		    DDI_SUCCESS) {
1338 			cmn_err(CE_WARN, "fdtrkformat: dma numwin failed");
1339 			rval = EINVAL;
1340 			goto out;
1341 		}
1342 	} else {
1343 		cmn_err(CE_WARN,
1344 		    "fdtrkformat: dma buf bind handle failed, rval = %d",
1345 		    rval);
1346 		rval = EINVAL;
1347 		goto out;
1348 	}
1349 
1350 	rval = fdc_exec(fcp, 1, 1);
1351 out:
1352 	if (csb->csb_dmahandle) {
1353 		if (csb->csb_handle_bound) {
1354 			if (ddi_dma_unbind_handle(csb->csb_dmahandle) !=
1355 			    DDI_SUCCESS)
1356 				cmn_err(CE_WARN, "fdtrkformat: "
1357 				    "dma unbind handle failed");
1358 			csb->csb_handle_bound = 0;
1359 		}
1360 		if (mem_handle != NULL) {
1361 			ddi_dma_mem_free(&mem_handle);
1362 		}
1363 		ddi_dma_free_handle(&csb->csb_dmahandle);
1364 		csb->csb_dmahandle = NULL;
1365 	}
1366 	return (rval);
1367 }
1368 
1369 int
fdrawioctl(struct fcu_obj * fjp,int funit,caddr_t arg)1370 fdrawioctl(struct fcu_obj *fjp, int funit, caddr_t arg)
1371 {
1372 	struct fdcntlr *fcp = fjp->fj_fdc;
1373 	struct fd_raw *fdrp = (struct fd_raw *)arg;
1374 	struct fdcsb *csb;
1375 	uint_t dmar_flags = 0;
1376 	int i;
1377 	int change = 1;
1378 	int sleep = 1;
1379 	int rval = 0;
1380 	int rval_exec = 0;
1381 	ddi_acc_handle_t mem_handle = NULL;
1382 	caddr_t aligned_buf;
1383 	size_t real_size;
1384 
1385 	_NOTE(ARGUNUSED(funit));
1386 
1387 	FCERRPRINT(FDEP_L2, FDEM_RAWI,
1388 	    (CE_NOTE, "fdrawioctl: cmd[0]=0x%x", fdrp->fdr_cmd[0]));
1389 
1390 	csb = &fcp->c_csb;
1391 
1392 	/* copy cmd bytes into csb */
1393 	for (i = 0; i <= fdrp->fdr_cnum; i++)
1394 		csb->csb_cmd[i] = fdrp->fdr_cmd[i];
1395 	csb->csb_ncmds = (uchar_t)fdrp->fdr_cnum;
1396 
1397 	csb->csb_maxretry = 0;	/* let the application deal with errors */
1398 	csb->csb_opflags = CSB_OFRAWIOCTL;
1399 	csb->csb_nrslts = 0;
1400 	csb->csb_timer = 50;
1401 
1402 	switch (fdrp->fdr_cmd[0] & 0x0f) {
1403 
1404 	case FO_SEEK:
1405 		change = 0;
1406 		/* FALLTHROUGH */
1407 	case FO_RECAL:
1408 		csb->csb_opflags |= CSB_OFINRPT;
1409 		break;
1410 
1411 	case FO_FRMT:
1412 		csb->csb_npcyl = *(uchar_t *)(fdrp->fdr_addr) *
1413 		    fjp->fj_chars->fdc_steps;
1414 		/* FALLTHROUGH */
1415 	case FO_WRDAT:
1416 	case FO_WRDEL:
1417 		csb->csb_opflags |= CSB_OFDMAWT | CSB_OFRESLT | CSB_OFINRPT;
1418 		csb->csb_nrslts = 7;
1419 		if (fdrp->fdr_nbytes == 0)
1420 			return (EINVAL);
1421 		dmar_flags = DDI_DMA_WRITE;
1422 		break;
1423 
1424 	case FO_RDDAT:
1425 	case FO_RDDEL:
1426 	case FO_RDTRK:
1427 		csb->csb_opflags |= CSB_OFDMARD | CSB_OFRESLT | CSB_OFINRPT;
1428 		csb->csb_nrslts = 7;
1429 		dmar_flags = DDI_DMA_READ;
1430 		break;
1431 
1432 	case FO_RDID:
1433 		csb->csb_opflags |= CSB_OFRESLT | CSB_OFINRPT;
1434 		csb->csb_nrslts = 7;
1435 		break;
1436 
1437 	case FO_SDRV:
1438 		sleep = 0;
1439 		csb->csb_nrslts = 1;
1440 		break;
1441 
1442 	case FO_SINT:
1443 		sleep = 0;
1444 		change = 0;
1445 		csb->csb_nrslts = 2;
1446 		break;
1447 
1448 	case FO_SPEC:
1449 		sleep = 0;
1450 		change = 0;
1451 		break;
1452 
1453 	default:
1454 		return (EINVAL);
1455 	}
1456 
1457 	csb->csb_dmahandle = NULL;
1458 	csb->csb_handle_bound = 0;
1459 	csb->csb_dmacookiecnt = 0;
1460 	csb->csb_dmacurrcookie = 0;
1461 	csb->csb_dmawincnt = 0;
1462 	csb->csb_dmacurrwin = 0;
1463 
1464 	if (csb->csb_opflags & (CSB_OFDMARD | CSB_OFDMAWT)) {
1465 		if (ddi_dma_alloc_handle(fcp->c_dip, &fdc_dma_attr,
1466 		    DDI_DMA_SLEEP, 0, &csb->csb_dmahandle) != DDI_SUCCESS) {
1467 			rval = EINVAL;
1468 			goto out;
1469 		}
1470 
1471 		/*
1472 		 * allocate a page aligned buffer to dma to/from. This way we
1473 		 * can ensure the cookie is a whole multiple of granularity and
1474 		 * avoids any alignment issues.
1475 		 */
1476 		rval = ddi_dma_mem_alloc(csb->csb_dmahandle,
1477 		    (uint_t)fdrp->fdr_nbytes, &fdc_accattr, DDI_DMA_CONSISTENT,
1478 		    DDI_DMA_SLEEP, NULL, &aligned_buf, &real_size, &mem_handle);
1479 		if (rval != DDI_SUCCESS) {
1480 			rval = EINVAL;
1481 			goto out;
1482 		}
1483 
1484 		if (dmar_flags & DDI_DMA_WRITE) {
1485 			bcopy(fdrp->fdr_addr, aligned_buf,
1486 			    (uint_t)fdrp->fdr_nbytes);
1487 		}
1488 
1489 		dmar_flags |= (DDI_DMA_STREAMING | DDI_DMA_PARTIAL);
1490 		rval = ddi_dma_addr_bind_handle(csb->csb_dmahandle, NULL,
1491 		    aligned_buf, (uint_t)fdrp->fdr_nbytes, dmar_flags,
1492 		    DDI_DMA_SLEEP, 0, &csb->csb_dmacookie,
1493 		    &csb->csb_dmacookiecnt);
1494 
1495 		if (rval == DDI_DMA_MAPPED) {
1496 			csb->csb_dmawincnt = 1;
1497 			csb->csb_handle_bound = 1;
1498 		} else if (rval == DDI_DMA_PARTIAL_MAP) {
1499 			csb->csb_handle_bound = 1;
1500 			if (ddi_dma_numwin(csb->csb_dmahandle,
1501 			    &csb->csb_dmawincnt) != DDI_SUCCESS) {
1502 				cmn_err(CE_WARN,
1503 				    "fdrawioctl: dma numwin failed");
1504 				rval = EINVAL;
1505 				goto out;
1506 			}
1507 		} else {
1508 			cmn_err(CE_WARN, "fdrawioctl: "
1509 			    "dma buf bind handle failed, rval = %d", rval);
1510 			rval = EINVAL;
1511 			goto out;
1512 		}
1513 	}
1514 
1515 	FCERRPRINT(FDEP_L1, FDEM_RAWI,
1516 	    (CE_CONT, "cmd: %x %x %x %x %x %x %x %x %x %x\n", csb->csb_cmd[0],
1517 	    csb->csb_cmd[1], csb->csb_cmd[2], csb->csb_cmd[3],
1518 	    csb->csb_cmd[4], csb->csb_cmd[5], csb->csb_cmd[6],
1519 	    csb->csb_cmd[7], csb->csb_cmd[8], csb->csb_cmd[9]));
1520 	FCERRPRINT(FDEP_L1, FDEM_RAWI,
1521 	    (CE_CONT, "nbytes: %x, opflags: %x, addr: %p, len: %x\n",
1522 	    csb->csb_ncmds, csb->csb_opflags, (void *)fdrp->fdr_addr,
1523 	    fdrp->fdr_nbytes));
1524 
1525 	/*
1526 	 * Note that we ignore any error returns from fdexec.
1527 	 * This is the way the driver has been, and it may be
1528 	 * that the raw ioctl senders simply don't want to
1529 	 * see any errors returned in this fashion.
1530 	 */
1531 
1532 	/*
1533 	 * VP/ix sense drive ioctl call checks for the error return.
1534 	 */
1535 
1536 	rval_exec = fdc_exec(fcp, sleep, change);
1537 
1538 	if (dmar_flags & DDI_DMA_READ) {
1539 		bcopy(aligned_buf, fdrp->fdr_addr, (uint_t)fdrp->fdr_nbytes);
1540 	}
1541 
1542 	FCERRPRINT(FDEP_L1, FDEM_RAWI,
1543 	    (CE_CONT, "rslt: %x %x %x %x %x %x %x %x %x %x\n", csb->csb_rslt[0],
1544 	    csb->csb_rslt[1], csb->csb_rslt[2], csb->csb_rslt[3],
1545 	    csb->csb_rslt[4], csb->csb_rslt[5], csb->csb_rslt[6],
1546 	    csb->csb_rslt[7], csb->csb_rslt[8], csb->csb_rslt[9]));
1547 
1548 	/* copy results into fdr */
1549 	for (i = 0; i <= (int)csb->csb_nrslts; i++)
1550 		fdrp->fdr_result[i] = csb->csb_rslt[i];
1551 /*	fdrp->fdr_nbytes = fdc->c_csb.csb_rlen;  return resid */
1552 
1553 out:
1554 	if (csb->csb_dmahandle) {
1555 		if (csb->csb_handle_bound) {
1556 			if (ddi_dma_unbind_handle(csb->csb_dmahandle) !=
1557 			    DDI_SUCCESS)
1558 				cmn_err(CE_WARN, "fdrawioctl: "
1559 				    "dma unbind handle failed");
1560 			csb->csb_handle_bound = 0;
1561 		}
1562 		if (mem_handle != NULL) {
1563 			ddi_dma_mem_free(&mem_handle);
1564 		}
1565 		ddi_dma_free_handle(&csb->csb_dmahandle);
1566 		csb->csb_dmahandle = NULL;
1567 	}
1568 	if ((fdrp->fdr_cmd[0] & 0x0f) == FO_SDRV) {
1569 		return (rval_exec);
1570 	}
1571 	return (rval);
1572 }
1573 
1574 void
encode(xlate_tbl_t * tablep,int val,uchar_t * rcode)1575 encode(xlate_tbl_t *tablep, int val, uchar_t *rcode)
1576 {
1577 	do {
1578 		if (tablep->value >= val) {
1579 			*rcode = tablep->code;
1580 			return;
1581 		}
1582 	} while ((++tablep)->value);
1583 	*rcode = tablep->code;
1584 	cmn_err(CE_WARN, "fdc encode failed, table %p val %x code %x",
1585 	    (void *)tablep, val, (uint_t)*rcode);
1586 }
1587 
1588 int
decode(xlate_tbl_t * tablep,int kode,int * rvalue)1589 decode(xlate_tbl_t *tablep, int kode, int *rvalue)
1590 {
1591 	do  {
1592 		if (tablep->code == kode) {
1593 			*rvalue = tablep->value;
1594 			return (0);
1595 		}
1596 	} while ((++tablep)->value);
1597 	return (-1);
1598 }
1599 
1600 /*
1601  * quiesce(9E) entry point.
1602  *
1603  * This function is called when the system is single-threaded at high
1604  * PIL with preemption disabled. Therefore, this function must not be
1605  * blocked.
1606  *
1607  * This function returns DDI_SUCCESS on success, or DDI_FAILURE on failure.
1608  * DDI_FAILURE indicates an error condition and should almost never happen.
1609  */
1610 int
fdc_quiesce(dev_info_t * dip)1611 fdc_quiesce(dev_info_t *dip)
1612 {
1613 	struct fdcntlr *fcp;
1614 	int ctlr = ddi_get_instance(dip);
1615 	int unit;
1616 
1617 	fcp = ddi_get_soft_state(fdc_state_head, ctlr);
1618 
1619 	if (fcp == NULL)
1620 		return (DDI_FAILURE);
1621 
1622 	/*
1623 	 * If no FD units are attached, there is no need to quiesce.
1624 	 */
1625 	for (unit = 0; unit < NFDUN; unit++) {
1626 		struct fcu_obj *fjp = fcp->c_unit[unit];
1627 		if (fjp->fj_flags & FUNIT_DRVATCH) {
1628 			break;
1629 		}
1630 	}
1631 
1632 	if (unit == NFDUN)
1633 		return (DDI_SUCCESS);
1634 
1635 	(void) ddi_dmae_disable(fcp->c_dip, fcp->c_dmachan);
1636 
1637 	fcp->c_digout = (fcp->c_digout & (FD_DMTREN | FD_DRSEL)) | FD_ENABLE;
1638 	outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1639 	drv_usecwait(20);
1640 	fcp->c_digout |= FD_RSETZ;
1641 	outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1642 
1643 	if (fcp->c_chip >= i82077) {
1644 		int count = 4;
1645 		uchar_t *oplistp = configurecmd;
1646 		do {
1647 			int ntries = FDC_RQM_RETRY;
1648 			do {
1649 				if ((inb(fcp->c_regbase + FCR_MSR) &
1650 				    (MS_RQM|MS_DIO)) == MS_RQM)
1651 					break;
1652 				else
1653 					drv_usecwait(1);
1654 			} while (--ntries);
1655 			if (ntries == 0) {
1656 				break;
1657 			}
1658 			outb(fcp->c_regbase + FCR_DATA, *oplistp++);
1659 			drv_usecwait(16); /* See comment in fdc_result() */
1660 		} while (--count);
1661 	}
1662 
1663 	return (DDI_SUCCESS);
1664 }
1665 
1666 void
fdcquiesce(struct fdcntlr * fcp)1667 fdcquiesce(struct fdcntlr *fcp)
1668 {
1669 	int unit;
1670 
1671 	FCERRPRINT(FDEP_L2, FDEM_RESE, (CE_NOTE, "fdcquiesce fcp %p",
1672 	    (void*)fcp));
1673 
1674 	ASSERT(MUTEX_HELD(&fcp->c_lock));
1675 	mutex_enter(&fcp->c_dorlock);
1676 
1677 	if (ddi_dmae_stop(fcp->c_dip, fcp->c_dmachan) != DDI_SUCCESS)
1678 		cmn_err(CE_WARN, "fdcquiesce: dmae stop failed, "
1679 		    "dip %p, dmachan %x",
1680 		    (void*)fcp->c_dip, fcp->c_dmachan);
1681 
1682 	fcp->c_digout = (fcp->c_digout & (FD_DMTREN | FD_DRSEL)) | FD_ENABLE;
1683 	outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1684 	drv_usecwait(20);
1685 	fcp->c_digout |= FD_RSETZ;
1686 	outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1687 
1688 	mutex_exit(&fcp->c_dorlock);
1689 
1690 	/* count resets */
1691 	fcp->fdstats.reset++;
1692 	fcp->c_curunit = -1;
1693 	for (unit = 0; unit < NFDUN; unit++)
1694 		fcp->c_curpcyl[unit] = -1;
1695 
1696 	if (fcp->c_chip >= i82077) {
1697 		(void) fdc_docmd(fcp, configurecmd, 4);
1698 		/*
1699 		 * Ignored return. If failed, warning was issued by fdc_docmd.
1700 		 */
1701 	}
1702 }
1703 
1704 void
fdcreadid(struct fdcntlr * fcp,struct fdcsb * csb)1705 fdcreadid(struct fdcntlr *fcp, struct fdcsb *csb)
1706 {
1707 	static uchar_t readidcmd[2] = {FO_RDID | FO_MFM, 0};
1708 
1709 	readidcmd[1] = csb->csb_cmd[1];
1710 	(void) fdc_docmd(fcp, readidcmd, 2);
1711 }
1712 
1713 int
fdcseek(struct fdcntlr * fcp,int unit,int cyl)1714 fdcseek(struct fdcntlr *fcp, int unit, int cyl)
1715 {
1716 	static uchar_t seekabscmd[3] = {FO_SEEK, 0, 0};
1717 
1718 	FCERRPRINT(FDEP_L0, FDEM_RECA, (CE_CONT, "fdcseek unit %d to cyl %d\n",
1719 	    unit, cyl));
1720 	seekabscmd[1] = (uchar_t)unit;
1721 	seekabscmd[2] = (uchar_t)cyl;
1722 	return (fdc_docmd(fcp, seekabscmd, 3));
1723 }
1724 
1725 /*
1726  * Returns status of disk change line of selected drive.
1727  *	= 0 means diskette is present
1728  *	!= 0 means diskette was removed and current state is unknown
1729  */
1730 int
fdcsense_chng(struct fdcntlr * fcp,int unit)1731 fdcsense_chng(struct fdcntlr *fcp, int unit)
1732 {
1733 	int digital_input;
1734 
1735 	FCERRPRINT(FDEP_L0, FDEM_SCHG,
1736 	    (CE_CONT, "fdcsense_chng unit %d\n", unit));
1737 	digital_input = inb(fcp->c_regbase + FCR_DIR);
1738 	if (fcp->c_mode == FDCMODE_30)
1739 		digital_input ^= FDI_DKCHG;
1740 	return (digital_input & FDI_DKCHG);
1741 }
1742 
1743 int
fdcsense_drv(struct fdcntlr * fcp,int unit)1744 fdcsense_drv(struct fdcntlr *fcp, int unit)
1745 {
1746 	static uchar_t sensedrvcmd[2] = {FO_SDRV, 0};
1747 	uchar_t senser;
1748 	int rval;
1749 
1750 	sensedrvcmd[1] = (uchar_t)unit;
1751 	(void) fdc_docmd(fcp, sensedrvcmd, 2);
1752 	/*
1753 	 * Ignored return. If failed, warning was issued by fdc_docmd.
1754 	 * fdc_results retrieves the controller/drive status
1755 	 */
1756 	if (rval = fdc_result(fcp, &senser, 1))
1757 		goto done;
1758 	if (senser & S3_WPROT)
1759 		fcp->c_unit[unit]->fj_flags |= FUNIT_WPROT;
1760 	else
1761 		fcp->c_unit[unit]->fj_flags &= ~FUNIT_WPROT;
1762 done:
1763 	return (rval);
1764 }
1765 
1766 int
fdcsense_int(struct fdcntlr * fcp,int * unitp,int * cylp)1767 fdcsense_int(struct fdcntlr *fcp, int *unitp, int *cylp)
1768 {
1769 	uchar_t senser[2];
1770 	int rval;
1771 
1772 	(void) fdc_docmd(fcp, &senseintcmd, 1);
1773 	/*
1774 	 * Ignored return. If failed, warning was issued by fdc_docmd.
1775 	 * fdc_results retrieves the controller/drive status
1776 	 */
1777 
1778 	if (!(rval = fdc_result(fcp, senser, 2))) {
1779 		if ((*senser & (S0_IVCMD | S0_SEKEND | S0_ECHK)) != S0_SEKEND)
1780 			rval = 1;
1781 		if (unitp)
1782 			*unitp = *senser & 3;
1783 		if (cylp)
1784 			*cylp = senser[1];
1785 	}
1786 	return (rval);
1787 }
1788 
1789 int
fdcspecify(struct fdcntlr * fcp,int xferrate,int steprate,int hlt)1790 fdcspecify(struct fdcntlr *fcp, int xferrate, int steprate, int hlt)
1791 {
1792 	static uchar_t perpindcmd[2] = {FO_PERP, 0};
1793 	static uchar_t specifycmd[3] = {FO_SPEC, 0, 0};
1794 
1795 	encode(drate_mfm, xferrate, &fcp->c_config);
1796 	outb(fcp->c_regbase + FCR_CCR, fcp->c_config);
1797 
1798 	if (fcp->c_chip >= i82077) {
1799 		/*
1800 		 * Use old style perpendicular mode command of 82077.
1801 		 */
1802 		if (xferrate == 1000) {
1803 			/* Set GAP and WGATE */
1804 			perpindcmd[1] = 3;
1805 			/* double step rate because xlate table is for 500Kb */
1806 			steprate <<= 1;
1807 			hlt <<= 1;
1808 		} else
1809 			perpindcmd[1] = 0;
1810 		(void) fdc_docmd(fcp, perpindcmd, 2);
1811 		/*
1812 		 * Ignored return. If failed, warning was issued by fdc_docmd.
1813 		 */
1814 	}
1815 	encode(step_rate, steprate, &fcp->c_hutsrt);
1816 	specifycmd[1] = fcp->c_hutsrt |= 0x0F;	/* use max head unload time */
1817 	hlt = (hlt >= 256) ? 0 : (hlt >> 1);	/* encode head load time */
1818 	specifycmd[2] = fcp->c_hlt = hlt << 1;	/* make room for DMA bit */
1819 	return (fdc_docmd(fcp, specifycmd, 3));
1820 }
1821 
1822 int
fdcspdchange(struct fdcntlr * fcp,struct fcu_obj * fjp,int rpm)1823 fdcspdchange(struct fdcntlr *fcp, struct fcu_obj *fjp, int rpm)
1824 {
1825 	int	retcode = 0;
1826 	uint_t	ddic;
1827 	uchar_t	deselect = 0;
1828 	uchar_t	ds_code;
1829 	uchar_t	enable_code;
1830 	uchar_t	save;
1831 
1832 	if (((fcp->c_flags & FCFLG_DSOUT) == 0 && rpm <= fjp->fj_rotspd) ||
1833 	    ((fcp->c_flags & FCFLG_DSOUT) && (fjp->fj_flags & FUNIT_3DMODE) &&
1834 	    rpm > fjp->fj_rotspd)) {
1835 		return (0);
1836 	}
1837 
1838 	FCERRPRINT(FDEP_L1, FDEM_SCHG,
1839 	    (CE_CONT, "fdcspdchange: %d rpm\n", rpm));
1840 	ASSERT(MUTEX_HELD(&fcp->c_dorlock));
1841 
1842 	switch (fcp->c_chip) {
1843 	default:
1844 		break;
1845 	case i82077:
1846 		break;
1847 
1848 	case PC87322:
1849 		{
1850 		uchar_t nscmodecmd[5] = {FO_MODE, 0x02, 0x00, 0xC8, 0x00};
1851 
1852 		if (rpm > fjp->fj_rotspd) {
1853 			nscmodecmd[3] ^= 0xC0;
1854 			retcode = (fcp->c_flags ^ FCFLG_DSOUT) ||
1855 			    (fjp->fj_flags ^ FUNIT_3DMODE);
1856 			fcp->c_flags |= FCFLG_DSOUT;
1857 			fjp->fj_flags |= FUNIT_3DMODE;
1858 		} else {
1859 			/* program DENSEL to default output */
1860 			fcp->c_flags &= ~FCFLG_DSOUT;
1861 			retcode = fjp->fj_flags & FUNIT_3DMODE;
1862 			fjp->fj_flags &= ~FUNIT_3DMODE;
1863 		}
1864 		if (retcode && (fcp->c_digout & FD_DRSEL) == fcp->c_curunit) {
1865 			/* de-select drive while changing speed */
1866 			deselect = fcp->c_digout ^ FD_DRSEL;
1867 			outb(fcp->c_regbase + FCR_DOR, deselect);
1868 		}
1869 
1870 		(void) fdc_docmd(fcp, nscmodecmd, 5);
1871 		/*
1872 		 * Ignored return. If failed, warning was issued by fdc_docmd.
1873 		 */
1874 		break;
1875 		}
1876 
1877 	case FDC37C665:
1878 		enable_code = FSA_ENA5;
1879 		goto SMC_config;
1880 
1881 	case FDC37C666:
1882 		enable_code = FSA_ENA6;
1883 SMC_config:
1884 		if (rpm > fjp->fj_rotspd) {
1885 			/* force DENSEL output to active LOW */
1886 			ds_code = FSB_DSHI;
1887 			retcode = (fcp->c_flags ^ FCFLG_DSOUT) ||
1888 			    (fjp->fj_flags ^ FUNIT_3DMODE);
1889 			fcp->c_flags |= FCFLG_DSOUT;
1890 			fjp->fj_flags |= FUNIT_3DMODE;
1891 		} else {
1892 			/* program DENSEL to default output */
1893 			ds_code = 0;
1894 			fcp->c_flags &= ~FCFLG_DSOUT;
1895 			retcode = fjp->fj_flags & FUNIT_3DMODE;
1896 			fjp->fj_flags &= ~FUNIT_3DMODE;
1897 		}
1898 		if (retcode && (fcp->c_digout & FD_DRSEL) == fcp->c_curunit) {
1899 			/* de-select drive while changing speed */
1900 			deselect = fcp->c_digout ^ FD_DRSEL;
1901 			outb(fcp->c_regbase + FCR_DOR, deselect);
1902 		}
1903 		save = inb(fcp->c_regbase + FCR_SRA);
1904 
1905 		/* enter configuration mode */
1906 		ddic = ddi_enter_critical();
1907 		outb(fcp->c_regbase + FCR_SRA, enable_code);
1908 		outb(fcp->c_regbase + FCR_SRA, enable_code);
1909 		ddi_exit_critical(ddic);
1910 
1911 		outb(fcp->c_regbase + FCR_SRA, FSA_CR5);
1912 		enable_code = inb(fcp->c_regbase + FCR_SRB) & FSB_DSDEF;
1913 		/* update DENSEL mode bits */
1914 		outb(fcp->c_regbase + FCR_SRB, enable_code | ds_code);
1915 
1916 		/* exit configuration mode */
1917 		outb(fcp->c_regbase + FCR_SRA, FSA_DISB);
1918 		drv_usecwait(10);
1919 		outb(fcp->c_regbase + FCR_SRA, save);
1920 		break;
1921 	}
1922 	if (deselect)
1923 		/* reselect drive */
1924 		outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1925 	return (retcode);
1926 }
1927 
1928 static int
fdc_motorsm(struct fcu_obj * fjp,int input,int timeval)1929 fdc_motorsm(struct fcu_obj *fjp, int input, int timeval)
1930 {
1931 	struct fdcntlr *fcp = fjp->fj_fdc;
1932 	int unit = fjp->fj_unit & 3;
1933 	int old_mstate;
1934 	int rval = 0;
1935 	uchar_t motorbit;
1936 
1937 	ASSERT(MUTEX_HELD(&fcp->c_dorlock));
1938 	old_mstate = fcp->c_mtrstate[unit];
1939 	encode(motor_onbits, unit, &motorbit);
1940 
1941 	switch (input) {
1942 	case FMI_TIMER:		/* timer expired */
1943 		fcp->c_motort[unit] = 0;
1944 		switch (old_mstate) {
1945 		case FMS_START:
1946 		case FMS_DELAY:
1947 			fcp->c_mtrstate[unit] = FMS_ON;
1948 			break;
1949 		case FMS_KILLST:
1950 			fcp->c_motort[unit] = timeout(fdmotort, (void *)fjp,
1951 			    drv_usectohz(1000000));
1952 			fcp->c_mtrstate[unit] = FMS_IDLE;
1953 			break;
1954 		case FMS_IDLE:
1955 			fcp->c_digout &= ~motorbit;
1956 			outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1957 			fcp->c_mtrstate[unit] = FMS_OFF;
1958 			fjp->fj_flags &= ~FUNIT_3DMODE;
1959 			break;
1960 		case 86:
1961 			rval = -1;
1962 			break;
1963 		case FMS_OFF:
1964 		case FMS_ON:
1965 		default:
1966 			rval = -2;
1967 		}
1968 		break;
1969 
1970 	case FMI_STARTCMD:	/* start command */
1971 		switch (old_mstate) {
1972 		case FMS_IDLE:
1973 			fcp->c_mtrstate[unit] = 86;
1974 			mutex_exit(&fcp->c_dorlock);
1975 			(void) untimeout(fcp->c_motort[unit]);
1976 			mutex_enter(&fcp->c_dorlock);
1977 			fcp->c_motort[unit] = 0;
1978 			fcp->c_mtrstate[unit] = FMS_ON;
1979 			break;
1980 		case FMS_OFF:
1981 			fcp->c_digout |= motorbit;
1982 			outb(fcp->c_regbase + FCR_DOR, fcp->c_digout);
1983 
1984 			/* start motor_spinup_timer */
1985 			ASSERT(timeval > 0);
1986 			fcp->c_motort[unit] = timeout(fdmotort,  (void *)fjp,
1987 			    drv_usectohz(100000 * timeval));
1988 			/* FALLTHROUGH */
1989 		case FMS_KILLST:
1990 			fcp->c_mtrstate[unit] = FMS_START;
1991 			break;
1992 		default:
1993 			rval = -2;
1994 		}
1995 		break;
1996 
1997 	case FMI_RSTARTCMD:	/* restart command */
1998 		if (fcp->c_motort[unit] != 0) {
1999 			fcp->c_mtrstate[unit] = 86;
2000 			mutex_exit(&fcp->c_dorlock);
2001 			(void) untimeout(fcp->c_motort[unit]);
2002 			mutex_enter(&fcp->c_dorlock);
2003 		}
2004 		ASSERT(timeval > 0);
2005 		fcp->c_motort[unit] = timeout(fdmotort, (void *)fjp,
2006 		    drv_usectohz(100000 * timeval));
2007 		fcp->c_mtrstate[unit] = FMS_START;
2008 		break;
2009 
2010 	case FMI_DELAYCMD:	/* delay command */
2011 		if (fcp->c_motort[unit] == 0)
2012 			fcp->c_motort[unit] = timeout(fdmotort,  (void *)fjp,
2013 			    drv_usectohz(15000));
2014 		fcp->c_mtrstate[unit] = FMS_DELAY;
2015 		break;
2016 
2017 	case FMI_IDLECMD:	/* idle command */
2018 		switch (old_mstate) {
2019 		case FMS_DELAY:
2020 			fcp->c_mtrstate[unit] = 86;
2021 			mutex_exit(&fcp->c_dorlock);
2022 			(void) untimeout(fcp->c_motort[unit]);
2023 			mutex_enter(&fcp->c_dorlock);
2024 			/* FALLTHROUGH */
2025 		case FMS_ON:
2026 			ASSERT(timeval > 0);
2027 			fcp->c_motort[unit] = timeout(fdmotort, (void *)fjp,
2028 			    drv_usectohz(100000 * timeval));
2029 			fcp->c_mtrstate[unit] = FMS_IDLE;
2030 			break;
2031 		case FMS_START:
2032 			fcp->c_mtrstate[unit] = FMS_KILLST;
2033 			break;
2034 		default:
2035 			rval = -2;
2036 		}
2037 		break;
2038 
2039 	default:
2040 		rval = -3;
2041 	}
2042 	if (rval) {
2043 		FCERRPRINT(FDEP_L4, FDEM_EXEC, (CE_WARN,
2044 		    "fdc_motorsm: unit %d  bad input %d or bad state %d",
2045 		    (int)fjp->fj_unit, input, old_mstate));
2046 #if 0
2047 		cmn_err(CE_WARN,
2048 		    "fdc_motorsm: unit %d  bad input %d or bad state %d",
2049 		    (int)fjp->fj_unit, input, old_mstate);
2050 		fcp->c_mtrstate[unit] = FMS_OFF;
2051 		if (fcp->c_motort[unit] != 0) {
2052 			mutex_exit(&fcp->c_dorlock);
2053 			(void) untimeout(fcp->c_motort[unit]);
2054 			mutex_enter(&fcp->c_dorlock);
2055 			fcp->c_motort[unit] = 0;
2056 		}
2057 #endif
2058 	} else
2059 		FCERRPRINT(FDEP_L0, FDEM_EXEC,
2060 		    (CE_CONT, "fdc_motorsm unit %d: input %d,  %d -> %d\n",
2061 		    (int)fjp->fj_unit, input, old_mstate,
2062 		    fcp->c_mtrstate[unit]));
2063 	return (rval);
2064 }
2065 
2066 /*
2067  * fdmotort
2068  *	is called from timeout() when a motor timer has expired.
2069  */
2070 static void
fdmotort(void * arg)2071 fdmotort(void *arg)
2072 {
2073 	struct fcu_obj *fjp = (struct fcu_obj *)arg;
2074 	struct fdcntlr *fcp = fjp->fj_fdc;
2075 	struct fdcsb *csb = &fcp->c_csb;
2076 	int unit = fjp->fj_unit & 3;
2077 	int mval;
2078 	int newxstate = 0;
2079 
2080 	mutex_enter(&fcp->c_dorlock);
2081 	mval = fdc_motorsm(fjp, FMI_TIMER, 0);
2082 	mutex_exit(&fcp->c_dorlock);
2083 	if (mval < 0)
2084 		return;
2085 
2086 	mutex_enter(&fcp->c_lock);
2087 
2088 	if ((fcp->c_flags & FCFLG_WAITING) &&
2089 	    fcp->c_mtrstate[unit] == FMS_ON &&
2090 	    (csb->csb_xstate == FXS_MTRON || csb->csb_xstate == FXS_HDST ||
2091 	    csb->csb_xstate == FXS_DKCHGX)) {
2092 		newxstate = fdc_statemach(fcp);
2093 		if (newxstate == -1) {
2094 			FCERRPRINT(FDEP_L3, FDEM_EXEC,
2095 			    (CE_WARN,
2096 			    "fdc_motort unit %d: motor ready but bad xstate",
2097 			    (int)fjp->fj_unit));
2098 			fcp->c_csb.csb_cmdstat = EIO;
2099 		}
2100 		if (newxstate == -1 || newxstate == FXS_END) {
2101 			fcp->c_flags ^= FCFLG_WAITING;
2102 			cv_signal(&fcp->c_iocv);
2103 		}
2104 	}
2105 	mutex_exit(&fcp->c_lock);
2106 }
2107 
2108 /*
2109  * DMA interrupt service routine
2110  *
2111  *	Called by EISA dma interrupt service routine when buffer chaining
2112  *	is required.
2113  */
2114 
2115 ddi_dma_cookie_t *
fdc_dmae_isr(struct fdcntlr * fcp)2116 fdc_dmae_isr(struct fdcntlr *fcp)
2117 {
2118 	struct fdcsb *csb = &fcp->c_csb;
2119 	off_t off;
2120 	size_t len;
2121 
2122 	if (csb->csb_dmahandle && !csb->csb_cmdstat) {
2123 		if (++csb->csb_dmacurrcookie < csb->csb_dmacookiecnt) {
2124 			ddi_dma_nextcookie(csb->csb_dmahandle,
2125 			    &csb->csb_dmacookie);
2126 			return (&csb->csb_dmacookie);
2127 		} else if (++csb->csb_dmacurrwin < csb->csb_dmawincnt) {
2128 			if (ddi_dma_getwin(csb->csb_dmahandle,
2129 			    csb->csb_dmacurrwin, &off, &len,
2130 			    &csb->csb_dmacookie,
2131 			    &csb->csb_dmacookiecnt) != DDI_SUCCESS) {
2132 				return (NULL);
2133 			}
2134 			csb->csb_dmacurrcookie = 0;
2135 			return (&csb->csb_dmacookie);
2136 		}
2137 	} else
2138 		cmn_err(CE_WARN, "fdc: unsolicited DMA interrupt");
2139 	return (NULL);
2140 }
2141 
2142 
2143 /*
2144  * returns:
2145  *	0 if all ok,
2146  *	ENXIO - diskette not in drive
2147  *	ETIMEDOUT - for immediate operations that timed out
2148  *	EBUSY - if stupid chip is locked busy???
2149  *	ENOEXEC - for timeout during sending cmds to chip
2150  *
2151  * to sleep: set sleep
2152  * to check for disk changed: set change
2153  */
2154 static int
fdc_exec(struct fdcntlr * fcp,int sleep,int change)2155 fdc_exec(struct fdcntlr *fcp, int sleep, int change)
2156 {
2157 	struct ddi_dmae_req dmaereq;
2158 	struct fcu_obj *fjp;
2159 	struct fdcsb *csb;
2160 	off_t off;
2161 	size_t len;
2162 	int unit;
2163 
2164 	mutex_enter(&fcp->c_lock);
2165 	FCERRPRINT(FDEP_L0, FDEM_EXEC,
2166 	    (CE_CONT, "fdc_exec: sleep %x change %x\n", sleep, change));
2167 	csb = &fcp->c_csb;
2168 	unit = csb->csb_drive;
2169 	fjp = fcp->c_unit[unit];
2170 
2171 	if (csb->csb_opflags & CSB_OFINRPT) {
2172 		if (*csb->csb_cmd == FO_RECAL)
2173 			csb->csb_npcyl = 0;
2174 		else if ((*csb->csb_cmd & ~FO_MFM) != FO_FRMT)
2175 			csb->csb_npcyl =
2176 			    csb->csb_cmd[2] * fjp->fj_chars->fdc_steps;
2177 		csb->csb_xstate = FXS_START;
2178 	} else
2179 		csb->csb_xstate = FXS_DOIT;
2180 	csb->csb_retrys = 0;
2181 	csb->csb_ourtrys = 0;
2182 
2183 	if (csb->csb_dmahandle) {
2184 		/* ensure that entire format xfer is in one cookie */
2185 		/*
2186 		 * The change from  ddi_dma_buf/addr_setup() to
2187 		 * ddi_dma_buf/addr_bind_handle() has already loaded
2188 		 * the first DMA window and cookie.
2189 		 */
2190 		if ((*csb->csb_cmd & ~FO_MFM) == FO_FRMT &&
2191 		    (4 * csb->csb_cmd[3]) != csb->csb_dmacookie.dmac_size) {
2192 			mutex_exit(&fcp->c_lock);
2193 			return (EINVAL);
2194 		}
2195 	}
2196 
2197 retry:
2198 	if (fcp->c_curunit != unit || !(fjp->fj_flags & FUNIT_CHAROK)) {
2199 		fcp->c_curunit = unit;
2200 		fjp->fj_flags |= FUNIT_CHAROK;
2201 		if (fjp->fj_chars->fdc_transfer_rate == 417) {
2202 			/* XXX hack for fdformat */
2203 			/* fjp->fj_chars->fdc_transfer_rate == 500;	*/
2204 			fjp->fj_attr->fda_rotatespd = 360;
2205 		}
2206 		if (fdcspecify(fcp, fjp->fj_chars->fdc_transfer_rate,
2207 		    fjp->fj_drive->fdd_steprate, 40))
2208 			cmn_err(CE_WARN,
2209 			    "fdc_select: controller setup rejected "
2210 			    "fdcntrl %p transfer rate %x step rate %x "
2211 			    "head load time 40", (void*)fcp,
2212 			    fjp->fj_chars->fdc_transfer_rate,
2213 			    fjp->fj_drive->fdd_steprate);
2214 
2215 		mutex_enter(&fcp->c_dorlock);
2216 		if (fdcspdchange(fcp, fjp, fjp->fj_attr->fda_rotatespd)) {
2217 			/* 3D drive requires 500 ms for speed change */
2218 			(void) fdc_motorsm(fjp, FMI_RSTARTCMD, 5);
2219 			/*
2220 			 * Return value ignored - fdcmotort deals with failure.
2221 			 */
2222 		}
2223 		mutex_exit(&fcp->c_dorlock);
2224 	}
2225 
2226 	/*
2227 	 * If checking for disk_change is enabled
2228 	 * (i.e. not seeking in fdresetchng),
2229 	 * we sample the DSKCHG line to see if the diskette has wandered away.
2230 	 */
2231 	if (change && fdcsense_chng(fcp, unit)) {
2232 		FCERRPRINT(FDEP_L3, FDEM_EXEC,
2233 		    (CE_WARN, "diskette %d changed!!!", csb->csb_drive));
2234 		fcp->c_unit[unit]->fj_flags |= FUNIT_CHANGED;
2235 		/*
2236 		 * If the diskette is still gone... so are we, adios!
2237 		 */
2238 		if (fdcheckdisk(fcp, unit)) {
2239 			mutex_exit(&fcp->c_lock);
2240 
2241 			/* VP/ix expects an EBUSY return here */
2242 			if (*csb->csb_cmd == FO_SDRV) {
2243 				return (EBUSY);
2244 			}
2245 			return (ENXIO);
2246 		}
2247 		/*
2248 		 * delay to ensure that new diskette is up to speed
2249 		 */
2250 		mutex_enter(&fcp->c_dorlock);
2251 		(void) fdc_motorsm(fjp, FMI_RSTARTCMD,
2252 		    fjp->fj_drive->fdd_motoron);
2253 		/*
2254 		 * Return value ignored - fdcmotort deals with failure.
2255 		 */
2256 		mutex_exit(&fcp->c_dorlock);
2257 	}
2258 
2259 	/*
2260 	 * gather some statistics
2261 	 */
2262 	switch (csb->csb_cmd[0] & 0x1f) {
2263 	case FO_RDDAT:
2264 		fcp->fdstats.rd++;
2265 		break;
2266 	case FO_WRDAT:
2267 		fcp->fdstats.wr++;
2268 		break;
2269 	case FO_RECAL:
2270 		fcp->fdstats.recal++;
2271 		break;
2272 	case FO_FRMT:
2273 		fcp->fdstats.form++;
2274 		break;
2275 	default:
2276 		fcp->fdstats.other++;
2277 		break;
2278 	}
2279 
2280 	bzero(csb->csb_rslt, 10);
2281 	csb->csb_cmdstat = 0;
2282 
2283 	if (csb->csb_dmahandle) {
2284 		bzero(&dmaereq, sizeof (struct ddi_dmae_req));
2285 		dmaereq.der_command = (csb->csb_opflags & CSB_OFDMAWT) ?
2286 		    DMAE_CMD_WRITE : DMAE_CMD_READ;
2287 		/*
2288 		 * setup for dma buffer chaining regardless of bus capability
2289 		 */
2290 		dmaereq.der_bufprocess = DMAE_BUF_CHAIN;
2291 		dmaereq.proc = fdc_dmae_isr;
2292 		dmaereq.procparms = (void *)fcp;
2293 		if (ddi_dmae_prog(fcp->c_dip, &dmaereq, &csb->csb_dmacookie,
2294 		    fcp->c_dmachan) != DDI_SUCCESS)
2295 			cmn_err(CE_WARN, "fdc_exec: dmae prog failed, "
2296 			    "dip %p, dmachan %x",
2297 			    (void*)fcp->c_dip, fcp->c_dmachan);
2298 	}
2299 
2300 	if ((fdc_statemach(fcp) == FXS_DOWT) && !sleep) {
2301 		/*
2302 		 * If the operation has no results - then just return
2303 		 */
2304 		if (!csb->csb_nrslts) {
2305 			mutex_exit(&fcp->c_lock);
2306 			return (0);
2307 		}
2308 		/*
2309 		 * this operation has no interrupt and an immediate result
2310 		 * so wait for the results and stuff them into the csb
2311 		 */
2312 		if (fdc_statemach(fcp) == -1) {
2313 			mutex_exit(&fcp->c_lock);
2314 			return (EIO);
2315 		}
2316 	} else {
2317 		fcp->c_flags |= FCFLG_WAITING;
2318 		/*
2319 		 * wait for completion interrupt
2320 		 */
2321 		while (fcp->c_flags & FCFLG_WAITING) {
2322 			cv_wait(&fcp->c_iocv, &fcp->c_lock);
2323 		}
2324 	}
2325 
2326 	/*
2327 	 * See if there was an error detected, if so, fdrecover()
2328 	 * will check it out and say what to do.
2329 	 *
2330 	 * Don't do this, though, if this was the Sense Drive Status
2331 	 * or the Dump Registers command.
2332 	 */
2333 	if (csb->csb_cmdstat && *csb->csb_cmd != FO_SDRV) {
2334 		/* if it can restarted OK, then do so, else return error */
2335 		if (fdrecover(fcp)) {
2336 			mutex_exit(&fcp->c_lock);
2337 			return (EIO);
2338 		}
2339 		/* ASSUMES that cmd is still intact in csb */
2340 		if (csb->csb_xstate == FXS_END)
2341 			csb->csb_xstate = FXS_START;
2342 		if (fdc_dma_attr.dma_attr_sgllen > 1 && csb->csb_dmahandle) {
2343 			/*
2344 			 * restarted read/write operation requires
2345 			 * first DMA cookie of current window
2346 			 */
2347 			if (ddi_dma_getwin(csb->csb_dmahandle,
2348 			    csb->csb_dmacurrwin, &off, &len,
2349 			    &csb->csb_dmacookie,
2350 			    &csb->csb_dmacookiecnt) != DDI_SUCCESS) {
2351 
2352 				mutex_exit(&fcp->c_lock);
2353 				return (EIO);
2354 			}
2355 			csb->csb_dmacurrcookie = 0;
2356 		}
2357 		goto retry;
2358 	}
2359 	/* things went ok */
2360 	mutex_exit(&fcp->c_lock);
2361 	return (0);
2362 }
2363 
2364 /*
2365  * fdcheckdisk
2366  *	called by fdc_exec to check if the disk is still there - do a seek
2367  *	then see if DSKCHG line went away; if so, diskette is in; else
2368  *	it's (still) out.
2369  */
2370 int
fdcheckdisk(struct fdcntlr * fcp,int unit)2371 fdcheckdisk(struct fdcntlr *fcp, int unit)
2372 {
2373 	struct fdcsb *csb = &fcp->c_csb;
2374 	int newcyl;			/* where to seek for reset of DSKCHG */
2375 	int rval;
2376 	enum fxstate save_xstate;
2377 	uchar_t save_cmd, save_cd1, save_npcyl;
2378 
2379 	ASSERT(MUTEX_HELD(&fcp->c_lock));
2380 	FCERRPRINT(FDEP_L1, FDEM_CHEK,
2381 	    (CE_CONT, "fdcheckdisk unit %d\n", unit));
2382 
2383 	if (fcp->c_curpcyl[unit])
2384 		newcyl = fcp->c_curpcyl[unit] - 1;
2385 	else
2386 		newcyl = 1;
2387 
2388 	save_cmd = *csb->csb_cmd;
2389 	save_cd1 = csb->csb_cmd[1];
2390 	save_npcyl = csb->csb_npcyl;
2391 	save_xstate = csb->csb_xstate;
2392 
2393 	*csb->csb_cmd = FO_SEEK;
2394 	csb->csb_cmd[1] = (uchar_t)unit;
2395 	csb->csb_npcyl = (uchar_t)newcyl;
2396 	fcp->c_flags |= FCFLG_WAITING;
2397 
2398 	if (fcp->c_mtrstate[unit] != FMS_ON && fcp->c_motort[unit] != 0)
2399 		/*
2400 		 * wait for motor to get up to speed,
2401 		 * and let motor_timer issue seek cmd
2402 		 */
2403 		csb->csb_xstate = FXS_DKCHGX;
2404 	else {
2405 		/*
2406 		 * motor is up to speed; issue seek cmd now
2407 		 */
2408 		csb->csb_xstate = FXS_SEEK;
2409 		if (rval = fdcseek(fcp, unit, newcyl)) {
2410 			/*
2411 			 * any recal/seek errors are too serious to attend to
2412 			 */
2413 			FCERRPRINT(FDEP_L3, FDEM_CHEK,
2414 			    (CE_WARN, "fdcheckdisk err %d", rval));
2415 			fcp->c_flags ^= FCFLG_WAITING;
2416 		}
2417 	}
2418 	/*
2419 	 * wait for completion interrupt
2420 	 * XXX This should be backed up with a watchdog timer!
2421 	 */
2422 	while (fcp->c_flags & FCFLG_WAITING) {
2423 		cv_wait(&fcp->c_iocv, &fcp->c_lock);
2424 	}
2425 
2426 	/*
2427 	 * if disk change still asserted, no diskette in drive!
2428 	 */
2429 	if (rval = fdcsense_chng(fcp, unit)) {
2430 		FCERRPRINT(FDEP_L3, FDEM_CHEK,
2431 		    (CE_WARN, "fdcheckdisk no disk %d", unit));
2432 	}
2433 
2434 	*csb->csb_cmd = save_cmd;
2435 	csb->csb_cmd[1] = save_cd1;
2436 	csb->csb_npcyl = save_npcyl;
2437 	csb->csb_xstate = save_xstate;
2438 	return (rval);
2439 }
2440 
2441 static int
fdrecover(struct fdcntlr * fcp)2442 fdrecover(struct fdcntlr *fcp)
2443 {
2444 	struct fcu_obj *fjp;
2445 	struct fdcsb *csb = &fcp->c_csb;
2446 	int residual;
2447 	int unit;
2448 	char *failure;
2449 
2450 	FCERRPRINT(FDEP_L2, FDEM_RECO,
2451 	    (CE_NOTE, "fdrecover unit %d", csb->csb_drive));
2452 
2453 	unit = csb->csb_drive;
2454 	fjp = fcp->c_unit[unit];
2455 	if (fcp->c_flags & FCFLG_TIMEOUT) {
2456 		fcp->c_flags ^= FCFLG_TIMEOUT;
2457 		csb->csb_rslt[1] |= 0x08;
2458 		FCERRPRINT(FDEP_L3, FDEM_RECO,
2459 		    (CE_WARN, "fd unit %d: %s timed out", csb->csb_drive,
2460 		    fdcmds[*csb->csb_cmd & 0x1f].cmdname));
2461 	}
2462 
2463 	if (csb->csb_status & S0_SEKEND)
2464 		fcp->c_curpcyl[unit] = -1;
2465 
2466 	switch (csb->csb_oldxs) {
2467 	case FXS_RCAL:		/* recalibrate */
2468 	case FXS_SEEK:		/* seek */
2469 	case FXS_RESET:		/* cntlr reset */
2470 		FCERRPRINT(FDEP_L4, FDEM_RECO, (CE_WARN,
2471 		    "fd unit %d: %s error: st0=0x%x pcn=%d", csb->csb_drive,
2472 		    fdcmds[*csb->csb_cmd & 0x1f].cmdname,
2473 		    *csb->csb_rslt, csb->csb_rslt[1]));
2474 		if (csb->csb_retrys++ < skretry &&
2475 		    !(csb->csb_opflags & CSB_OFRAWIOCTL))
2476 			return (0);
2477 		break;
2478 
2479 	case FXS_RDID:		/* read ID */
2480 		if (!(csb->csb_status & S0_SEKEND))
2481 			csb->csb_xstate = FXS_HDST;
2482 		/* FALLTHROUGH */
2483 	case FXS_DOIT:		/* original operation */
2484 	case FXS_DOWT:		/* waiting on operation */
2485 		if (csb->csb_opflags & (CSB_OFDMARD | CSB_OFDMAWT)) {
2486 			if (ddi_dmae_getcnt(fcp->c_dip, fcp->c_dmachan,
2487 			    &residual) != DDI_SUCCESS)
2488 				cmn_err(CE_WARN,
2489 				    "fdc_recover: dmae getcnt failed, "
2490 				    "dip %p dmachan %x residual %x",
2491 				    (void*)fcp->c_dip, fcp->c_dmachan,
2492 				    residual);
2493 			FCERRPRINT(FDEP_L2, FDEM_RECO,
2494 			    (CE_NOTE,
2495 			    "fd unit %d: %s error: "
2496 			    "dma count=0x%lx residual=0x%x",
2497 			    csb->csb_drive,
2498 			    fdcmds[*csb->csb_cmd & 0x1f].cmdname,
2499 			    csb->csb_dmacookie.dmac_size, residual));
2500 		}
2501 		if (csb->csb_rslt[1] == S1_OVRUN)
2502 			/*
2503 			 * handle retries of over/underrun
2504 			 * with a secondary retry counter
2505 			 */
2506 			if (++csb->csb_ourtrys <= OURUN_TRIES) {
2507 				FCERRPRINT(FDEP_L2, FDEM_RECO,
2508 				    (CE_NOTE,
2509 				    "fd unit %d: %s error: over/under-run",
2510 				    csb->csb_drive,
2511 				    fdcmds[*csb->csb_cmd & 0x1f].cmdname));
2512 				return (0);
2513 			} else
2514 				/*
2515 				 * count 1 set of over/underruns
2516 				 * as 1 primary retry effort
2517 				 */
2518 				csb->csb_ourtrys = 0;
2519 
2520 		if ((fjp->fj_flags & (FUNIT_UNLABELED | FUNIT_LABELOK)) &&
2521 		    !(csb->csb_opflags & CSB_OFRAWIOCTL)) {
2522 			/*
2523 			 * device is open so keep trying and
2524 			 * gather statistics on errors
2525 			 */
2526 			if (csb->csb_rslt[1] & S1_CRCER)
2527 				fcp->fdstats.de++;
2528 			if (csb->csb_rslt[1] & S1_OVRUN)
2529 				fcp->fdstats.run++;
2530 			if (csb->csb_rslt[1] & (S1_NODATA | S1_MADMK))
2531 				fcp->fdstats.bfmt++;
2532 			if (csb->csb_rslt[1] & 0x08)
2533 				fcp->fdstats.to++;
2534 
2535 			/*
2536 			 * if we have not run out of retries, return 0
2537 			 */
2538 			if (csb->csb_retrys++ < csb->csb_maxretry &&
2539 			    (*csb->csb_cmd & ~FO_MFM) != FO_FRMT) {
2540 				if (csb->csb_opflags &
2541 				    (CSB_OFDMARD | CSB_OFDMAWT)) {
2542 					FCERRPRINT(FDEP_L4, FDEM_RECO,
2543 					    (CE_WARN,
2544 					    "fd unit %d: %s error: "
2545 					    "st0=0x%x st1=0x%x st2=0x%x",
2546 					    csb->csb_drive,
2547 					    fdcmds[*csb->csb_cmd &
2548 					    0x1f].cmdname,
2549 					    *csb->csb_rslt, csb->csb_rslt[1],
2550 					    csb->csb_rslt[2]));
2551 				}
2552 				if ((csb->csb_retrys & 1) &&
2553 				    csb->csb_xstate == FXS_END)
2554 					csb->csb_xstate = FXS_DOIT;
2555 				else if (csb->csb_retrys == 3)
2556 					csb->csb_xstate = FXS_RESTART;
2557 				return (0);
2558 			}
2559 			if (csb->csb_rslt[1] & S1_CRCER)
2560 				failure = "crc error";
2561 			else if (csb->csb_rslt[1] & S1_OVRUN)
2562 				failure = "over/under-run";
2563 			else if (csb->csb_rslt[1] & (S1_NODATA | S1_MADMK))
2564 				failure = "bad format";
2565 			else if (csb->csb_rslt[1] & 0x08)
2566 				failure = "timeout";
2567 			else
2568 				failure = "failed";
2569 			cmn_err(CE_NOTE, "!fd unit %d: %s %s (%x %x %x)",
2570 			    csb->csb_drive,
2571 			    fdcmds[*csb->csb_cmd & 0x1f].cmdname, failure,
2572 			    *csb->csb_rslt, csb->csb_rslt[1], csb->csb_rslt[2]);
2573 		} else {
2574 			FCERRPRINT(FDEP_L2, FDEM_RECO,
2575 			    (CE_NOTE, "fd unit %d: %s failed (%x %x %x)",
2576 			    csb->csb_drive,
2577 			    fdcmds[*csb->csb_cmd & 0x1f].cmdname,
2578 			    *csb->csb_rslt, csb->csb_rslt[1],
2579 			    csb->csb_rslt[2]));
2580 		}
2581 		break;
2582 
2583 	default:
2584 		FCERRPRINT(FDEP_L4, FDEM_RECO, (CE_WARN,
2585 		    "fd unit %d: %s failed: st0=0x%x st1=0x%x st2=0x%x",
2586 		    csb->csb_drive, fdcmds[*csb->csb_cmd & 0x1f].cmdname,
2587 		    *csb->csb_rslt, csb->csb_rslt[1], csb->csb_rslt[2]));
2588 		break;
2589 	}
2590 	return (1);
2591 }
2592 
2593 
2594 /*	Autovector Interrupt Entry Point	*/
2595 static uint_t
fdc_intr(caddr_t arg)2596 fdc_intr(caddr_t arg)
2597 {
2598 	struct fdcntlr *fcp = (struct fdcntlr *)arg;
2599 	struct fdcsb *csb;
2600 	off_t off;
2601 	size_t blklen;
2602 	int drive;
2603 	int newstate;
2604 	int pendstate;
2605 	int rval = DDI_DMA_DONE;
2606 	int state;
2607 	int maxspin = 10;
2608 
2609 	csb = &fcp->c_csb;
2610 
2611 	mutex_enter(&fcp->c_lock);
2612 	if (fcp->c_suspended) {
2613 		mutex_exit(&fcp->c_lock);
2614 		return (DDI_INTR_UNCLAIMED);
2615 	}
2616 
2617 	/*
2618 	 * Wait for the RQM bit to be set, or until we've tested it
2619 	 * a bunch of times (which may imply this isn't our interrupt).
2620 	 */
2621 	state = inb(fcp->c_regbase + FCR_MSR);
2622 	pendstate = state & (MS_RQM | MS_DIO | MS_CB);
2623 	while (((pendstate & MS_RQM) == 0) && (maxspin-- > 0)) {
2624 		/* Small pause in between reading the status port */
2625 		drv_usecwait(10);
2626 		/* Reread the status port */
2627 		state = inb(fcp->c_regbase + FCR_MSR);
2628 		pendstate = state & (MS_RQM | MS_DIO | MS_CB);
2629 	}
2630 	FCERRPRINT(FDEP_L0, FDEM_INTR,
2631 	    (CE_CONT, "fdc_intr unit %d: xstate=%d MSR=0x%x\n",
2632 	    csb->csb_drive, csb->csb_xstate, state));
2633 
2634 	/*
2635 	 * If there is an operation outstanding AND the controller is ready
2636 	 * to receive a command or send us the result of a command (OR if the
2637 	 * controller is ready to accept a new command), AND if
2638 	 * someone has been waiting for a command to finish AND (if no unit
2639 	 * is BUSY OR if the unit that we're waiting for is BUSY (i.e. it's in
2640 	 * the middle of a seek/recalibrate)) then this interrupt is for us.
2641 	 */
2642 	if ((pendstate == (MS_RQM | MS_DIO | MS_CB) || pendstate == MS_RQM) &&
2643 	    (fcp->c_flags & FCFLG_WAITING) &&
2644 	    (!(state & 0x0f) || ((1 << csb->csb_drive) & state))) {
2645 		/*
2646 		 * Remove one of the conditions for entering this code.
2647 		 * The state_machine will release the c_lock if it
2648 		 * calls untimeout()
2649 		 */
2650 		fcp->c_flags ^= FCFLG_WAITING;
2651 
2652 		if ((newstate = fdc_statemach(fcp)) == -1) {
2653 			/* restore waiting flag */
2654 			fcp->c_flags |= FCFLG_WAITING;
2655 			mutex_exit(&fcp->c_lock);
2656 			return (DDI_INTR_CLAIMED);
2657 		}
2658 
2659 		if (fcp->c_intrstat)
2660 			KIOIP->intrs[KSTAT_INTR_HARD]++;
2661 		if (newstate == FXS_END) {
2662 
2663 			if (csb->csb_dmahandle && !csb->csb_cmdstat &&
2664 				/*
2665 				 * read/write operation may have multiple DMA
2666 				 * cookies: process next one
2667 				 */
2668 			    ((csb->csb_dmacurrcookie <
2669 			    (csb->csb_dmacookiecnt - 1)) ||
2670 			    (csb->csb_dmacurrwin) < (csb->csb_dmawincnt - 1))) {
2671 				/*
2672 				 * read/write operation requires another
2673 				 * DMA cookie: process next one
2674 				 */
2675 
2676 				if (++csb->csb_dmacurrcookie <
2677 				    csb->csb_dmacookiecnt) {
2678 					ddi_dma_nextcookie(csb->csb_dmahandle,
2679 					    &csb->csb_dmacookie);
2680 				} else if (++csb->csb_dmacurrwin <
2681 				    csb->csb_dmawincnt) {
2682 					if (ddi_dma_getwin(csb->csb_dmahandle,
2683 					    csb->csb_dmacurrwin, &off, &blklen,
2684 					    &csb->csb_dmacookie,
2685 					    &csb->csb_dmacookiecnt) !=
2686 					    DDI_SUCCESS) {
2687 						cmn_err(CE_WARN,
2688 						    "fdc_intr: "
2689 						    "dma getwin failed");
2690 					}
2691 					csb->csb_dmacurrcookie = 0;
2692 				}
2693 
2694 				if (ddi_dmae_prog(fcp->c_dip, NULL,
2695 				    &csb->csb_dmacookie, fcp->c_dmachan) !=
2696 				    DDI_SUCCESS)
2697 					cmn_err(CE_WARN,
2698 					    "fdc_intr: dmae prog failed, "
2699 					    "dip %p dmachannel %x",
2700 					    (void*)fcp->c_dip,
2701 					    fcp->c_dmachan);
2702 
2703 				/*
2704 				 * status of last operation has disk
2705 				 * address for continuation
2706 				 */
2707 				csb->csb_cmd[2] = csb->csb_rslt[3];
2708 				csb->csb_cmd[3] = csb->csb_rslt[4];
2709 				csb->csb_cmd[4] = csb->csb_rslt[5];
2710 				csb->csb_cmd[1] = (csb->csb_cmd[1] & ~0x04) |
2711 				    (csb->csb_cmd[3] << 2);
2712 
2713 				csb->csb_xstate = FXS_START;
2714 				(void) fdc_statemach(fcp);
2715 				/*
2716 				 * Ignored return.  If failed, warning already
2717 				 * posted.  Returned state irrelevant.
2718 				 */
2719 				/* restore waiting flag */
2720 				fcp->c_flags |= FCFLG_WAITING;
2721 				goto fi_exit;
2722 			}
2723 			if (rval != DDI_DMA_DONE)
2724 				csb->csb_cmdstat = EIO;
2725 			/*
2726 			 * somebody's waiting for completion of fdcntlr/csb,
2727 			 * wake them
2728 			 */
2729 			cv_signal(&fcp->c_iocv);
2730 		}
2731 		else
2732 			/* restore waiting flag */
2733 			fcp->c_flags |= FCFLG_WAITING;
2734 fi_exit:
2735 		mutex_exit(&fcp->c_lock);
2736 		return (DDI_INTR_CLAIMED);
2737 	}
2738 
2739 	if (state & MS_RQM) {
2740 		(void) fdcsense_int(fcp, &drive, NULL);
2741 		/*
2742 		 * Ignored return - senser state already saved
2743 		 */
2744 		FCERRPRINT(FDEP_L4, FDEM_INTR,
2745 		    (CE_WARN, "fdc_intr unit %d: nobody sleeping 0x%x",
2746 		    drive, state));
2747 	} else {
2748 		FCERRPRINT(FDEP_L4, FDEM_INTR,
2749 		    (CE_WARN, "fdc_intr: nobody sleeping on %d 0x%x",
2750 		    csb->csb_drive, state));
2751 	}
2752 	/*
2753 	 * This should probably be protected, but, what the
2754 	 * heck...the cost isn't worth the accuracy for this
2755 	 * statistic.
2756 	 */
2757 	if (fcp->c_intrstat)
2758 		KIOIP->intrs[KSTAT_INTR_SPURIOUS]++;
2759 	mutex_exit(&fcp->c_lock);
2760 	return (DDI_INTR_UNCLAIMED);
2761 }
2762 
2763 /*
2764  * fdwatch
2765  *	is called from timeout() when a floppy operation timer has expired.
2766  */
2767 static void
fdwatch(void * arg)2768 fdwatch(void *arg)
2769 {
2770 	struct fdcntlr *fcp = (struct fdcntlr *)arg;
2771 	struct fdcsb *csb;
2772 
2773 	mutex_enter(&fcp->c_lock);
2774 
2775 	if (fcp->c_timeid == 0) {
2776 		/*
2777 		 * fdc_intr got here first, ergo, no timeout condition..
2778 		 */
2779 		mutex_exit(&fcp->c_lock);
2780 		return;
2781 	}
2782 
2783 	if (fcp->c_flags & FCFLG_WAITING) {
2784 		if (ddi_dmae_stop(fcp->c_dip, fcp->c_dmachan) != DDI_SUCCESS)
2785 			cmn_err(CE_WARN, "fdwatch: dmae stop failed, "
2786 			    "dip %p, dmachan %x",
2787 			    (void*)fcp->c_dip, fcp->c_dmachan);
2788 		csb = &fcp->c_csb;
2789 		FCERRPRINT(FDEP_L3, FDEM_WATC,
2790 		    (CE_WARN, "fdcwatch unit %d: xstate = %d",
2791 		    csb->csb_drive, csb->csb_xstate));
2792 		drv_usecwait(50);
2793 
2794 		if (inb(fcp->c_regbase + FCR_MSR) != MS_RQM) {
2795 			/*
2796 			 * cntlr is still busy, so reset it
2797 			 */
2798 			csb->csb_xstate = FXS_KILL;
2799 			(void) fdc_statemach(fcp);
2800 			/*
2801 			 * Ignored return.  If failed, warning already
2802 			 * posted.  Returned state irrelevant.
2803 			 */
2804 		} else {
2805 			csb->csb_xstate = FXS_END;
2806 			fcp->c_timeid = 0;
2807 			fcp->c_flags ^= FCFLG_WAITING;
2808 			cv_signal(&fcp->c_iocv);
2809 		}
2810 		csb->csb_cmdstat = EIO;
2811 		fcp->c_flags |= FCFLG_TIMEOUT;
2812 	} else {
2813 		FCERRPRINT(FDEP_L4, FDEM_INTR,
2814 		    (CE_WARN, "fdcwatch: not sleeping for unit %d",
2815 		    fcp->c_csb.csb_drive));
2816 	}
2817 	if (fcp->c_intrstat)
2818 		KIOIP->intrs[KSTAT_INTR_WATCHDOG]++;
2819 	mutex_exit(&fcp->c_lock);
2820 }
2821 
2822 
2823 static int
fdc_statemach(struct fdcntlr * fcp)2824 fdc_statemach(struct fdcntlr *fcp)
2825 {
2826 	struct fcu_obj *fjp;
2827 	struct fdcsb *csb = &fcp->c_csb;
2828 	int backoff;
2829 	clock_t time;
2830 	int unit;
2831 
2832 	ASSERT(MUTEX_HELD(&fcp->c_lock));
2833 
2834 	unit = csb->csb_drive;
2835 	fjp = fcp->c_unit[unit];
2836 
2837 	csb->csb_oldxs = csb->csb_xstate;
2838 	switch (csb->csb_xstate) {
2839 
2840 	case FXS_START:		/* start of operation */
2841 		ASSERT(fcp->c_timeid == 0);
2842 		time = drv_usectohz(100000 * (unsigned int)csb->csb_timer);
2843 		if (time == 0)
2844 			time = drv_usectohz(2000000);
2845 		fcp->c_timeid = timeout(fdwatch, (void *)fcp, time);
2846 
2847 		if (fcp->c_mtrstate[unit] == FMS_START) {
2848 			/*
2849 			 * wait for motor to get up to speed
2850 			 */
2851 			csb->csb_xstate = FXS_MTRON;
2852 			break;
2853 		}
2854 		/* FALLTHROUGH */
2855 
2856 	case FXS_MTRON:		/* motor is at speed */
2857 		if (fcp->c_mtrstate[unit] != FMS_ON) {
2858 			/* how did we get here ?? */
2859 			cmn_err(CE_WARN, "fdc: selected but motor off");
2860 			return (-1);
2861 		}
2862 		if (fcp->c_curpcyl[unit] != -1 && *csb->csb_cmd != FO_RECAL)
2863 			goto nxs_seek;
2864 		recalcmd[1] = (uchar_t)unit;
2865 		if (fdc_docmd(fcp, recalcmd, 2) == -1) {
2866 			/* cntlr did not accept command bytes */
2867 			fdcquiesce(fcp);
2868 			csb->csb_cmdstat = EIO;
2869 			csb->csb_xstate = FXS_RESET;
2870 			break;
2871 		}
2872 		fcp->c_sekdir[unit] = 0;
2873 		csb->csb_xstate = FXS_RCAL;
2874 		break;
2875 
2876 	case FXS_RCAL:		/* forced recalibrate is complete */
2877 #if 0	/* #ifdef _VPIX */
2878 	/* WARNING: this code breaks SPARC compatibility */
2879 		if (csb->csb_opflags & CSB_OFRAWIOCTL &&
2880 		    *csb->csb_cmd == FO_RECAL) {
2881 			fcp->c_curpcyl[unit] = 0;
2882 			csb->csb_status = 0;
2883 			goto nxs_cmpl;
2884 		}
2885 #endif
2886 		(void) fdc_docmd(fcp, &senseintcmd, 1);
2887 		/*
2888 		 * Ignored return. If failed, warning was issued by fdc_docmd.
2889 		 * fdc_results retrieves the controller/drive status
2890 		 */
2891 		(void) fdc_result(fcp, csb->csb_rslt, 2);
2892 		/*
2893 		 * Ignored return. If failed, warning was issued by fdc_result.
2894 		 * Actual results checked below
2895 		 */
2896 		if ((csb->csb_status = ((*csb->csb_rslt ^ S0_SEKEND) &
2897 		    (S0_ICMASK | S0_SEKEND | S0_ECHK | S0_NOTRDY))) != 0) {
2898 			FCERRPRINT(FDEP_L3, FDEM_EXEC,
2899 			    (CE_WARN, "fdc_statemach unit %d: recal result %x",
2900 			    csb->csb_drive, *csb->csb_rslt));
2901 			fdcquiesce(fcp);
2902 			csb->csb_cmdstat = EIO;
2903 			csb->csb_xstate = FXS_RESET;
2904 			break;
2905 		}
2906 		if (unit != (*csb->csb_rslt & 3) || csb->csb_rslt[1]) {
2907 			csb->csb_status = S0_SEKEND;
2908 			goto nxs_cmpl;
2909 		}
2910 		fcp->c_curpcyl[unit] = csb->csb_rslt[1];
2911 		if (*csb->csb_cmd == FO_RECAL)
2912 			goto nxs_cmpl;
2913 nxs_seek:
2914 		if (*csb->csb_cmd != FO_SEEK &&
2915 		    csb->csb_npcyl == fcp->c_curpcyl[unit])
2916 			goto nxs_doit;
2917 		fcp->c_sekdir[unit] = csb->csb_npcyl - fcp->c_curpcyl[unit];
2918 		/* FALLTHROUGH */
2919 
2920 	case FXS_DKCHGX:	/* reset Disk-Change latch */
2921 		(void) fdcseek(fcp, csb->csb_cmd[1], csb->csb_npcyl);
2922 		/*
2923 		 * Ignored return.  If command rejected, warnig already posted
2924 		 * by fdc_docmd().
2925 		 */
2926 		csb->csb_xstate = FXS_SEEK;
2927 		break;
2928 
2929 	case FXS_RESTART:	/* special restart of read/write operation */
2930 		ASSERT(fcp->c_timeid == 0);
2931 		time = drv_usectohz(100000 * csb->csb_timer);
2932 		if (time == 0)
2933 			time = drv_usectohz(2000000);
2934 		fcp->c_timeid = timeout(fdwatch, (void *)fcp, time);
2935 
2936 		if (fcp->c_mtrstate[unit] != FMS_ON) {
2937 			cmn_err(CE_WARN, "fdc: selected but motor off");
2938 			return (-1);
2939 		}
2940 		if ((csb->csb_npcyl == 0 || fcp->c_sekdir[unit] >= 0) &&
2941 		    (int)csb->csb_cmd[2] < (fjp->fj_chars->fdc_ncyl - 1))
2942 			backoff = csb->csb_npcyl + 1;
2943 		else
2944 			backoff = csb->csb_npcyl - 1;
2945 		(void) fdcseek(fcp, csb->csb_cmd[1], backoff);
2946 		/*
2947 		 * Ignored return.  If command rejected, warnig already posted
2948 		 * by fdc_docmd().
2949 		 */
2950 		csb->csb_xstate = FXS_RESEEK;
2951 		break;
2952 
2953 	case FXS_RESEEK:	/* seek to backoff-cyl complete */
2954 		(void) fdc_docmd(fcp, &senseintcmd, 1);
2955 		/*
2956 		 * Ignored return. If failed, warning was issued by fdc_docmd.
2957 		 * fdc_results retrieves the controller/drive status
2958 		 */
2959 		(void) fdc_result(fcp, csb->csb_rslt, 2);
2960 		/*
2961 		 * Ignored return. If failed, warning was issued by fdc_result.
2962 		 * Actual results checked below
2963 		 */
2964 		if ((csb->csb_status = ((*csb->csb_rslt ^ S0_SEKEND) &
2965 		    (S0_ICMASK | S0_SEKEND | S0_ECHK | S0_NOTRDY))) != 0)
2966 			goto nxs_cmpl;
2967 		(void) fdcseek(fcp, csb->csb_cmd[1], csb->csb_npcyl);
2968 		/*
2969 		 * Ignored return.  If command rejected, warnig already posted
2970 		 * by fdc_docmd().
2971 		 */
2972 		csb->csb_xstate = FXS_SEEK;
2973 		break;
2974 
2975 	case FXS_SEEK:		/* seek complete */
2976 #if 0	/* #ifdef _VPIX */
2977 	/* WARNING: this code breaks SPARC compatibility and */
2978 	/* rawioctls in fdformat */
2979 		if (csb->csb_opflags & CSB_OFRAWIOCTL) {
2980 			fcp->c_curpcyl[unit] = csb->csb_npcyl;
2981 			csb->csb_status = 0;
2982 			goto nxs_cmpl;
2983 		}
2984 #endif
2985 		(void) fdc_docmd(fcp, &senseintcmd, 1);
2986 		/*
2987 		 * Ignored return. If failed, warning was issued by fdc_docmd.
2988 		 * fdc_results retrieves the controller/drive status
2989 		 */
2990 		(void) fdc_result(fcp, csb->csb_rslt, 2);
2991 		/*
2992 		 * Ignored return. If failed, warning was issued by fdc_result.
2993 		 * Actual results checked below
2994 		 */
2995 		if ((csb->csb_status = ((*csb->csb_rslt ^ S0_SEKEND) &
2996 		    (S0_ICMASK | S0_SEKEND | S0_ECHK | S0_NOTRDY))) != 0)
2997 			goto nxs_cmpl;
2998 		if (unit != (*csb->csb_rslt & 3) ||
2999 		    csb->csb_rslt[1] != csb->csb_npcyl) {
3000 			csb->csb_status = S0_SEKEND;
3001 			goto nxs_cmpl;
3002 		};
3003 		fcp->c_curpcyl[unit] = csb->csb_rslt[1];
3004 		/* use motor_timer to delay for head settle */
3005 		mutex_enter(&fcp->c_dorlock);
3006 		(void) fdc_motorsm(fjp, FMI_DELAYCMD,
3007 		    fjp->fj_drive->fdd_headsettle / 1000);
3008 		/*
3009 		 * Return value ignored - fdcmotort deals with failure.
3010 		 */
3011 		mutex_exit(&fcp->c_dorlock);
3012 		csb->csb_xstate = FXS_HDST;
3013 		break;
3014 
3015 	case FXS_HDST:		/* head settle */
3016 		if (*csb->csb_cmd == FO_SEEK)
3017 			goto nxs_cmpl;
3018 		if ((*csb->csb_cmd & ~FO_MFM) == FO_FRMT)
3019 			goto nxs_doit;
3020 		fdcreadid(fcp, csb);
3021 		csb->csb_xstate = FXS_RDID;
3022 		break;
3023 
3024 	case FXS_RDID:		/* read ID complete */
3025 		(void) fdc_result(fcp, csb->csb_rslt, 7);
3026 		/*
3027 		 * Ignored return. If failed, warning was issued by fdc_result.
3028 		 * Actual results checked below
3029 		 */
3030 		if ((csb->csb_status = (*csb->csb_rslt &
3031 		    (S0_ICMASK | S0_ECHK | S0_NOTRDY))) != 0)
3032 			goto nxs_cmpl;
3033 		if (csb->csb_cmd[2] != csb->csb_rslt[3]) {
3034 			/* at wrong logical cylinder */
3035 			csb->csb_status = S0_SEKEND;
3036 			goto nxs_cmpl;
3037 		};
3038 		goto nxs_doit;
3039 
3040 	case FXS_DOIT:		/* do original operation */
3041 		ASSERT(fcp->c_timeid == 0);
3042 		time = drv_usectohz(100000 * csb->csb_timer);
3043 		if (time == 0)
3044 			time = drv_usectohz(2000000);
3045 		fcp->c_timeid = timeout(fdwatch, (void *)fcp, time);
3046 nxs_doit:
3047 		if (fdc_docmd(fcp, csb->csb_cmd, csb->csb_ncmds) == -1) {
3048 			/* cntlr did not accept command bytes */
3049 			fdcquiesce(fcp);
3050 			csb->csb_xstate = FXS_RESET;
3051 			csb->csb_cmdstat = EIO;
3052 			break;
3053 		}
3054 		csb->csb_xstate = FXS_DOWT;
3055 		break;
3056 
3057 	case FXS_DOWT:		/* operation complete */
3058 		(void) fdc_result(fcp, csb->csb_rslt, csb->csb_nrslts);
3059 		/*
3060 		 * Ignored return. If failed, warning was issued by fdc_result.
3061 		 * Actual results checked below.
3062 		 */
3063 		if (*csb->csb_cmd == FO_SDRV) {
3064 			csb->csb_status =
3065 			    (*csb->csb_rslt ^ (S3_DRRDY | S3_2SIDE)) &
3066 			    ~(S3_HEAD | S3_UNIT);
3067 		} else {
3068 			csb->csb_status = *csb->csb_rslt &
3069 			    (S0_ICMASK | S0_ECHK | S0_NOTRDY);
3070 		}
3071 nxs_cmpl:
3072 		if (csb->csb_status)
3073 			csb->csb_cmdstat = EIO;
3074 		csb->csb_xstate = FXS_END;
3075 
3076 		/*  remove watchdog timer if armed and not already triggered */
3077 		if (fcp->c_timeid != 0) {
3078 			timeout_id_t timeid;
3079 			timeid = fcp->c_timeid;
3080 			fcp->c_timeid = 0;
3081 			mutex_exit(&fcp->c_lock);
3082 			(void) untimeout(timeid);
3083 			mutex_enter(&fcp->c_lock);
3084 		}
3085 		break;
3086 
3087 	case FXS_KILL:		/* quiesce cntlr by reset */
3088 		fdcquiesce(fcp);
3089 		fcp->c_timeid = timeout(fdwatch, (void *)fcp,
3090 		    drv_usectohz(2000000));
3091 		csb->csb_xstate = FXS_RESET;
3092 		break;
3093 
3094 	case FXS_RESET:		/* int from reset */
3095 		for (unit = 0; unit < NFDUN; unit++) {
3096 			(void) fdcsense_int(fcp, NULL, NULL);
3097 			fcp->c_curpcyl[unit] = -1;
3098 		}
3099 		if (fcp->c_timeid != 0) {
3100 			timeout_id_t timeid;
3101 			timeid = fcp->c_timeid;
3102 			fcp->c_timeid = 0;
3103 			mutex_exit(&fcp->c_lock);
3104 			(void) untimeout(timeid);
3105 			mutex_enter(&fcp->c_lock);
3106 		}
3107 		csb->csb_xstate = FXS_END;
3108 		break;
3109 
3110 	default:
3111 		cmn_err(CE_WARN, "fdc: statemach, unknown state");
3112 		return (-1);
3113 	}
3114 	FCERRPRINT(FDEP_L1, FDEM_EXEC,
3115 	    (CE_CONT, "fdc_statemach unit %d: %d -> %d\n",
3116 	    csb->csb_drive, csb->csb_oldxs, csb->csb_xstate));
3117 	return (csb->csb_xstate);
3118 }
3119 
3120 
3121 /*
3122  * routine to program a command into the floppy disk controller.
3123  */
3124 int
fdc_docmd(struct fdcntlr * fcp,uchar_t * oplistp,uchar_t count)3125 fdc_docmd(struct fdcntlr *fcp, uchar_t *oplistp, uchar_t count)
3126 {
3127 	int ntries;
3128 
3129 	ASSERT(count >= 1);
3130 	FCERRPRINT(FDEP_L0, FDEM_EXEC,
3131 	    (CE_CONT, "fdc_docmd: %x %x %x %x %x %x %x %x %x\n",
3132 	    oplistp[0], oplistp[1], oplistp[2], oplistp[3], oplistp[4],
3133 	    oplistp[5], oplistp[6], oplistp[7], oplistp[8]));
3134 
3135 	do {
3136 		ntries = FDC_RQM_RETRY;
3137 		do {
3138 			if ((inb(fcp->c_regbase + FCR_MSR) & (MS_RQM|MS_DIO))
3139 			    == MS_RQM)
3140 				break;
3141 			else
3142 				drv_usecwait(1);
3143 		} while (--ntries);
3144 		if (ntries == 0) {
3145 			FCERRPRINT(FDEP_L3, FDEM_EXEC,
3146 			    (CE_WARN, "fdc_docmd: ctlr not ready"));
3147 			return (-1);
3148 		}
3149 		outb(fcp->c_regbase + FCR_DATA, *oplistp++);
3150 		drv_usecwait(16);	/* See comment in fdc_result() */
3151 	} while (--count);
3152 	return (0);
3153 }
3154 
3155 
3156 /*
3157  * Routine to return controller/drive status information.
3158  * The diskette-controller data-register is read the
3159  * requested number of times and the results are placed in
3160  * consecutive memory locations starting at the passed
3161  * address.
3162  */
3163 int
fdc_result(struct fdcntlr * fcp,uchar_t * rsltp,uchar_t rcount)3164 fdc_result(struct fdcntlr *fcp, uchar_t *rsltp, uchar_t rcount)
3165 {
3166 	int ntries;
3167 	uchar_t *abresultp = rsltp;
3168 	uchar_t stat;
3169 	int laxative = 7;
3170 
3171 	ntries = 10 * FDC_RQM_RETRY;
3172 	do {
3173 		do {
3174 			if ((inb(fcp->c_regbase + FCR_MSR) &
3175 			    (MS_RQM | MS_DIO)) == (MS_RQM | MS_DIO))
3176 				break;
3177 			else
3178 				drv_usecwait(10);
3179 		} while (--ntries);
3180 		if (!ntries) {
3181 			FCERRPRINT(FDEP_L3, FDEM_EXEC,
3182 			    (CE_WARN, "fdc_result: ctlr not ready"));
3183 			return (-2);
3184 		}
3185 		*rsltp++ = inb(fcp->c_regbase + FCR_DATA);
3186 
3187 		/*
3188 		 * The PRM suggests waiting for 14.5 us.
3189 		 * Adding a bit more to cover the case of bad calibration
3190 		 * of drv_usecwait().
3191 		 */
3192 		drv_usecwait(16);
3193 		ntries = FDC_RQM_RETRY;
3194 	} while (--rcount);
3195 	while ((inb(fcp->c_regbase + FCR_MSR) & MS_CB) && laxative--) {
3196 		FCERRPRINT(FDEP_L3, FDEM_EXEC,
3197 		    (CE_WARN, "fdc_result: ctlr still busy"));
3198 		/*
3199 		 * try to complete Result phase by purging
3200 		 * result bytes queued for reading
3201 		 */
3202 		*abresultp = S0_IVCMD;
3203 		do {
3204 			stat = inb(fcp->c_regbase + FCR_MSR) &
3205 			    (MS_RQM | MS_DIO);
3206 			if (stat == MS_RQM) {
3207 				/*
3208 				 * Result phase is complete
3209 				 * but did we get the results corresponding to
3210 				 * the command we think we executed?
3211 				 */
3212 				return (-1);
3213 			}
3214 			if (stat == (MS_RQM | MS_DIO))
3215 				break;
3216 			else
3217 				drv_usecwait(10);
3218 		} while (--ntries);
3219 		if (!ntries || !laxative) {
3220 			FCERRPRINT(FDEP_L3, FDEM_EXEC,
3221 			    (CE_WARN,
3222 			    "fdc_result: ctlr still busy and not ready"));
3223 			return (-3);
3224 		}
3225 		(void) inb(fcp->c_regbase + FCR_DATA);
3226 
3227 		drv_usecwait(16);	/* See comment above */
3228 		ntries = FDC_RQM_RETRY;
3229 	}
3230 	return (0);
3231 }
3232 
3233 /*
3234  *  Function: get_unit()
3235  *
3236  *  Assumptions:  ioaddr is either 0x3f0 or 0x370
3237  */
3238 static int
get_unit(dev_info_t * dip,int * cntrl_num)3239 get_unit(dev_info_t *dip, int *cntrl_num)
3240 {
3241 	int ioaddr;
3242 
3243 	if (get_ioaddr(dip, &ioaddr) != DDI_SUCCESS)
3244 		return (DDI_FAILURE);
3245 
3246 	switch (ioaddr) {
3247 	case 0x3f0:
3248 		*cntrl_num = 0;
3249 		break;
3250 
3251 	case 0x370:
3252 		*cntrl_num = 1;
3253 		break;
3254 
3255 	default:
3256 		return (DDI_FAILURE);
3257 	}
3258 	return (DDI_SUCCESS);
3259 }
3260 
3261 static int
get_ioaddr(dev_info_t * dip,int * ioaddr)3262 get_ioaddr(dev_info_t *dip, int *ioaddr)
3263 {
3264 	int reglen, nregs, i;
3265 	int status = DDI_FAILURE;
3266 	struct {
3267 		int bustype;
3268 		int base;
3269 		int size;
3270 	} *reglist;
3271 
3272 	if (ddi_getlongprop(DDI_DEV_T_ANY, dip, DDI_PROP_DONTPASS,
3273 	    "reg", (caddr_t)&reglist, &reglen) != DDI_PROP_SUCCESS) {
3274 		cmn_err(CE_WARN, "fdc: reg property not found");
3275 		return (DDI_FAILURE);
3276 	}
3277 
3278 	nregs = reglen / sizeof (*reglist);
3279 	for (i = 0; i < nregs; i++) {
3280 		if (reglist[i].bustype == 1) {
3281 			*ioaddr = reglist[i].base;
3282 			status = DDI_SUCCESS;
3283 			break;
3284 		}
3285 	}
3286 	kmem_free(reglist, reglen);
3287 
3288 	if (status == DDI_SUCCESS) {
3289 		if (*ioaddr == 0x3f2 || *ioaddr == 0x372) {
3290 			/*
3291 			 * Some BIOS's (ASUS is one) don't include first
3292 			 * two IO ports in the floppy controller resources.
3293 			 */
3294 
3295 			*ioaddr -= 2; /* step back to 0x3f0 or 0x370 */
3296 
3297 			/*
3298 			 * It would be nice to update the regs property as well
3299 			 * so device pathname contains 3f0 instead of 3f2, but
3300 			 * updating the regs now won't have this effect as that
3301 			 * component of the device pathname has already been
3302 			 * constructed by the ISA nexus driver.
3303 			 *
3304 			 * reglist[i].base -= 2;
3305 			 * reglist[i].size += 2;
3306 			 * dev = makedevice(ddi_driver_major(dip), 0);
3307 			 * ddi_prop_update_int_array(dev, dip, "reg",
3308 			 *    (int *)reglist, reglen / sizeof (int));
3309 			 */
3310 		}
3311 	}
3312 
3313 	return (status);
3314 }
3315