drivers/isdn/hardware/eicon/io.c

   1
   2 /*
   3  *
   4   Copyright (c) Eicon Networks, 2002.
   5  *
   6   This source file is supplied for the use with
   7   Eicon Networks range of DIVA Server Adapters.
   8  *
   9   Eicon File Revision :    2.1
  10  *
  11   This program is free software; you can redistribute it and/or modify
  12   it under the terms of the GNU General Public License as published by
  13   the Free Software Foundation; either version 2, or (at your option)
  14   any later version.
  15  *
  16   This program is distributed in the hope that it will be useful,
  17   but WITHOUT ANY WARRANTY OF ANY KIND WHATSOEVER INCLUDING ANY
  18   implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  19   See the GNU General Public License for more details.
  20  *
  21   You should have received a copy of the GNU General Public License
  22   along with this program; if not, write to the Free Software
  23   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24  *
  25  */
  26 #include "platform.h"
  27 #include "di_defs.h"
  28 #include "pc.h"
  29 #include "pr_pc.h"
  30 #include "divasync.h"
  31 #define MIPS_SCOM
  32 #include "pkmaint.h" /* pc_main.h, packed in os-dependent fashion */
  33 #include "di.h"
  34 #include "mi_pc.h"
  35 #include "io.h"
  36 extern ADAPTER * adapter[MAX_ADAPTER];
  37 extern PISDN_ADAPTER IoAdapters[MAX_ADAPTER];
  38 void request (PISDN_ADAPTER, ENTITY *);
  39 static void pcm_req (PISDN_ADAPTER, ENTITY *);
  40 /* --------------------------------------------------------------------------
  41   local functions
  42   -------------------------------------------------------------------------- */
  43 #define ReqFunc(N) \
  44 static void Request##N(ENTITY *e) \
  45 { if ( IoAdapters[N] ) (* IoAdapters[N]->DIRequest)(IoAdapters[N], e) ; }
  46 ReqFunc(0)
  47 ReqFunc(1)
  48 ReqFunc(2)
  49 ReqFunc(3)
  50 ReqFunc(4)
  51 ReqFunc(5)
  52 ReqFunc(6)
  53 ReqFunc(7)
  54 ReqFunc(8)
  55 ReqFunc(9)
  56 ReqFunc(10)
  57 ReqFunc(11)
  58 ReqFunc(12)
  59 ReqFunc(13)
  60 ReqFunc(14)
  61 ReqFunc(15)
  62 IDI_CALL Requests[MAX_ADAPTER] =
  63 { &Request0, &Request1, &Request2, &Request3,
  64  &Request4, &Request5, &Request6, &Request7,
  65  &Request8, &Request9, &Request10, &Request11,
  66  &Request12, &Request13, &Request14, &Request15
  67 };
  68 /*****************************************************************************/
  69 /*
  70   This array should indicate all new services, that this version of XDI
  71   is able to provide to his clients
  72   */
  73 static byte extended_xdi_features[DIVA_XDI_EXTENDED_FEATURES_MAX_SZ+1] = {
  74  (DIVA_XDI_EXTENDED_FEATURES_VALID       |
  75   DIVA_XDI_EXTENDED_FEATURE_SDRAM_BAR    |
  76   DIVA_XDI_EXTENDED_FEATURE_CAPI_PRMS    |
  77 #if defined(DIVA_IDI_RX_DMA)
  78   DIVA_XDI_EXTENDED_FEATURE_CMA          |
  79   DIVA_XDI_EXTENDED_FEATURE_RX_DMA       |
  80   DIVA_XDI_EXTENDED_FEATURE_MANAGEMENT_DMA |
  81 #endif
  82   DIVA_XDI_EXTENDED_FEATURE_NO_CANCEL_RC),
  83  0
  84 };
  85 /*****************************************************************************/
  86 void
  87 dump_xlog_buffer (PISDN_ADAPTER IoAdapter, Xdesc *xlogDesc)
  88 {
  89  dword   logLen ;
  90  word *Xlog   = xlogDesc->buf ;
  91  word  logCnt = xlogDesc->cnt ;
  92  word  logOut = xlogDesc->out / sizeof(*Xlog) ;
  93  DBG_FTL(("%s: ************* XLOG recovery (%d) *************",
  94           &IoAdapter->Name[0], (int)logCnt))
  95  DBG_FTL(("Microcode: %s", &IoAdapter->ProtocolIdString[0]))
  96  for ( ; logCnt > 0 ; --logCnt )
  97  {
  98   if ( !GET_WORD(&Xlog[logOut]) )
  99   {
 100    if ( --logCnt == 0 )
 101     break ;
 102    logOut = 0 ;
 103   }
 104   if ( GET_WORD(&Xlog[logOut]) <= (logOut * sizeof(*Xlog)) )
 105   {
 106    if ( logCnt > 2 )
 107    {
 108     DBG_FTL(("Possibly corrupted XLOG: %d entries left",
 109              (int)logCnt))
 110    }
 111    break ;
 112   }
 113   logLen = (dword)(GET_WORD(&Xlog[logOut]) - (logOut * sizeof(*Xlog))) ;
 114   DBG_FTL_MXLOG(( (char *)&Xlog[logOut + 1], (dword)(logLen - 2) ))
 115   logOut = (GET_WORD(&Xlog[logOut]) + 1) / sizeof(*Xlog) ;
 116  }
 117  DBG_FTL(("%s: ***************** end of XLOG *****************",
 118           &IoAdapter->Name[0]))
 119 }
 120 /*****************************************************************************/
 121 #if defined(XDI_USE_XLOG)
 122 static char *(ExceptionCauseTable[]) =
 123 {
 124  "Interrupt",
 125  "TLB mod /IBOUND",
 126  "TLB load /DBOUND",
 127  "TLB store",
 128  "Address error load",
 129  "Address error store",
 130  "Instruction load bus error",
 131  "Data load/store bus error",
 132  "Syscall",
 133  "Breakpoint",
 134  "Reverd instruction",
 135  "Coprocessor unusable",
 136  "Overflow",
 137  "TRAP",
 138  "VCEI",
 139  "Floating Point Exception",
 140  "CP2",
 141  "Reserved 17",
 142  "Reserved 18",
 143  "Reserved 19",
 144  "Reserved 20",
 145  "Reserved 21",
 146  "Reserved 22",
 147  "WATCH",
 148  "Reserved 24",
 149  "Reserved 25",
 150  "Reserved 26",
 151  "Reserved 27",
 152  "Reserved 28",
 153  "Reserved 29",
 154  "Reserved 30",
 155  "VCED"
 156 } ;
 157 #endif
 158 void
 159 dump_trap_frame (PISDN_ADAPTER IoAdapter, byte __iomem *exceptionFrame)
 160 {
 161  MP_XCPTC __iomem *xcept = (MP_XCPTC __iomem *)exceptionFrame ;
 162  dword    __iomem *regs;
 163  regs  = &xcept->regs[0] ;
 164  DBG_FTL(("%s: ***************** CPU TRAPPED *****************",
 165           &IoAdapter->Name[0]))
 166  DBG_FTL(("Microcode: %s", &IoAdapter->ProtocolIdString[0]))
 167  DBG_FTL(("Cause: %s",
 168           ExceptionCauseTable[(READ_DWORD(&xcept->cr) & 0x0000007c) >> 2]))
 169  DBG_FTL(("sr    0x%08x cr    0x%08x epc   0x%08x vaddr 0x%08x",
 170           READ_DWORD(&xcept->sr), READ_DWORD(&xcept->cr),
 171                                         READ_DWORD(&xcept->epc), READ_DWORD(&xcept->vaddr)))
 172  DBG_FTL(("zero  0x%08x at    0x%08x v0    0x%08x v1    0x%08x",
 173           READ_DWORD(&regs[ 0]), READ_DWORD(&regs[ 1]),
 174                                         READ_DWORD(&regs[ 2]), READ_DWORD(&regs[ 3])))
 175  DBG_FTL(("a0    0x%08x a1    0x%08x a2    0x%08x a3    0x%08x",
 176           READ_DWORD(&regs[ 4]), READ_DWORD(&regs[ 5]),
 177                                         READ_DWORD(&regs[ 6]), READ_DWORD(&regs[ 7])))
 178  DBG_FTL(("t0    0x%08x t1    0x%08x t2    0x%08x t3    0x%08x",
 179           READ_DWORD(&regs[ 8]), READ_DWORD(&regs[ 9]),
 180                                         READ_DWORD(&regs[10]), READ_DWORD(&regs[11])))
 181  DBG_FTL(("t4    0x%08x t5    0x%08x t6    0x%08x t7    0x%08x",
 182           READ_DWORD(&regs[12]), READ_DWORD(&regs[13]),
 183                                         READ_DWORD(&regs[14]), READ_DWORD(&regs[15])))
 184  DBG_FTL(("s0    0x%08x s1    0x%08x s2    0x%08x s3    0x%08x",
 185           READ_DWORD(&regs[16]), READ_DWORD(&regs[17]),
 186                                         READ_DWORD(&regs[18]), READ_DWORD(&regs[19])))
 187  DBG_FTL(("s4    0x%08x s5    0x%08x s6    0x%08x s7    0x%08x",
 188           READ_DWORD(&regs[20]), READ_DWORD(&regs[21]),
 189                                         READ_DWORD(&regs[22]), READ_DWORD(&regs[23])))
 190  DBG_FTL(("t8    0x%08x t9    0x%08x k0    0x%08x k1    0x%08x",
 191           READ_DWORD(&regs[24]), READ_DWORD(&regs[25]),
 192                                         READ_DWORD(&regs[26]), READ_DWORD(&regs[27])))
 193  DBG_FTL(("gp    0x%08x sp    0x%08x s8    0x%08x ra    0x%08x",
 194           READ_DWORD(&regs[28]), READ_DWORD(&regs[29]),
 195                                         READ_DWORD(&regs[30]), READ_DWORD(&regs[31])))
 196  DBG_FTL(("md    0x%08x|%08x         resvd 0x%08x class 0x%08x",
 197           READ_DWORD(&xcept->mdhi), READ_DWORD(&xcept->mdlo),
 198                                         READ_DWORD(&xcept->reseverd), READ_DWORD(&xcept->xclass)))
 199 }
 200 /* --------------------------------------------------------------------------
 201   Real XDI Request function
 202   -------------------------------------------------------------------------- */
 203 void request(PISDN_ADAPTER IoAdapter, ENTITY * e)
 204 {
 205  byte i;
 206  diva_os_spin_lock_magic_t irql;
 207 /*
 208  * if the Req field in the entity structure is 0,
 209  * we treat this request as a special function call
 210  */
 211  if ( !e->Req )
 212  {
 213   IDI_SYNC_REQ *syncReq = (IDI_SYNC_REQ *)e ;
 214   switch (e->Rc)
 215   {
 216 #if defined(DIVA_IDI_RX_DMA)
 217     case IDI_SYNC_REQ_DMA_DESCRIPTOR_OPERATION: {
 218       diva_xdi_dma_descriptor_operation_t* pI = \
 219                                    &syncReq->xdi_dma_descriptor_operation.info;
 220       if (!IoAdapter->dma_map) {
 221         pI->operation         = -1;
 222         pI->descriptor_number = -1;
 223         return;
 224       }
 225       diva_os_enter_spin_lock (&IoAdapter->data_spin_lock, &irql, "dma_op");
 226       if (pI->operation == IDI_SYNC_REQ_DMA_DESCRIPTOR_ALLOC) {
 227         pI->descriptor_number = diva_alloc_dma_map_entry (\
 228                                (struct _diva_dma_map_entry*)IoAdapter->dma_map);
 229         if (pI->descriptor_number >= 0) {
 230           dword dma_magic;
 231           void* local_addr;
 232           diva_get_dma_map_entry (\
 233                                (struct _diva_dma_map_entry*)IoAdapter->dma_map,
 234                                pI->descriptor_number,
 235                                &local_addr, &dma_magic);
 236           pI->descriptor_address  = local_addr;
 237           pI->descriptor_magic    = dma_magic;
 238           pI->operation           = 0;
 239         } else {
 240           pI->operation           = -1;
 241         }
 242       } else if ((pI->operation == IDI_SYNC_REQ_DMA_DESCRIPTOR_FREE) &&
 243                  (pI->descriptor_number >= 0)) {
 244         diva_free_dma_map_entry((struct _diva_dma_map_entry*)IoAdapter->dma_map,
 245                                 pI->descriptor_number);
 246         pI->descriptor_number = -1;
 247         pI->operation         = 0;
 248       } else {
 249         pI->descriptor_number = -1;
 250         pI->operation         = -1;
 251       }
 252       diva_os_leave_spin_lock (&IoAdapter->data_spin_lock, &irql, "dma_op");
 253     } return;
 254 #endif
 255     case IDI_SYNC_REQ_XDI_GET_LOGICAL_ADAPTER_NUMBER: {
 256       diva_xdi_get_logical_adapter_number_s_t *pI = \
 257                                      &syncReq->xdi_logical_adapter_number.info;
 258       pI->logical_adapter_number = IoAdapter->ANum;
 259       pI->controller = IoAdapter->ControllerNumber;
 260       pI->total_controllers = IoAdapter->Properties.Adapters;
 261     } return;
 262     case IDI_SYNC_REQ_XDI_GET_CAPI_PARAMS: {
 263        diva_xdi_get_capi_parameters_t prms, *pI = &syncReq->xdi_capi_prms.info;
 264        memset (&prms, 0x00, sizeof(prms));
 265        prms.structure_length = min_t(size_t, sizeof(prms), pI->structure_length);
 266        memset (pI, 0x00, pI->structure_length);
 267        prms.flag_dynamic_l1_down    = (IoAdapter->capi_cfg.cfg_1 & \
 268          DIVA_XDI_CAPI_CFG_1_DYNAMIC_L1_ON) ? 1 : 0;
 269        prms.group_optimization_enabled = (IoAdapter->capi_cfg.cfg_1 & \
 270          DIVA_XDI_CAPI_CFG_1_GROUP_POPTIMIZATION_ON) ? 1 : 0;
 271        memcpy (pI, &prms, prms.structure_length);
 272       } return;
 273     case IDI_SYNC_REQ_XDI_GET_ADAPTER_SDRAM_BAR:
 274       syncReq->xdi_sdram_bar.info.bar = IoAdapter->sdram_bar;
 275       return;
 276     case IDI_SYNC_REQ_XDI_GET_EXTENDED_FEATURES: {
 277       dword i;
 278       diva_xdi_get_extended_xdi_features_t* pI =\
 279                                  &syncReq->xdi_extended_features.info;
 280       pI->buffer_length_in_bytes &= ~0x80000000;
 281       if (pI->buffer_length_in_bytes && pI->features) {
 282         memset (pI->features, 0x00, pI->buffer_length_in_bytes);
 283       }
 284       for (i = 0; ((pI->features) && (i < pI->buffer_length_in_bytes) &&
 285                    (i < DIVA_XDI_EXTENDED_FEATURES_MAX_SZ)); i++) {
 286         pI->features[i] = extended_xdi_features[i];
 287       }
 288       if ((pI->buffer_length_in_bytes < DIVA_XDI_EXTENDED_FEATURES_MAX_SZ) ||
 289           (!pI->features)) {
 290         pI->buffer_length_in_bytes =\
 291                            (0x80000000 | DIVA_XDI_EXTENDED_FEATURES_MAX_SZ);
 292       }
 293      } return;
 294     case IDI_SYNC_REQ_XDI_GET_STREAM:
 295       if (IoAdapter) {
 296         diva_xdi_provide_istream_info (&IoAdapter->a,
 297                                        &syncReq->xdi_stream_info.info);
 298       } else {
 299         syncReq->xdi_stream_info.info.provided_service = 0;
 300       }
 301       return;
 302   case IDI_SYNC_REQ_GET_NAME:
 303    if ( IoAdapter )
 304    {
 305     strcpy (&syncReq->GetName.name[0], IoAdapter->Name) ;
 306     DBG_TRC(("xdi: Adapter %d / Name '%s'",
 307              IoAdapter->ANum, IoAdapter->Name))
 308     return ;
 309    }
 310    syncReq->GetName.name[0] = '\0' ;
 311    break ;
 312   case IDI_SYNC_REQ_GET_SERIAL:
 313    if ( IoAdapter )
 314    {
 315     syncReq->GetSerial.serial = IoAdapter->serialNo ;
 316     DBG_TRC(("xdi: Adapter %d / SerialNo %ld",
 317              IoAdapter->ANum, IoAdapter->serialNo))
 318     return ;
 319    }
 320    syncReq->GetSerial.serial = 0 ;
 321    break ;
 322   case IDI_SYNC_REQ_GET_CARDTYPE:
 323    if ( IoAdapter )
 324    {
 325     syncReq->GetCardType.cardtype = IoAdapter->cardType ;
 326     DBG_TRC(("xdi: Adapter %d / CardType %ld",
 327              IoAdapter->ANum, IoAdapter->cardType))
 328     return ;
 329    }
 330    syncReq->GetCardType.cardtype = 0 ;
 331    break ;
 332   case IDI_SYNC_REQ_GET_XLOG:
 333    if ( IoAdapter )
 334    {
 335     pcm_req (IoAdapter, e) ;
 336     return ;
 337    }
 338    e->Ind = 0 ;
 339    break ;
 340   case IDI_SYNC_REQ_GET_DBG_XLOG:
 341    if ( IoAdapter )
 342    {
 343     pcm_req (IoAdapter, e) ;
 344     return ;
 345    }
 346    e->Ind = 0 ;
 347    break ;
 348   case IDI_SYNC_REQ_GET_FEATURES:
 349    if ( IoAdapter )
 350    {
 351     syncReq->GetFeatures.features =
 352       (unsigned short)IoAdapter->features ;
 353     return ;
 354    }
 355    syncReq->GetFeatures.features = 0 ;
 356    break ;
 357         case IDI_SYNC_REQ_PORTDRV_HOOK:
 358             if ( IoAdapter )
 359             {
 360                 DBG_TRC(("Xdi:IDI_SYNC_REQ_PORTDRV_HOOK - ignored"))
 361                 return ;
 362             }
 363             break;
 364   }
 365   if ( IoAdapter )
 366   {
 367    return ;
 368   }
 369  }
 370  DBG_TRC(("xdi: Id 0x%x / Req 0x%x / Rc 0x%x", e->Id, e->Req, e->Rc))
 371  if ( !IoAdapter )
 372  {
 373   DBG_FTL(("xdi: uninitialized Adapter used - ignore request"))
 374   return ;
 375  }
 376  diva_os_enter_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_req");
 377 /*
 378  * assign an entity
 379  */
 380  if ( !(e->Id &0x1f) )
 381  {
 382   if ( IoAdapter->e_count >= IoAdapter->e_max )
 383   {
 384    DBG_FTL(("xdi: all Ids in use (max=%d) --> Req ignored",
 385             IoAdapter->e_max))
 386    diva_os_leave_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_req");
 387    return ;
 388   }
 389 /*
 390  * find a new free id
 391  */
 392   for ( i = 1 ; IoAdapter->e_tbl[i].e ; ++i ) ;
 393   IoAdapter->e_tbl[i].e = e ;
 394   IoAdapter->e_count++ ;
 395   e->No = (byte)i ;
 396   e->More = 0 ;
 397   e->RCurrent = 0xff ;
 398  }
 399  else
 400  {
 401   i = e->No ;
 402  }
 403 /*
 404  * if the entity is still busy, ignore the request call
 405  */
 406  if ( e->More & XBUSY )
 407  {
 408   DBG_FTL(("xdi: Id 0x%x busy --> Req 0x%x ignored", e->Id, e->Req))
 409   if ( !IoAdapter->trapped && IoAdapter->trapFnc )
 410   {
 411    IoAdapter->trapFnc (IoAdapter) ;
 412       /*
 413         Firs trap, also notify user if supported
 414        */
 415       if (IoAdapter->trapped && IoAdapter->os_trap_nfy_Fnc) {
 416         (*(IoAdapter->os_trap_nfy_Fnc))(IoAdapter, IoAdapter->ANum);
 417       }
 418   }
 419   diva_os_leave_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_req");
 420   return ;
 421  }
 422 /*
 423  * initialize transmit status variables
 424  */
 425  e->More |= XBUSY ;
 426  e->More &= ~XMOREF ;
 427  e->XCurrent = 0 ;
 428  e->XOffset = 0 ;
 429 /*
 430  * queue this entity in the adapter request queue
 431  */
 432  IoAdapter->e_tbl[i].next = 0 ;
 433  if ( IoAdapter->head )
 434  {
 435   IoAdapter->e_tbl[IoAdapter->tail].next = i ;
 436   IoAdapter->tail = i ;
 437  }
 438  else
 439  {
 440   IoAdapter->head = i ;
 441   IoAdapter->tail = i ;
 442  }
 443 /*
 444  * queue the DPC to process the request
 445  */
 446  diva_os_schedule_soft_isr (&IoAdapter->req_soft_isr);
 447  diva_os_leave_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_req");
 448 }
 449 /* ---------------------------------------------------------------------
 450   Main DPC routine
 451    --------------------------------------------------------------------- */
 452 void DIDpcRoutine (struct _diva_os_soft_isr* psoft_isr, void* Context) {
 453  PISDN_ADAPTER IoAdapter  = (PISDN_ADAPTER)Context ;
 454  ADAPTER* a        = &IoAdapter->a ;
 455  diva_os_atomic_t* pin_dpc = &IoAdapter->in_dpc;
 456  if (diva_os_atomic_increment (pin_dpc) == 1) {
 457   do {
 458    if ( IoAdapter->tst_irq (a) )
 459    {
 460     if ( !IoAdapter->Unavailable )
 461      IoAdapter->dpc (a) ;
 462     IoAdapter->clr_irq (a) ;
 463    }
 464    IoAdapter->out (a) ;
 465   } while (diva_os_atomic_decrement (pin_dpc) > 0);
 466   /* ----------------------------------------------------------------
 467     Look for XLOG request (cards with indirect addressing)
 468     ---------------------------------------------------------------- */
 469   if (IoAdapter->pcm_pending) {
 470    struct pc_maint *pcm;
 471    diva_os_spin_lock_magic_t OldIrql ;
 472    diva_os_enter_spin_lock (&IoAdapter->data_spin_lock,
 473                 &OldIrql,
 474                 "data_dpc");
 475    pcm = (struct pc_maint *)IoAdapter->pcm_data;
 476    switch (IoAdapter->pcm_pending) {
 477     case 1: /* ask card for XLOG */
 478      a->ram_out (a, &IoAdapter->pcm->rc, 0) ;
 479      a->ram_out (a, &IoAdapter->pcm->req, pcm->req) ;
 480      IoAdapter->pcm_pending = 2;
 481      break;
 482     case 2: /* Try to get XLOG from the card */
 483      if ((int)(a->ram_in (a, &IoAdapter->pcm->rc))) {
 484       a->ram_in_buffer (a, IoAdapter->pcm, pcm, sizeof(*pcm)) ;
 485       IoAdapter->pcm_pending = 3;
 486      }
 487      break;
 488     case 3: /* let XDI recovery XLOG */
 489      break;
 490    }
 491    diva_os_leave_spin_lock (&IoAdapter->data_spin_lock,
 492                 &OldIrql,
 493                 "data_dpc");
 494   }
 495   /* ---------------------------------------------------------------- */
 496  }
 497 }
 498 /* --------------------------------------------------------------------------
 499   XLOG interface
 500   -------------------------------------------------------------------------- */
 501 static void
 502 pcm_req (PISDN_ADAPTER IoAdapter, ENTITY *e)
 503 {
 504  diva_os_spin_lock_magic_t OldIrql ;
 505  int              i, rc ;
 506  ADAPTER         *a = &IoAdapter->a ;
 507  struct pc_maint *pcm = (struct pc_maint *)&e->Ind ;
 508 /*
 509  * special handling of I/O based card interface
 510  * the memory access isn't an atomic operation !
 511  */
 512  if ( IoAdapter->Properties.Card == CARD_MAE )
 513  {
 514   diva_os_enter_spin_lock (&IoAdapter->data_spin_lock,
 515                &OldIrql,
 516                "data_pcm_1");
 517   IoAdapter->pcm_data = (void *)pcm;
 518   IoAdapter->pcm_pending = 1;
 519   diva_os_schedule_soft_isr (&IoAdapter->req_soft_isr);
 520   diva_os_leave_spin_lock (&IoAdapter->data_spin_lock,
 521                &OldIrql,
 522                "data_pcm_1");
 523   for ( rc = 0, i = (IoAdapter->trapped ? 3000 : 250) ; !rc && (i > 0) ; --i )
 524   {
 525    diva_os_sleep (1) ;
 526    if (IoAdapter->pcm_pending == 3) {
 527     diva_os_enter_spin_lock (&IoAdapter->data_spin_lock,
 528                  &OldIrql,
 529                  "data_pcm_3");
 530     IoAdapter->pcm_pending = 0;
 531     IoAdapter->pcm_data    = NULL ;
 532     diva_os_leave_spin_lock (&IoAdapter->data_spin_lock,
 533                  &OldIrql,
 534                  "data_pcm_3");
 535     return ;
 536    }
 537    diva_os_enter_spin_lock (&IoAdapter->data_spin_lock,
 538                 &OldIrql,
 539                 "data_pcm_2");
 540    diva_os_schedule_soft_isr (&IoAdapter->req_soft_isr);
 541    diva_os_leave_spin_lock (&IoAdapter->data_spin_lock,
 542                 &OldIrql,
 543                 "data_pcm_2");
 544   }
 545   diva_os_enter_spin_lock (&IoAdapter->data_spin_lock,
 546                &OldIrql,
 547                "data_pcm_4");
 548   IoAdapter->pcm_pending = 0;
 549   IoAdapter->pcm_data    = NULL ;
 550   diva_os_leave_spin_lock (&IoAdapter->data_spin_lock,
 551                &OldIrql,
 552                "data_pcm_4");
 553   goto Trapped ;
 554  }
 555 /*
 556  * memory based shared ram is accessible from different
 557  * processors without disturbing concurrent processes.
 558  */
 559  a->ram_out (a, &IoAdapter->pcm->rc, 0) ;
 560  a->ram_out (a, &IoAdapter->pcm->req, pcm->req) ;
 561  for ( i = (IoAdapter->trapped ? 3000 : 250) ; --i > 0 ; )
 562  {
 563   diva_os_sleep (1) ;
 564   rc = (int)(a->ram_in (a, &IoAdapter->pcm->rc)) ;
 565   if ( rc )
 566   {
 567    a->ram_in_buffer (a, IoAdapter->pcm, pcm, sizeof(*pcm)) ;
 568    return ;
 569   }
 570  }
 571 Trapped:
 572  if ( IoAdapter->trapFnc )
 573  {
 574     int trapped = IoAdapter->trapped;
 575   IoAdapter->trapFnc (IoAdapter) ;
 576     /*
 577       Firs trap, also notify user if supported
 578      */
 579     if (!trapped && IoAdapter->trapped && IoAdapter->os_trap_nfy_Fnc) {
 580       (*(IoAdapter->os_trap_nfy_Fnc))(IoAdapter, IoAdapter->ANum);
 581     }
 582  }
 583 }
 584 /*------------------------------------------------------------------*/
 585 /* ram access functions for memory mapped cards                     */
 586 /*------------------------------------------------------------------*/
 587 byte mem_in (ADAPTER *a, void *addr)
 588 {
 589  byte val;
 590  volatile byte __iomem *Base = DIVA_OS_MEM_ATTACH_RAM((PISDN_ADAPTER)a->io);
 591  val = READ_BYTE(Base + (unsigned long)addr);
 592  DIVA_OS_MEM_DETACH_RAM((PISDN_ADAPTER)a->io, Base);
 593  return (val);
 594 }
 595 word mem_inw (ADAPTER *a, void *addr)
 596 {
 597  word val;
 598  volatile byte __iomem *Base = DIVA_OS_MEM_ATTACH_RAM((PISDN_ADAPTER)a->io);
 599  val = READ_WORD((Base + (unsigned long)addr));
 600  DIVA_OS_MEM_DETACH_RAM((PISDN_ADAPTER)a->io, Base);
 601  return (val);
 602 }
 603 void mem_in_dw (ADAPTER *a, void *addr, dword* data, int dwords)
 604 {
 605  volatile byte __iomem * Base = DIVA_OS_MEM_ATTACH_RAM((PISDN_ADAPTER)a->io);
 606  while (dwords--) {
 607   *data++ = READ_DWORD((Base + (unsigned long)addr));
 608   addr+=4;
 609  }
 610  DIVA_OS_MEM_DETACH_RAM((PISDN_ADAPTER)a->io, Base);
 611 }
 612 void mem_in_buffer (ADAPTER *a, void *addr, void *buffer, word length)
 613 {
 614  volatile byte __iomem *Base = DIVA_OS_MEM_ATTACH_RAM((PISDN_ADAPTER)a->io);
 615  memcpy_fromio(buffer, (Base + (unsigned long)addr), length);
 616  DIVA_OS_MEM_DETACH_RAM((PISDN_ADAPTER)a->io, Base);
 617 }
 618 void mem_look_ahead (ADAPTER *a, PBUFFER *RBuffer, ENTITY *e)
 619 {
 620  PISDN_ADAPTER IoAdapter = (PISDN_ADAPTER)a->io ;
 621  IoAdapter->RBuffer.length = mem_inw (a, &RBuffer->length) ;
 622  mem_in_buffer (a, RBuffer->P, IoAdapter->RBuffer.P,
 623                 IoAdapter->RBuffer.length) ;
 624  e->RBuffer = (DBUFFER *)&IoAdapter->RBuffer ;
 625 }
 626 void mem_out (ADAPTER *a, void *addr, byte data)
 627 {
 628  volatile byte __iomem *Base = DIVA_OS_MEM_ATTACH_RAM((PISDN_ADAPTER)a->io);
 629  WRITE_BYTE(Base + (unsigned long)addr, data);
 630  DIVA_OS_MEM_DETACH_RAM((PISDN_ADAPTER)a->io, Base);
 631 }
 632 void mem_outw (ADAPTER *a, void *addr, word data)
 633 {
 634  volatile byte __iomem * Base = DIVA_OS_MEM_ATTACH_RAM((PISDN_ADAPTER)a->io);
 635  WRITE_WORD((Base + (unsigned long)addr), data);
 636  DIVA_OS_MEM_DETACH_RAM((PISDN_ADAPTER)a->io, Base);
 637 }
 638 void mem_out_dw (ADAPTER *a, void *addr, const dword* data, int dwords)
 639 {
 640  volatile byte __iomem * Base = DIVA_OS_MEM_ATTACH_RAM((PISDN_ADAPTER)a->io);
 641  while (dwords--) {
 642         WRITE_DWORD((Base + (unsigned long)addr), *data);
 643         addr+=4;
 644         data++;
 645  }
 646  DIVA_OS_MEM_DETACH_RAM((PISDN_ADAPTER)a->io, Base);
 647 }
 648 void mem_out_buffer (ADAPTER *a, void *addr, void *buffer, word length)
 649 {
 650  volatile byte __iomem * Base = DIVA_OS_MEM_ATTACH_RAM((PISDN_ADAPTER)a->io);
 651  memcpy_toio((Base + (unsigned long)addr), buffer, length) ;
 652  DIVA_OS_MEM_DETACH_RAM((PISDN_ADAPTER)a->io, Base);
 653 }
 654 void mem_inc (ADAPTER *a, void *addr)
 655 {
 656  volatile byte __iomem *Base = DIVA_OS_MEM_ATTACH_RAM((PISDN_ADAPTER)a->io);
 657  byte  x = READ_BYTE(Base + (unsigned long)addr);
 658  WRITE_BYTE(Base + (unsigned long)addr, x + 1);
 659  DIVA_OS_MEM_DETACH_RAM((PISDN_ADAPTER)a->io, Base);
 660 }
 661 /*------------------------------------------------------------------*/
 662 /* ram access functions for io-mapped cards                         */
 663 /*------------------------------------------------------------------*/
 664 byte io_in(ADAPTER * a, void * adr)
 665 {
 666   byte val;
 667   byte __iomem *Port = DIVA_OS_MEM_ATTACH_PORT((PISDN_ADAPTER)a->io);
 668   outppw(Port + 4, (word)(unsigned long)adr);
 669   val = inpp(Port);
 670   DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 671   return(val);
 672 }
 673 word io_inw(ADAPTER * a, void * adr)
 674 {
 675   word val;
 676   byte __iomem *Port = DIVA_OS_MEM_ATTACH_PORT((PISDN_ADAPTER)a->io);
 677   outppw(Port + 4, (word)(unsigned long)adr);
 678   val = inppw(Port);
 679   DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 680   return(val);
 681 }
 682 void io_in_buffer(ADAPTER * a, void * adr, void * buffer, word len)
 683 {
 684   byte __iomem *Port = DIVA_OS_MEM_ATTACH_PORT((PISDN_ADAPTER)a->io);
 685   byte* P = (byte*)buffer;
 686   if ((long)adr & 1) {
 687     outppw(Port+4, (word)(unsigned long)adr);
 688     *P = inpp(Port);
 689     P++;
 690     adr = ((byte *) adr) + 1;
 691     len--;
 692     if (!len) {
 693         DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 694         return;
 695     }
 696   }
 697   outppw(Port+4, (word)(unsigned long)adr);
 698   inppw_buffer (Port, P, len+1);
 699   DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 700 }
 701 void io_look_ahead(ADAPTER * a, PBUFFER * RBuffer, ENTITY * e)
 702 {
 703   byte __iomem *Port = DIVA_OS_MEM_ATTACH_PORT((PISDN_ADAPTER)a->io);
 704   outppw(Port+4, (word)(unsigned long)RBuffer);
 705   ((PISDN_ADAPTER)a->io)->RBuffer.length = inppw(Port);
 706   inppw_buffer (Port, ((PISDN_ADAPTER)a->io)->RBuffer.P, ((PISDN_ADAPTER)a->io)->RBuffer.length + 1);
 707   e->RBuffer = (DBUFFER *) &(((PISDN_ADAPTER)a->io)->RBuffer);
 708   DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 709 }
 710 void io_out(ADAPTER * a, void * adr, byte data)
 711 {
 712   byte __iomem *Port = DIVA_OS_MEM_ATTACH_PORT((PISDN_ADAPTER)a->io);
 713   outppw(Port+4, (word)(unsigned long)adr);
 714   outpp(Port, data);
 715   DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 716 }
 717 void io_outw(ADAPTER * a, void * adr, word data)
 718 {
 719   byte __iomem *Port = DIVA_OS_MEM_ATTACH_PORT((PISDN_ADAPTER)a->io);
 720   outppw(Port+4, (word)(unsigned long)adr);
 721   outppw(Port, data);
 722   DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 723 }
 724 void io_out_buffer(ADAPTER * a, void * adr, void * buffer, word len)
 725 {
 726   byte __iomem *Port = DIVA_OS_MEM_ATTACH_PORT((PISDN_ADAPTER)a->io);
 727   byte* P = (byte*)buffer;
 728   if ((long)adr & 1) {
 729     outppw(Port+4, (word)(unsigned long)adr);
 730     outpp(Port, *P);
 731     P++;
 732     adr = ((byte *) adr) + 1;
 733     len--;
 734     if (!len) {
 735         DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 736         return;
 737     }
 738   }
 739   outppw(Port+4, (word)(unsigned long)adr);
 740   outppw_buffer (Port, P, len+1);
 741   DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 742 }
 743 void io_inc(ADAPTER * a, void * adr)
 744 {
 745   byte x;
 746   byte __iomem *Port = DIVA_OS_MEM_ATTACH_PORT((PISDN_ADAPTER)a->io);
 747   outppw(Port+4, (word)(unsigned long)adr);
 748   x = inpp(Port);
 749   outppw(Port+4, (word)(unsigned long)adr);
 750   outpp(Port, x+1);
 751   DIVA_OS_MEM_DETACH_PORT((PISDN_ADAPTER)a->io, Port);
 752 }
 753 /*------------------------------------------------------------------*/
 754 /* OS specific functions related to queuing of entities             */
 755 /*------------------------------------------------------------------*/
 756 void free_entity(ADAPTER * a, byte e_no)
 757 {
 758   PISDN_ADAPTER IoAdapter;
 759  diva_os_spin_lock_magic_t irql;
 760   IoAdapter = (PISDN_ADAPTER) a->io;
 761  diva_os_enter_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_free");
 762   IoAdapter->e_tbl[e_no].e = NULL;
 763   IoAdapter->e_count--;
 764  diva_os_leave_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_free");
 765 }
 766 void assign_queue(ADAPTER * a, byte e_no, word ref)
 767 {
 768   PISDN_ADAPTER IoAdapter;
 769  diva_os_spin_lock_magic_t irql;
 770   IoAdapter = (PISDN_ADAPTER) a->io;
 771  diva_os_enter_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_assign");
 772   IoAdapter->e_tbl[e_no].assign_ref = ref;
 773   IoAdapter->e_tbl[e_no].next = (byte)IoAdapter->assign;
 774   IoAdapter->assign = e_no;
 775  diva_os_leave_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_assign");
 776 }
 777 byte get_assign(ADAPTER * a, word ref)
 778 {
 779   PISDN_ADAPTER IoAdapter;
 780  diva_os_spin_lock_magic_t irql;
 781   byte e_no;
 782   IoAdapter = (PISDN_ADAPTER) a->io;
 783  diva_os_enter_spin_lock (&IoAdapter->data_spin_lock,
 784               &irql,
 785               "data_assign_get");
 786   for(e_no = (byte)IoAdapter->assign;
 787       e_no && IoAdapter->e_tbl[e_no].assign_ref!=ref;
 788       e_no = IoAdapter->e_tbl[e_no].next);
 789  diva_os_leave_spin_lock (&IoAdapter->data_spin_lock,
 790               &irql,
 791               "data_assign_get");
 792   return e_no;
 793 }
 794 void req_queue(ADAPTER * a, byte e_no)
 795 {
 796   PISDN_ADAPTER IoAdapter;
 797  diva_os_spin_lock_magic_t irql;
 798   IoAdapter = (PISDN_ADAPTER) a->io;
 799  diva_os_enter_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_req_q");
 800   IoAdapter->e_tbl[e_no].next = 0;
 801   if(IoAdapter->head) {
 802     IoAdapter->e_tbl[IoAdapter->tail].next = e_no;
 803     IoAdapter->tail = e_no;
 804   }
 805   else {
 806     IoAdapter->head = e_no;
 807     IoAdapter->tail = e_no;
 808   }
 809  diva_os_leave_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_req_q");
 810 }
 811 byte look_req(ADAPTER * a)
 812 {
 813   PISDN_ADAPTER IoAdapter;
 814   IoAdapter = (PISDN_ADAPTER) a->io;
 815   return ((byte)IoAdapter->head) ;
 816 }
 817 void next_req(ADAPTER * a)
 818 {
 819   PISDN_ADAPTER IoAdapter;
 820  diva_os_spin_lock_magic_t irql;
 821   IoAdapter = (PISDN_ADAPTER) a->io;
 822  diva_os_enter_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_req_next");
 823   IoAdapter->head = IoAdapter->e_tbl[IoAdapter->head].next;
 824   if(!IoAdapter->head) IoAdapter->tail = 0;
 825  diva_os_leave_spin_lock (&IoAdapter->data_spin_lock, &irql, "data_req_next");
 826 }
 827 /*------------------------------------------------------------------*/
 828 /* memory map functions                                             */
 829 /*------------------------------------------------------------------*/
 830 ENTITY * entity_ptr(ADAPTER * a, byte e_no)
 831 {
 832   PISDN_ADAPTER IoAdapter;
 833   IoAdapter = (PISDN_ADAPTER) a->io;
 834   return (IoAdapter->e_tbl[e_no].e);
 835 }
 836 void * PTR_X(ADAPTER * a, ENTITY * e)
 837 {
 838   return ((void *) e->X);
 839 }
 840 void * PTR_R(ADAPTER * a, ENTITY * e)
 841 {
 842   return ((void *) e->R);
 843 }
 844 void * PTR_P(ADAPTER * a, ENTITY * e, void * P)
 845 {
 846   return P;
 847 }
 848 void CALLBACK(ADAPTER * a, ENTITY * e)
 849 {
 850  if ( e && e->callback )
 851   e->callback (e) ;
 852 }