drivers/net/skfp/drvfbi.c

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