- convert to critical sections
[dragonfly.git] / sys / dev / netif / sbsh / if_sbsh.c
1 /**
2  * Granch SBNI16 G.SHDSL Modem driver
3  * Written by Denis I. Timofeev, 2002-2003.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  *
14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24  * SUCH DAMAGE.
25  *
26  * $FreeBSD: src/sys/dev/sbsh/if_sbsh.c,v 1.3.2.1 2003/04/15 18:15:07 fjoe Exp $
27  * $DragonFly: src/sys/dev/netif/sbsh/if_sbsh.c,v 1.18 2005/05/27 15:36:10 joerg Exp $
28  */
29
30 #include <sys/param.h>
31 #include <sys/systm.h>
32 #include <sys/sockio.h>
33 #include <sys/mbuf.h>
34 #include <sys/malloc.h>
35 #include <sys/kernel.h>
36 #include <sys/proc.h>
37 #include <sys/socket.h>
38 #include <sys/random.h>
39 #include <machine/clock.h>
40 #include <machine/stdarg.h>
41
42 #include <net/if.h>
43 #include <net/ifq_var.h>
44 #include <net/if_arp.h>
45 #include <net/ethernet.h>
46 #include <net/if_media.h>
47
48 #include <net/bpf.h>
49
50 #include <vm/vm.h>
51 #include <vm/pmap.h>
52 #include <machine/bus.h>
53 #include <machine/resource.h>
54 #include <sys/bus.h>
55 #include <sys/rman.h>
56
57 #include <bus/pci/pcireg.h>
58 #include <bus/pci/pcivar.h>
59
60 #include "if_sbshreg.h"
61
62 /* -------------------------------------------------------------------------- */
63
64 struct sbni16_hw_regs {
65         u_int8_t  CR, CRB, SR, IMR, CTDR, LTDR, CRDR, LRDR;
66 };
67
68 struct hw_descr {
69         u_int32_t  address;
70         u_int32_t  length;
71 };
72
73 struct cx28975_cmdarea {
74         u_int8_t  intr_host;
75         u_int8_t  intr_8051;
76         u_int8_t  map_version;
77
78         u_int8_t  in_dest;
79         u_int8_t  in_opcode;
80         u_int8_t  in_zero;
81         u_int8_t  in_length;
82         u_int8_t  in_csum;
83         u_int8_t  in_data[75];
84         u_int8_t  in_datasum;
85
86         u_int8_t  out_dest;
87         u_int8_t  out_opcode;
88         u_int8_t  out_ack;
89         u_int8_t  out_length;
90         u_int8_t  out_csum;
91         u_int8_t  out_data[75];
92         u_int8_t  out_datasum;
93 };
94
95 #define XQLEN   8
96 #define RQLEN   8
97
98 struct sbsh_softc {
99         struct arpcom   arpcom;         /* ethernet common */
100
101         struct resource *mem_res;
102         struct resource *irq_res;
103         void            *intr_hand;
104
105         void            *mem_base;              /* mapped memory address */
106
107         volatile struct sbni16_hw_regs  *regs;
108         volatile struct hw_descr        *tbd;
109         volatile struct hw_descr        *rbd;
110         volatile struct cx28975_cmdarea *cmdp;
111
112         /* SBNI16 controller statistics */
113         struct sbni16_stats {
114                 u_int32_t  sent_pkts, rcvd_pkts;
115                 u_int32_t  crc_errs, ufl_errs, ofl_errs, attempts, last_time;
116         } in_stats;
117
118         /* transmit and reception queues */
119         struct mbuf     *xq[XQLEN], *rq[RQLEN];
120         unsigned        head_xq, tail_xq, head_rq, tail_rq;
121
122         /* the descriptors mapped onto the first buffers in xq and rq */
123         unsigned        head_tdesc, head_rdesc;
124         u_int8_t        state;
125 };
126
127 struct cx28975_cfg {
128         u_int8_t   *firmw_image;
129         u_int32_t  firmw_len;
130         u_int32_t  lrate: 10;
131         u_int32_t  master: 1;
132         u_int32_t  mod: 2;
133         u_int32_t  crc16: 1;
134         u_int32_t  fill_7e: 1;
135         u_int32_t  inv: 1;
136         u_int32_t  rburst: 1;
137         u_int32_t  wburst: 1;
138         u_int32_t  : 14;
139 };
140
141 /* SHDSL transceiver statistics */
142 struct dsl_stats {
143         u_int8_t        status_1, status_3;
144         u_int8_t        attenuat, nmr, tpbo, rpbo;
145         u_int16_t       losw, segd, crc, sega, losd;
146 };
147
148 enum State { NOT_LOADED, DOWN, ACTIVATION, ACTIVE };
149
150 #define SIOCLOADFIRMW   _IOWR('i', 67, struct ifreq)
151 #define SIOCGETSTATS    _IOWR('i', 68, struct ifreq)
152 #define SIOCCLRSTATS    _IOWR('i', 69, struct ifreq)
153
154 static int      sbsh_probe(device_t);
155 static int      sbsh_attach(device_t);
156 static int      sbsh_detach(device_t);
157 static int      sbsh_ioctl(struct ifnet *, u_long, caddr_t, struct ucred *);
158 static void     sbsh_shutdown(device_t);
159 static int      sbsh_suspend(device_t);
160 static int      sbsh_resume(device_t);
161 static void     sbsh_watchdog(struct ifnet *);
162
163 static void     sbsh_start(struct ifnet *);
164 static void     sbsh_init(void *);
165 static void     sbsh_stop(struct sbsh_softc *);
166 static void     init_card(struct sbsh_softc *);
167 static void     sbsh_intr(void *);
168 static void     resume_tx(struct sbsh_softc *);
169 static void     start_xmit_frames(struct sbsh_softc *);
170 static void     encap_frame(struct sbsh_softc *, struct mbuf *);
171 static struct mbuf *    repack(struct sbsh_softc *, struct mbuf *);
172 static void     free_sent_buffers(struct sbsh_softc *);
173 static void     alloc_rx_buffers(struct sbsh_softc *);
174 static void     indicate_frames(struct sbsh_softc *);
175 static void     drop_queues(struct sbsh_softc *);
176 static void     activate(struct sbsh_softc *);
177 static void     deactivate(struct sbsh_softc *);
178 static void     cx28975_interrupt(struct sbsh_softc *);
179 static int      start_cx28975(struct sbsh_softc *, struct cx28975_cfg);
180 static int      download_firmware(struct sbsh_softc *, u_int8_t *, u_int32_t);
181 static int      issue_cx28975_cmd(struct sbsh_softc *, u_int8_t,
182                                         u_int8_t *, u_int8_t);
183
184 static device_method_t sbsh_methods[] = {
185         /* Device interface */
186         DEVMETHOD(device_probe,         sbsh_probe),
187         DEVMETHOD(device_attach,        sbsh_attach),
188         DEVMETHOD(device_detach,        sbsh_detach),
189         DEVMETHOD(device_shutdown,      sbsh_shutdown),
190         DEVMETHOD(device_suspend,       sbsh_suspend),
191         DEVMETHOD(device_resume,        sbsh_resume),
192
193         { 0, 0 }
194 };
195
196 static driver_t sbsh_driver = {
197         "sbsh",
198         sbsh_methods,
199         sizeof(struct sbsh_softc)
200 };
201
202 static devclass_t sbsh_devclass;
203
204 DECLARE_DUMMY_MODULE(if_sbsh);
205 DRIVER_MODULE(if_sbsh, pci, sbsh_driver, sbsh_devclass, 0, 0);
206
207 static int
208 sbsh_probe(device_t dev)
209 {
210         if (pci_get_vendor(dev) != SBNI16_VENDOR
211             || pci_get_device(dev) != SBNI16_DEVICE
212             || pci_get_subdevice(dev) != SBNI16_SUBDEV)
213                 return (ENXIO);
214
215         device_set_desc(dev, "Granch SBNI16 G.SHDSL Modem");
216         return (0);
217 }
218
219 static int
220 sbsh_attach(device_t dev)
221 {
222         struct sbsh_softc       *sc;
223         struct ifnet            *ifp;
224         int                     unit, error = 0, rid, s;
225
226         s = splimp();
227
228         sc = device_get_softc(dev);
229         unit = device_get_unit(dev);
230
231         rid = PCIR_MAPS + 4;
232         sc->mem_res = bus_alloc_resource(dev, SYS_RES_MEMORY, &rid,
233                                         0, ~0, 4096, RF_ACTIVE);
234
235         if (sc->mem_res == NULL) {
236                 printf ("sbsh%d: couldn't map memory\n", unit);
237                 error = ENXIO;
238                 goto fail;
239         }
240
241         rid = 0;
242         sc->irq_res = bus_alloc_resource_any(dev, SYS_RES_IRQ, &rid,
243             RF_SHAREABLE | RF_ACTIVE);
244
245         if (sc->irq_res == NULL) {
246                 printf("sbsh%d: couldn't map interrupt\n", unit);
247                 bus_release_resource(dev, SYS_RES_MEMORY,
248                                         PCIR_MAPS + 4, sc->mem_res);
249                 error = ENXIO;
250                 goto fail;
251         }
252
253         sc->mem_base = rman_get_virtual(sc->mem_res);
254         init_card(sc);
255
256         error = bus_setup_intr(dev, sc->irq_res, INTR_TYPE_NET,
257                                 sbsh_intr, sc, &sc->intr_hand, NULL);
258         if (error) {
259                 bus_release_resource(dev, SYS_RES_IRQ, 0, sc->irq_res);
260                 bus_release_resource(dev, SYS_RES_MEMORY,
261                                         PCIR_MAPS + 4, sc->mem_res);
262                 printf("sbsh%d: couldn't set up irq\n", unit);
263                 goto fail;
264         }
265
266         /* generate ethernet MAC address */
267         *(u_int32_t *)sc->arpcom.ac_enaddr = htonl(0x00ff0192);
268         read_random_unlimited(sc->arpcom.ac_enaddr + 4, 2);
269
270         ifp = &sc->arpcom.ac_if;
271         ifp->if_softc = sc;
272         if_initname(ifp, "sbsh", unit);
273         ifp->if_mtu = ETHERMTU;
274         ifp->if_flags = IFF_BROADCAST | IFF_SIMPLEX | IFF_MULTICAST;
275         ifp->if_ioctl = sbsh_ioctl;
276         ifp->if_start = sbsh_start;
277         ifp->if_watchdog = sbsh_watchdog;
278         ifp->if_init = sbsh_init;
279         ifp->if_baudrate = 4600000;
280         ifq_set_maxlen(&ifp->if_snd, IFQ_MAXLEN);
281         ifq_set_ready(&ifp->if_snd);
282
283         ether_ifattach(ifp, sc->arpcom.ac_enaddr);
284
285 fail:
286         splx(s);
287         return (error);
288 }
289
290 static int
291 sbsh_detach(device_t dev)
292 {
293         struct sbsh_softc       *sc;
294         struct ifnet            *ifp;
295         int                     s;
296
297         s = splimp();
298
299         sc = device_get_softc(dev);
300         ifp = &sc->arpcom.ac_if;
301
302         sbsh_stop(sc);
303         ether_ifdetach(ifp);
304
305         bus_teardown_intr(dev, sc->irq_res, sc->intr_hand);
306         bus_release_resource(dev, SYS_RES_IRQ, 0, sc->irq_res);
307         bus_release_resource(dev, SYS_RES_MEMORY, PCIR_MAPS + 4, sc->mem_res);
308
309         splx(s);
310         return (0);
311 }
312
313
314 static void
315 sbsh_start(struct ifnet *ifp)
316 {
317         struct sbsh_softc  *sc = ifp->if_softc;
318         int  s;
319
320         if (sc->state != ACTIVE)
321                 return;
322
323         s = splimp();
324         start_xmit_frames(ifp->if_softc);
325         splx(s);
326 }
327
328
329 static void
330 sbsh_init(void *xsc)
331 {
332         struct sbsh_softc       *sc = xsc;
333         struct ifnet            *ifp = &sc->arpcom.ac_if;
334         int                     s;
335         u_int8_t                t;
336
337         if ((ifp->if_flags & IFF_RUNNING) || sc->state == NOT_LOADED)
338                 return;
339
340         s = splimp();
341
342         bzero(&sc->in_stats, sizeof(struct sbni16_stats));
343         sc->head_xq = sc->tail_xq = sc->head_rq = sc->tail_rq = 0;
344         sc->head_tdesc = sc->head_rdesc = 0;
345
346         sc->regs->IMR = EXT;
347         t = 2;
348         issue_cx28975_cmd(sc, _DSL_CLEAR_ERROR_CTRS, &t, 1);
349         if (issue_cx28975_cmd(sc, _DSL_ACTIVATION, &t, 1) == 0) {
350                 sc->state = ACTIVATION;
351
352                 ifp->if_flags |= IFF_RUNNING;
353                 ifp->if_flags &= ~IFF_OACTIVE;
354         }
355
356         splx(s);
357 }
358
359
360 static void
361 sbsh_stop(struct sbsh_softc *sc)
362 {
363         int  s;
364         u_int8_t  t;
365
366         s = splimp();
367         sc->regs->IMR = EXT;
368
369         t = 0;
370         issue_cx28975_cmd(sc, _DSL_ACTIVATION, &t, 1);
371         if (sc->state == ACTIVE) {
372                 t = 1;
373                 issue_cx28975_cmd(sc, _DSL_FORCE_DEACTIVATE, &t, 1);
374                 /* FIX! activation manager state */
375
376                 /* Is it really must be done here? It calls from intr handler */
377                 deactivate(sc);
378         }
379
380         sc->regs->IMR = 0;
381         sc->state = DOWN;
382         splx(s);
383 }
384
385
386 static void
387 init_card(struct sbsh_softc *sc)
388 {
389         sc->state = NOT_LOADED;
390         sc->tbd  = (struct hw_descr *) sc->mem_base;
391         sc->rbd  = (struct hw_descr *) ((u_int8_t *)sc->mem_base + 0x400);
392         sc->regs = (struct sbni16_hw_regs *) ((u_int8_t *)sc->mem_base + 0x800);
393         sc->cmdp = (struct cx28975_cmdarea *) ((u_int8_t *)sc->mem_base + 0xc00);
394
395         sc->regs->CR = 0;
396         sc->regs->SR = 0xff;
397         sc->regs->IMR = 0;
398 }
399
400
401 static int
402 sbsh_ioctl(struct ifnet *ifp, u_long cmd, caddr_t data, struct ucred *cr)
403 {
404         struct sbsh_softc       *sc = ifp->if_softc;
405         struct ifreq            *ifr = (struct ifreq *) data;
406         struct cx28975_cfg      cfg;
407         struct dsl_stats        ds;
408         int                     s, error = 0;
409         u_int8_t                t;
410
411         s = splimp();
412
413         switch(cmd) {
414         case SIOCLOADFIRMW:
415                 if ((error = suser_cred(cr, NULL_CRED_OKAY)) != 0)
416                         break;
417                 if (ifp->if_flags & IFF_UP)
418                         error = EBUSY;
419
420                 bcopy((caddr_t)ifr->ifr_data, (caddr_t)&cfg, sizeof cfg);
421                 if (start_cx28975(sc, cfg) == 0) {
422                         static char  *modstr[] = {
423                                 "TCPAM32", "TCPAM16", "TCPAM8", "TCPAM4" };
424                         if_printf(&sc->arpcom.ac_if, "%s, rate %d, %s\n",
425                                 cfg.master ? "master" : "slave",
426                                 cfg.lrate << 3, modstr[cfg.mod]);
427                 } else {
428                         if_printf(&sc->arpcom.ac_if,
429                                 "unable to load firmware\n");
430                         error = EIO;
431                 }
432                 break;
433
434         case  SIOCGETSTATS :
435                 if ((error = suser_cred(cr, NULL_CRED_OKAY)) != 0)
436                         break;
437
438                 t = 0;
439                 if (issue_cx28975_cmd(sc, _DSL_FAR_END_ATTEN, &t, 1))
440                         error = EIO;
441                 ds.attenuat = sc->cmdp->out_data[0];
442
443                 if (issue_cx28975_cmd(sc, _DSL_NOISE_MARGIN, &t, 1))
444                         error = EIO;
445                 ds.nmr = sc->cmdp->out_data[0];
446
447                 if (issue_cx28975_cmd(sc, _DSL_POWER_BACK_OFF_RESULT, &t, 1))
448                         error = EIO;
449                 ds.tpbo = sc->cmdp->out_data[0];
450                 ds.rpbo = sc->cmdp->out_data[1];
451
452                 if (!issue_cx28975_cmd(sc, _DSL_HDSL_PERF_ERR_CTRS, &t, 1)) {
453                         int i;
454                         for (i = 0; i < 10; ++i)
455                                 ((u_int8_t *) &ds.losw)[i] =
456                                         sc->cmdp->out_data[i];
457                 } else
458                         error = EIO;
459
460                 ds.status_1 = ((volatile u_int8_t *)sc->cmdp)[0x3c0];
461                 ds.status_3 = ((volatile u_int8_t *)sc->cmdp)[0x3c2];
462
463                 bcopy(&sc->in_stats, ifr->ifr_data, sizeof(struct sbni16_stats));
464                 bcopy(&ds, (char *)ifr->ifr_data + sizeof(struct sbni16_stats),
465                     sizeof(struct dsl_stats));
466                 break;
467
468         case  SIOCCLRSTATS :
469                 if (!(error = suser_cred(cr, NULL_CRED_OKAY))) {
470                         bzero(&sc->in_stats, sizeof(struct sbni16_stats));
471                         t = 2;
472                         if (issue_cx28975_cmd(sc, _DSL_CLEAR_ERROR_CTRS, &t, 1))
473                                 error = EIO;
474                 }
475                 break;
476         case SIOCSIFFLAGS:
477                 if (ifp->if_flags & IFF_UP) {
478                         if (!(ifp->if_flags & IFF_RUNNING)) {
479                                 if (sc->state == NOT_LOADED) {
480                                         if_printf(ifp, "firmware wasn't loaded\n");
481                                         error = EBUSY;
482                                 } else
483                                         sbsh_init(sc);
484                         }
485                 } else {
486                         if (ifp->if_flags & IFF_RUNNING) {
487                                 sbsh_stop(sc);
488                                 ifp->if_flags &= ~IFF_RUNNING;
489                         }
490                 }
491                 break;
492
493         case SIOCADDMULTI:
494         case SIOCDELMULTI:
495                 error = 0;
496                 break;
497         default:
498                 error = ether_ioctl(ifp, cmd, data);
499                 break;
500         }
501
502         splx(s);
503         return (error);
504 }
505
506
507 static void
508 sbsh_shutdown(device_t dev)
509 {
510         struct sbsh_softc       *sc = device_get_softc(dev);
511
512         sbsh_stop(sc);
513 }
514
515 static int
516 sbsh_suspend(device_t dev)
517 {
518         struct sbsh_softc       *sc = device_get_softc(dev);
519         int                     s;
520
521         s = splimp();
522         sbsh_stop(sc);
523         splx(s);
524
525         return (0);
526 }
527
528 static int
529 sbsh_resume(device_t dev)
530 {
531         struct sbsh_softc       *sc = device_get_softc(dev);
532         struct ifnet            *ifp;
533         int                     s;
534
535         s = splimp();
536         ifp = &sc->arpcom.ac_if;
537
538         if (ifp->if_flags & IFF_UP)
539                 sbsh_init(sc);
540
541         splx(s);
542         return (0);
543 }
544
545
546 static void
547 sbsh_watchdog(struct ifnet *ifp)
548 {
549         struct sbsh_softc       *sc = ifp->if_softc;
550
551         if_printf(ifp, "transmit timeout\n");
552
553         if (sc->regs->SR & TXS) {
554                 sc->regs->SR = TXS;
555                 if_printf(ifp, "interrupt posted but not delivered\n");
556         }
557         free_sent_buffers(sc);
558 }
559
560 /* -------------------------------------------------------------------------- */
561
562 static void
563 sbsh_intr(void *arg)
564 {
565         struct sbsh_softc  *sc = (struct sbsh_softc *)arg;
566         u_int8_t  status = sc->regs->SR;
567
568         if (status == 0)
569                 return;
570
571         if (status & EXT) {
572                 cx28975_interrupt(sc);
573                 sc->regs->SR = EXT;
574         }
575
576         if (status & UFL) {
577                 resume_tx(sc);
578                 sc->regs->SR = UFL;
579                 ++sc->in_stats.ufl_errs;
580                 ++sc->arpcom.ac_if.if_oerrors;
581         }
582
583         if (status & RXS) {
584                 sc->regs->SR = RXS;
585                 indicate_frames(sc);
586                 alloc_rx_buffers(sc);
587         }
588
589         if (status & TXS) {
590                 sc->regs->SR = TXS;
591                 free_sent_buffers(sc);
592         }
593
594         if (status & CRC) {
595                 ++sc->in_stats.crc_errs;
596                 ++sc->arpcom.ac_if.if_ierrors;
597                 sc->regs->SR = CRC;
598         }
599
600         if (status & OFL) {
601                 ++sc->in_stats.ofl_errs;
602                 ++sc->arpcom.ac_if.if_ierrors;
603                 sc->regs->SR = OFL;
604         }
605 }
606
607 /*
608  * Look for a first descriptor of a next packet, and write it's number
609  * into CTDR. Then enable the transmitter.
610  */
611 static void
612 resume_tx(struct sbsh_softc *sc)
613 {
614         u_int32_t       cur_tbd = sc->regs->CTDR;
615
616         while (cur_tbd != sc->regs->LTDR
617                 && (sc->tbd[cur_tbd++].length & LAST_FRAG) == 0)
618                 ;
619         sc->regs->CTDR = cur_tbd;
620         sc->regs->CR |= TXEN;
621 }
622
623 static void
624 start_xmit_frames(struct sbsh_softc *sc)
625 {
626         struct ifnet    *ifp = &sc->arpcom.ac_if;
627         struct mbuf     *m;
628
629         /*
630          * Check if we have any free descriptor(s) and free space in
631          * our transmit queue.
632          */
633         while (sc->tail_xq != ((sc->head_xq - 1) & (XQLEN - 1))
634             && sc->regs->LTDR != ((sc->head_tdesc - 1) & 0x7f)) {
635
636                 m = ifq_dequeue(&ifp->if_snd);
637                 if (m == NULL)
638                         break;
639                 if (m->m_pkthdr.len) {
640                         BPF_MTAP(ifp, m);
641                         encap_frame(sc, m);
642                 } else
643                         m_freem(m);
644         }
645
646         if (sc->regs->CTDR != sc->regs->LTDR)
647                 ifp->if_flags |= IFF_OACTIVE;
648         else
649                 ifp->if_flags &= ~IFF_OACTIVE;
650 }
651
652
653 /*
654  * MUST be called at splimp
655  */
656 static void
657 encap_frame(struct sbsh_softc *sc, struct mbuf *m_head)
658 {
659         struct mbuf     *m;
660         u_int32_t       cur_tbd;
661         int  done;
662
663 look_for_nonzero:
664         for (m = m_head; !m->m_len; m = m->m_next)
665                 ;
666
667         cur_tbd = sc->regs->LTDR & 0x7f;
668         done = 0;
669         do {
670                 if (m->m_len < 5 || cur_tbd == ((sc->head_tdesc - 1) & 0x7f)) {
671                         if ((m_head = repack(sc, m_head)) != NULL)
672                                 goto look_for_nonzero;
673                         else
674                                 return;
675                 }
676
677                 sc->tbd[cur_tbd].address = vtophys(mtod(m, vm_offset_t));
678                 sc->tbd[cur_tbd].length  = m->m_len;
679
680                 do {
681                         m = m->m_next;
682                 } while (m && !m->m_len);
683
684                 if (!m) {       /* last fragment has been reached */
685                         sc->tbd[cur_tbd].length |= LAST_FRAG;
686                         done = 1;
687                 }
688
689                 ++cur_tbd;
690                 cur_tbd &= 0x7f;
691         } while (!done);
692
693         sc->xq[sc->tail_xq++] = m_head;
694         sc->tail_xq &= (XQLEN - 1);
695
696         sc->regs->LTDR = cur_tbd;
697         ++sc->in_stats.sent_pkts;
698         ++sc->arpcom.ac_if.if_opackets;
699 }
700
701 static struct mbuf *
702 repack(struct sbsh_softc *sc, struct mbuf *m)
703 {
704         struct mbuf  *m_new;
705
706         MGETHDR(m_new, MB_DONTWAIT, MT_DATA);
707         if (!m_new) {
708                 if_printf (&sc->arpcom.ac_if,
709                            "unable to get mbuf.\n");
710                 return (NULL);
711         }
712
713         if (m->m_pkthdr.len > MHLEN) {
714                 MCLGET(m_new, MB_DONTWAIT);
715                 if (!(m_new->m_flags & M_EXT)) {
716                         m_freem(m_new);
717                         if_printf (&sc->arpcom.ac_if,
718                                    "unable to get mbuf cluster.\n");
719                         return (NULL);
720                 }
721         }
722
723         m_copydata(m, 0, m->m_pkthdr.len, mtod(m_new, caddr_t));
724         m_new->m_pkthdr.len = m_new->m_len = m->m_pkthdr.len;
725         m_freem(m);
726         return (m_new);
727 }
728
729 static void
730 free_sent_buffers(struct sbsh_softc *sc)
731 {
732         u_int32_t  cur_tbd;
733
734         cur_tbd = sc->regs->CTDR;
735
736         while (sc->head_tdesc != cur_tbd) {
737                 /*
738                  * Be careful! one element in xq may correspond to
739                  * multiple descriptors.
740                  */
741                 if (sc->tbd[sc->head_tdesc].length & LAST_FRAG) {
742                         m_freem(sc->xq[sc->head_xq++]);
743                         sc->head_xq &= (XQLEN - 1);
744                 }
745
746                 sc->tbd[sc->head_tdesc].length = 0;
747                 sc->head_tdesc = (sc->head_tdesc + 1) & 0x7f;
748         }
749
750         start_xmit_frames(sc);
751 }
752
753 /*
754  * DON'T use free_sent_buffers to drop the queue!
755  */
756 static void
757 alloc_rx_buffers(struct sbsh_softc *sc)
758 {
759         unsigned        cur_rbd = sc->regs->LRDR & 0x7f;
760         struct mbuf     *m;
761
762         while (sc->tail_rq != ((sc->head_rq - 1) & (RQLEN - 1))) {
763                 MGETHDR(m, MB_DONTWAIT, MT_DATA);
764                 if (!m) {
765                         if_printf (&sc->arpcom.ac_if,
766                                    "unable to get mbuf.\n");
767                         return;
768                 }
769
770                 if (SBNI16_MAX_FRAME > MHLEN) {
771                         MCLGET(m, MB_DONTWAIT);
772                         if (!(m->m_flags & M_EXT)) {
773                                 m_freem(m);
774                                 if_printf (&sc->arpcom.ac_if,
775                                            "unable to get mbuf cluster.\n");
776                                 return;
777                         }
778                         m->m_pkthdr.len = m->m_len = MCLBYTES;
779                 }
780
781                 m_adj(m, 2);    /* align ip on longword boundaries */
782
783                 sc->rq[sc->tail_rq++] = m;
784                 sc->tail_rq &= (RQLEN - 1);
785
786                 sc->rbd[cur_rbd].address = vtophys(mtod(m, vm_offset_t));
787                 sc->rbd[cur_rbd].length  = 0;
788                 sc->regs->LRDR = cur_rbd = (cur_rbd + 1) & 0x7f;
789         }
790 }
791
792 static void
793 indicate_frames(struct sbsh_softc *sc)
794 {
795         struct ifnet *ifp = &sc->arpcom.ac_if;
796         unsigned  cur_rbd = sc->regs->CRDR & 0x7f;
797
798         while (sc->head_rdesc != cur_rbd) {
799                 struct mbuf  *m = sc->rq[sc->head_rq++];
800                 sc->head_rq &= (RQLEN - 1);
801
802                 m->m_pkthdr.len = m->m_len =
803                                 sc->rbd[sc->head_rdesc].length & 0x7ff;
804                 m->m_pkthdr.rcvif = ifp;
805
806                 (*ifp->if_input)(ifp, m);
807                 ++sc->in_stats.rcvd_pkts;
808                 ++ifp->if_ipackets;
809
810                 sc->head_rdesc = (sc->head_rdesc + 1) & 0x7f;
811         }
812 }
813
814 static void
815 drop_queues(struct sbsh_softc *sc)
816 {
817         while (sc->head_rq != sc->tail_rq) {
818                 m_freem(sc->rq[sc->head_rq++]);
819                 sc->head_rq &= (RQLEN - 1);
820         }
821
822         while (sc->head_xq != sc->tail_xq) {
823                 m_freem(sc->xq[sc->head_xq++]);
824                 sc->head_xq &= (XQLEN - 1);
825         }
826 }
827
828 /* -------------------------------------------------------------------------- */
829
830 static void
831 activate(struct sbsh_softc *sc)
832 {
833         struct timeval  tv;
834
835         sc->regs->SR   = 0xff;          /* clear it! */
836         sc->regs->CTDR = sc->regs->LTDR = sc->regs->CRDR = sc->regs->LRDR = 0;
837
838         sc->head_tdesc = sc->head_rdesc = 0;
839         alloc_rx_buffers(sc);
840
841         sc->regs->CRB &= ~RXDE;
842         sc->regs->IMR = EXT | RXS | TXS | CRC | OFL | UFL;
843         sc->regs->CR |= TXEN | RXEN;
844
845         sc->state = ACTIVE;
846         ++sc->in_stats.attempts;
847         microtime(&tv);
848         sc->in_stats.last_time = tv.tv_sec;
849         start_xmit_frames(sc);
850 }
851
852 static void
853 deactivate(struct sbsh_softc *sc)
854 {
855         sc->regs->CR &= ~(RXEN | TXEN);
856         sc->regs->CRB |= RXDE;
857         sc->regs->IMR  = EXT;
858         sc->regs->CTDR = sc->regs->LTDR;
859         sc->regs->CRDR = sc->regs->LRDR;
860         sc->state = ACTIVATION;
861
862         drop_queues(sc);
863 }
864
865 /* -------------------------------------------------------------------------- */
866
867 static void
868 cx28975_interrupt(struct sbsh_softc *sc)
869 {
870         volatile struct cx28975_cmdarea  *p = sc->cmdp;
871         u_int8_t  t;
872
873         if (p->intr_host != 0xfe)
874                 return;
875
876         if (p->out_ack & 0x80) {
877                 if (*((volatile u_int8_t *)p + 0x3c7) & 2) {
878                         if (sc->state != ACTIVE
879                             && (*((volatile u_int8_t *)p + 0x3c0) & 0xc0) == 0x40) {
880                                 activate(sc);
881                                 if_printf(&sc->arpcom.ac_if, "connected to peer\n");
882                         } else if (sc->state == ACTIVE
883                                  && (*((volatile u_int8_t *)p + 0x3c0) & 0xc0) != 0x40) {
884                                 deactivate(sc);
885                                 if_printf(&sc->arpcom.ac_if, "carrier lost\n");
886                         }
887                 }
888
889                 p->intr_host = 0;
890                 t = p->intr_host;
891                 p->out_ack = 0;
892         } else {
893                 wakeup(sc);
894
895                 p->intr_host = 0;
896                 t = p->intr_host;
897         }
898 }
899
900 /* -------------------------------------------------------------------------- */
901
902 static int
903 start_cx28975(struct sbsh_softc *sc, struct cx28975_cfg cfg)
904 {
905         static char  thresh[] = { +8, -4, -16, -40 };
906
907         volatile struct cx28975_cmdarea  *p = sc->cmdp;
908         u_int8_t  t, parm[12];
909
910         p->intr_host = 0;
911         t = p->intr_host;
912
913         /* reset chip set */
914         sc->regs->IMR = EXT;
915         sc->regs->CR  = 0;
916         sc->regs->SR  = 0xff;
917         DELAY(2);
918         sc->regs->CR = XRST;
919         if (cfg.crc16)
920                 sc->regs->CR |= CMOD;
921         if (cfg.fill_7e)
922                 sc->regs->CR |= FMOD;
923         if (cfg.inv)
924                 sc->regs->CR |= PMOD;
925
926         sc->regs->CRB |= RODD | RXDE;
927         if (cfg.rburst)
928                 sc->regs->CRB |= RDBE;
929         if (cfg.wburst)
930                 sc->regs->CRB |= WTBE;
931
932         tsleep(sc, 0, "sbsh", 0);
933         if ((p->out_ack & 0x1f) != _ACK_BOOT_WAKE_UP)
934                 return (-1);
935
936         if (download_firmware(sc, cfg.firmw_image, cfg.firmw_len))
937                 return (-1);
938
939         tsleep(sc, 0, "sbsh", 0);
940         if ((p->out_ack & 0x1f) != _ACK_OPER_WAKE_UP)
941                 return (-1);
942
943         t = cfg.master ? 1 : 9;
944         if (issue_cx28975_cmd(sc, _DSL_SYSTEM_ENABLE, &t, 1))
945                 return (-1);
946
947         t = 0x63;
948         if (issue_cx28975_cmd(sc, _DSL_SYSTEM_CONFIG, &t, 1))
949                 return (-1);
950
951         *(u_int16_t *)parm = cfg.lrate >> 3;
952         parm[2] = parm[3] = parm[0];
953         parm[5] = cfg.lrate & 7;
954         parm[4] = parm[7] = 1;
955         parm[6] = 0;
956         if (issue_cx28975_cmd(sc, _DSL_MULTI_RATE_CONFIG, parm, 8))
957                 return (-1);
958
959         parm[0] = 0x02 | (cfg.mod << 4);
960         parm[1] = 0;
961         if (issue_cx28975_cmd(sc, _DSL_TRAINING_MODE, parm, 2))
962                 return (-1);
963
964         bzero(parm, 12);
965         parm[0] = 0x04;         /* pre-activation: G.hs */
966         parm[4] = 0x04;         /* no remote configuration */
967         parm[7] = 0x01;         /* annex A (default) */
968         parm[8] = 0xff;         /* i-bit mask (all bits) */
969         if (issue_cx28975_cmd(sc, _DSL_PREACTIVATION_CFG, parm, 12))
970                 return (-1);
971
972         parm[0] = 0x03;         /* dying gasp time - 3 frames */
973         parm[1] = thresh[cfg.mod];
974         parm[2] = 0xff;         /* attenuation */
975         parm[3] = 0x04;         /* line probe NMR (+2 dB) */
976         parm[4] = 0x00;         /* reserved */
977         parm[5] = 0x00;
978         if (issue_cx28975_cmd(sc, _DSL_THRESHOLDS, parm, 6))
979                 return (-1);
980
981         t = cfg.master ? 0x23 : 0x21;
982         if (issue_cx28975_cmd(sc, _DSL_FR_PCM_CONFIG, &t, 1))
983                 return (-1);
984
985         t = 0x02;
986         if (issue_cx28975_cmd(sc, _DSL_INTR_HOST_MASK, &t, 1))
987                 return (-1);
988
989         sc->state = DOWN;
990         return (0);
991 }
992
993 static int
994 download_firmware(struct sbsh_softc *sc, u_int8_t *img, u_int32_t img_len)
995 {
996         u_int32_t       t;
997         int             i;
998         u_int8_t        cksum = 0;
999
1000         for (i = 0; i < img_len; ++i)
1001                 cksum += img[i];
1002
1003         t = img_len;
1004         if (issue_cx28975_cmd(sc, _DSL_DOWNLOAD_START, (u_int8_t *) &t, 4))
1005                 return (-1);
1006
1007         for (i = 0; img_len >= 75; i += 75, img_len -= 75) {
1008                 if (issue_cx28975_cmd(sc, _DSL_DOWNLOAD_DATA, img + i, 75))
1009                         return (-1);
1010         }
1011
1012         if (img_len
1013             &&  issue_cx28975_cmd(sc, _DSL_DOWNLOAD_DATA, img + i, img_len))
1014                 return (-1);
1015
1016         t = (cksum ^ 0xff) + 1;
1017         if (issue_cx28975_cmd(sc, _DSL_DOWNLOAD_END, (u_int8_t *) &t, 1))
1018                 return (-1);
1019
1020         return (0);
1021 }
1022
1023 static int
1024 issue_cx28975_cmd(struct sbsh_softc *sc, u_int8_t cmd,
1025                         u_int8_t *data, u_int8_t size)
1026 {
1027         volatile struct cx28975_cmdarea  *p = sc->cmdp;
1028         u_int8_t  *databuf = p->in_data;
1029         int  i;
1030
1031         u_int8_t  cksum = 0;
1032
1033         p->in_dest      = 0xf0;
1034         p->in_opcode    = cmd;
1035         p->in_zero      = 0;
1036         p->in_length    = --size;
1037         p->in_csum      = 0xf0 ^ cmd ^ size ^ 0xaa;
1038
1039         for (i = 0; i <= size; ++i) {
1040                 cksum ^= *data;
1041                 *databuf++ = *data++;   /* only 1 byte per cycle! */
1042         }
1043
1044         p->in_datasum   = cksum ^ 0xaa;
1045         p->out_ack      = _ACK_NOT_COMPLETE;
1046         p->intr_8051    = 0xfe;
1047
1048         if (tsleep(sc, 0, "sbsh", hz << 3))
1049                 return (-1);
1050
1051         while (p->out_ack == _ACK_NOT_COMPLETE)
1052                 ;                                       /* FIXME ! */
1053
1054         if ((p->out_ack & 0x1f) == _ACK_PASS) {
1055                 p->out_ack = 0;
1056                 return (0);
1057         } else {
1058                 p->out_ack = 0;
1059                 return (-1);
1060         }
1061 }