xref: /linux/drivers/net/fddi/skfp/drvfbi.c (revision 041f57c7)
1 // SPDX-License-Identifier: GPL-2.0-or-later
2 /******************************************************************************
3  *
4  *	(C)Copyright 1998,1999 SysKonnect,
5  *	a business unit of Schneider & Koch & Co. Datensysteme GmbH.
6  *
7  *	See the file "skfddi.c" for further information.
8  *
9  *	The information in this file is provided "AS IS" without warranty.
10  *
11  ******************************************************************************/
12 
13 /*
14  * FBI board dependent Driver for SMT and LLC
15  */
16 
17 #include "h/types.h"
18 #include "h/fddi.h"
19 #include "h/smc.h"
20 #include "h/supern_2.h"
21 #include "h/skfbiinc.h"
22 #include <linux/bitrev.h>
23 #include <linux/pci.h>
24 
25 /*
26  * PCM active state
27  */
28 #define PC8_ACTIVE	8
29 
30 #define	LED_Y_ON	0x11	/* Used for ring up/down indication */
31 #define	LED_Y_OFF	0x10
32 
33 
34 #define MS2BCLK(x)	((x)*12500L)
35 
36 /*
37  * valid configuration values are:
38  */
39 
40 /*
41  *	xPOS_ID:xxxx
42  *	|	\  /
43  *	|	 \/
44  *	|	  --------------------- the patched POS_ID of the Adapter
45  *	|				xxxx = (Vendor ID low byte,
46  *	|					Vendor ID high byte,
47  *	|					Device ID low byte,
48  *	|					Device ID high byte)
49  *	+------------------------------ the patched oem_id must be
50  *					'S' for SK or 'I' for IBM
51  *					this is a short id for the driver.
52  */
53 #ifndef MULT_OEM
54 #ifndef	OEM_CONCEPT
55 const u_char oem_id[] = "xPOS_ID:xxxx" ;
56 #else	/* OEM_CONCEPT */
57 const u_char oem_id[] = OEM_ID ;
58 #endif	/* OEM_CONCEPT */
59 #define	ID_BYTE0	8
60 #define	OEMID(smc,i)	oem_id[ID_BYTE0 + i]
61 #else	/* MULT_OEM */
62 const struct s_oem_ids oem_ids[] = {
63 #include "oemids.h"
64 {0}
65 };
66 #define	OEMID(smc,i)	smc->hw.oem_id->oi_id[i]
67 #endif	/* MULT_OEM */
68 
69 /* Prototypes of external functions */
70 #ifdef AIX
71 extern int AIX_vpdReadByte() ;
72 #endif
73 
74 
75 /* Prototype of a local function. */
76 static void smt_stop_watchdog(struct s_smc *smc);
77 
78 /*
79  * FDDI card reset
80  */
card_start(struct s_smc * smc)81 static void card_start(struct s_smc *smc)
82 {
83 	int i ;
84 #ifdef	PCI
85 	u_char	rev_id ;
86 	u_short word;
87 #endif
88 
89 	smt_stop_watchdog(smc) ;
90 
91 #ifdef	PCI
92 	/*
93 	 * make sure no transfer activity is pending
94 	 */
95 	outpw(FM_A(FM_MDREG1),FM_MINIT) ;
96 	outp(ADDR(B0_CTRL), CTRL_HPI_SET) ;
97 	hwt_wait_time(smc,hwt_quick_read(smc),MS2BCLK(10)) ;
98 	/*
99 	 * now reset everything
100 	 */
101 	outp(ADDR(B0_CTRL),CTRL_RST_SET) ;	/* reset for all chips */
102 	i = (int) inp(ADDR(B0_CTRL)) ;		/* do dummy read */
103 	SK_UNUSED(i) ;				/* Make LINT happy. */
104 	outp(ADDR(B0_CTRL), CTRL_RST_CLR) ;
105 
106 	/*
107 	 * Reset all bits in the PCI STATUS register
108 	 */
109 	outp(ADDR(B0_TST_CTRL), TST_CFG_WRITE_ON) ;	/* enable for writes */
110 	word = inpw(PCI_C(PCI_STATUS)) ;
111 	outpw(PCI_C(PCI_STATUS), word | PCI_STATUS_ERROR_BITS);
112 	outp(ADDR(B0_TST_CTRL), TST_CFG_WRITE_OFF) ;	/* disable writes */
113 
114 	/*
115 	 * Release the reset of all the State machines
116 	 * Release Master_Reset
117 	 * Release HPI_SM_Reset
118 	 */
119 	outp(ADDR(B0_CTRL), CTRL_MRST_CLR|CTRL_HPI_CLR) ;
120 
121 	/*
122 	 * determine the adapter type
123 	 * Note: Do it here, because some drivers may call card_start() once
124 	 *	 at very first before any other initialization functions is
125 	 *	 executed.
126 	 */
127 	rev_id = inp(PCI_C(PCI_REVISION_ID)) ;
128 	if ((rev_id & 0xf0) == SK_ML_ID_1 || (rev_id & 0xf0) == SK_ML_ID_2) {
129 		smc->hw.hw_is_64bit = TRUE ;
130 	} else {
131 		smc->hw.hw_is_64bit = FALSE ;
132 	}
133 
134 	/*
135 	 * Watermark initialization
136 	 */
137 	if (!smc->hw.hw_is_64bit) {
138 		outpd(ADDR(B4_R1_F), RX_WATERMARK) ;
139 		outpd(ADDR(B5_XA_F), TX_WATERMARK) ;
140 		outpd(ADDR(B5_XS_F), TX_WATERMARK) ;
141 	}
142 
143 	outp(ADDR(B0_CTRL),CTRL_RST_CLR) ;	/* clear the reset chips */
144 	outp(ADDR(B0_LED),LED_GA_OFF|LED_MY_ON|LED_GB_OFF) ; /* ye LED on */
145 
146 	/* init the timer value for the watch dog 2,5 minutes */
147 	outpd(ADDR(B2_WDOG_INI),0x6FC23AC0) ;
148 
149 	/* initialize the ISR mask */
150 	smc->hw.is_imask = ISR_MASK ;
151 	smc->hw.hw_state = STOPPED ;
152 #endif
153 	GET_PAGE(0) ;		/* necessary for BOOT */
154 }
155 
card_stop(struct s_smc * smc)156 void card_stop(struct s_smc *smc)
157 {
158 	smt_stop_watchdog(smc) ;
159 	smc->hw.mac_ring_is_up = 0 ;		/* ring down */
160 
161 #ifdef	PCI
162 	/*
163 	 * make sure no transfer activity is pending
164 	 */
165 	outpw(FM_A(FM_MDREG1),FM_MINIT) ;
166 	outp(ADDR(B0_CTRL), CTRL_HPI_SET) ;
167 	hwt_wait_time(smc,hwt_quick_read(smc),MS2BCLK(10)) ;
168 	/*
169 	 * now reset everything
170 	 */
171 	outp(ADDR(B0_CTRL),CTRL_RST_SET) ;	/* reset for all chips */
172 	outp(ADDR(B0_CTRL),CTRL_RST_CLR) ;	/* reset for all chips */
173 	outp(ADDR(B0_LED),LED_GA_OFF|LED_MY_OFF|LED_GB_OFF) ; /* all LEDs off */
174 	smc->hw.hw_state = STOPPED ;
175 #endif
176 }
177 /*--------------------------- ISR handling ----------------------------------*/
178 
mac1_irq(struct s_smc * smc,u_short stu,u_short stl)179 void mac1_irq(struct s_smc *smc, u_short stu, u_short stl)
180 {
181 	int	restart_tx = 0 ;
182 again:
183 
184 	/*
185 	 * parity error: note encoding error is not possible in tag mode
186 	 */
187 	if (stl & (FM_SPCEPDS  |	/* parity err. syn.q.*/
188 		   FM_SPCEPDA0 |	/* parity err. a.q.0 */
189 		   FM_SPCEPDA1)) {	/* parity err. a.q.1 */
190 		SMT_PANIC(smc,SMT_E0134, SMT_E0134_MSG) ;
191 	}
192 	/*
193 	 * buffer underrun: can only occur if a tx threshold is specified
194 	 */
195 	if (stl & (FM_STBURS  |		/* tx buffer underrun syn.q.*/
196 		   FM_STBURA0 |		/* tx buffer underrun a.q.0 */
197 		   FM_STBURA1)) {	/* tx buffer underrun a.q.2 */
198 		SMT_PANIC(smc,SMT_E0133, SMT_E0133_MSG) ;
199 	}
200 
201 	if ( (stu & (FM_SXMTABT |		/* transmit abort */
202 		     FM_STXABRS |		/* syn. tx abort */
203 		     FM_STXABRA0)) ||		/* asyn. tx abort */
204 	     (stl & (FM_SQLCKS |		/* lock for syn. q. */
205 		     FM_SQLCKA0)) ) {		/* lock for asyn. q. */
206 		formac_tx_restart(smc) ;	/* init tx */
207 		restart_tx = 1 ;
208 		stu = inpw(FM_A(FM_ST1U)) ;
209 		stl = inpw(FM_A(FM_ST1L)) ;
210 		stu &= ~ (FM_STECFRMA0 | FM_STEFRMA0 | FM_STEFRMS) ;
211 		if (stu || stl)
212 			goto again ;
213 	}
214 
215 	if (stu & (FM_STEFRMA0 |	/* end of asyn tx */
216 		    FM_STEFRMS)) {	/* end of sync tx */
217 		restart_tx = 1 ;
218 	}
219 
220 	if (restart_tx)
221 		llc_restart_tx(smc) ;
222 }
223 
224 /*
225  * interrupt source= plc1
226  * this function is called in nwfbisr.asm
227  */
plc1_irq(struct s_smc * smc)228 void plc1_irq(struct s_smc *smc)
229 {
230 	u_short	st = inpw(PLC(PB,PL_INTR_EVENT)) ;
231 
232 	plc_irq(smc,PB,st) ;
233 }
234 
235 /*
236  * interrupt source= plc2
237  * this function is called in nwfbisr.asm
238  */
plc2_irq(struct s_smc * smc)239 void plc2_irq(struct s_smc *smc)
240 {
241 	u_short	st = inpw(PLC(PA,PL_INTR_EVENT)) ;
242 
243 	plc_irq(smc,PA,st) ;
244 }
245 
246 
247 /*
248  * interrupt source= timer
249  */
timer_irq(struct s_smc * smc)250 void timer_irq(struct s_smc *smc)
251 {
252 	hwt_restart(smc);
253 	smc->hw.t_stop = smc->hw.t_start;
254 	smt_timer_done(smc) ;
255 }
256 
257 /*
258  * return S-port (PA or PB)
259  */
pcm_get_s_port(struct s_smc * smc)260 int pcm_get_s_port(struct s_smc *smc)
261 {
262 	SK_UNUSED(smc) ;
263 	return PS;
264 }
265 
266 /*
267  * Station Label = "FDDI-XYZ" where
268  *
269  *	X = connector type
270  *	Y = PMD type
271  *	Z = port type
272  */
273 #define STATION_LABEL_CONNECTOR_OFFSET	5
274 #define STATION_LABEL_PMD_OFFSET	6
275 #define STATION_LABEL_PORT_OFFSET	7
276 
read_address(struct s_smc * smc,u_char * mac_addr)277 void read_address(struct s_smc *smc, u_char *mac_addr)
278 {
279 	char ConnectorType ;
280 	char PmdType ;
281 	int	i ;
282 
283 #ifdef	PCI
284 	for (i = 0; i < 6; i++) {	/* read mac address from board */
285 		smc->hw.fddi_phys_addr.a[i] =
286 			bitrev8(inp(ADDR(B2_MAC_0+i)));
287 	}
288 #endif
289 
290 	ConnectorType = inp(ADDR(B2_CONN_TYP)) ;
291 	PmdType = inp(ADDR(B2_PMD_TYP)) ;
292 
293 	smc->y[PA].pmd_type[PMD_SK_CONN] =
294 	smc->y[PB].pmd_type[PMD_SK_CONN] = ConnectorType ;
295 	smc->y[PA].pmd_type[PMD_SK_PMD ] =
296 	smc->y[PB].pmd_type[PMD_SK_PMD ] = PmdType ;
297 
298 	if (mac_addr) {
299 		for (i = 0; i < 6 ;i++) {
300 			smc->hw.fddi_canon_addr.a[i] = mac_addr[i] ;
301 			smc->hw.fddi_home_addr.a[i] = bitrev8(mac_addr[i]);
302 		}
303 		return ;
304 	}
305 	smc->hw.fddi_home_addr = smc->hw.fddi_phys_addr ;
306 
307 	for (i = 0; i < 6 ;i++) {
308 		smc->hw.fddi_canon_addr.a[i] =
309 			bitrev8(smc->hw.fddi_phys_addr.a[i]);
310 	}
311 }
312 
313 /*
314  * FDDI card soft reset
315  */
init_board(struct s_smc * smc,u_char * mac_addr)316 void init_board(struct s_smc *smc, u_char *mac_addr)
317 {
318 	card_start(smc) ;
319 	read_address(smc,mac_addr) ;
320 
321 	if (!(inp(ADDR(B0_DAS)) & DAS_AVAIL))
322 		smc->s.sas = SMT_SAS ;	/* Single att. station */
323 	else
324 		smc->s.sas = SMT_DAS ;	/* Dual att. station */
325 
326 	if (!(inp(ADDR(B0_DAS)) & DAS_BYP_ST))
327 		smc->mib.fddiSMTBypassPresent = 0 ;
328 		/* without opt. bypass */
329 	else
330 		smc->mib.fddiSMTBypassPresent = 1 ;
331 		/* with opt. bypass */
332 }
333 
334 /*
335  * insert or deinsert optical bypass (called by ECM)
336  */
sm_pm_bypass_req(struct s_smc * smc,int mode)337 void sm_pm_bypass_req(struct s_smc *smc, int mode)
338 {
339 	DB_ECMN(1, "ECM : sm_pm_bypass_req(%s)",
340 		mode == BP_INSERT ? "BP_INSERT" : "BP_DEINSERT");
341 
342 	if (smc->s.sas != SMT_DAS)
343 		return ;
344 
345 #ifdef	PCI
346 	switch(mode) {
347 	case BP_INSERT :
348 		outp(ADDR(B0_DAS),DAS_BYP_INS) ;	/* insert station */
349 		break ;
350 	case BP_DEINSERT :
351 		outp(ADDR(B0_DAS),DAS_BYP_RMV) ;	/* bypass station */
352 		break ;
353 	}
354 #endif
355 }
356 
357 /*
358  * check if bypass connected
359  */
sm_pm_bypass_present(struct s_smc * smc)360 int sm_pm_bypass_present(struct s_smc *smc)
361 {
362 	return (inp(ADDR(B0_DAS)) & DAS_BYP_ST) ? TRUE : FALSE;
363 }
364 
plc_clear_irq(struct s_smc * smc,int p)365 void plc_clear_irq(struct s_smc *smc, int p)
366 {
367 	SK_UNUSED(p) ;
368 
369 	SK_UNUSED(smc) ;
370 }
371 
372 
373 /*
374  * led_indication called by rmt_indication() and
375  * pcm_state_change()
376  *
377  * Input:
378  *	smc:	SMT context
379  *	led_event:
380  *	0	Only switch green LEDs according to their respective PCM state
381  *	LED_Y_OFF	just switch yellow LED off
382  *	LED_Y_ON	just switch yello LED on
383  */
led_indication(struct s_smc * smc,int led_event)384 static void led_indication(struct s_smc *smc, int led_event)
385 {
386 	/* use smc->hw.mac_ring_is_up == TRUE
387 	 * as indication for Ring Operational
388 	 */
389 	u_short			led_state ;
390 	struct s_phy		*phy ;
391 	struct fddi_mib_p	*mib_a ;
392 	struct fddi_mib_p	*mib_b ;
393 
394 	phy = &smc->y[PA] ;
395 	mib_a = phy->mib ;
396 	phy = &smc->y[PB] ;
397 	mib_b = phy->mib ;
398 
399 #ifdef	PCI
400         led_state = 0 ;
401 
402 	/* Ring up = yellow led OFF*/
403 	if (led_event == LED_Y_ON) {
404 		led_state |= LED_MY_ON ;
405 	}
406 	else if (led_event == LED_Y_OFF) {
407 		led_state |= LED_MY_OFF ;
408 	}
409 	else {	/* PCM state changed */
410 		/* Link at Port A/S = green led A ON */
411 		if (mib_a->fddiPORTPCMState == PC8_ACTIVE) {
412 			led_state |= LED_GA_ON ;
413 		}
414 		else {
415 			led_state |= LED_GA_OFF ;
416 		}
417 
418 		/* Link at Port B = green led B ON */
419 		if (mib_b->fddiPORTPCMState == PC8_ACTIVE) {
420 			led_state |= LED_GB_ON ;
421 		}
422 		else {
423 			led_state |= LED_GB_OFF ;
424 		}
425 	}
426 
427         outp(ADDR(B0_LED), led_state) ;
428 #endif	/* PCI */
429 
430 }
431 
432 
pcm_state_change(struct s_smc * smc,int plc,int p_state)433 void pcm_state_change(struct s_smc *smc, int plc, int p_state)
434 {
435 	/*
436 	 * the current implementation of pcm_state_change() in the driver
437 	 * parts must be renamed to drv_pcm_state_change() which will be called
438 	 * now after led_indication.
439 	 */
440 	DRV_PCM_STATE_CHANGE(smc,plc,p_state) ;
441 
442 	led_indication(smc,0) ;
443 }
444 
445 
rmt_indication(struct s_smc * smc,int i)446 void rmt_indication(struct s_smc *smc, int i)
447 {
448 	/* Call a driver special function if defined */
449 	DRV_RMT_INDICATION(smc,i) ;
450 
451         led_indication(smc, i ? LED_Y_OFF : LED_Y_ON) ;
452 }
453 
454 
455 /*
456  * llc_recover_tx called by init_tx (fplus.c)
457  */
llc_recover_tx(struct s_smc * smc)458 void llc_recover_tx(struct s_smc *smc)
459 {
460 #ifdef	LOAD_GEN
461 	extern	int load_gen_flag ;
462 
463 	load_gen_flag = 0 ;
464 #endif
465 #ifndef	SYNC
466 	smc->hw.n_a_send= 0 ;
467 #else
468 	SK_UNUSED(smc) ;
469 #endif
470 }
471 
472 #ifdef MULT_OEM
is_equal_num(char comp1[],char comp2[],int num)473 static int is_equal_num(char comp1[], char comp2[], int num)
474 {
475 	int i ;
476 
477 	for (i = 0 ; i < num ; i++) {
478 		if (comp1[i] != comp2[i])
479 			return 0;
480 	}
481 		return 1;
482 }	/* is_equal_num */
483 
484 
485 /*
486  * set the OEM ID defaults, and test the contents of the OEM data base
487  * The default OEM is the first ACTIVE entry in the OEM data base
488  *
489  * returns:	0	success
490  *		1	error in data base
491  *		2	data base empty
492  *		3	no active entry
493  */
set_oi_id_def(struct s_smc * smc)494 int set_oi_id_def(struct s_smc *smc)
495 {
496 	int sel_id ;
497 	int i ;
498 	int act_entries ;
499 
500 	i = 0 ;
501 	sel_id = -1 ;
502 	act_entries = FALSE ;
503 	smc->hw.oem_id = 0 ;
504 	smc->hw.oem_min_status = OI_STAT_ACTIVE ;
505 
506 	/* check OEM data base */
507 	while (oem_ids[i].oi_status) {
508 		switch (oem_ids[i].oi_status) {
509 		case OI_STAT_ACTIVE:
510 			act_entries = TRUE ;	/* we have active IDs */
511 			if (sel_id == -1)
512 				sel_id = i ;	/* save the first active ID */
513 		case OI_STAT_VALID:
514 		case OI_STAT_PRESENT:
515 			i++ ;
516 			break ;			/* entry ok */
517 		default:
518 			return 1;		/* invalid oi_status */
519 		}
520 	}
521 
522 	if (i == 0)
523 		return 2;
524 	if (!act_entries)
525 		return 3;
526 
527 	/* ok, we have a valid OEM data base with an active entry */
528 	smc->hw.oem_id = (struct s_oem_ids *)  &oem_ids[sel_id] ;
529 	return 0;
530 }
531 #endif	/* MULT_OEM */
532 
driver_get_bia(struct s_smc * smc,struct fddi_addr * bia_addr)533 void driver_get_bia(struct s_smc *smc, struct fddi_addr *bia_addr)
534 {
535 	int i ;
536 
537 	for (i = 0 ; i < 6 ; i++)
538 		bia_addr->a[i] = bitrev8(smc->hw.fddi_phys_addr.a[i]);
539 }
540 
smt_start_watchdog(struct s_smc * smc)541 void smt_start_watchdog(struct s_smc *smc)
542 {
543 	SK_UNUSED(smc) ;	/* Make LINT happy. */
544 
545 #ifndef	DEBUG
546 
547 #ifdef	PCI
548 	if (smc->hw.wdog_used) {
549 		outpw(ADDR(B2_WDOG_CRTL),TIM_START) ;	/* Start timer. */
550 	}
551 #endif
552 
553 #endif	/* DEBUG */
554 }
555 
smt_stop_watchdog(struct s_smc * smc)556 static void smt_stop_watchdog(struct s_smc *smc)
557 {
558 	SK_UNUSED(smc) ;	/* Make LINT happy. */
559 #ifndef	DEBUG
560 
561 #ifdef	PCI
562 	if (smc->hw.wdog_used) {
563 		outpw(ADDR(B2_WDOG_CRTL),TIM_STOP) ;	/* Stop timer. */
564 	}
565 #endif
566 
567 #endif	/* DEBUG */
568 }
569 
570 #ifdef	PCI
571 
mac_do_pci_fix(struct s_smc * smc)572 void mac_do_pci_fix(struct s_smc *smc)
573 {
574 	SK_UNUSED(smc) ;
575 }
576 #endif	/* PCI */
577 
578