# niccy.c

    /* $Id$

     * niccy.c  low level stuff for Dr. Neuhaus NICCY PnP and NICCY PCI and
     *          compatible (SAGEM cybermodem)
     *
     * Author   Karsten Keil
     *
     * Thanks to Dr. Neuhaus and SAGEM for informations
     *
     * $Log$
     * Revision 1.4  1998/04/16 19:16:48  keil
     * need config.h
     *
     * Revision 1.3  1998/04/15 16:42:59  keil
     * new init code
     *
     * Revision 1.2  1998/02/11 17:31:04  keil
     * new file
     *
     */

    #define __NO_VERSION__
    #include <linux/config.h>
    #include "hisax.h"
    #include "isac.h"
    #include "hscx.h"
    #include "isdnl1.h"
    #include <linux/pci.h>

    extern const char *CardType[];
    const char *niccy_revision = "$Revision$";

    #define byteout(addr,val) outb(val,addr)
    #define bytein(addr) inb(addr)

    #define ISAC_PCI_DATA	0
    #define HSCX_PCI_DATA	1
    #define ISAC_PCI_ADDR	2
    #define HSCX_PCI_ADDR	3
    #define ISAC_PNP	0
    #define HSCX_PNP	1

    /* SUB Types */
    #define NICCY_PNP	1
    #define NICCY_PCI	2

    /* PCI stuff */
    #define PCI_VENDOR_DR_NEUHAUS	0x1267
    #define PCI_NICCY_ID		0x1016
    #define PCI_IRQ_CTRL_REG	0x38
    #define PCI_IRQ_ENABLE		0x1f00
    #define PCI_IRQ_DISABLE		0xff0000
    #define PCI_IRQ_ASSERT		0x800000

    static inline u_char
    readreg(unsigned int ale, unsigned int adr, u_char off)
    {
    	register u_char ret;
    	long flags;

    	save_flags(flags);
    	cli();
    	byteout(ale, off);
    	ret = bytein(adr);
    	restore_flags(flags);
    	return (ret);
    }

    static inline void
    readfifo(unsigned int ale, unsigned int adr, u_char off, u_char * data, int size)
    {
    	/* fifo read without cli because it's allready done  */

    	byteout(ale, off);
    	insb(adr, data, size);
    }

    static inline void
    writereg(unsigned int ale, unsigned int adr, u_char off, u_char data)
    {
    	long flags;

    	save_flags(flags);
    	cli();
    	byteout(ale, off);
    	byteout(adr, data);
    	restore_flags(flags);
    }

    static inline void
    writefifo(unsigned int ale, unsigned int adr, u_char off, u_char * data, int size)
    {
    	/* fifo write without cli because it's allready done  */
    	byteout(ale, off);
    	outsb(adr, data, size);
    }

    /* Interface functions */

    static u_char
    ReadISAC(struct IsdnCardState *cs, u_char offset)
    {
    	return (readreg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, offset));
    }

    static void
    WriteISAC(struct IsdnCardState *cs, u_char offset, u_char value)
    {
    	writereg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, offset, value);
    }

    static void
    ReadISACfifo(struct IsdnCardState *cs, u_char * data, int size)
    {
    	readfifo(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, 0, data, size);
    }

    static void
    WriteISACfifo(struct IsdnCardState *cs, u_char * data, int size)
    {
    	writefifo(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, 0, data, size);
    }

    static u_char
    ReadHSCX(struct IsdnCardState *cs, int hscx, u_char offset)
    {
    	return (readreg(cs->hw.niccy.hscx_ale,
    			cs->hw.niccy.hscx, offset + (hscx ? 0x40 : 0)));
    }

    static void
    WriteHSCX(struct IsdnCardState *cs, int hscx, u_char offset, u_char value)
    {
    	writereg(cs->hw.niccy.hscx_ale,
    		 cs->hw.niccy.hscx, offset + (hscx ? 0x40 : 0), value);
    }

    #define READHSCX(cs, nr, reg) readreg(cs->hw.niccy.hscx_ale, \
    		cs->hw.niccy.hscx, reg + (nr ? 0x40 : 0))
    #define WRITEHSCX(cs, nr, reg, data) writereg(cs->hw.niccy.hscx_ale, \
    		cs->hw.niccy.hscx, reg + (nr ? 0x40 : 0), data)

    #define READHSCXFIFO(cs, nr, ptr, cnt) readfifo(cs->hw.niccy.hscx_ale, \
    		cs->hw.niccy.hscx, (nr ? 0x40 : 0), ptr, cnt)

    #define WRITEHSCXFIFO(cs, nr, ptr, cnt) writefifo(cs->hw.niccy.hscx_ale, \
    		cs->hw.niccy.hscx, (nr ? 0x40 : 0), ptr, cnt)

    #include "hscx_irq.c"

    static void
    niccy_interrupt(int intno, void *dev_id, struct pt_regs *regs)
    {
    	struct IsdnCardState *cs = dev_id;
    	u_char val, stat = 0;

    	if (!cs) {
    		printk(KERN_WARNING "Niccy: Spurious interrupt!\n");
    		return;
    	}
    	if (cs->subtyp == NICCY_PCI) {
    		int ival;
    		ival = inl(cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
    		if (!(ival & PCI_IRQ_ASSERT)) /* IRQ not for us (shared) */
    			return;
    		outl(ival, cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
    	}
    	val = readreg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_ISTA + 0x40);
          Start_HSCX:
    	if (val) {
    		hscx_int_main(cs, val);
    		stat |= 1;
    	}
    	val = readreg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, ISAC_ISTA);
          Start_ISAC:
    	if (val) {
    		isac_interrupt(cs, val);
    		stat |= 2;
    	}
    	val = readreg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_ISTA + 0x40);
    	if (val) {
    		if (cs->debug & L1_DEB_HSCX)
    			debugl1(cs, "HSCX IntStat after IntRoutine");
    		goto Start_HSCX;
    	}
    	val = readreg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, ISAC_ISTA);
    	if (val) {
    		if (cs->debug & L1_DEB_ISAC)
    			debugl1(cs, "ISAC IntStat after IntRoutine");
    		goto Start_ISAC;
    	}
    	if (stat & 1) {
    		writereg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_MASK, 0xFF);
    		writereg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_MASK + 0x40, 0xFF);
    		writereg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_MASK, 0);
    		writereg(cs->hw.niccy.hscx_ale, cs->hw.niccy.hscx, HSCX_MASK + 0x40, 0);
    	}
    	if (stat & 2) {
    		writereg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, ISAC_MASK, 0xFF);
    		writereg(cs->hw.niccy.isac_ale, cs->hw.niccy.isac, ISAC_MASK, 0);
    	}
    }

    void
    release_io_niccy(struct IsdnCardState *cs)
    {
    	if (cs->subtyp == NICCY_PCI) {
    		int val;

    		val = inl(cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
    		val &= PCI_IRQ_DISABLE;
    		outl(val, cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
    		release_region(cs->hw.niccy.cfg_reg, 0x80);
    		release_region(cs->hw.niccy.isac, 4);
    	} else {
    		release_region(cs->hw.niccy.isac, 2);
    		release_region(cs->hw.niccy.isac_ale, 2);
    	}
    }

    static void
    niccy_reset(struct IsdnCardState *cs)
    {
    	int val, nval;

    	val = inl(cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);
    	nval = val | PCI_IRQ_ENABLE;
    	outl(nval, cs->hw.niccy.cfg_reg + PCI_IRQ_CTRL_REG);

    	inithscxisac(cs, 3);
    }

    static int
    niccy_card_msg(struct IsdnCardState *cs, int mt, void *arg)
    {
    	int imode;

    	switch (mt) {
    		case CARD_RESET:
    			niccy_reset(cs);
    			return(0);
    		case CARD_RELEASE:
    			release_io_niccy(cs);
    			return(0);
    		case CARD_SETIRQ:
    			if (cs->subtyp == NICCY_PCI)
    				imode = I4L_IRQ_FLAG | SA_SHIRQ;
    			else
    				imode = I4L_IRQ_FLAG;
    			return(request_irq(cs->irq, &niccy_interrupt,
    				imode, "HiSax", cs));
    			break;
    		case CARD_INIT:
    			niccy_reset(cs);
    			return(0);
    		case CARD_TEST:
    			return(0);
    	}
    	return(0);
    }

    static 	struct pci_dev *niccy_dev __initdata = NULL;

    __initfunc(int
    setup_niccy(struct IsdnCard *card))
    {
    	struct IsdnCardState *cs = card->cs;
    	char tmp[64];

    	strcpy(tmp, niccy_revision);
    	printk(KERN_INFO "HiSax: Niccy driver Rev. %s\n", HiSax_getrev(tmp));
    	if (cs->typ != ISDN_CTYPE_NICCY)
    		return (0);

    	if (card->para[1]) {
    		cs->hw.niccy.isac = card->para[1] + ISAC_PNP;
    		cs->hw.niccy.hscx = card->para[1] + HSCX_PNP;
    		cs->hw.niccy.isac_ale = card->para[2] + ISAC_PNP;
    		cs->hw.niccy.hscx_ale = card->para[2] + HSCX_PNP;
    		cs->hw.niccy.cfg_reg = 0;
    		cs->subtyp = NICCY_PNP;
    		cs->irq = card->para[0];
    		if (check_region((cs->hw.niccy.isac), 2)) {
    			printk(KERN_WARNING
    				"HiSax: %s data port %x-%x already in use\n",
    				CardType[card->typ],
    				cs->hw.niccy.isac,
    				cs->hw.niccy.isac + 1);
    			return (0);
    		} else
    			request_region(cs->hw.niccy.isac, 2, "niccy data");
    		if (check_region((cs->hw.niccy.isac_ale), 2)) {
    			printk(KERN_WARNING
    				"HiSax: %s address port %x-%x already in use\n",
    				CardType[card->typ],
    				cs->hw.niccy.isac_ale,
    				cs->hw.niccy.isac_ale + 1);
    			release_region(cs->hw.niccy.isac, 2);
    			return (0);
    		} else
    			request_region(cs->hw.niccy.isac_ale, 2, "niccy addr");
    	} else {
    #if CONFIG_PCI
    		u_int pci_ioaddr;

    		if (!pci_present()) {
    			printk(KERN_ERR "Niccy: no PCI bus present\n");
    			return(0);
    		}

    		cs->subtyp = 0;
    		if ((niccy_dev = pci_find_device(PCI_VENDOR_DR_NEUHAUS,
    			   PCI_NICCY_ID, niccy_dev))) {
    			/* get IRQ */
    			if (!niccy_dev->irq) {
    				printk(KERN_WARNING "Niccy: No IRQ for PCI card found\n");
    			return(0);
    		}
    			cs->irq = niccy_dev->irq;
    			if (!niccy_dev->base_address[0]) {
    				printk(KERN_WARNING "Niccy: No IO-Adr for PCI cfg found\n");
    			return(0);
    		}
    			cs->hw.niccy.cfg_reg = niccy_dev->base_address[0] & PCI_BASE_ADDRESS_IO_MASK;
    			if (!niccy_dev->base_address[1]) {
    			printk(KERN_WARNING "Niccy: No IO-Adr for PCI card found\n");
    			return(0);
    		}
    			pci_ioaddr = niccy_dev->base_address[1] & PCI_BASE_ADDRESS_IO_MASK;
    		cs->hw.niccy.isac = pci_ioaddr + ISAC_PCI_DATA;
    		cs->hw.niccy.isac_ale = pci_ioaddr + ISAC_PCI_ADDR;
    		cs->hw.niccy.hscx = pci_ioaddr + HSCX_PCI_DATA;
    		cs->hw.niccy.hscx_ale = pci_ioaddr + HSCX_PCI_ADDR;
    			cs->subtyp = NICCY_PCI;
    		} else {
    			printk(KERN_WARNING "Niccy: No PCI card found\n");
    			return(0);
    		}
    		if (check_region((cs->hw.niccy.isac), 4)) {
    			printk(KERN_WARNING
    				"HiSax: %s data port %x-%x already in use\n",
    				CardType[card->typ],
    				cs->hw.niccy.isac,
    				cs->hw.niccy.isac + 4);
    			return (0);
    		} else
    			request_region(cs->hw.niccy.isac, 4, "niccy");
    		if (check_region(cs->hw.niccy.cfg_reg, 0x80)) {
    			printk(KERN_WARNING
    			       "HiSax: %s pci port %x-%x already in use\n",
    				CardType[card->typ],
    				cs->hw.niccy.cfg_reg,
    				cs->hw.niccy.cfg_reg + 0x80);
    			release_region(cs->hw.niccy.isac, 4);
    			return (0);
    		} else {
    			request_region(cs->hw.niccy.cfg_reg, 0x80, "niccy pci");
    		}
    #else
    		printk(KERN_WARNING "Niccy: io0 0 and NO_PCI_BIOS\n");
    		printk(KERN_WARNING "Niccy: unable to config NICCY PCI\n");
    		return (0);
    #endif /* CONFIG_PCI */
    	}
    	printk(KERN_INFO
    		"HiSax: %s %s config irq:%d data:0x%X ale:0x%X\n",
    		CardType[cs->typ], (cs->subtyp==1) ? "PnP":"PCI",
    		cs->irq, cs->hw.niccy.isac, cs->hw.niccy.isac_ale);
    	cs->readisac = &ReadISAC;
    	cs->writeisac = &WriteISAC;
    	cs->readisacfifo = &ReadISACfifo;
    	cs->writeisacfifo = &WriteISACfifo;
    	cs->BC_Read_Reg = &ReadHSCX;
    	cs->BC_Write_Reg = &WriteHSCX;
    	cs->BC_Send_Data = &hscx_fill_fifo;
    	cs->cardmsg = &niccy_card_msg;
    	ISACVersion(cs, "Niccy:");
    	if (HscxVersion(cs, "Niccy:")) {
    		printk(KERN_WARNING
    		    "Niccy: wrong HSCX versions check IO address\n");
    		release_io_niccy(cs);
    		return (0);
    	}
    	return (1);
    }