Convert to critical sections.
[dragonfly.git] / sys / dev / netif / cs / if_cs.c
1 /*
2  * Copyright (c) 1997,1998 Maxim Bolotin and Oleg Sharoiko.
3  * All rights reserved.
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 unmodified, this list of conditions, and the following
10  *    disclaimer.
11  * 2. Redistributions in binary form must reproduce the above copyright
12  *    notice, this list of conditions and the following disclaimer in the
13  *    documentation and/or other materials provided with the distribution.
14  *
15  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25  * SUCH DAMAGE.
26  *
27  * $FreeBSD: src/sys/dev/cs/if_cs.c,v 1.19.2.1 2001/01/25 20:13:48 imp Exp $
28  * $DragonFly: src/sys/dev/netif/cs/if_cs.c,v 1.17 2005/06/13 21:44:40 joerg Exp $
29  */
30
31 /*
32  * Device driver for Crystal Semiconductor CS8920 based ethernet
33  *   adapters. By Maxim Bolotin and Oleg Sharoiko, 27-April-1997
34  */
35
36 /*
37 #define  CS_DEBUG 
38  */
39
40 #include <sys/param.h>
41 #include <sys/systm.h>
42 #include <sys/malloc.h>
43 #include <sys/mbuf.h>
44 #include <sys/socket.h>
45 #include <sys/sockio.h>
46 #include <sys/kernel.h>
47 #include <sys/sysctl.h>
48 #include <sys/syslog.h>
49 #include <sys/thread2.h>
50
51 #include <sys/module.h>
52 #include <sys/bus.h>
53 #include <machine/bus.h>
54 #include <sys/rman.h>
55 #include <machine/resource.h>
56 #include <machine/clock.h>
57
58 #include <net/if.h>
59 #include <net/ifq_var.h>
60 #include <net/if_arp.h>
61 #include <net/if_media.h>
62 #include <net/ethernet.h>
63 #include <net/bpf.h>
64
65 #include "if_csreg.h"
66 #include "if_csvar.h"
67
68 #ifdef  CS_USE_64K_DMA
69 #define CS_DMA_BUFFER_SIZE 65536
70 #else
71 #define CS_DMA_BUFFER_SIZE 16384
72 #endif
73
74 static int      cs_recv_delay = 570;
75 SYSCTL_INT(_machdep, OID_AUTO, cs_recv_delay, CTLFLAG_RW, &cs_recv_delay, 0, "");
76
77 static void     cs_init(void *);
78 static int      cs_ioctl(struct ifnet *, u_long, caddr_t, struct ucred *);
79 static void     cs_start(struct ifnet *);
80 static void     cs_stop(struct cs_softc *);
81 static void     cs_reset(struct cs_softc *);
82 static void     cs_watchdog(struct ifnet *);
83
84 static int      cs_mediachange(struct ifnet *);
85 static void     cs_mediastatus(struct ifnet *, struct ifmediareq *);
86 static int      cs_mediaset(struct cs_softc *, int);
87
88 static void     cs_write_mbufs(struct cs_softc*, struct mbuf*);
89 static void     cs_xmit_buf(struct cs_softc*);
90 static int      cs_get_packet(struct cs_softc*);
91 static void     cs_setmode(struct cs_softc*);
92
93 static int      get_eeprom_data(struct cs_softc *sc, int, int, int *);
94 static int      get_eeprom_cksum(int, int, int *);
95 static int      wait_eeprom_ready( struct cs_softc *);
96 static void     control_dc_dc(struct cs_softc *, int );
97 static int      send_test_pkt(struct cs_softc * );
98 static int      enable_tp(struct cs_softc *);
99 static int      enable_aui(struct cs_softc *);
100 static int      enable_bnc(struct cs_softc *);
101 static int      cs_duplex_auto(struct cs_softc *);
102
103 devclass_t cs_devclass;
104
105 DECLARE_DUMMY_MODULE(if_cs);
106
107 static int
108 get_eeprom_data( struct cs_softc *sc, int off, int len, int *buffer)
109 {
110         int i;
111
112 #ifdef CS_DEBUG
113         printf(CS_NAME":EEPROM data from %x for %x:\n", off,len);
114 #endif
115
116         for (i=0;i<len;i++) {
117                 if (wait_eeprom_ready(sc) < 0) return -1;
118                 /* Send command to EEPROM to read */
119                 cs_writereg(sc->nic_addr, PP_EECMD, (off+i)|EEPROM_READ_CMD );
120                 if (wait_eeprom_ready(sc)<0)
121                         return -1;
122                 buffer[i] = cs_readreg (sc->nic_addr, PP_EEData);
123
124 #ifdef CS_DEBUG
125                 printf("%02x %02x ",(unsigned char)buffer[i],
126                                         (unsigned char)buffer[i+1]);
127 #endif
128         }
129
130 #ifdef CS_DEBUG
131         printf("\n");
132 #endif
133
134         return 0;
135 }
136
137 static int
138 get_eeprom_cksum(int off, int len, int *buffer)
139 {
140         int i,cksum=0;
141
142         for (i=0;i<len;i++)
143                 cksum+=buffer[i];
144         cksum &= 0xffff;
145         if (cksum==0)
146                 return 0;
147         return -1;
148 }
149
150 static int
151 wait_eeprom_ready(struct cs_softc *sc)
152 {
153         DELAY ( 30000 );        /* XXX should we do some checks here ? */
154         return 0;
155 }
156
157 static void
158 control_dc_dc(struct cs_softc *sc, int on_not_off)
159 {
160         unsigned int self_control = HCB1_ENBL;
161
162         if (((sc->adapter_cnf & A_CNF_DC_DC_POLARITY)!=0) ^ on_not_off)
163                 self_control |= HCB1;
164         else
165                 self_control &= ~HCB1;
166         cs_writereg( sc->nic_addr, PP_SelfCTL, self_control );
167
168         DELAY( 500000 );
169 }
170
171
172 static int
173 cs_duplex_auto(struct cs_softc *sc)
174 {
175         int i, error=0;
176         
177         cs_writereg(sc->nic_addr, PP_AutoNegCTL,
178                     RE_NEG_NOW | ALLOW_FDX | AUTO_NEG_ENABLE );
179         for (i=0; cs_readreg(sc->nic_addr,PP_AutoNegST)&AUTO_NEG_BUSY; i++) {
180                 if (i > 40000) {
181                         printf("%s: full/half duplex "
182                                "auto negotiation timeout\n",
183                                sc->arpcom.ac_if.if_xname);
184                         error = ETIMEDOUT;
185                         break;
186                 }
187                 DELAY(1000);
188         }
189         DELAY( 1000000 );
190         return error;
191 }
192
193 static int
194 enable_tp(struct cs_softc *sc)
195 {
196         cs_writereg(sc->nic_addr, PP_LineCTL, sc->line_ctl & ~AUI_ONLY);
197         control_dc_dc(sc, 0);
198         DELAY( 150000 );
199
200         if ((cs_readreg(sc->nic_addr, PP_LineST) & LINK_OK)==0) {
201                 printf("%s: failed to enable TP\n",
202                     sc->arpcom.ac_if.if_xname);
203                 return EINVAL;
204         }
205
206         return 0;
207 }
208
209 /*
210  * XXX This was rewritten from Linux driver without any tests.
211  */             
212 static int
213 send_test_pkt(struct cs_softc *sc)
214 {
215         char test_packet[] = { 0,0,0,0,0,0, 0,0,0,0,0,0,
216                                 0, 46,  /* A 46 in network order */
217                                 0, 0,   /* DSAP=0 & SSAP=0 fields */
218                                 0xf3, 0 /* Control (Test Req + P bit set) */ };
219         int i;
220         u_char ether_address_backup[ETHER_ADDR_LEN];
221
222         for (i = 0; i < ETHER_ADDR_LEN; i++) {
223                 ether_address_backup[i] = sc->arpcom.ac_enaddr[i];
224         }
225
226         cs_writereg(sc->nic_addr, PP_LineCTL,
227                 cs_readreg(sc->nic_addr, PP_LineCTL) | SERIAL_TX_ON );
228         bcopy(test_packet,
229                         sc->arpcom.ac_enaddr, ETHER_ADDR_LEN);
230         bcopy(test_packet+ETHER_ADDR_LEN,
231                         sc->arpcom.ac_enaddr, ETHER_ADDR_LEN);
232         outw(sc->nic_addr + TX_CMD_PORT, sc->send_cmd);
233         outw(sc->nic_addr + TX_LEN_PORT, sizeof(test_packet));
234
235         /* Wait for chip to allocate memory */
236         DELAY(50000);
237         if (!(cs_readreg(sc->nic_addr, PP_BusST) & READY_FOR_TX_NOW)) {
238                 for (i = 0; i < ETHER_ADDR_LEN; i++) {
239                         sc->arpcom.ac_enaddr[i] = ether_address_backup[i];
240                 }
241                 return 0;
242         }
243
244         outsw(sc->nic_addr + TX_FRAME_PORT, test_packet, sizeof(test_packet));
245
246         DELAY(30000);
247
248         if ((cs_readreg(sc->nic_addr,PP_TxEvent) & TX_SEND_OK_BITS) == TX_OK) {
249                 for (i = 0; i < ETHER_ADDR_LEN; i++) {
250                         sc->arpcom.ac_enaddr[i] = ether_address_backup[i];
251                 }
252                 return 1;
253         }
254         for (i = 0; i < ETHER_ADDR_LEN; i++) {
255                 sc->arpcom.ac_enaddr[i] = ether_address_backup[i];
256         }
257         return 0;
258 }
259
260 /*
261  * XXX This was rewritten from Linux driver without any tests.
262  */
263 static int
264 enable_aui(struct cs_softc *sc)
265 {
266         control_dc_dc(sc, 0);
267         cs_writereg(sc->nic_addr, PP_LineCTL,
268                 (sc->line_ctl & ~AUTO_AUI_10BASET) | AUI_ONLY);
269
270         if (!send_test_pkt(sc)) {
271                 printf("%s failed to enable AUI\n",
272                     sc->arpcom.ac_if.if_xname);
273                 return EINVAL;
274         }
275         return 0;
276 }
277
278 /*
279  * XXX This was rewritten from Linux driver without any tests.
280  */             
281 static int
282 enable_bnc(struct cs_softc *sc)
283 {
284         control_dc_dc(sc, 1);
285         cs_writereg(sc->nic_addr, PP_LineCTL,
286                 (sc->line_ctl & ~AUTO_AUI_10BASET) | AUI_ONLY);
287
288         if (!send_test_pkt(sc)) {
289                 printf("%s failed to enable BNC\n", sc->arpcom.ac_if.if_xname);
290                 return EINVAL;
291         }
292         return 0;
293 }
294
295 int
296 cs_cs89x0_probe(device_t dev)
297 {
298         int i;
299         int iobase;
300         int error;
301
302         u_long irq, junk;
303
304         struct cs_softc *sc = device_get_softc(dev);
305
306         unsigned rev_type = 0;
307         char chip_revision;
308         int eeprom_buff[CHKSUM_LEN];
309         int chip_type, pp_isaint, pp_isadma;
310
311         error = cs_alloc_port(dev, 0, CS_89x0_IO_PORTS);
312         if (error)
313                 return (error);
314
315         iobase=rman_get_start(sc->port_res);
316
317         if ((inw(iobase+ADD_PORT) & ADD_MASK) != ADD_SIG) {
318                 /* Chip not detected. Let's try to reset it */
319                 if (bootverbose)
320                         device_printf(dev, "trying to reset the chip.\n");
321                 outw(iobase+ADD_PORT, PP_SelfCTL);
322                 i = inw(iobase+DATA_PORT);
323                 outw(iobase+ADD_PORT, PP_SelfCTL);
324                 outw(iobase+DATA_PORT, i | POWER_ON_RESET);
325                 if ((inw(iobase+ADD_PORT) & ADD_MASK) != ADD_SIG)
326                         return (ENXIO);
327         }
328
329         outw(iobase+ADD_PORT, PP_ChipID);
330         if (inw(iobase+DATA_PORT) != CHIP_EISA_ID_SIG)
331                 return (ENXIO);
332
333         rev_type = cs_readreg(iobase, PRODUCT_ID_ADD);
334         chip_type = rev_type & ~REVISON_BITS;
335         chip_revision = ((rev_type & REVISON_BITS) >> 8) + 'A';
336
337         sc->nic_addr = iobase;
338         sc->chip_type = chip_type;
339
340         if(chip_type==CS8900) {
341                 pp_isaint = PP_CS8900_ISAINT;
342                 pp_isadma = PP_CS8900_ISADMA;
343                 sc->send_cmd = TX_CS8900_AFTER_ALL;
344         } else {
345                 pp_isaint = PP_CS8920_ISAINT;
346                 pp_isadma = PP_CS8920_ISADMA;
347                 sc->send_cmd = TX_CS8920_AFTER_ALL;
348         }
349
350         /*
351          * Clear some fields so that fail of EEPROM will left them clean
352          */
353         sc->auto_neg_cnf = 0;
354         sc->adapter_cnf  = 0;
355         sc->isa_config   = 0;
356         
357         /*
358          * If no interrupt specified (or "?"), use what the board tells us.
359          */
360         error = bus_get_resource(dev, SYS_RES_IRQ, 0, &irq, &junk);
361
362         /*
363          * Get data from EEPROM
364          */
365         if((cs_readreg(iobase, PP_SelfST) & EEPROM_PRESENT) == 0) {
366                 device_printf(dev, "No EEPROM, assuming defaults.\n");
367         } else {
368                 if (get_eeprom_data(sc,START_EEPROM_DATA,CHKSUM_LEN, eeprom_buff)<0) {
369                         device_printf(dev, "EEPROM read failed, "
370                                 "assuming defaults.\n");
371                 } else {
372                         if (get_eeprom_cksum(START_EEPROM_DATA,CHKSUM_LEN, eeprom_buff)<0) {
373                                 device_printf(dev, "EEPROM cheksum bad, "
374                                         "assuming defaults.\n");
375                         } else {
376                                 sc->auto_neg_cnf =
377                                         eeprom_buff[AUTO_NEG_CNF_OFFSET/2];
378                                 sc->adapter_cnf =
379                                         eeprom_buff[ADAPTER_CNF_OFFSET/2];
380                                 sc->isa_config =
381                                         eeprom_buff[ISA_CNF_OFFSET/2];
382
383                                 for (i=0; i<ETHER_ADDR_LEN/2; i++) {
384                                         sc->arpcom.ac_enaddr[i*2]=
385                                                 eeprom_buff[i];
386                                         sc->arpcom.ac_enaddr[i*2+1]=
387                                                 eeprom_buff[i] >> 8;
388                                 }
389
390                                 /*
391                                  * If no interrupt specified (or "?"),
392                                  * use what the board tells us.
393                                  */
394                                 if (error) {
395                                         irq = sc->isa_config & INT_NO_MASK;
396                                         if (chip_type==CS8900) {
397                                                 switch(irq) {
398                                                  case 0:
399                                                         irq=10;
400                                                         error=0;
401                                                         break;
402                                                  case 1:
403                                                         irq=11;
404                                                         error=0;
405                                                         break;
406                                                  case 2:
407                                                         irq=12;
408                                                         error=0;
409                                                         break;
410                                                  case 3:
411                                                         irq=5;
412                                                         error=0;
413                                                         break;
414                                                  default:
415                                                         device_printf(dev, "invalid irq in EEPROM.\n");
416                                                         error=EINVAL;
417                                                 }
418                                         } else {
419                                                 if (irq>CS8920_NO_INTS) {
420                                                         device_printf(dev, "invalid irq in EEPROM.\n");
421                                                         error=EINVAL;
422                                                 } else {
423                                                         error=0;
424                                                 }
425                                         }
426
427                                         if (!error)
428                                                 bus_set_resource(dev, SYS_RES_IRQ, 0,
429                                                                 irq, 1);
430                                 }
431                         }
432                 }
433         }
434
435         if (!error) {
436                 if (chip_type == CS8900) {
437                         switch(irq) {
438                                 case  5:
439                                         irq = 3;
440                                         break;
441                                 case 10:
442                                         irq = 0;
443                                         break;
444                                 case 11:
445                                         irq = 1;
446                                         break;
447                                 case 12:
448                                         irq = 2;
449                                         break;
450                                 default:
451                                         error=EINVAL;
452                         }
453                 } else {
454                         if (irq > CS8920_NO_INTS) {
455                                 error = EINVAL;
456                         }
457                 }
458         }
459
460         if (!error) {
461                 cs_writereg(iobase, pp_isaint, irq);
462         } else {
463                 device_printf(dev, "Unknown or invalid irq\n");
464                 return (ENXIO);
465         }
466         
467         /*
468          * Temporary disabled
469          *
470         if (drq>0)
471                 cs_writereg(iobase, pp_isadma, drq);
472         else {
473                 printf("%s: incorrect drq\n", sc->arpcom.ac_if.if_xname);
474                 return 0;
475         }
476         */
477
478         if (bootverbose)
479                  device_printf(dev, "CS89%c0%s rev %c media%s%s%s\n",
480                         chip_type==CS8900 ? '0' : '2',
481                         chip_type==CS8920M ? "M" : "",
482                         chip_revision,
483                         (sc->adapter_cnf & A_CNF_10B_T) ? " TP"  : "",
484                         (sc->adapter_cnf & A_CNF_AUI)   ? " AUI" : "",
485                         (sc->adapter_cnf & A_CNF_10B_2) ? " BNC" : "");
486
487         if ((sc->adapter_cnf & A_CNF_EXTND_10B_2) &&
488             (sc->adapter_cnf & A_CNF_LOW_RX_SQUELCH))
489                 sc->line_ctl = LOW_RX_SQUELCH;
490         else
491                 sc->line_ctl = 0;
492
493         
494         return 0;
495 }
496
497 /*
498  * Allocate a port resource with the given resource id.
499  */
500 int cs_alloc_port(device_t dev, int rid, int size)
501 {
502         struct cs_softc *sc = device_get_softc(dev);
503         struct resource *res;
504
505         res = bus_alloc_resource(dev, SYS_RES_IOPORT, &rid,
506                                  0ul, ~0ul, size, RF_ACTIVE);
507         if (res) {
508                 sc->port_rid = rid;
509                 sc->port_res = res;
510                 sc->port_used = size;
511                 return (0);
512         } else {
513                 return (ENOENT);
514         }
515 }
516
517 /*
518  * Allocate a memory resource with the given resource id.
519  */
520 int cs_alloc_memory(device_t dev, int rid, int size)
521 {
522         struct cs_softc *sc = device_get_softc(dev);
523         struct resource *res;
524
525         res = bus_alloc_resource(dev, SYS_RES_MEMORY, &rid,
526                                  0ul, ~0ul, size, RF_ACTIVE);
527         if (res) {
528                 sc->mem_rid = rid;
529                 sc->mem_res = res;
530                 sc->mem_used = size;
531                 return (0);
532         } else {
533                 return (ENOENT);
534         }
535 }
536
537 /*
538  * Allocate an irq resource with the given resource id.
539  */
540 int cs_alloc_irq(device_t dev, int rid, int flags)
541 {
542         struct cs_softc *sc = device_get_softc(dev);
543         struct resource *res;
544
545         res = bus_alloc_resource_any(dev, SYS_RES_IRQ, &rid,
546             (RF_ACTIVE | flags));
547         if (res) {
548                 sc->irq_rid = rid;
549                 sc->irq_res = res;
550                 return (0);
551         } else {
552                 return (ENOENT);
553         }
554 }
555
556 /*
557  * Release all resources
558  */
559 void cs_release_resources(device_t dev)
560 {
561         struct cs_softc *sc = device_get_softc(dev);
562
563         if (sc->port_res) {
564                 bus_release_resource(dev, SYS_RES_IOPORT,
565                                      sc->port_rid, sc->port_res);
566                 sc->port_res = 0;
567         }
568         if (sc->mem_res) {
569                 bus_release_resource(dev, SYS_RES_MEMORY,
570                                      sc->mem_rid, sc->mem_res);
571                 sc->mem_res = 0;
572         }
573         if (sc->irq_res) {
574                 bus_release_resource(dev, SYS_RES_IRQ,
575                                      sc->irq_rid, sc->irq_res);
576                 sc->irq_res = 0;
577         }
578 }
579
580 /*
581  * Install the interface into kernel networking data structures
582  */
583 int
584 cs_attach(device_t dev)
585 {
586         struct cs_softc *sc = device_get_softc(dev);
587         int media=0;
588         struct ifnet *ifp = &(sc->arpcom.ac_if);
589
590         cs_stop( sc );
591
592         ifp->if_softc=sc;
593         if_initname(ifp, "cs", device_get_unit(dev));
594         ifp->if_start=cs_start;
595         ifp->if_ioctl=cs_ioctl;
596         ifp->if_watchdog=cs_watchdog;
597         ifp->if_init=cs_init;
598         ifq_set_maxlen(&ifp->if_snd, IFQ_MAXLEN);
599         ifq_set_ready(&ifp->if_snd);
600         /*
601          *  MIB DATA
602          */
603         /*
604          * XXX: Ugly comments here
605          *
606          
607         ifp->if_linkmib=&sc->mibdata;
608         ifp->if_linkmiblen=sizeof sc->mibdata;
609          */
610
611         ifp->if_flags=(IFF_BROADCAST | IFF_SIMPLEX | IFF_MULTICAST );
612
613         /*
614          * this code still in progress (DMA support)
615          *
616
617         sc->recv_ring=malloc(CS_DMA_BUFFER_SIZE<<1, M_DEVBUF, M_WAITOK);
618         if (sc->recv_ring == NULL) {
619                 log(LOG_ERR,
620                     "%s: Couldn't allocate memory for NIC\n", ifp->if_xname);
621                 return(0);
622         }
623         if ((sc->recv_ring-(sc->recv_ring & 0x1FFFF))
624             < (128*1024-CS_DMA_BUFFER_SIZE))
625             sc->recv_ring+=16*1024;
626          */
627
628         sc->buffer=malloc(ETHER_MAX_LEN-ETHER_CRC_LEN,M_DEVBUF,M_WAITOK);
629         if (sc->buffer == NULL) {
630                 printf("%s: Couldn't allocate memory for NIC\n",
631                     ifp->if_xname);
632                 return(0);
633         }
634
635         /*
636          * Initialize the media structures.
637          */
638         ifmedia_init(&sc->media, 0, cs_mediachange, cs_mediastatus);
639
640         if (sc->adapter_cnf & A_CNF_10B_T) {
641                 ifmedia_add(&sc->media, IFM_ETHER|IFM_10_T, 0, NULL);
642                 if (sc->chip_type != CS8900) {
643                         ifmedia_add(&sc->media,
644                                 IFM_ETHER|IFM_10_T|IFM_FDX, 0, NULL);
645                         ifmedia_add(&sc->media,
646                                 IFM_ETHER|IFM_10_T|IFM_HDX, 0, NULL);
647                 }
648         } 
649
650         if (sc->adapter_cnf & A_CNF_10B_2)
651                 ifmedia_add(&sc->media, IFM_ETHER|IFM_10_2, 0, NULL);
652
653         if (sc->adapter_cnf & A_CNF_AUI)
654                 ifmedia_add(&sc->media, IFM_ETHER|IFM_10_5, 0, NULL);
655
656         if (sc->adapter_cnf & A_CNF_MEDIA)
657                 ifmedia_add(&sc->media, IFM_ETHER|IFM_AUTO, 0, NULL);
658
659         /* Set default media from EEPROM */
660         switch (sc->adapter_cnf & A_CNF_MEDIA_TYPE) {
661         case A_CNF_MEDIA_AUTO:  media = IFM_ETHER|IFM_AUTO; break;
662         case A_CNF_MEDIA_10B_T: media = IFM_ETHER|IFM_10_T; break;
663         case A_CNF_MEDIA_10B_2: media = IFM_ETHER|IFM_10_2; break;
664         case A_CNF_MEDIA_AUI:   media = IFM_ETHER|IFM_10_5; break;
665         default: printf("%s: adapter has no media\n", ifp->if_xname);
666         }
667         ifmedia_set(&sc->media, media);
668         cs_mediaset(sc, media);
669
670         ether_ifattach(ifp, sc->arpcom.ac_enaddr);
671
672         return (0);
673 }
674
675 /*
676  * Initialize the board
677  */
678 static void
679 cs_init(void *xsc)
680 {
681         struct cs_softc *sc=(struct cs_softc *)xsc;
682         struct ifnet *ifp = &sc->arpcom.ac_if;
683         int i, rx_cfg;
684
685         crit_enter();
686
687         /* address not known */
688         if (TAILQ_EMPTY(&ifp->if_addrhead)) { /* unlikely? XXX */
689                 crit_exit();
690                 return;
691         }
692
693         /*
694          * reset whatchdog timer
695          */
696         ifp->if_timer=0;
697         sc->buf_len = 0;
698
699         /*
700          * Hardware initialization of cs
701          */
702
703         /* Enable receiver and transmitter */
704         cs_writereg(sc->nic_addr, PP_LineCTL,
705                 cs_readreg( sc->nic_addr, PP_LineCTL ) |
706                 SERIAL_RX_ON | SERIAL_TX_ON);
707
708         /* Configure the receiver mode */
709         cs_setmode(sc);
710
711         /*
712          * This defines what type of frames will cause interrupts
713          * Bad frames should generate interrupts so that the driver
714          * could track statistics of discarded packets
715          */
716         rx_cfg = RX_OK_ENBL | RX_CRC_ERROR_ENBL | RX_RUNT_ENBL |
717                  RX_EXTRA_DATA_ENBL;
718         if (sc->isa_config & STREAM_TRANSFER)
719                 rx_cfg |= RX_STREAM_ENBL;
720         cs_writereg(sc->nic_addr, PP_RxCFG, rx_cfg);
721
722         cs_writereg(sc->nic_addr, PP_TxCFG, TX_LOST_CRS_ENBL |
723                     TX_SQE_ERROR_ENBL | TX_OK_ENBL | TX_LATE_COL_ENBL |
724                     TX_JBR_ENBL | TX_ANY_COL_ENBL | TX_16_COL_ENBL);
725
726         cs_writereg(sc->nic_addr, PP_BufCFG, READY_FOR_TX_ENBL |
727                     RX_MISS_COUNT_OVRFLOW_ENBL | TX_COL_COUNT_OVRFLOW_ENBL |
728                     TX_UNDERRUN_ENBL /*| RX_DMA_ENBL*/);
729
730         /* Write MAC address into IA filter */
731         for (i=0; i<ETHER_ADDR_LEN/2; i++)
732                 cs_writereg(sc->nic_addr, PP_IA+i*2,
733                             sc->arpcom.ac_enaddr[i*2] |
734                             (sc->arpcom.ac_enaddr[i*2+1] << 8) );
735
736         /*
737          * Now enable everything
738          */
739 /*
740 #ifdef  CS_USE_64K_DMA
741         cs_writereg(sc->nic_addr, PP_BusCTL, ENABLE_IRQ | RX_DMA_SIZE_64K);
742         #else
743
744         cs_writereg(sc->nic_addr, PP_BusCTL, ENABLE_IRQ);
745 #endif
746 */
747         cs_writereg(sc->nic_addr, PP_BusCTL, ENABLE_IRQ);
748         
749         /*
750          * Set running and clear output active flags
751          */
752         sc->arpcom.ac_if.if_flags |= IFF_RUNNING;
753         sc->arpcom.ac_if.if_flags &= ~IFF_OACTIVE;
754
755         /*
756          * Start sending process
757          */
758         cs_start(ifp);
759
760         crit_exit();
761 }
762
763 /*
764  * Get the packet from the board and send it to the upper layer
765  * via ether_input().
766  */
767 static int
768 cs_get_packet(struct cs_softc *sc)
769 {
770         struct ifnet *ifp = &(sc->arpcom.ac_if);
771         int iobase = sc->nic_addr, status, length;
772         struct mbuf *m;
773
774 #ifdef CS_DEBUG
775         int i;
776 #endif
777
778         status = inw(iobase + RX_FRAME_PORT);
779         length = inw(iobase + RX_FRAME_PORT);
780
781 #ifdef CS_DEBUG
782         printf("%s: rcvd: stat %x, len %d\n",
783                 ifp->if_xname, status, length);
784 #endif
785
786         if (!(status & RX_OK)) {
787 #ifdef CS_DEBUG
788                 printf"%s: bad pkt stat %x\n", ifp->if_xname, status);
789 #endif
790                 ifp->if_ierrors++;
791                 return -1;
792         }
793
794         MGETHDR(m, MB_DONTWAIT, MT_DATA);
795         if (m==NULL)
796                 return -1;
797
798         if (length > MHLEN) {
799                 MCLGET(m, MB_DONTWAIT);
800                 if (!(m->m_flags & M_EXT)) {
801                         m_freem(m);
802                         return -1;
803                 }
804         }
805
806         /* Initialize packet's header info */
807         m->m_pkthdr.rcvif = ifp;
808         m->m_pkthdr.len = length;
809         m->m_len = length;
810
811         /* Get the data */
812         insw(iobase + RX_FRAME_PORT, m->m_data, (length+1)>>1);
813
814 #ifdef CS_DEBUG
815         for (i=0;i<length;i++)
816              printf(" %02x",(unsigned char)*((char *)(m->m_data+i)));
817         printf( "\n" );
818 #endif
819
820         if (status & (RX_IA | RX_BROADCAST) || 
821             (ifp->if_flags & IFF_MULTICAST && status & RX_HASHED)) {
822                 (*ifp->if_input)(ifp, m);
823
824                 ifp->if_ipackets++;
825
826                 if (length==ETHER_MAX_LEN-ETHER_CRC_LEN)
827                         DELAY( cs_recv_delay );
828         } else {
829                 m_freem(m);
830         }
831
832         return 0;
833 }
834
835 /*
836  * Handle interrupts
837  */
838 void
839 csintr(void *arg)
840 {
841         struct cs_softc *sc = (struct cs_softc*) arg;
842         struct ifnet *ifp = &(sc->arpcom.ac_if);
843         int status;
844
845 #ifdef CS_DEBUG
846         printf("%s: Interrupt.\n", ifp->xname);
847 #endif
848
849         while ((status=cs_readword(sc->nic_addr, ISQ_PORT))) {
850
851 #ifdef CS_DEBUG
852                 printf("%s:from ISQ: %04x\n", ifp->if_xname, status );
853 #endif
854
855                 switch (status & ISQ_EVENT_MASK) {
856                 case ISQ_RECEIVER_EVENT:
857                         cs_get_packet(sc);
858                         break;
859
860                 case ISQ_TRANSMITTER_EVENT:
861                         if (status & TX_OK)
862                                 ifp->if_opackets++;
863                         else
864                                 ifp->if_oerrors++;
865                         ifp->if_flags &= ~IFF_OACTIVE;
866                         ifp->if_timer = 0;
867                         break;
868
869                 case ISQ_BUFFER_EVENT:
870                         if (status & READY_FOR_TX) {
871                                 ifp->if_flags &= ~IFF_OACTIVE;
872                                 ifp->if_timer = 0;
873                         }
874
875                         if (status & TX_UNDERRUN) {
876                                 ifp->if_flags &= ~IFF_OACTIVE;
877                                 ifp->if_timer = 0;
878                                 ifp->if_oerrors++;
879                         }
880                         break;
881
882                 case ISQ_RX_MISS_EVENT:
883                         ifp->if_ierrors+=(status>>6);
884                         break;
885
886                 case ISQ_TX_COL_EVENT:
887                         ifp->if_collisions+=(status>>6);
888                         break;
889                 }
890         }
891
892         if (!(ifp->if_flags & IFF_OACTIVE)) {
893                 cs_start(ifp);
894         }
895 }
896
897 /*
898  * Save the data in buffer
899  */
900
901 static void
902 cs_write_mbufs( struct cs_softc *sc, struct mbuf *m )
903 {
904         int len;
905         struct mbuf *mp;
906         unsigned char *data, *buf;
907
908         for (mp=m, buf=sc->buffer, sc->buf_len=0; mp != NULL; mp=mp->m_next) {
909                 len = mp->m_len;
910
911                 /*
912                  * Ignore empty parts
913                  */
914                 if (!len)
915                 continue;
916
917                 /*
918                  * Find actual data address
919                  */
920                 data = mtod(mp, caddr_t);
921
922                 bcopy((caddr_t) data, (caddr_t) buf, len);
923                 buf += len;
924                 sc->buf_len += len;
925         }
926 }
927
928
929 static void
930 cs_xmit_buf( struct cs_softc *sc )
931 {
932         outsw(sc->nic_addr+TX_FRAME_PORT, sc->buffer, (sc->buf_len+1)>>1);
933         sc->buf_len = 0;
934 }
935
936 static void
937 cs_start(struct ifnet *ifp)
938 {
939         int length;
940         struct mbuf *m, *mp;
941         struct cs_softc *sc = ifp->if_softc;
942
943         crit_enter();
944
945         for (;;) {
946                 if (sc->buf_len)
947                         length = sc->buf_len;
948                 else {
949                         m = ifq_dequeue(&ifp->if_snd);
950
951                         if (m==NULL) {
952                                 crit_exit();
953                                 return;
954                         }
955
956                         for (length=0, mp=m; mp != NULL; mp=mp->m_next)
957                                 length += mp->m_len;
958
959                         /* Skip zero-length packets */
960                         if (length == 0) {
961                                 m_freem(m);
962                                 continue;
963                         }
964
965                         cs_write_mbufs(sc, m);
966
967                         BPF_MTAP(ifp, m);
968
969                         m_freem(m);
970                 }
971
972                 /*
973                  * Issue a SEND command
974                  */
975                 outw(sc->nic_addr+TX_CMD_PORT, sc->send_cmd);
976                 outw(sc->nic_addr+TX_LEN_PORT, length );
977
978                 /*
979                  * If there's no free space in the buffer then leave
980                  * this packet for the next time: indicate output active
981                  * and return.
982                  */
983                 if (!(cs_readreg(sc->nic_addr, PP_BusST) & READY_FOR_TX_NOW)) {
984                         ifp->if_timer = sc->buf_len;
985                         ifp->if_flags |= IFF_OACTIVE;
986                         crit_exit();
987                         return;
988                 }
989
990                 cs_xmit_buf(sc);
991
992                 /*
993                  * Set the watchdog timer in case we never hear
994                  * from board again. (I don't know about correct
995                  * value for this timeout)
996                  */
997                 ifp->if_timer = length;
998
999                 crit_exit();
1000                 ifp->if_flags |= IFF_OACTIVE;
1001                 return;
1002         }
1003 }
1004
1005 /*
1006  * Stop everything on the interface
1007  */
1008 static void
1009 cs_stop(struct cs_softc *sc)
1010 {
1011         crit_enter();
1012
1013         cs_writereg(sc->nic_addr, PP_RxCFG, 0);
1014         cs_writereg(sc->nic_addr, PP_TxCFG, 0);
1015         cs_writereg(sc->nic_addr, PP_BufCFG, 0);
1016         cs_writereg(sc->nic_addr, PP_BusCTL, 0);
1017
1018         sc->arpcom.ac_if.if_flags &= ~(IFF_RUNNING | IFF_OACTIVE);
1019         sc->arpcom.ac_if.if_timer = 0;
1020
1021         crit_exit();
1022 }
1023
1024 /*
1025  * Reset the interface
1026  */
1027 static void
1028 cs_reset(struct cs_softc *sc)
1029 {
1030         cs_stop(sc);
1031         cs_init(sc);
1032 }
1033
1034 static void
1035 cs_setmode(struct cs_softc *sc)
1036 {
1037         struct ifnet *ifp = &(sc->arpcom.ac_if);
1038         int rx_ctl;
1039
1040         /* Stop the receiver while changing filters */
1041         cs_writereg(sc->nic_addr, PP_LineCTL, 
1042                         cs_readreg(sc->nic_addr, PP_LineCTL) & ~SERIAL_RX_ON);
1043
1044         if (ifp->if_flags & IFF_PROMISC) {
1045                 /* Turn on promiscuous mode. */
1046                 rx_ctl = RX_OK_ACCEPT | RX_PROM_ACCEPT;
1047         } else {
1048                 if (ifp->if_flags & IFF_MULTICAST) {
1049                         /* Allow receiving frames with multicast addresses */
1050                         rx_ctl = RX_IA_ACCEPT | RX_BROADCAST_ACCEPT |
1051                                  RX_OK_ACCEPT | RX_MULTCAST_ACCEPT;
1052                         /*
1053                          * Here the reconfiguration of chip's multicast
1054                          * filters should be done but I've no idea about
1055                          * hash transformation in this chip. If you can
1056                          * add this code or describe me the transformation
1057                          * I'd be very glad.
1058                          */
1059                 } else {
1060                         /*
1061                          * Receive only good frames addressed for us and
1062                          * good broadcasts.
1063                          */
1064                         rx_ctl = RX_IA_ACCEPT | RX_BROADCAST_ACCEPT |
1065                                  RX_OK_ACCEPT;
1066                 }
1067         }
1068
1069         /* Set up the filter */
1070         cs_writereg(sc->nic_addr, PP_RxCTL, RX_DEF_ACCEPT | rx_ctl);
1071
1072         /* Turn on receiver */
1073         cs_writereg(sc->nic_addr, PP_LineCTL,
1074                         cs_readreg(sc->nic_addr, PP_LineCTL) | SERIAL_RX_ON);
1075 }
1076
1077 static int
1078 cs_ioctl(register struct ifnet *ifp, u_long command, caddr_t data,
1079     struct ucred *cr)
1080 {
1081         struct cs_softc *sc=ifp->if_softc;
1082         struct ifreq *ifr = (struct ifreq *)data;
1083         int error=0;
1084
1085 #ifdef CS_DEBUG
1086         printf("%s: ioctl(%lx)\n",sc->arpcom.ac_if.if_xname, command);
1087 #endif
1088
1089         crit_enter();
1090
1091         switch (command) {
1092         case SIOCSIFFLAGS:
1093                 /*
1094                  * Switch interface state between "running" and
1095                  * "stopped", reflecting the UP flag.
1096                  */
1097                 if (sc->arpcom.ac_if.if_flags & IFF_UP) {
1098                         if ((sc->arpcom.ac_if.if_flags & IFF_RUNNING)==0) {
1099                                 cs_init(sc);
1100                         }
1101                 } else {
1102                         if ((sc->arpcom.ac_if.if_flags & IFF_RUNNING)!=0) {
1103                                 cs_stop(sc);
1104                         }
1105                 }
1106                 /*
1107                  * Promiscuous and/or multicast flags may have changed,
1108                  * so reprogram the multicast filter and/or receive mode.
1109                  *
1110                  * See note about multicasts in cs_setmode
1111                  */
1112                 cs_setmode(sc);
1113                 break;
1114
1115         case SIOCADDMULTI:
1116         case SIOCDELMULTI:
1117             /*
1118              * Multicast list has changed; set the hardware filter
1119              * accordingly.
1120              *
1121              * See note about multicasts in cs_setmode
1122              */
1123             cs_setmode(sc);
1124             error = 0;
1125             break;
1126
1127         case SIOCSIFMEDIA:
1128         case SIOCGIFMEDIA:
1129                 error = ifmedia_ioctl(ifp, ifr, &sc->media, command);
1130                 break;
1131         default:
1132                 error = ether_ioctl(ifp, command, data);
1133                 break;
1134         }
1135
1136         crit_exit();
1137
1138         return error;
1139 }
1140
1141 /*
1142  * Device timeout/watchdog routine. Entered if the device neglects to
1143  * generate an interrupt after a transmit has been started on it.
1144  */
1145 static void
1146 cs_watchdog(struct ifnet *ifp)
1147 {
1148         struct cs_softc *sc = ifp->if_softc;
1149
1150         ifp->if_oerrors++;
1151         log(LOG_ERR, "%s: device timeout\n", ifp->if_xname);
1152
1153         /* Reset the interface */
1154         if (ifp->if_flags & IFF_UP)
1155                 cs_reset(sc);
1156         else
1157                 cs_stop(sc);
1158 }
1159
1160 static int
1161 cs_mediachange(struct ifnet *ifp)
1162 {
1163         struct cs_softc *sc = ifp->if_softc;
1164         struct ifmedia *ifm = &sc->media;
1165
1166         if (IFM_TYPE(ifm->ifm_media) != IFM_ETHER)
1167                 return EINVAL;
1168
1169         return cs_mediaset(sc, ifm->ifm_media);
1170 }
1171
1172 static void
1173 cs_mediastatus(struct ifnet *ifp, struct ifmediareq *ifmr)
1174 {
1175         int line_status;
1176         struct cs_softc *sc = ifp->if_softc;
1177
1178         ifmr->ifm_active = IFM_ETHER;
1179         line_status = cs_readreg(sc->nic_addr, PP_LineST);
1180         if (line_status & TENBASET_ON) {
1181                 ifmr->ifm_active |= IFM_10_T;
1182                 if (sc->chip_type != CS8900) {
1183                         if (cs_readreg(sc->nic_addr, PP_AutoNegST) & FDX_ACTIVE)
1184                                 ifmr->ifm_active |= IFM_FDX;
1185                         if (cs_readreg(sc->nic_addr, PP_AutoNegST) & HDX_ACTIVE)
1186                                 ifmr->ifm_active |= IFM_HDX;
1187                 }
1188                 ifmr->ifm_status = IFM_AVALID;
1189                 if (line_status & LINK_OK)
1190                         ifmr->ifm_status |= IFM_ACTIVE;
1191         } else {
1192                 if (line_status & AUI_ON) {
1193                         cs_writereg(sc->nic_addr, PP_SelfCTL,
1194                                     cs_readreg(sc->nic_addr, PP_SelfCTL) |
1195                                     HCB1_ENBL);
1196                         if (((sc->adapter_cnf & A_CNF_DC_DC_POLARITY)!=0)^
1197                             (cs_readreg(sc->nic_addr, PP_SelfCTL)&HCB1))
1198                                 ifmr->ifm_active |= IFM_10_2;
1199                         else
1200                                 ifmr->ifm_active |= IFM_10_5;
1201                 }
1202         }
1203 }
1204
1205 static int
1206 cs_mediaset(struct cs_softc *sc, int media)
1207 {
1208         int error;
1209
1210         /* Stop the receiver & transmitter */
1211         cs_writereg(sc->nic_addr, PP_LineCTL,
1212                     cs_readreg(sc->nic_addr, PP_LineCTL) &
1213                     ~(SERIAL_RX_ON | SERIAL_TX_ON));
1214
1215 #ifdef CS_DEBUG
1216         printf("%s: cs_setmedia(%x)\n",sc->arpcom.ac_if.if_xname, media);
1217 #endif
1218
1219         switch (IFM_SUBTYPE(media)) {
1220         default:
1221         case IFM_AUTO:
1222                 if ((error=enable_tp(sc))==0)
1223                         error = cs_duplex_auto(sc);
1224                 else if ((error=enable_bnc(sc)) != 0)
1225                         error = enable_aui(sc);
1226                 break;
1227         case IFM_10_T:
1228                 if ((error=enable_tp(sc)) != 0)
1229                         break;
1230                 if (media & IFM_FDX)
1231                         cs_duplex_full(sc);
1232                 else if (media & IFM_HDX)
1233                         cs_duplex_half(sc);
1234                 else
1235                         error = cs_duplex_auto(sc);
1236                 break;
1237         case IFM_10_2:
1238                 error = enable_bnc(sc);
1239                 break;
1240         case IFM_10_5:
1241                 error = enable_aui(sc);
1242                 break;
1243         }
1244
1245         /*
1246          * Turn the transmitter & receiver back on
1247          */
1248         cs_writereg(sc->nic_addr, PP_LineCTL,
1249                     cs_readreg( sc->nic_addr, PP_LineCTL ) |
1250                     SERIAL_RX_ON | SERIAL_TX_ON); 
1251
1252         return error;
1253 }