| /* $Id: bkm_a4t.c,v 1.22.2.4 2004/01/14 16:04:48 keil Exp $ |
| * |
| * low level stuff for T-Berkom A4T |
| * |
| * Author Roland Klabunde |
| * Copyright by Roland Klabunde <R.Klabunde@Berkom.de> |
| * |
| * This software may be used and distributed according to the terms |
| * of the GNU General Public License, incorporated herein by reference. |
| * |
| */ |
| |
| |
| #include <linux/init.h> |
| #include "hisax.h" |
| #include "isac.h" |
| #include "hscx.h" |
| #include "jade.h" |
| #include "isdnl1.h" |
| #include <linux/pci.h> |
| #include "bkm_ax.h" |
| |
| extern const char *CardType[]; |
| |
| static const char *bkm_a4t_revision = "$Revision: 1.22.2.4 $"; |
| |
| |
| static inline u_char |
| readreg(unsigned int ale, unsigned long adr, u_char off) |
| { |
| register u_int ret; |
| unsigned int *po = (unsigned int *) adr; /* Postoffice */ |
| |
| *po = (GCS_2 | PO_WRITE | off); |
| __WAITI20__(po); |
| *po = (ale | PO_READ); |
| __WAITI20__(po); |
| ret = *po; |
| return ((unsigned char) ret); |
| } |
| |
| |
| static inline void |
| readfifo(unsigned int ale, unsigned long adr, u_char off, u_char * data, int size) |
| { |
| int i; |
| for (i = 0; i < size; i++) |
| *data++ = readreg(ale, adr, off); |
| } |
| |
| |
| static inline void |
| writereg(unsigned int ale, unsigned long adr, u_char off, u_char data) |
| { |
| unsigned int *po = (unsigned int *) adr; /* Postoffice */ |
| *po = (GCS_2 | PO_WRITE | off); |
| __WAITI20__(po); |
| *po = (ale | PO_WRITE | data); |
| __WAITI20__(po); |
| } |
| |
| |
| static inline void |
| writefifo(unsigned int ale, unsigned long adr, u_char off, u_char * data, int size) |
| { |
| int i; |
| |
| for (i = 0; i < size; i++) |
| writereg(ale, adr, off, *data++); |
| } |
| |
| |
| /* Interface functions */ |
| |
| static u_char |
| ReadISAC(struct IsdnCardState *cs, u_char offset) |
| { |
| return (readreg(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, offset)); |
| } |
| |
| static void |
| WriteISAC(struct IsdnCardState *cs, u_char offset, u_char value) |
| { |
| writereg(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, offset, value); |
| } |
| |
| static void |
| ReadISACfifo(struct IsdnCardState *cs, u_char * data, int size) |
| { |
| readfifo(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, 0, data, size); |
| } |
| |
| static void |
| WriteISACfifo(struct IsdnCardState *cs, u_char * data, int size) |
| { |
| writefifo(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, 0, data, size); |
| } |
| |
| static u_char |
| ReadJADE(struct IsdnCardState *cs, int jade, u_char offset) |
| { |
| return (readreg(cs->hw.ax.jade_ale, cs->hw.ax.jade_adr, offset + (jade == -1 ? 0 : (jade ? 0xC0 : 0x80)))); |
| } |
| |
| static void |
| WriteJADE(struct IsdnCardState *cs, int jade, u_char offset, u_char value) |
| { |
| writereg(cs->hw.ax.jade_ale, cs->hw.ax.jade_adr, offset + (jade == -1 ? 0 : (jade ? 0xC0 : 0x80)), value); |
| } |
| |
| /* |
| * fast interrupt JADE stuff goes here |
| */ |
| |
| #define READJADE(cs, nr, reg) readreg(cs->hw.ax.jade_ale,\ |
| cs->hw.ax.jade_adr, reg + (nr == -1 ? 0 : (nr ? 0xC0 : 0x80))) |
| #define WRITEJADE(cs, nr, reg, data) writereg(cs->hw.ax.jade_ale,\ |
| cs->hw.ax.jade_adr, reg + (nr == -1 ? 0 : (nr ? 0xC0 : 0x80)), data) |
| |
| #define READJADEFIFO(cs, nr, ptr, cnt) readfifo(cs->hw.ax.jade_ale,\ |
| cs->hw.ax.jade_adr, (nr == -1 ? 0 : (nr ? 0xC0 : 0x80)), ptr, cnt) |
| #define WRITEJADEFIFO(cs, nr, ptr, cnt) writefifo( cs->hw.ax.jade_ale,\ |
| cs->hw.ax.jade_adr, (nr == -1 ? 0 : (nr ? 0xC0 : 0x80)), ptr, cnt) |
| |
| #include "jade_irq.c" |
| |
| static irqreturn_t |
| bkm_interrupt(int intno, void *dev_id) |
| { |
| struct IsdnCardState *cs = dev_id; |
| u_char val = 0; |
| u_long flags; |
| I20_REGISTER_FILE *pI20_Regs; |
| |
| spin_lock_irqsave(&cs->lock, flags); |
| pI20_Regs = (I20_REGISTER_FILE *) (cs->hw.ax.base); |
| |
| /* ISDN interrupt pending? */ |
| if (pI20_Regs->i20IntStatus & intISDN) { |
| /* Reset the ISDN interrupt */ |
| pI20_Regs->i20IntStatus = intISDN; |
| /* Disable ISDN interrupt */ |
| pI20_Regs->i20IntCtrl &= ~intISDN; |
| /* Channel A first */ |
| val = readreg(cs->hw.ax.jade_ale, cs->hw.ax.jade_adr, jade_HDLC_ISR + 0x80); |
| if (val) { |
| jade_int_main(cs, val, 0); |
| } |
| /* Channel B */ |
| val = readreg(cs->hw.ax.jade_ale, cs->hw.ax.jade_adr, jade_HDLC_ISR + 0xC0); |
| if (val) { |
| jade_int_main(cs, val, 1); |
| } |
| /* D-Channel */ |
| val = readreg(cs->hw.ax.isac_ale, cs->hw.ax.isac_adr, ISAC_ISTA); |
| if (val) { |
| isac_interrupt(cs, val); |
| } |
| /* Reenable ISDN interrupt */ |
| pI20_Regs->i20IntCtrl |= intISDN; |
| spin_unlock_irqrestore(&cs->lock, flags); |
| return IRQ_HANDLED; |
| } else { |
| spin_unlock_irqrestore(&cs->lock, flags); |
| return IRQ_NONE; |
| } |
| } |
| |
| static void |
| release_io_bkm(struct IsdnCardState *cs) |
| { |
| if (cs->hw.ax.base) { |
| iounmap((void *) cs->hw.ax.base); |
| cs->hw.ax.base = 0; |
| } |
| } |
| |
| static void |
| enable_bkm_int(struct IsdnCardState *cs, unsigned bEnable) |
| { |
| if (cs->typ == ISDN_CTYPE_BKM_A4T) { |
| I20_REGISTER_FILE *pI20_Regs = (I20_REGISTER_FILE *) (cs->hw.ax.base); |
| if (bEnable) |
| pI20_Regs->i20IntCtrl |= (intISDN | intPCI); |
| else |
| /* CAUTION: This disables the video capture driver too */ |
| pI20_Regs->i20IntCtrl &= ~(intISDN | intPCI); |
| } |
| } |
| |
| static void |
| reset_bkm(struct IsdnCardState *cs) |
| { |
| if (cs->typ == ISDN_CTYPE_BKM_A4T) { |
| I20_REGISTER_FILE *pI20_Regs = (I20_REGISTER_FILE *) (cs->hw.ax.base); |
| /* Issue the I20 soft reset */ |
| pI20_Regs->i20SysControl = 0xFF; /* all in */ |
| mdelay(10); |
| /* Remove the soft reset */ |
| pI20_Regs->i20SysControl = sysRESET | 0xFF; |
| mdelay(10); |
| /* Set our configuration */ |
| pI20_Regs->i20SysControl = sysRESET | sysCFG; |
| /* Issue ISDN reset */ |
| pI20_Regs->i20GuestControl = guestWAIT_CFG | |
| g_A4T_JADE_RES | |
| g_A4T_ISAR_RES | |
| g_A4T_ISAC_RES | |
| g_A4T_JADE_BOOTR | |
| g_A4T_ISAR_BOOTR; |
| mdelay(10); |
| |
| /* Remove RESET state from ISDN */ |
| pI20_Regs->i20GuestControl &= ~(g_A4T_ISAC_RES | |
| g_A4T_JADE_RES | |
| g_A4T_ISAR_RES); |
| mdelay(10); |
| } |
| } |
| |
| static int |
| BKM_card_msg(struct IsdnCardState *cs, int mt, void *arg) |
| { |
| u_long flags; |
| |
| switch (mt) { |
| case CARD_RESET: |
| /* Disable ints */ |
| spin_lock_irqsave(&cs->lock, flags); |
| enable_bkm_int(cs, 0); |
| reset_bkm(cs); |
| spin_unlock_irqrestore(&cs->lock, flags); |
| return (0); |
| case CARD_RELEASE: |
| /* Sanity */ |
| spin_lock_irqsave(&cs->lock, flags); |
| enable_bkm_int(cs, 0); |
| reset_bkm(cs); |
| spin_unlock_irqrestore(&cs->lock, flags); |
| release_io_bkm(cs); |
| return (0); |
| case CARD_INIT: |
| spin_lock_irqsave(&cs->lock, flags); |
| clear_pending_isac_ints(cs); |
| clear_pending_jade_ints(cs); |
| initisac(cs); |
| initjade(cs); |
| /* Enable ints */ |
| enable_bkm_int(cs, 1); |
| spin_unlock_irqrestore(&cs->lock, flags); |
| return (0); |
| case CARD_TEST: |
| return (0); |
| } |
| return (0); |
| } |
| |
| static int __devinit a4t_pci_probe(struct pci_dev *dev_a4t, |
| struct IsdnCardState *cs, |
| u_int *found, |
| u_int *pci_memaddr) |
| { |
| u16 sub_sys; |
| u16 sub_vendor; |
| |
| sub_vendor = dev_a4t->subsystem_vendor; |
| sub_sys = dev_a4t->subsystem_device; |
| if ((sub_sys == PCI_DEVICE_ID_BERKOM_A4T) && (sub_vendor == PCI_VENDOR_ID_BERKOM)) { |
| if (pci_enable_device(dev_a4t)) |
| return (0); /* end loop & function */ |
| *found = 1; |
| *pci_memaddr = pci_resource_start(dev_a4t, 0); |
| cs->irq = dev_a4t->irq; |
| return (1); /* end loop */ |
| } |
| |
| return (-1); /* continue looping */ |
| } |
| |
| static int __devinit a4t_cs_init(struct IsdnCard *card, |
| struct IsdnCardState *cs, |
| u_int pci_memaddr) |
| { |
| I20_REGISTER_FILE *pI20_Regs; |
| |
| if (!cs->irq) { /* IRQ range check ?? */ |
| printk(KERN_WARNING "HiSax: %s: No IRQ\n", CardType[card->typ]); |
| return (0); |
| } |
| cs->hw.ax.base = (long) ioremap(pci_memaddr, 4096); |
| /* Check suspecious address */ |
| pI20_Regs = (I20_REGISTER_FILE *) (cs->hw.ax.base); |
| if ((pI20_Regs->i20IntStatus & 0x8EFFFFFF) != 0) { |
| printk(KERN_WARNING "HiSax: %s address %lx-%lx suspecious\n", |
| CardType[card->typ], cs->hw.ax.base, cs->hw.ax.base + 4096); |
| iounmap((void *) cs->hw.ax.base); |
| cs->hw.ax.base = 0; |
| return (0); |
| } |
| cs->hw.ax.isac_adr = cs->hw.ax.base + PO_OFFSET; |
| cs->hw.ax.jade_adr = cs->hw.ax.base + PO_OFFSET; |
| cs->hw.ax.isac_ale = GCS_1; |
| cs->hw.ax.jade_ale = GCS_3; |
| |
| printk(KERN_INFO "HiSax: %s: Card configured at 0x%lX IRQ %d\n", |
| CardType[card->typ], cs->hw.ax.base, cs->irq); |
| |
| setup_isac(cs); |
| cs->readisac = &ReadISAC; |
| cs->writeisac = &WriteISAC; |
| cs->readisacfifo = &ReadISACfifo; |
| cs->writeisacfifo = &WriteISACfifo; |
| cs->BC_Read_Reg = &ReadJADE; |
| cs->BC_Write_Reg = &WriteJADE; |
| cs->BC_Send_Data = &jade_fill_fifo; |
| cs->cardmsg = &BKM_card_msg; |
| cs->irq_func = &bkm_interrupt; |
| cs->irq_flags |= IRQF_SHARED; |
| ISACVersion(cs, "Telekom A4T:"); |
| /* Jade version */ |
| JadeVersion(cs, "Telekom A4T:"); |
| |
| return (1); |
| } |
| |
| static struct pci_dev *dev_a4t __devinitdata = NULL; |
| |
| int __devinit |
| setup_bkm_a4t(struct IsdnCard *card) |
| { |
| struct IsdnCardState *cs = card->cs; |
| char tmp[64]; |
| u_int pci_memaddr = 0, found = 0; |
| int ret; |
| |
| strcpy(tmp, bkm_a4t_revision); |
| printk(KERN_INFO "HiSax: T-Berkom driver Rev. %s\n", HiSax_getrev(tmp)); |
| if (cs->typ == ISDN_CTYPE_BKM_A4T) { |
| cs->subtyp = BKM_A4T; |
| } else |
| return (0); |
| |
| while ((dev_a4t = pci_find_device(PCI_VENDOR_ID_ZORAN, |
| PCI_DEVICE_ID_ZORAN_36120, dev_a4t))) { |
| ret = a4t_pci_probe(dev_a4t, cs, &found, &pci_memaddr); |
| if (!ret) |
| return (0); |
| if (ret > 0) |
| break; |
| } |
| if (!found) { |
| printk(KERN_WARNING "HiSax: %s: Card not found\n", CardType[card->typ]); |
| return (0); |
| } |
| if (!pci_memaddr) { |
| printk(KERN_WARNING "HiSax: %s: No Memory base address\n", CardType[card->typ]); |
| return (0); |
| } |
| |
| return a4t_cs_init(card, cs, pci_memaddr); |
| } |