?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
AMD64 - Fix many compile-time warnings. int/ptr type mismatches, %llx, etc.
[dragonfly.git] / sys / dev / serial / digi / digi.c
blob1da319dde33c363520ffa721cc574e8d8c67c6a2
1 /*-
2 * Copyright (c) 2001 Brian Somers <brian@Awfulhak.org>
3 * based on work by Slawa Olhovchenkov
4 * John Prince <johnp@knight-trosoft.com>
5 * Eric Hernes
6 * All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27 * SUCH DAMAGE.
28 *
29 * $FreeBSD: src/sys/dev/digi/digi.c,v 1.36 2003/09/26 09:05:57 phk Exp $
30 * $DragonFly: src/sys/dev/serial/digi/digi.c,v 1.11 2008/04/30 17:28:17 dillon Exp $
31 */
32
33 /*-
34 * TODO:
35 * Figure out what the con bios stuff is supposed to do
36 * Test with *LOTS* more cards - I only have a PCI8r and an ISA Xem.
37 */
38
39 #include "opt_compat.h"
40
41 #include <sys/param.h>
42 #include <sys/systm.h>
43 #include <sys/proc.h>
44 #include <sys/priv.h>
45 #include <sys/conf.h>
46 #include <sys/linker.h>
47 #include <sys/kernel.h>
48 #include <sys/mbuf.h>
49 #include <sys/malloc.h>
50 #include <sys/tty.h>
51 #include <sys/syslog.h>
52 #include <sys/fcntl.h>
53 #include <sys/bus.h>
54 #include <sys/bus.h>
55 #include <sys/thread2.h>
56
57 #include <vm/vm.h>
58 #include <vm/pmap.h>
59
60 #include <dev/serial/digi/digiio.h>
61 #include <dev/serial/digi/digireg.h>
62 #include <dev/serial/digi/digi.h>
63 #include <dev/serial/digi/digi_pci.h>
64 #include <dev/serial/digi/digi_bios.h>
65
66 #define CDEV_MAJOR 162
67
68 #define CTRL_DEV 0x800000
69 #define CALLOUT_MASK 0x400000
70 #define CONTROL_INIT_STATE 0x100000
71 #define CONTROL_LOCK_STATE 0x200000
72 #define CONTROL_MASK (CTRL_DEV|CONTROL_INIT_STATE|CONTROL_LOCK_STATE)
73 #define UNIT_MASK 0x030000
74 #define PORT_MASK 0x0000FF
75 #define DEV_TO_UNIT(dev) (MINOR_TO_UNIT(minor(dev)))
76 #define MINOR_MAGIC_MASK (CALLOUT_MASK | CONTROL_MASK)
77 #define MINOR_TO_UNIT(mynor) (((mynor) & UNIT_MASK)>>16)
78 #define MINOR_TO_PORT(mynor) ((mynor) & PORT_MASK)
79
80 static d_open_t digiopen;
81 static d_close_t digiclose;
82 static d_read_t digiread;
83 static d_write_t digiwrite;
84 static d_ioctl_t digiioctl;
85
86 static void digistop(struct tty *tp, int rw);
87 static int digimctl(struct digi_p *port, int bits, int how);
88 static void digi_poll(void *ptr);
89 static void digi_freedata(struct digi_softc *);
90 static void fepcmd(struct digi_p *port, int cmd, int op, int ncmds);
91 static void digistart(struct tty *tp);
92 static int digiparam(struct tty *tp, struct termios *t);
93 static void digihardclose(struct digi_p *port);
94 static void digi_intr(void *);
95 static int digi_init(struct digi_softc *_sc);
96 static int digi_loaddata(struct digi_softc *);
97 static int digi_inuse(struct digi_softc *);
98 static void digi_free_state(struct digi_softc *);
99
100 #define fepcmd_b(port, cmd, op1, op2, ncmds) \
101 fepcmd(port, cmd, (op2 << 8) | op1, ncmds)
102 #define fepcmd_w fepcmd
103
104
105 static speed_t digidefaultrate = TTYDEF_SPEED;
106
107 struct con_bios {
108 struct con_bios *next;
109 u_char *bios;
110 size_t size;
111 };
112
113 static struct con_bios *con_bios_list;
114 devclass_t digi_devclass;
115 unsigned digi_debug = 0;
116
117 static struct speedtab digispeedtab[] = {
118 { 0, 0}, /* old (sysV-like) Bx codes */
119 { 50, 1},
120 { 75, 2},
121 { 110, 3},
122 { 134, 4},
123 { 150, 5},
124 { 200, 6},
125 { 300, 7},
126 { 600, 8},
127 { 1200, 9},
128 { 1800, 10},
129 { 2400, 11},
130 { 4800, 12},
131 { 9600, 13},
132 { 19200, 14},
133 { 38400, 15},
134 { 57600, (02000 | 1)},
135 { 76800, (02000 | 2)},
136 { 115200, (02000 | 3)},
137 { 230400, (02000 | 6)},
138 { -1, -1}
139 };
140
141 const struct digi_control_signals digi_xixe_signals = {
142 0x02, 0x08, 0x10, 0x20, 0x40, 0x80
143 };
144
145 const struct digi_control_signals digi_normal_signals = {
146 0x02, 0x80, 0x20, 0x10, 0x40, 0x01
147 };
148
149 static struct dev_ops digi_ops = {
150 { "dgm", CDEV_MAJOR, D_TTY },
151 .d_open = digiopen,
152 .d_close = digiclose,
153 .d_read = digiread,
154 .d_write = digiwrite,
155 .d_ioctl = digiioctl,
156 .d_poll = ttypoll,
157 .d_kqfilter = ttykqfilter
158 };
159
160 static void
161 digi_poll(void *ptr)
162 {
163 struct digi_softc *sc;
164
165 sc = (struct digi_softc *)ptr;
166 callout_init(&sc->callout);
167 digi_intr(sc);
168 callout_reset(&sc->callout, (hz >= 200) ? hz / 100 : 1, digi_poll, sc);
169 }
170
171 static void
172 digi_int_test(void *v)
173 {
174 struct digi_softc *sc = v;
175
176 callout_init(&sc->inttest);
177 #ifdef DIGI_INTERRUPT
178 if (sc->intr_timestamp.tv_sec || sc->intr_timestamp.tv_usec) {
179 /* interrupt OK! */
180 return;
181 }
182 log(LOG_ERR, "digi%d: Interrupt didn't work, use polled mode\n", unit);
183 #endif
184 callout_reset(&sc->callout, (hz >= 200) ? hz / 100 : 1, digi_poll, sc);
185 }
186
187 static void
188 digi_freedata(struct digi_softc *sc)
189 {
190 if (sc->fep.data != NULL) {
191 kfree(sc->fep.data, M_TTYS);
192 sc->fep.data = NULL;
193 }
194 if (sc->link.data != NULL) {
195 kfree(sc->link.data, M_TTYS);
196 sc->link.data = NULL;
197 }
198 if (sc->bios.data != NULL) {
199 kfree(sc->bios.data, M_TTYS);
200 sc->bios.data = NULL;
201 }
202 }
203
204 static int
205 digi_bcopy(const void *vfrom, void *vto, size_t sz)
206 {
207 volatile const char *from = (volatile const char *)vfrom;
208 volatile char *to = (volatile char *)vto;
209 size_t i;
210
211 for (i = 0; i < sz; i++)
212 *to++ = *from++;
213
214 from = (const volatile char *)vfrom;
215 to = (volatile char *)vto;
216 for (i = 0; i < sz; i++)
217 if (*to++ != *from++)
218 return (0);
219 return (1);
220 }
221
222 void
223 digi_delay(struct digi_softc *sc, const char *txt, u_long timo)
224 {
225 if (cold)
226 DELAY(timo * 1000000 / hz);
227 else
228 tsleep(sc, PCATCH, txt, timo);
229 }
230
231 static int
232 digi_init(struct digi_softc *sc)
233 {
234 int i, cnt, resp;
235 u_char *ptr;
236 int lowwater;
237 struct digi_p *port;
238 volatile struct board_chan *bc;
239
240 ptr = NULL;
241
242 if (sc->status == DIGI_STATUS_DISABLED) {
243 log(LOG_ERR, "digi%d: Cannot init a disabled card\n",
244 sc->res.unit);
245 return (EIO);
246 }
247 if (sc->bios.data == NULL) {
248 log(LOG_ERR, "digi%d: Cannot init without BIOS\n",
249 sc->res.unit);
250 return (EIO);
251 }
252 #if 0
253 if (sc->link.data == NULL && sc->model >= PCCX) {
254 log(LOG_ERR, "digi%d: Cannot init without link info\n",
255 sc->res.unit);
256 return (EIO);
257 }
258 #endif
259 if (sc->fep.data == NULL) {
260 log(LOG_ERR, "digi%d: Cannot init without fep code\n",
261 sc->res.unit);
262 return (EIO);
263 }
264 sc->status = DIGI_STATUS_NOTINIT;
265
266 if (sc->numports) {
267 /*
268 * We're re-initialising - maybe because someone's attached
269 * another port module. For now, we just re-initialise
270 * everything.
271 */
272 if (digi_inuse(sc))
273 return (EBUSY);
274
275 digi_free_state(sc);
276 }
277
278 ptr = sc->setwin(sc, MISCGLOBAL);
279 for (i = 0; i < 16; i += 2)
280 vW(ptr + i) = 0;
281
282 switch (sc->model) {
283 case PCXEVE:
284 outb(sc->wport, 0xff); /* window 7 */
285 ptr = sc->vmem + (BIOSCODE & 0x1fff);
286
287 if (!digi_bcopy(sc->bios.data, ptr, sc->bios.size)) {
288 device_printf(sc->dev, "BIOS upload failed\n");
289 return (EIO);
290 }
291
292 outb(sc->port, FEPCLR);
293 break;
294
295 case PCXE:
296 case PCXI:
297 case PCCX:
298 ptr = sc->setwin(sc, BIOSCODE + ((0xf000 - sc->mem_seg) << 4));
299 if (!digi_bcopy(sc->bios.data, ptr, sc->bios.size)) {
300 device_printf(sc->dev, "BIOS upload failed\n");
301 return (EIO);
302 }
303 break;
304
305 case PCXEM:
306 case PCIEPCX:
307 case PCIXR:
308 if (sc->pcibus)
309 PCIPORT = FEPRST;
310 else
311 outb(sc->port, FEPRST | FEPMEM);
312
313 for (i = 0; ((sc->pcibus ? PCIPORT : inb(sc->port)) &
314 FEPMASK) != FEPRST; i++) {
315 if (i > hz) {
316 log(LOG_ERR, "digi%d: %s init reset failed\n",
317 sc->res.unit, sc->name);
318 return (EIO);
319 }
320 digi_delay(sc, "digiinit0", 5);
321 }
322 DLOG(DIGIDB_INIT, (sc->dev, "Got init reset after %d us\n", i));
323
324 /* Now upload the BIOS */
325 cnt = (sc->bios.size < sc->win_size - BIOSOFFSET) ?
326 sc->bios.size : sc->win_size - BIOSOFFSET;
327
328 ptr = sc->setwin(sc, BIOSOFFSET);
329 if (!digi_bcopy(sc->bios.data, ptr, cnt)) {
330 device_printf(sc->dev, "BIOS upload (1) failed\n");
331 return (EIO);
332 }
333
334 if (cnt != sc->bios.size) {
335 /* and the second part */
336 ptr = sc->setwin(sc, sc->win_size);
337 if (!digi_bcopy(sc->bios.data + cnt, ptr,
338 sc->bios.size - cnt)) {
339 device_printf(sc->dev, "BIOS upload failed\n");
340 return (EIO);
341 }
342 }
343
344 ptr = sc->setwin(sc, 0);
345 vW(ptr + 0) = 0x0401;
346 vW(ptr + 2) = 0x0bf0;
347 vW(ptr + 4) = 0x0000;
348 vW(ptr + 6) = 0x0000;
349
350 break;
351 }
352
353 DLOG(DIGIDB_INIT, (sc->dev, "BIOS uploaded\n"));
354
355 ptr = sc->setwin(sc, MISCGLOBAL);
356 W(ptr) = 0;
357
358 if (sc->pcibus) {
359 PCIPORT = FEPCLR;
360 resp = FEPRST;
361 } else if (sc->model == PCXEVE) {
362 outb(sc->port, FEPCLR);
363 resp = FEPRST;
364 } else {
365 outb(sc->port, FEPCLR | FEPMEM);
366 resp = FEPRST | FEPMEM;
367 }
368
369 for (i = 0; ((sc->pcibus ? PCIPORT : inb(sc->port)) & FEPMASK)
370 == resp; i++) {
371 if (i > hz) {
372 log(LOG_ERR, "digi%d: BIOS start failed\n",
373 sc->res.unit);
374 return (EIO);
375 }
376 digi_delay(sc, "digibios0", 5);
377 }
378
379 DLOG(DIGIDB_INIT, (sc->dev, "BIOS started after %d us\n", i));
380
381 for (i = 0; vW(ptr) != *(u_short *)"GD"; i++) {
382 if (i > 2*hz) {
383 log(LOG_ERR, "digi%d: BIOS boot failed "
384 "(0x%02x != 0x%02x)\n",
385 sc->res.unit, vW(ptr), *(u_short *)"GD");
386 return (EIO);
387 }
388 digi_delay(sc, "digibios1", 5);
389 }
390
391 DLOG(DIGIDB_INIT, (sc->dev, "BIOS booted after %d iterations\n", i));
392
393 if (sc->link.data != NULL) {
394 DLOG(DIGIDB_INIT, (sc->dev, "Loading link data\n"));
395 ptr = sc->setwin(sc, 0xcd0);
396 digi_bcopy(sc->link.data, ptr, 21); /* XXX 21 ? */
397 }
398
399 /* load FEP/OS */
400
401 switch (sc->model) {
402 case PCXE:
403 case PCXEVE:
404 case PCXI:
405 ptr = sc->setwin(sc, sc->model == PCXI ? 0x2000 : 0x0);
406 digi_bcopy(sc->fep.data, ptr, sc->fep.size);
407
408 /* A BIOS request to move our data to 0x2000 */
409 ptr = sc->setwin(sc, MBOX);
410 vW(ptr + 0) = 2;
411 vW(ptr + 2) = sc->mem_seg + FEPCODESEG;
412 vW(ptr + 4) = 0;
413 vW(ptr + 6) = FEPCODESEG;
414 vW(ptr + 8) = 0;
415 vW(ptr + 10) = sc->fep.size;
416
417 /* Run the BIOS request */
418 outb(sc->port, FEPREQ | FEPMEM);
419 outb(sc->port, FEPCLR | FEPMEM);
420
421 for (i = 0; W(ptr); i++) {
422 if (i > hz) {
423 log(LOG_ERR, "digi%d: FEP/OS move failed\n",
424 sc->res.unit);
425 sc->hidewin(sc);
426 return (EIO);
427 }
428 digi_delay(sc, "digifep0", 5);
429 }
430 DLOG(DIGIDB_INIT,
431 (sc->dev, "FEP/OS moved after %d iterations\n", i));
432
433 /* Clear the confirm word */
434 ptr = sc->setwin(sc, FEPSTAT);
435 vW(ptr + 0) = 0;
436
437 /* A BIOS request to execute the FEP/OS */
438 ptr = sc->setwin(sc, MBOX);
439 vW(ptr + 0) = 0x01;
440 vW(ptr + 2) = FEPCODESEG;
441 vW(ptr + 4) = 0x04;
442
443 /* Run the BIOS request */
444 outb(sc->port, FEPREQ);
445 outb(sc->port, FEPCLR);
446
447 ptr = sc->setwin(sc, FEPSTAT);
448
449 break;
450
451 case PCXEM:
452 case PCIEPCX:
453 case PCIXR:
454 DLOG(DIGIDB_INIT, (sc->dev, "Loading FEP/OS\n"));
455
456 cnt = (sc->fep.size < sc->win_size - BIOSOFFSET) ?
457 sc->fep.size : sc->win_size - BIOSOFFSET;
458
459 ptr = sc->setwin(sc, BIOSOFFSET);
460 digi_bcopy(sc->fep.data, ptr, cnt);
461
462 if (cnt != sc->fep.size) {
463 ptr = sc->setwin(sc, BIOSOFFSET + cnt);
464 digi_bcopy(sc->fep.data + cnt, ptr,
465 sc->fep.size - cnt);
466 }
467
468 DLOG(DIGIDB_INIT, (sc->dev, "FEP/OS loaded\n"));
469
470 ptr = sc->setwin(sc, 0xc30);
471 W(ptr + 4) = 0x1004;
472 W(ptr + 6) = 0xbfc0;
473 W(ptr + 0) = 0x03;
474 W(ptr + 2) = 0x00;
475
476 /* Clear the confirm word */
477 ptr = sc->setwin(sc, FEPSTAT);
478 W(ptr + 0) = 0;
479
480 if (sc->port)
481 outb(sc->port, 0); /* XXX necessary ? */
482
483 break;
484
485 case PCCX:
486 ptr = sc->setwin(sc, 0xd000);
487 digi_bcopy(sc->fep.data, ptr, sc->fep.size);
488
489 /* A BIOS request to execute the FEP/OS */
490 ptr = sc->setwin(sc, 0xc40);
491 W(ptr + 0) = 1;
492 W(ptr + 2) = FEPCODE >> 4;
493 W(ptr + 4) = 4;
494
495 /* Clear the confirm word */
496 ptr = sc->setwin(sc, FEPSTAT);
497 W(ptr + 0) = 0;
498
499 /* Run the BIOS request */
500 outb(sc->port, FEPREQ | FEPMEM); /* send interrupt to BIOS */
501 outb(sc->port, FEPCLR | FEPMEM);
502 break;
503 }
504
505 /* Now wait 'till the FEP/OS has booted */
506 for (i = 0; vW(ptr) != *(u_short *)"OS"; i++) {
507 if (i > 2*hz) {
508 log(LOG_ERR, "digi%d: FEP/OS start failed "
509 "(0x%02x != 0x%02x)\n",
510 sc->res.unit, vW(ptr), *(u_short *)"OS");
511 sc->hidewin(sc);
512 return (EIO);
513 }
514 digi_delay(sc, "digifep1", 5);
515 }
516
517 DLOG(DIGIDB_INIT, (sc->dev, "FEP/OS started after %d iterations\n", i));
518
519 if (sc->model >= PCXEM) {
520 ptr = sc->setwin(sc, 0xe04);
521 vW(ptr) = 2;
522 ptr = sc->setwin(sc, 0xc02);
523 sc->numports = vW(ptr);
524 } else {
525 ptr = sc->setwin(sc, 0xc22);
526 sc->numports = vW(ptr);
527 }
528
529 if (sc->numports == 0) {
530 device_printf(sc->dev, "%s, 0 ports found\n", sc->name);
531 sc->hidewin(sc);
532 return (0);
533 }
534
535 if (sc->numports > 256) {
536 /* Our minor numbering scheme is broken for more than 256 */
537 device_printf(sc->dev, "%s, 256 ports (%d ports found)\n",
538 sc->name, sc->numports);
539 sc->numports = 256;
540 } else
541 device_printf(sc->dev, "%s, %d ports found\n", sc->name,
542 sc->numports);
543
544 if (sc->ports)
545 kfree(sc->ports, M_TTYS);
546 sc->ports = kmalloc(sizeof(struct digi_p) * sc->numports,
547 M_TTYS, M_WAITOK | M_ZERO);
548
549 if (sc->ttys)
550 kfree(sc->ttys, M_TTYS);
551 sc->ttys = kmalloc(sizeof(struct tty) * sc->numports,
552 M_TTYS, M_WAITOK | M_ZERO);
553
554 /*
555 * XXX Should read port 0xc90 for an array of 2byte values, 1 per
556 * port. If the value is 0, the port is broken....
557 */
558
559 ptr = sc->setwin(sc, 0);
560
561 /* We should now init per-port structures */
562 bc = (volatile struct board_chan *)(ptr + CHANSTRUCT);
563 sc->gdata = (volatile struct global_data *)(ptr + FEP_GLOBAL);
564
565 sc->memcmd = ptr + sc->gdata->cstart;
566 sc->memevent = ptr + sc->gdata->istart;
567
568 for (i = 0; i < sc->numports; i++, bc++) {
569 port = sc->ports + i;
570 port->pnum = i;
571 port->sc = sc;
572 port->status = ENABLED;
573 port->tp = sc->ttys + i;
574 port->bc = bc;
575
576 if (sc->model == PCXEVE) {
577 port->txbuf = ptr +
578 (((bc->tseg - sc->mem_seg) << 4) & 0x1fff);
579 port->rxbuf = ptr +
580 (((bc->rseg - sc->mem_seg) << 4) & 0x1fff);
581 port->txwin = FEPWIN | ((bc->tseg - sc->mem_seg) >> 9);
582 port->rxwin = FEPWIN | ((bc->rseg - sc->mem_seg) >> 9);
583 } else if (sc->model == PCXI || sc->model == PCXE) {
584 port->txbuf = ptr + ((bc->tseg - sc->mem_seg) << 4);
585 port->rxbuf = ptr + ((bc->rseg - sc->mem_seg) << 4);
586 port->txwin = port->rxwin = 0;
587 } else {
588 port->txbuf = ptr +
589 (((bc->tseg - sc->mem_seg) << 4) % sc->win_size);
590 port->rxbuf = ptr +
591 (((bc->rseg - sc->mem_seg) << 4) % sc->win_size);
592 port->txwin = FEPWIN |
593 (((bc->tseg - sc->mem_seg) << 4) / sc->win_size);
594 port->rxwin = FEPWIN |
595 (((bc->rseg - sc->mem_seg) << 4) / sc->win_size);
596 }
597 port->txbufsize = bc->tmax + 1;
598 port->rxbufsize = bc->rmax + 1;
599
600 lowwater = port->txbufsize >> 2;
601 if (lowwater > 1024)
602 lowwater = 1024;
603 sc->setwin(sc, 0);
604 fepcmd_w(port, STXLWATER, lowwater, 10);
605 fepcmd_w(port, SRXLWATER, port->rxbufsize >> 2, 10);
606 fepcmd_w(port, SRXHWATER, (3 * port->rxbufsize) >> 2, 10);
607
608 bc->edelay = 100;
609 port->dtr_wait = 3 * hz;
610
611 /*
612 * We don't use all the flags from <sys/ttydefaults.h> since
613 * they are only relevant for logins. It's important to have
614 * echo off initially so that the line doesn't start blathering
615 * before the echo flag can be turned off.
616 */
617 port->it_in.c_iflag = 0;
618 port->it_in.c_oflag = 0;
619 port->it_in.c_cflag = TTYDEF_CFLAG;
620 port->it_in.c_lflag = 0;
621 termioschars(&port->it_in);
622 port->it_in.c_ispeed = port->it_in.c_ospeed = digidefaultrate;
623 port->it_out = port->it_in;
624 port->send_ring = 1; /* Default action on signal RI */
625
626 port->dev[0] = make_dev(&digi_ops, (sc->res.unit << 16) + i,
627 UID_ROOT, GID_WHEEL, 0600, "ttyD%d.%d", sc->res.unit, i);
628 port->dev[1] = make_dev(&digi_ops, ((sc->res.unit << 16) + i) |
629 CONTROL_INIT_STATE, UID_ROOT, GID_WHEEL,
630 0600, "ttyiD%d.%d", sc->res.unit, i);
631 port->dev[2] = make_dev(&digi_ops, ((sc->res.unit << 16) + i) |
632 CONTROL_LOCK_STATE, UID_ROOT, GID_WHEEL,
633 0600, "ttylD%d.%d", sc->res.unit, i);
634 port->dev[3] = make_dev(&digi_ops, ((sc->res.unit << 16) + i) |
635 CALLOUT_MASK, UID_UUCP, GID_DIALER,
636 0660, "cuaD%d.%d", sc->res.unit, i);
637 port->dev[4] = make_dev(&digi_ops, ((sc->res.unit << 16) + i) |
638 CALLOUT_MASK | CONTROL_INIT_STATE, UID_UUCP, GID_DIALER,
639 0660, "cuaiD%d.%d", sc->res.unit, i);
640 port->dev[5] = make_dev(&digi_ops, ((sc->res.unit << 16) + i) |
641 CALLOUT_MASK | CONTROL_LOCK_STATE, UID_UUCP, GID_DIALER,
642 0660, "cualD%d.%d", sc->res.unit, i);
643 }
644
645 sc->hidewin(sc);
646 callout_reset(&sc->inttest, hz, digi_int_test, sc);
647 /* fepcmd_w(&sc->ports[0], 0xff, 0, 0); */
648 sc->status = DIGI_STATUS_ENABLED;
649
650 return (0);
651 }
652
653 static int
654 digimctl(struct digi_p *port, int bits, int how)
655 {
656 int mstat;
657
658 if (how == DMGET) {
659 port->sc->setwin(port->sc, 0);
660 mstat = port->bc->mstat;
661 port->sc->hidewin(port->sc);
662 bits = TIOCM_LE;
663 if (mstat & port->sc->csigs->rts)
664 bits |= TIOCM_RTS;
665 if (mstat & port->cd)
666 bits |= TIOCM_CD;
667 if (mstat & port->dsr)
668 bits |= TIOCM_DSR;
669 if (mstat & port->sc->csigs->cts)
670 bits |= TIOCM_CTS;
671 if (mstat & port->sc->csigs->ri)
672 bits |= TIOCM_RI;
673 if (mstat & port->sc->csigs->dtr)
674 bits |= TIOCM_DTR;
675 return (bits);
676 }
677
678 /* Only DTR and RTS may be set */
679 mstat = 0;
680 if (bits & TIOCM_DTR)
681 mstat |= port->sc->csigs->dtr;
682 if (bits & TIOCM_RTS)
683 mstat |= port->sc->csigs->rts;
684
685 switch (how) {
686 case DMSET:
687 fepcmd_b(port, SETMODEM, mstat, ~mstat, 0);
688 break;
689 case DMBIS:
690 fepcmd_b(port, SETMODEM, mstat, 0, 0);
691 break;
692 case DMBIC:
693 fepcmd_b(port, SETMODEM, 0, mstat, 0);
694 break;
695 }
696
697 return (0);
698 }
699
700 static void
701 digi_disc_optim(struct tty *tp, struct termios *t, struct digi_p *port)
702 {
703 if (!(t->c_iflag & (ICRNL | IGNCR | IMAXBEL | INLCR | ISTRIP)) &&
704 (!(t->c_iflag & BRKINT) || (t->c_iflag & IGNBRK)) &&
705 (!(t->c_iflag & PARMRK) ||
706 (t->c_iflag & (IGNPAR | IGNBRK)) == (IGNPAR | IGNBRK)) &&
707 !(t->c_lflag & (ECHO | ICANON | IEXTEN | ISIG | PENDIN)) &&
708 linesw[tp->t_line].l_rint == ttyinput)
709 tp->t_state |= TS_CAN_BYPASS_L_RINT;
710 else
711 tp->t_state &= ~TS_CAN_BYPASS_L_RINT;
712 }
713
714 static int
715 digiopen(struct dev_open_args *ap)
716 {
717 cdev_t dev = ap->a_head.a_dev;
718 struct digi_softc *sc;
719 struct tty *tp;
720 int unit;
721 int pnum;
722 struct digi_p *port;
723 int error, mynor;
724 volatile struct board_chan *bc;
725
726 error = 0;
727 mynor = minor(dev);
728 unit = MINOR_TO_UNIT(minor(dev));
729 pnum = MINOR_TO_PORT(minor(dev));
730
731 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit);
732 if (!sc)
733 return (ENXIO);
734
735 if (sc->status != DIGI_STATUS_ENABLED) {
736 DLOG(DIGIDB_OPEN, (sc->dev, "Cannot open a disabled card\n"));
737 return (ENXIO);
738 }
739 if (pnum >= sc->numports) {
740 DLOG(DIGIDB_OPEN, (sc->dev, "port%d: Doesn't exist\n", pnum));
741 return (ENXIO);
742 }
743 if (mynor & (CTRL_DEV | CONTROL_MASK)) {
744 sc->opencnt++;
745 return (0);
746 }
747 port = &sc->ports[pnum];
748 tp = dev->si_tty = port->tp;
749 bc = port->bc;
750
751 crit_enter();
752
753 open_top:
754 while (port->status & DIGI_DTR_OFF) {
755 port->wopeners++;
756 error = tsleep(&port->dtr_wait, PCATCH, "digidtr", 0);
757 port->wopeners--;
758 if (error)
759 goto out;
760 }
761
762 if (tp->t_state & TS_ISOPEN) {
763 /*
764 * The device is open, so everything has been initialized.
765 * Handle conflicts.
766 */
767 if (mynor & CALLOUT_MASK) {
768 if (!port->active_out) {
769 error = EBUSY;
770 DLOG(DIGIDB_OPEN, (sc->dev, "port %d:"
771 " BUSY error = %d\n", pnum, error));
772 goto out;
773 }
774 } else if (port->active_out) {
775 if (ap->a_oflags & O_NONBLOCK) {
776 error = EBUSY;
777 DLOG(DIGIDB_OPEN, (sc->dev,
778 "port %d: BUSY error = %d\n", pnum, error));
779 goto out;
780 }
781 port->wopeners++;
782 error = tsleep(&port->active_out, PCATCH, "digibi", 0);
783 port->wopeners--;
784 if (error != 0) {
785 DLOG(DIGIDB_OPEN, (sc->dev,
786 "port %d: tsleep(digibi) error = %d\n",
787 pnum, error));
788 goto out;
789 }
790 goto open_top;
791 }
792 if (tp->t_state & TS_XCLUDE && priv_check_cred(ap->a_cred, PRIV_ROOT, 0) != 0) {
793 error = EBUSY;
794 goto out;
795 }
796 } else {
797 /*
798 * The device isn't open, so there are no conflicts.
799 * Initialize it. Initialization is done twice in many
800 * cases: to preempt sleeping callin opens if we are callout,
801 * and to complete a callin open after DCD rises.
802 */
803 callout_init(&port->wakeupco);
804 tp->t_oproc = digistart;
805 tp->t_param = digiparam;
806 tp->t_stop = digistop;
807 tp->t_dev = dev;
808 tp->t_termios = (mynor & CALLOUT_MASK) ?
809 port->it_out : port->it_in;
810 sc->setwin(sc, 0);
811
812 bc->rout = bc->rin; /* clear input queue */
813 bc->idata = 1;
814 bc->iempty = 1;
815 bc->ilow = 1;
816 bc->mint = port->cd | port->sc->csigs->ri;
817 bc->tin = bc->tout;
818 if (port->ialtpin) {
819 port->cd = sc->csigs->dsr;
820 port->dsr = sc->csigs->cd;
821 } else {
822 port->cd = sc->csigs->cd;
823 port->dsr = sc->csigs->dsr;
824 }
825 port->wopeners++; /* XXX required ? */
826 error = digiparam(tp, &tp->t_termios);
827 port->wopeners--;
828
829 if (error != 0) {
830 DLOG(DIGIDB_OPEN, (sc->dev,
831 "port %d: cxpparam error = %d\n", pnum, error));
832 goto out;
833 }
834 ttsetwater(tp);
835
836 /* handle fake and initial DCD for callout devices */
837
838 if (bc->mstat & port->cd || mynor & CALLOUT_MASK)
839 linesw[tp->t_line].l_modem(tp, 1);
840 }
841
842 /* Wait for DCD if necessary */
843 if (!(tp->t_state & TS_CARR_ON) && !(mynor & CALLOUT_MASK) &&
844 !(tp->t_cflag & CLOCAL) && !(ap->a_oflags & O_NONBLOCK)) {
845 port->wopeners++;
846 error = tsleep(TSA_CARR_ON(tp), PCATCH, "digidcd", 0);
847 port->wopeners--;
848 if (error != 0) {
849 DLOG(DIGIDB_OPEN, (sc->dev,
850 "port %d: tsleep(digidcd) error = %d\n",
851 pnum, error));
852 goto out;
853 }
854 goto open_top;
855 }
856 error = linesw[tp->t_line].l_open(dev, tp);
857 DLOG(DIGIDB_OPEN, (sc->dev, "port %d: l_open error = %d\n",
858 pnum, error));
859
860 digi_disc_optim(tp, &tp->t_termios, port);
861
862 if (tp->t_state & TS_ISOPEN && mynor & CALLOUT_MASK)
863 port->active_out = TRUE;
864
865 if (tp->t_state & TS_ISOPEN)
866 sc->opencnt++;
867 out:
868 crit_exit();
869
870 if (!(tp->t_state & TS_ISOPEN))
871 digihardclose(port);
872
873 DLOG(DIGIDB_OPEN, (sc->dev, "port %d: open() returns %d\n",
874 pnum, error));
875
876 return (error);
877 }
878
879 static int
880 digiclose(struct dev_close_args *ap)
881 {
882 cdev_t dev = ap->a_head.a_dev;
883 int mynor;
884 struct tty *tp;
885 int unit, pnum;
886 struct digi_softc *sc;
887 struct digi_p *port;
888
889 mynor = minor(dev);
890 unit = MINOR_TO_UNIT(mynor);
891 pnum = MINOR_TO_PORT(mynor);
892
893 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit);
894 KASSERT(sc, ("digi%d: softc not allocated in digiclose\n", unit));
895
896 if (mynor & (CTRL_DEV | CONTROL_MASK)) {
897 sc->opencnt--;
898 return (0);
899 }
900
901 port = sc->ports + pnum;
902 tp = port->tp;
903
904 DLOG(DIGIDB_CLOSE, (sc->dev, "port %d: closing\n", pnum));
905
906 crit_enter();
907 linesw[tp->t_line].l_close(tp, ap->a_fflag);
908 digi_disc_optim(tp, &tp->t_termios, port);
909 digistop(tp, FREAD | FWRITE);
910 digihardclose(port);
911 ttyclose(tp);
912 --sc->opencnt;
913 crit_exit();
914 return (0);
915 }
916
917 static void
918 digidtrwakeup(void *chan)
919 {
920 struct digi_p *port = chan;
921
922 port->status &= ~DIGI_DTR_OFF;
923 wakeup(&port->dtr_wait);
924 port->wopeners--;
925 }
926
927 static void
928 digihardclose(struct digi_p *port)
929 {
930 volatile struct board_chan *bc;
931
932 bc = port->bc;
933
934 crit_enter();
935 port->sc->setwin(port->sc, 0);
936 bc->idata = 0;
937 bc->iempty = 0;
938 bc->ilow = 0;
939 bc->mint = 0;
940 if ((port->tp->t_cflag & HUPCL) ||
941 (!port->active_out && !(bc->mstat & port->cd) &&
942 !(port->it_in.c_cflag & CLOCAL)) ||
943 !(port->tp->t_state & TS_ISOPEN)) {
944 digimctl(port, TIOCM_DTR | TIOCM_RTS, DMBIC);
945 if (port->dtr_wait != 0) {
946 /* Schedule a wakeup of any callin devices */
947 port->wopeners++;
948 callout_reset(&port->wakeupco, port->dtr_wait,
949 digidtrwakeup, port);
950 port->status |= DIGI_DTR_OFF;
951 }
952 }
953 port->active_out = FALSE;
954 wakeup(&port->active_out);
955 wakeup(TSA_CARR_ON(port->tp));
956 crit_exit();
957 }
958
959 static int
960 digiread(struct dev_read_args *ap)
961 {
962 cdev_t dev = ap->a_head.a_dev;
963 int mynor;
964 struct tty *tp;
965 int error, unit, pnum;
966 struct digi_softc *sc;
967
968 mynor = minor(dev);
969 if (mynor & CONTROL_MASK)
970 return (ENODEV);
971
972 unit = MINOR_TO_UNIT(mynor);
973 pnum = MINOR_TO_PORT(mynor);
974
975 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit);
976 KASSERT(sc, ("digi%d: softc not allocated in digiclose\n", unit));
977 tp = &sc->ttys[pnum];
978
979 error = linesw[tp->t_line].l_read(tp, ap->a_uio, ap->a_ioflag);
980 DLOG(DIGIDB_READ, (sc->dev, "port %d: read() returns %d\n",
981 pnum, error));
982
983 return (error);
984 }
985
986 static int
987 digiwrite(struct dev_write_args *ap)
988 {
989 cdev_t dev = ap->a_head.a_dev;
990 int mynor;
991 struct tty *tp;
992 int error, unit, pnum;
993 struct digi_softc *sc;
994
995 mynor = minor(dev);
996 if (mynor & CONTROL_MASK)
997 return (ENODEV);
998
999 unit = MINOR_TO_UNIT(mynor);
1000 pnum = MINOR_TO_PORT(mynor);
1001
1002 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit);
1003 KASSERT(sc, ("digi%d: softc not allocated in digiclose\n", unit));
1004 tp = &sc->ttys[pnum];
1005
1006 error = linesw[tp->t_line].l_write(tp, ap->a_uio, ap->a_ioflag);
1007 DLOG(DIGIDB_WRITE, (sc->dev, "port %d: write() returns %d\n",
1008 pnum, error));
1009
1010 return (error);
1011 }
1012
1013 /*
1014 * Load module "digi_<mod>.ko" and look for a symbol called digi_mod_<mod>.
1015 *
1016 * Populate sc->bios, sc->fep, and sc->link from this data.
1017 *
1018 * sc->fep.data, sc->bios.data and sc->link.data are malloc()d according
1019 * to their respective sizes.
1020 *
1021 * The module is unloaded when we're done.
1022 */
1023 static int
1024 digi_loaddata(struct digi_softc *sc)
1025 {
1026 struct digi_bios *bios;
1027
1028 KASSERT(sc->bios.data == NULL, ("Uninitialised BIOS variable"));
1029 KASSERT(sc->fep.data == NULL, ("Uninitialised FEP variable"));
1030 KASSERT(sc->link.data == NULL, ("Uninitialised LINK variable"));
1031 KASSERT(sc->module != NULL, ("Uninitialised module name"));
1032
1033 for (bios = digi_bioses; bios->model != NULL; bios++) {
1034 if (!strcmp(bios->model, sc->module))
1035 break;
1036 }
1037 if (bios->model == NULL) {
1038 kprintf("digi.ko: driver %s not found", sc->module);
1039 return(EINVAL);
1040 }
1041
1042 sc->bios.size = bios->bios_size;
1043 if (sc->bios.size != 0 && bios->bios != NULL) {
1044 sc->bios.data = kmalloc(sc->bios.size, M_TTYS, M_WAITOK);
1045 bcopy(bios->bios, sc->bios.data, sc->bios.size);
1046 }
1047
1048 sc->fep.size = bios->fep_size;
1049 if (sc->fep.size != 0 && bios->fep != NULL) {
1050 sc->fep.data = kmalloc(sc->fep.size, M_TTYS, M_WAITOK);
1051 bcopy(bios->fep, sc->fep.data, sc->fep.size);
1052 }
1053
1054 return (0);
1055 }
1056
1057 static int
1058 digiioctl(struct dev_ioctl_args *ap)
1059 {
1060 cdev_t dev = ap->a_head.a_dev;
1061 u_long cmd = ap->a_cmd;
1062 caddr_t data = ap->a_data;
1063 int unit, pnum, mynor, error;
1064 struct digi_softc *sc;
1065 struct digi_p *port;
1066 struct tty *tp;
1067 #if defined(COMPAT_43) || defined(COMPAT_SUNOS)
1068 int oldcmd;
1069 struct termios term;
1070 #endif
1071
1072 mynor = minor(dev);
1073 unit = MINOR_TO_UNIT(mynor);
1074 pnum = MINOR_TO_PORT(mynor);
1075
1076 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit);
1077 KASSERT(sc, ("digi%d: softc not allocated in digiioctl\n", unit));
1078
1079 if (sc->status == DIGI_STATUS_DISABLED)
1080 return (ENXIO);
1081
1082 if (mynor & CTRL_DEV) {
1083 switch (cmd) {
1084 case DIGIIO_DEBUG:
1085 #ifdef DEBUG
1086 digi_debug = *(int *)data;
1087 return (0);
1088 #else
1089 device_printf(sc->dev, "DEBUG not defined\n");
1090 return (ENXIO);
1091 #endif
1092 case DIGIIO_REINIT:
1093 digi_loaddata(sc);
1094 error = digi_init(sc);
1095 digi_freedata(sc);
1096 return (error);
1097
1098 case DIGIIO_MODEL:
1099 *(enum digi_model *)data = sc->model;
1100 return (0);
1101
1102 case DIGIIO_IDENT:
1103 return (copyout(sc->name, *(char **)data,
1104 strlen(sc->name) + 1));
1105 }
1106 }
1107
1108 if (pnum >= sc->numports)
1109 return (ENXIO);
1110
1111 port = sc->ports + pnum;
1112 if (!(port->status & ENABLED))
1113 return (ENXIO);
1114
1115 tp = port->tp;
1116
1117 if (mynor & CONTROL_MASK) {
1118 struct termios *ct;
1119
1120 switch (mynor & CONTROL_MASK) {
1121 case CONTROL_INIT_STATE:
1122 ct = (mynor & CALLOUT_MASK) ?
1123 &port->it_out : &port->it_in;
1124 break;
1125 case CONTROL_LOCK_STATE:
1126 ct = (mynor & CALLOUT_MASK) ?
1127 &port->lt_out : &port->lt_in;
1128 break;
1129 default:
1130 return (ENODEV); /* /dev/nodev */
1131 }
1132
1133 switch (cmd) {
1134 case TIOCSETA:
1135 error = priv_check_cred(ap->a_cred, PRIV_ROOT, 0);
1136 if (error != 0)
1137 return (error);
1138 *ct = *(struct termios *)data;
1139 return (0);
1140
1141 case TIOCGETA:
1142 *(struct termios *)data = *ct;
1143 return (0);
1144
1145 case TIOCGETD:
1146 *(int *)data = TTYDISC;
1147 return (0);
1148
1149 case TIOCGWINSZ:
1150 bzero(data, sizeof(struct winsize));
1151 return (0);
1152
1153 case DIGIIO_GETALTPIN:
1154 switch (mynor & CONTROL_MASK) {
1155 case CONTROL_INIT_STATE:
1156 *(int *)data = port->ialtpin;
1157 break;
1158
1159 case CONTROL_LOCK_STATE:
1160 *(int *)data = port->laltpin;
1161 break;
1162
1163 default:
1164 panic("Confusion when re-testing minor");
1165 return (ENODEV);
1166 }
1167 return (0);
1168
1169 case DIGIIO_SETALTPIN:
1170 switch (mynor & CONTROL_MASK) {
1171 case CONTROL_INIT_STATE:
1172 if (!port->laltpin) {
1173 port->ialtpin = !!*(int *)data;
1174 DLOG(DIGIDB_SET, (sc->dev,
1175 "port%d: initial ALTPIN %s\n", pnum,
1176 port->ialtpin ? "set" : "cleared"));
1177 }
1178 break;
1179
1180 case CONTROL_LOCK_STATE:
1181 port->laltpin = !!*(int *)data;
1182 DLOG(DIGIDB_SET, (sc->dev,
1183 "port%d: ALTPIN %slocked\n",
1184 pnum, port->laltpin ? "" : "un"));
1185 break;
1186
1187 default:
1188 panic("Confusion when re-testing minor");
1189 return (ENODEV);
1190 }
1191 return (0);
1192
1193 default:
1194 return (ENOTTY);
1195 }
1196 }
1197
1198 switch (cmd) {
1199 case DIGIIO_GETALTPIN:
1200 *(int *)data = !!(port->dsr == sc->csigs->cd);
1201 return (0);
1202
1203 case DIGIIO_SETALTPIN:
1204 if (!port->laltpin) {
1205 if (*(int *)data) {
1206 DLOG(DIGIDB_SET, (sc->dev,
1207 "port%d: ALTPIN set\n", pnum));
1208 port->cd = sc->csigs->dsr;
1209 port->dsr = sc->csigs->cd;
1210 } else {
1211 DLOG(DIGIDB_SET, (sc->dev,
1212 "port%d: ALTPIN cleared\n", pnum));
1213 port->cd = sc->csigs->cd;
1214 port->dsr = sc->csigs->dsr;
1215 }
1216 }
1217 return (0);
1218 }
1219
1220 tp = port->tp;
1221 #if defined(COMPAT_43) || defined(COMPAT_SUNOS)
1222 term = tp->t_termios;
1223 oldcmd = cmd;
1224 error = ttsetcompat(tp, &cmd, data, &term);
1225 if (error != 0)
1226 return (error);
1227 if (cmd != oldcmd)
1228 data = (caddr_t) & term;
1229 #endif
1230 if (cmd == TIOCSETA || cmd == TIOCSETAW || cmd == TIOCSETAF) {
1231 int cc;
1232 struct termios *dt;
1233 struct termios *lt;
1234
1235 dt = (struct termios *)data;
1236 lt = (mynor & CALLOUT_MASK) ? &port->lt_out : &port->lt_in;
1237
1238 dt->c_iflag =
1239 (tp->t_iflag & lt->c_iflag) | (dt->c_iflag & ~lt->c_iflag);
1240 dt->c_oflag =
1241 (tp->t_oflag & lt->c_oflag) | (dt->c_oflag & ~lt->c_oflag);
1242 dt->c_cflag =
1243 (tp->t_cflag & lt->c_cflag) | (dt->c_cflag & ~lt->c_cflag);
1244 dt->c_lflag =
1245 (tp->t_lflag & lt->c_lflag) | (dt->c_lflag & ~lt->c_lflag);
1246 port->c_iflag = dt->c_iflag & (IXOFF | IXON | IXANY);
1247 dt->c_iflag &= ~(IXOFF | IXON | IXANY);
1248 for (cc = 0; cc < NCCS; ++cc)
1249 if (lt->c_cc[cc] != 0)
1250 dt->c_cc[cc] = tp->t_cc[cc];
1251 if (lt->c_ispeed != 0)
1252 dt->c_ispeed = tp->t_ispeed;
1253 if (lt->c_ospeed != 0)
1254 dt->c_ospeed = tp->t_ospeed;
1255 }
1256 error = linesw[tp->t_line].l_ioctl(tp, cmd, data,
1257 ap->a_fflag, ap->a_cred);
1258 if (error == 0 && cmd == TIOCGETA)
1259 ((struct termios *)data)->c_iflag |= port->c_iflag;
1260
1261 if (error >= 0 && error != ENOIOCTL)
1262 return (error);
1263 crit_enter();
1264 error = ttioctl(tp, cmd, data, ap->a_fflag);
1265 if (error == 0 && cmd == TIOCGETA)
1266 ((struct termios *)data)->c_iflag |= port->c_iflag;
1267
1268 digi_disc_optim(tp, &tp->t_termios, port);
1269 if (error >= 0 && error != ENOIOCTL) {
1270 crit_exit();
1271 return (error);
1272 }
1273 sc->setwin(sc, 0);
1274 switch (cmd) {
1275 case DIGIIO_RING:
1276 port->send_ring = *(u_char *)data;
1277 break;
1278 case TIOCSBRK:
1279 /*
1280 * now it sends 400 millisecond break because I don't know
1281 * how to send an infinite break
1282 */
1283 fepcmd_w(port, SENDBREAK, 400, 10);
1284 break;
1285 case TIOCCBRK:
1286 /* now it's empty */
1287 break;
1288 case TIOCSDTR:
1289 digimctl(port, TIOCM_DTR, DMBIS);
1290 break;
1291 case TIOCCDTR:
1292 digimctl(port, TIOCM_DTR, DMBIC);
1293 break;
1294 case TIOCMSET:
1295 digimctl(port, *(int *)data, DMSET);
1296 break;
1297 case TIOCMBIS:
1298 digimctl(port, *(int *)data, DMBIS);
1299 break;
1300 case TIOCMBIC:
1301 digimctl(port, *(int *)data, DMBIC);
1302 break;
1303 case TIOCMGET:
1304 *(int *)data = digimctl(port, 0, DMGET);
1305 break;
1306 case TIOCMSDTRWAIT:
1307 error = priv_check_cred(ap->a_cred, PRIV_ROOT, 0);
1308 if (error != 0) {
1309 crit_exit();
1310 return (error);
1311 }
1312 port->dtr_wait = *(int *)data *hz / 100;
1313
1314 break;
1315 case TIOCMGDTRWAIT:
1316 *(int *)data = port->dtr_wait * 100 / hz;
1317 break;
1318 #ifdef DIGI_INTERRUPT
1319 case TIOCTIMESTAMP:
1320 *(struct timeval *)data = sc->intr_timestamp;
1321
1322 break;
1323 #endif
1324 default:
1325 crit_exit();
1326 return (ENOTTY);
1327 }
1328 crit_exit();
1329 return (0);
1330 }
1331
1332 static int
1333 digiparam(struct tty *tp, struct termios *t)
1334 {
1335 int mynor;
1336 int unit;
1337 int pnum;
1338 struct digi_softc *sc;
1339 struct digi_p *port;
1340 int cflag;
1341 int iflag;
1342 int hflow;
1343 int window;
1344
1345 mynor = minor(tp->t_dev);
1346 unit = MINOR_TO_UNIT(mynor);
1347 pnum = MINOR_TO_PORT(mynor);
1348
1349 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit);
1350 KASSERT(sc, ("digi%d: softc not allocated in digiparam\n", unit));
1351
1352 port = &sc->ports[pnum];
1353
1354 DLOG(DIGIDB_SET, (sc->dev, "port%d: setting parameters\n", pnum));
1355
1356 if (t->c_ispeed == 0)
1357 t->c_ispeed = t->c_ospeed;
1358
1359 cflag = ttspeedtab(t->c_ospeed, digispeedtab);
1360
1361 if (cflag < 0 || (cflag > 0 && t->c_ispeed != t->c_ospeed))
1362 return (EINVAL);
1363
1364 crit_enter();
1365
1366 window = sc->window;
1367 sc->setwin(sc, 0);
1368
1369 if (cflag == 0) { /* hangup */
1370 DLOG(DIGIDB_SET, (sc->dev, "port%d: hangup\n", pnum));
1371 digimctl(port, TIOCM_DTR | TIOCM_RTS, DMBIC);
1372 } else {
1373 digimctl(port, TIOCM_DTR | TIOCM_RTS, DMBIS);
1374
1375 DLOG(DIGIDB_SET, (sc->dev, "port%d: CBAUD = %d\n", pnum,
1376 cflag));
1377
1378 #if 0
1379 /* convert flags to sysV-style values */
1380 if (t->c_cflag & PARODD)
1381 cflag |= 0x0200;
1382 if (t->c_cflag & PARENB)
1383 cflag |= 0x0100;
1384 if (t->c_cflag & CSTOPB)
1385 cflag |= 0x0080;
1386 #else
1387 /* convert flags to sysV-style values */
1388 if (t->c_cflag & PARODD)
1389 cflag |= FEP_PARODD;
1390 if (t->c_cflag & PARENB)
1391 cflag |= FEP_PARENB;
1392 if (t->c_cflag & CSTOPB)
1393 cflag |= FEP_CSTOPB;
1394 if (t->c_cflag & CLOCAL)
1395 cflag |= FEP_CLOCAL;
1396 #endif
1397
1398 cflag |= (t->c_cflag & CSIZE) >> 4;
1399 DLOG(DIGIDB_SET, (sc->dev, "port%d: CFLAG = 0x%x\n", pnum,
1400 cflag));
1401 fepcmd_w(port, SETCFLAGS, (unsigned)cflag, 0);
1402 }
1403
1404 iflag =
1405 t->c_iflag & (IGNBRK | BRKINT | IGNPAR | PARMRK | INPCK | ISTRIP);
1406 if (port->c_iflag & IXON)
1407 iflag |= 0x400;
1408 if (port->c_iflag & IXANY)
1409 iflag |= 0x800;
1410 if (port->c_iflag & IXOFF)
1411 iflag |= 0x1000;
1412
1413 DLOG(DIGIDB_SET, (sc->dev, "port%d: set iflag = 0x%x\n", pnum, iflag));
1414 fepcmd_w(port, SETIFLAGS, (unsigned)iflag, 0);
1415
1416 hflow = 0;
1417 if (t->c_cflag & CDTR_IFLOW)
1418 hflow |= sc->csigs->dtr;
1419 if (t->c_cflag & CRTS_IFLOW)
1420 hflow |= sc->csigs->rts;
1421 if (t->c_cflag & CCTS_OFLOW)
1422 hflow |= sc->csigs->cts;
1423 if (t->c_cflag & CDSR_OFLOW)
1424 hflow |= port->dsr;
1425 if (t->c_cflag & CCAR_OFLOW)
1426 hflow |= port->cd;
1427
1428 DLOG(DIGIDB_SET, (sc->dev, "port%d: set hflow = 0x%x\n", pnum, hflow));
1429 fepcmd_w(port, SETHFLOW, 0xff00 | (unsigned)hflow, 0);
1430
1431 DLOG(DIGIDB_SET, (sc->dev, "port%d: set startc(0x%x), stopc(0x%x)\n",
1432 pnum, t->c_cc[VSTART], t->c_cc[VSTOP]));
1433 fepcmd_b(port, SONOFFC, t->c_cc[VSTART], t->c_cc[VSTOP], 0);
1434
1435 if (sc->window != 0)
1436 sc->towin(sc, 0);
1437 if (window != 0)
1438 sc->towin(sc, window);
1439 crit_exit();
1440
1441 return (0);
1442 }
1443
1444 static void
1445 digi_intr(void *vp)
1446 {
1447 struct digi_p *port;
1448 char *cxcon;
1449 struct digi_softc *sc;
1450 int ehead, etail;
1451 volatile struct board_chan *bc;
1452 struct tty *tp;
1453 int head, tail;
1454 int wrapmask;
1455 int size, window;
1456 struct event {
1457 u_char pnum;
1458 u_char event;
1459 u_char mstat;
1460 u_char lstat;
1461 } event;
1462
1463 sc = vp;
1464
1465 if (sc->status != DIGI_STATUS_ENABLED) {
1466 DLOG(DIGIDB_IRQ, (sc->dev, "interrupt on disabled board !\n"));
1467 return;
1468 }
1469
1470 #ifdef DIGI_INTERRUPT
1471 microtime(&sc->intr_timestamp);
1472 #endif
1473
1474 window = sc->window;
1475 sc->setwin(sc, 0);
1476
1477 if (sc->model >= PCXEM && W(sc->vmem + 0xd00)) {
1478 struct con_bios *con = con_bios_list;
1479 u_char *ptr;
1480
1481 ptr = sc->vmem + W(sc->vmem + 0xd00);
1482 while (con) {
1483 if (ptr[1] && W(ptr + 2) == W(con->bios + 2))
1484 /* Not first block -- exact match */
1485 break;
1486
1487 if (W(ptr + 4) >= W(con->bios + 4) &&
1488 W(ptr + 4) <= W(con->bios + 6))
1489 /* Initial search concetrator BIOS */
1490 break;
1491 }
1492
1493 if (con == NULL) {
1494 log(LOG_ERR, "digi%d: wanted bios LREV = 0x%04x"
1495 " not found!\n", sc->res.unit, W(ptr + 4));
1496 W(ptr + 10) = 0;
1497 W(sc->vmem + 0xd00) = 0;
1498 goto eoi;
1499 }
1500 cxcon = con->bios;
1501 W(ptr + 4) = W(cxcon + 4);
1502 W(ptr + 6) = W(cxcon + 6);
1503 if (ptr[1] == 0)
1504 W(ptr + 2) = W(cxcon + 2);
1505 W(ptr + 8) = (ptr[1] << 6) + W(cxcon + 8);
1506 size = W(cxcon + 10) - (ptr[1] << 10);
1507 if (size <= 0) {
1508 W(ptr + 8) = W(cxcon + 8);
1509 W(ptr + 10) = 0;
1510 } else {
1511 if (size > 1024)
1512 size = 1024;
1513 W(ptr + 10) = size;
1514 bcopy(cxcon + (ptr[1] << 10), ptr + 12, size);
1515 }
1516 W(sc->vmem + 0xd00) = 0;
1517 goto eoi;
1518 }
1519
1520 ehead = sc->gdata->ein;
1521 etail = sc->gdata->eout;
1522 if (ehead == etail) {
1523 #ifdef DEBUG
1524 sc->intr_count++;
1525 if (sc->intr_count % 6000 == 0) {
1526 DLOG(DIGIDB_IRQ, (sc->dev,
1527 "6000 useless polls %x %x\n", ehead, etail));
1528 sc->intr_count = 0;
1529 }
1530 #endif
1531 goto eoi;
1532 }
1533 while (ehead != etail) {
1534 event = *(volatile struct event *)(sc->memevent + etail);
1535
1536 etail = (etail + 4) & sc->gdata->imax;
1537
1538 if (event.pnum >= sc->numports) {
1539 log(LOG_ERR, "digi%d: port %d: got event"
1540 " on nonexisting port\n", sc->res.unit,
1541 event.pnum);
1542 continue;
1543 }
1544 port = &sc->ports[event.pnum];
1545 bc = port->bc;
1546 tp = port->tp;
1547
1548 if (!(tp->t_state & TS_ISOPEN) && !port->wopeners) {
1549 DLOG(DIGIDB_IRQ, (sc->dev,
1550 "port %d: event 0x%x on closed port\n",
1551 event.pnum, event.event));
1552 bc->rout = bc->rin;
1553 bc->idata = 0;
1554 bc->iempty = 0;
1555 bc->ilow = 0;
1556 bc->mint = 0;
1557 continue;
1558 }
1559 if (event.event & ~ALL_IND)
1560 log(LOG_ERR, "digi%d: port%d: ? event 0x%x mstat 0x%x"
1561 " lstat 0x%x\n", sc->res.unit, event.pnum,
1562 event.event, event.mstat, event.lstat);
1563
1564 if (event.event & DATA_IND) {
1565 DLOG(DIGIDB_IRQ, (sc->dev, "port %d: DATA_IND\n",
1566 event.pnum));
1567 wrapmask = port->rxbufsize - 1;
1568 head = bc->rin;
1569 tail = bc->rout;
1570
1571 size = 0;
1572 if (!(tp->t_state & TS_ISOPEN)) {
1573 bc->rout = head;
1574 goto end_of_data;
1575 }
1576 while (head != tail) {
1577 int top;
1578
1579 DLOG(DIGIDB_INT, (sc->dev,
1580 "port %d: p rx head = %d tail = %d\n",
1581 event.pnum, head, tail));
1582 top = (head > tail) ? head : wrapmask + 1;
1583 sc->towin(sc, port->rxwin);
1584 size = top - tail;
1585 if (tp->t_state & TS_CAN_BYPASS_L_RINT) {
1586 size = b_to_q((char *)port->rxbuf +
1587 tail, size, &tp->t_rawq);
1588 tail = top - size;
1589 ttwakeup(tp);
1590 } else for (; tail < top;) {
1591 linesw[tp->t_line].
1592 l_rint(port->rxbuf[tail], tp);
1593 sc->towin(sc, port->rxwin);
1594 size--;
1595 tail++;
1596 if (tp->t_state & TS_TBLOCK)
1597 break;
1598 }
1599 tail &= wrapmask;
1600 sc->setwin(sc, 0);
1601 bc->rout = tail;
1602 head = bc->rin;
1603 if (size)
1604 break;
1605 }
1606
1607 if (bc->orun) {
1608 CE_RECORD(port, CE_OVERRUN);
1609 log(LOG_ERR, "digi%d: port%d: %s\n",
1610 sc->res.unit, event.pnum,
1611 digi_errortxt(CE_OVERRUN));
1612 bc->orun = 0;
1613 }
1614 end_of_data:
1615 if (size) {
1616 tp->t_state |= TS_TBLOCK;
1617 port->status |= PAUSE_RX;
1618 DLOG(DIGIDB_RX, (sc->dev, "port %d: pause RX\n",
1619 event.pnum));
1620 } else {
1621 bc->idata = 1;
1622 }
1623 }
1624
1625 if (event.event & MODEMCHG_IND) {
1626 DLOG(DIGIDB_MODEM, (sc->dev, "port %d: MODEMCHG_IND\n",
1627 event.pnum));
1628
1629 if ((event.mstat ^ event.lstat) & port->cd) {
1630 sc->hidewin(sc);
1631 linesw[tp->t_line].l_modem
1632 (tp, event.mstat & port->cd);
1633 sc->setwin(sc, 0);
1634 wakeup(TSA_CARR_ON(tp));
1635 }
1636
1637 if (event.mstat & sc->csigs->ri) {
1638 DLOG(DIGIDB_RI, (sc->dev, "port %d: RING\n",
1639 event.pnum));
1640 if (port->send_ring) {
1641 linesw[tp->t_line].l_rint('R', tp);
1642 linesw[tp->t_line].l_rint('I', tp);
1643 linesw[tp->t_line].l_rint('N', tp);
1644 linesw[tp->t_line].l_rint('G', tp);
1645 linesw[tp->t_line].l_rint('\r', tp);
1646 linesw[tp->t_line].l_rint('\n', tp);
1647 }
1648 }
1649 }
1650 if (event.event & BREAK_IND) {
1651 DLOG(DIGIDB_MODEM, (sc->dev, "port %d: BREAK_IND\n",
1652 event.pnum));
1653 linesw[tp->t_line].l_rint(TTY_BI, tp);
1654 }
1655 if (event.event & (LOWTX_IND | EMPTYTX_IND)) {
1656 DLOG(DIGIDB_IRQ, (sc->dev, "port %d:%s%s\n",
1657 event.pnum,
1658 event.event & LOWTX_IND ? " LOWTX" : "",
1659 event.event & EMPTYTX_IND ? " EMPTYTX" : ""));
1660 (*linesw[tp->t_line].l_start)(tp);
1661 }
1662 }
1663 sc->gdata->eout = etail;
1664 eoi:
1665 if (sc->window != 0)
1666 sc->towin(sc, 0);
1667 if (window != 0)
1668 sc->towin(sc, window);
1669 }
1670
1671 static void
1672 digistart(struct tty *tp)
1673 {
1674 int unit;
1675 int pnum;
1676 struct digi_p *port;
1677 struct digi_softc *sc;
1678 volatile struct board_chan *bc;
1679 int head, tail;
1680 int size, ocount, totcnt = 0;
1681 int wmask;
1682
1683 unit = MINOR_TO_UNIT(minor(tp->t_dev));
1684 pnum = MINOR_TO_PORT(minor(tp->t_dev));
1685
1686 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit);
1687 KASSERT(sc, ("digi%d: softc not allocated in digistart\n", unit));
1688
1689 port = &sc->ports[pnum];
1690 bc = port->bc;
1691
1692 wmask = port->txbufsize - 1;
1693
1694 crit_enter();
1695 port->lcc = tp->t_outq.c_cc;
1696 sc->setwin(sc, 0);
1697 if (!(tp->t_state & TS_TBLOCK)) {
1698 if (port->status & PAUSE_RX) {
1699 DLOG(DIGIDB_RX, (sc->dev, "port %d: resume RX\n",
1700 pnum));
1701 /*
1702 * CAREFUL - braces are needed here if the DLOG is
1703 * optimised out!
1704 */
1705 }
1706 port->status &= ~PAUSE_RX;
1707 bc->idata = 1;
1708 }
1709 if (!(tp->t_state & TS_TTSTOP) && port->status & PAUSE_TX) {
1710 DLOG(DIGIDB_TX, (sc->dev, "port %d: resume TX\n", pnum));
1711 port->status &= ~PAUSE_TX;
1712 fepcmd_w(port, RESUMETX, 0, 10);
1713 }
1714 if (tp->t_outq.c_cc == 0)
1715 tp->t_state &= ~TS_BUSY;
1716 else
1717 tp->t_state |= TS_BUSY;
1718
1719 head = bc->tin;
1720 while (tp->t_outq.c_cc != 0) {
1721 tail = bc->tout;
1722 DLOG(DIGIDB_INT, (sc->dev, "port%d: s tx head = %d tail = %d\n",
1723 pnum, head, tail));
1724
1725 if (head < tail)
1726 size = tail - head - 1;
1727 else {
1728 size = port->txbufsize - head;
1729 if (tail == 0)
1730 size--;
1731 }
1732
1733 if (size == 0)
1734 break;
1735 sc->towin(sc, port->txwin);
1736 ocount = q_to_b(&tp->t_outq, port->txbuf + head, size);
1737 totcnt += ocount;
1738 head += ocount;
1739 head &= wmask;
1740 sc->setwin(sc, 0);
1741 bc->tin = head;
1742 bc->iempty = 1;
1743 bc->ilow = 1;
1744 }
1745 port->lostcc = tp->t_outq.c_cc;
1746 tail = bc->tout;
1747 if (head < tail)
1748 size = port->txbufsize - tail + head;
1749 else
1750 size = head - tail;
1751
1752 port->lbuf = size;
1753 DLOG(DIGIDB_INT, (sc->dev, "port%d: s total cnt = %d\n", pnum, totcnt));
1754 ttwwakeup(tp);
1755 crit_exit();
1756 }
1757
1758 static void
1759 digistop(struct tty *tp, int rw)
1760 {
1761 struct digi_softc *sc;
1762 int unit;
1763 int pnum;
1764 struct digi_p *port;
1765
1766 unit = MINOR_TO_UNIT(minor(tp->t_dev));
1767 pnum = MINOR_TO_PORT(minor(tp->t_dev));
1768
1769 sc = (struct digi_softc *)devclass_get_softc(digi_devclass, unit);
1770 KASSERT(sc, ("digi%d: softc not allocated in digistop\n", unit));
1771 port = sc->ports + pnum;
1772
1773 DLOG(DIGIDB_TX, (sc->dev, "port %d: pause TX\n", pnum));
1774 port->status |= PAUSE_TX;
1775 fepcmd_w(port, PAUSETX, 0, 10);
1776 }
1777
1778 static void
1779 fepcmd(struct digi_p *port, int cmd, int op1, int ncmds)
1780 {
1781 u_char *mem;
1782 unsigned tail, head;
1783 int count, n;
1784
1785 mem = port->sc->memcmd;
1786
1787 port->sc->setwin(port->sc, 0);
1788
1789 head = port->sc->gdata->cin;
1790 mem[head + 0] = cmd;
1791 mem[head + 1] = port->pnum;
1792 *(u_short *)(mem + head + 2) = op1;
1793
1794 head = (head + 4) & port->sc->gdata->cmax;
1795 port->sc->gdata->cin = head;
1796
1797 for (count = FEPTIMEOUT; count > 0; count--) {
1798 head = port->sc->gdata->cin;
1799 tail = port->sc->gdata->cout;
1800 n = (head - tail) & port->sc->gdata->cmax;
1801
1802 if (n <= ncmds * sizeof(short) * 4)
1803 break;
1804 }
1805 if (count == 0)
1806 log(LOG_ERR, "digi%d: port%d: timeout on FEP command\n",
1807 port->sc->res.unit, port->pnum);
1808 }
1809
1810 const char *
1811 digi_errortxt(int id)
1812 {
1813 static const char *error_desc[] = {
1814 "silo overflow",
1815 "interrupt-level buffer overflow",
1816 "tty-level buffer overflow",
1817 };
1818
1819 KASSERT(id >= 0 && id < sizeof(error_desc) / sizeof(error_desc[0]),
1820 ("Unexpected digi error id %d\n", id));
1821
1822 return (error_desc[id]);
1823 }
1824
1825 int
1826 digi_attach(struct digi_softc *sc)
1827 {
1828 sc->res.ctldev = make_dev(&digi_ops,
1829 (sc->res.unit << 16) | CTRL_DEV, UID_ROOT, GID_WHEEL,
1830 0600, "digi%r.ctl", sc->res.unit);
1831
1832 digi_loaddata(sc);
1833 digi_init(sc);
1834 digi_freedata(sc);
1835
1836 return (0);
1837 }
1838
1839 static int
1840 digi_inuse(struct digi_softc *sc)
1841 {
1842 int i;
1843
1844 for (i = 0; i < sc->numports; i++)
1845 if (sc->ttys[i].t_state & TS_ISOPEN) {
1846 DLOG(DIGIDB_INIT, (sc->dev, "port%d: busy\n", i));
1847 return (1);
1848 } else if (sc->ports[i].wopeners || sc->ports[i].opencnt) {
1849 DLOG(DIGIDB_INIT, (sc->dev, "port%d: blocked in open\n",
1850 i));
1851 return (1);
1852 }
1853 return (0);
1854 }
1855
1856 static void
1857 digi_free_state(struct digi_softc *sc)
1858 {
1859 int d, i;
1860
1861 /* Blow it all away */
1862
1863 for (i = 0; i < sc->numports; i++)
1864 for (d = 0; d < 6; d++)
1865 destroy_dev(sc->ports[i].dev[d]);
1866
1867 callout_stop(&sc->callout);
1868 callout_stop(&sc->inttest);
1869
1870 bus_teardown_intr(sc->dev, sc->res.irq, sc->res.irqHandler);
1871 #ifdef DIGI_INTERRUPT
1872 if (sc->res.irq != NULL) {
1873 bus_release_resource(dev, SYS_RES_IRQ, sc->res.irqrid,
1874 sc->res.irq);
1875 sc->res.irq = NULL;
1876 }
1877 #endif
1878 if (sc->numports) {
1879 KASSERT(sc->ports, ("digi%d: Lost my ports ?", sc->res.unit));
1880 KASSERT(sc->ttys, ("digi%d: Lost my ttys ?", sc->res.unit));
1881 kfree(sc->ports, M_TTYS);
1882 sc->ports = NULL;
1883 kfree(sc->ttys, M_TTYS);
1884 sc->ttys = NULL;
1885 sc->numports = 0;
1886 }
1887
1888 sc->status = DIGI_STATUS_NOTINIT;
1889 }
1890
1891 int
1892 digi_detach(device_t dev)
1893 {
1894 struct digi_softc *sc = device_get_softc(dev);
1895
1896 DLOG(DIGIDB_INIT, (sc->dev, "detaching\n"));
1897
1898 /* If we're INIT'd, numports must be 0 */
1899 KASSERT(sc->numports == 0 || sc->status != DIGI_STATUS_NOTINIT,
1900 ("digi%d: numports(%d) & status(%d) are out of sync",
1901 sc->res.unit, sc->numports, (int)sc->status));
1902
1903 if (digi_inuse(sc))
1904 return (EBUSY);
1905
1906 digi_free_state(sc);
1907
1908 destroy_dev(sc->res.ctldev);
1909
1910 if (sc->res.mem != NULL) {
1911 bus_release_resource(dev, SYS_RES_MEMORY, sc->res.mrid,
1912 sc->res.mem);
1913 sc->res.mem = NULL;
1914 }
1915 if (sc->res.io != NULL) {
1916 bus_release_resource(dev, SYS_RES_IOPORT, sc->res.iorid,
1917 sc->res.io);
1918 sc->res.io = NULL;
1919 }
1920 if (sc->msize) {
1921 pmap_unmapdev((vm_offset_t)sc->vmem, sc->msize);
1922 sc->msize = 0;
1923 }
1924
1925 return (0);
1926 }
1927
1928 int
1929 digi_shutdown(device_t dev)
1930 {
1931 return (0);
1932 }
1933
1934 MODULE_VERSION(digi, 1);
DragonFly BSD