[net-next-2.6.git] / drivers / isdn / hisax / nj_s.c

/* $Id: nj_s.c,v 2.13.2.4 2004/01/16 01:53:48 keil Exp $
 *
 * 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 "isdnl1.h"
#include <linux/pci.h>
#include <linux/interrupt.h>
#include <linux/ppp_defs.h>
#include "netjet.h"

static const char *NETjet_S_revision = "$Revision: 2.13.2.4 $";

static u_char dummyrr(struct IsdnCardState *cs, int chan, u_char off)
{
	return(5);
}

static void dummywr(struct IsdnCardState *cs, int chan, u_char off, u_char value)
{
}

static irqreturn_t
netjet_s_interrupt(int intno, void *dev_id)
{
	struct IsdnCardState *cs = dev_id;
	u_char val, s1val, s0val;
	u_long flags;

	spin_lock_irqsave(&cs->lock, flags);
	s1val = bytein(cs->hw.njet.base + NETJET_IRQSTAT1);
	if (!(s1val & NETJET_ISACIRQ)) {
		val = NETjet_ReadIC(cs, ISAC_ISTA);
		if (cs->debug & L1_DEB_ISAC)
			debugl1(cs, "tiger: i1 %x %x", s1val, val);
		if (val) {
			isac_interrupt(cs, val);
			NETjet_WriteIC(cs, ISAC_MASK, 0xFF);
			NETjet_WriteIC(cs, ISAC_MASK, 0x0);
		}
		s1val = 1;
	} else
		s1val = 0;
	/* 
	 * read/write stat0 is better, because lower IRQ rate
	 * Note the IRQ is on for 125 us if a condition match
	 * thats long on modern CPU and so the IRQ is reentered
	 * all the time.
	 */
	s0val = bytein(cs->hw.njet.base + NETJET_IRQSTAT0);
	if ((s0val | s1val)==0) { // shared IRQ
		spin_unlock_irqrestore(&cs->lock, flags);
		return IRQ_NONE;
	} 
	if (s0val)
		byteout(cs->hw.njet.base + NETJET_IRQSTAT0, s0val);
	/* start new code 13/07/00 GE */
	/* set bits in sval to indicate which page is free */
	if (inl(cs->hw.njet.base + NETJET_DMA_WRITE_ADR) <
		inl(cs->hw.njet.base + NETJET_DMA_WRITE_IRQ))
		/* the 2nd write page is free */
		s0val = 0x08;
	else	/* the 1st write page is free */
		s0val = 0x04;	
	if (inl(cs->hw.njet.base + NETJET_DMA_READ_ADR) <
		inl(cs->hw.njet.base + NETJET_DMA_READ_IRQ))
		/* the 2nd read page is free */
		s0val |= 0x02;
	else	/* the 1st read page is free */
		s0val |= 0x01;	
	if (s0val != cs->hw.njet.last_is0) /* we have a DMA interrupt */
	{
		if (test_and_set_bit(FLG_LOCK_ATOMIC, &cs->HW_Flags)) {
			printk(KERN_WARNING "nj LOCK_ATOMIC s0val %x->%x\n",
				cs->hw.njet.last_is0, s0val);
			spin_unlock_irqrestore(&cs->lock, flags);
			return IRQ_HANDLED;
		}
		cs->hw.njet.irqstat0 = s0val;
		if ((cs->hw.njet.irqstat0 & NETJET_IRQM0_READ) != 
			(cs->hw.njet.last_is0 & NETJET_IRQM0_READ))
			/* we have a read dma int */
			read_tiger(cs);
		if ((cs->hw.njet.irqstat0 & NETJET_IRQM0_WRITE) !=
			(cs->hw.njet.last_is0 & NETJET_IRQM0_WRITE))
			/* we have a write dma int */
			write_tiger(cs);
		/* end new code 13/07/00 GE */
		test_and_clear_bit(FLG_LOCK_ATOMIC, &cs->HW_Flags);
	}
	spin_unlock_irqrestore(&cs->lock, flags);
	return IRQ_HANDLED;
}

static void
reset_netjet_s(struct IsdnCardState *cs)
{
	cs->hw.njet.ctrl_reg = 0xff;  /* Reset On */
	byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
	mdelay(10);
	/* now edge triggered for TJ320 GE 13/07/00 */
	/* see comment in IRQ function */
	if (cs->subtyp) /* TJ320 */
		cs->hw.njet.ctrl_reg = 0x40;  /* Reset Off and status read clear */
	else
		cs->hw.njet.ctrl_reg = 0x00;  /* Reset Off and status read clear */
	byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
	mdelay(10);
	cs->hw.njet.auxd = 0;
	cs->hw.njet.dmactrl = 0;
	byteout(cs->hw.njet.base + NETJET_AUXCTRL, ~NETJET_ISACIRQ);
	byteout(cs->hw.njet.base + NETJET_IRQMASK1, NETJET_ISACIRQ);
	byteout(cs->hw.njet.auxa, cs->hw.njet.auxd);
}

static int
NETjet_S_card_msg(struct IsdnCardState *cs, int mt, void *arg)
{
	u_long flags;

	switch (mt) {
		case CARD_RESET:
			spin_lock_irqsave(&cs->lock, flags);
			reset_netjet_s(cs);
			spin_unlock_irqrestore(&cs->lock, flags);
			return(0);
		case CARD_RELEASE:
			release_io_netjet(cs);
			return(0);
		case CARD_INIT:
			reset_netjet_s(cs);
			inittiger(cs);
			spin_lock_irqsave(&cs->lock, flags);
			clear_pending_isac_ints(cs);
			initisac(cs);
			/* Reenable all IRQ */
			cs->writeisac(cs, ISAC_MASK, 0);
			spin_unlock_irqrestore(&cs->lock, flags);
			return(0);
		case CARD_TEST:
			return(0);
	}
	return(0);
}

static struct pci_dev *dev_netjet __devinitdata = NULL;

int __devinit
setup_netjet_s(struct IsdnCard *card)
{
	int bytecnt,cfg;
	struct IsdnCardState *cs = card->cs;
	char tmp[64];

#ifdef __BIG_ENDIAN
#error "not running on big endian machines now"
#endif
	strcpy(tmp, NETjet_S_revision);
	printk(KERN_INFO "HiSax: Traverse Tech. NETjet-S driver Rev. %s\n", HiSax_getrev(tmp));
	if (cs->typ != ISDN_CTYPE_NETJET_S)
		return(0);
	test_and_clear_bit(FLG_LOCK_ATOMIC, &cs->HW_Flags);

#ifdef CONFIG_PCI

	for ( ;; )
	{
		if ((dev_netjet = pci_find_device(PCI_VENDOR_ID_TIGERJET,
			PCI_DEVICE_ID_TIGERJET_300,  dev_netjet))) {
			if (pci_enable_device(dev_netjet))
				return(0);
			pci_set_master(dev_netjet);
			cs->irq = dev_netjet->irq;
			if (!cs->irq) {
				printk(KERN_WARNING "NETjet-S: No IRQ for PCI card found\n");
				return(0);
			}
			cs->hw.njet.base = pci_resource_start(dev_netjet, 0);
			if (!cs->hw.njet.base) {
				printk(KERN_WARNING "NETjet-S: No IO-Adr for PCI card found\n");
				return(0);
			}
			/* the TJ300 and TJ320 must be detected, the IRQ handling is different
			 * unfortunatly the chips use the same device ID, but the TJ320 has
			 * the bit20 in status PCI cfg register set
			 */
			pci_read_config_dword(dev_netjet, 0x04, &cfg);
			if (cfg & 0x00100000)
				cs->subtyp = 1; /* TJ320 */
			else
				cs->subtyp = 0; /* TJ300 */
			/* 2001/10/04 Christoph Ersfeld, Formula-n Europe AG www.formula-n.com */
			if ((dev_netjet->subsystem_vendor == 0x55) &&
				(dev_netjet->subsystem_device == 0x02)) {
				printk(KERN_WARNING "Netjet: You tried to load this driver with an incompatible TigerJet-card\n");
				printk(KERN_WARNING "Use type=41 for Formula-n enter:now ISDN PCI and compatible\n");
				return(0);
			}
			/* end new code */
		} else {
			printk(KERN_WARNING "NETjet-S: No PCI card found\n");
			return(0);
		}

		cs->hw.njet.auxa = cs->hw.njet.base + NETJET_AUXDATA;
		cs->hw.njet.isac = cs->hw.njet.base | NETJET_ISAC_OFF;

		cs->hw.njet.ctrl_reg = 0xff;  /* Reset On */
		byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
		mdelay(10);

		cs->hw.njet.ctrl_reg = 0x00;  /* Reset Off and status read clear */
		byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
		mdelay(10);

		cs->hw.njet.auxd = 0xC0;
		cs->hw.njet.dmactrl = 0;

		byteout(cs->hw.njet.base + NETJET_AUXCTRL, ~NETJET_ISACIRQ);
		byteout(cs->hw.njet.base + NETJET_IRQMASK1, NETJET_ISACIRQ);
		byteout(cs->hw.njet.auxa, cs->hw.njet.auxd);

		switch ( ( ( NETjet_ReadIC( cs, ISAC_RBCH ) >> 5 ) & 3 ) )
		{
			case 0 :
				break;

			case 3 :
				printk( KERN_WARNING "NETjet-S: NETspider-U PCI card found\n" );
				continue;

			default :
				printk( KERN_WARNING "NETjet-S: No PCI card found\n" );
				return 0;
                }
                break;
	}
#else

	printk(KERN_WARNING "NETjet-S: NO_PCI_BIOS\n");
	printk(KERN_WARNING "NETjet-S: unable to config NETJET-S PCI\n");
	return (0);

#endif /* CONFIG_PCI */

	bytecnt = 256;

	printk(KERN_INFO
		"NETjet-S: %s card configured at %#lx IRQ %d\n",
		cs->subtyp ? "TJ320" : "TJ300", cs->hw.njet.base, cs->irq);
	if (!request_region(cs->hw.njet.base, bytecnt, "netjet-s isdn")) {
		printk(KERN_WARNING
		       "HiSax: %s config port %#lx-%#lx already in use\n",
		       CardType[card->typ],
		       cs->hw.njet.base,
		       cs->hw.njet.base + bytecnt);
		return (0);
	}
	cs->readisac  = &NETjet_ReadIC;
	cs->writeisac = &NETjet_WriteIC;
	cs->readisacfifo  = &NETjet_ReadICfifo;
	cs->writeisacfifo = &NETjet_WriteICfifo;
	cs->BC_Read_Reg  = &dummyrr;
	cs->BC_Write_Reg = &dummywr;
	cs->BC_Send_Data = &netjet_fill_dma;
	setup_isac(cs);
	cs->cardmsg = &NETjet_S_card_msg;
	cs->irq_func = &netjet_s_interrupt;
	cs->irq_flags |= IRQF_SHARED;
	ISACVersion(cs, "NETjet-S:");
	return (1);
}
Commit	Line	Data
1da177e4 LT	1	/* $Id: nj_s.c,v 2.13.2.4 2004/01/16 01:53:48 keil Exp $
	2	*
	3	* This software may be used and distributed according to the terms
	4	* of the GNU General Public License, incorporated herein by reference.
	5	*
	6	*/
	7
1da177e4 LT	8	#include <linux/init.h>
	9	#include "hisax.h"
	10	#include "isac.h"
	11	#include "isdnl1.h"
	12	#include <linux/pci.h>
	13	#include <linux/interrupt.h>
	14	#include <linux/ppp_defs.h>
	15	#include "netjet.h"
	16
672c3fd9	17	static const char *NETjet_S_revision = "$Revision: 2.13.2.4 $";
1da177e4 LT	18
	19	static u_char dummyrr(struct IsdnCardState *cs, int chan, u_char off)
	20	{
	21	return(5);
	22	}
	23
	24	static void dummywr(struct IsdnCardState *cs, int chan, u_char off, u_char value)
	25	{
	26	}
	27
	28	static irqreturn_t
7d12e780	29	netjet_s_interrupt(int intno, void *dev_id)
1da177e4 LT	30	{
	31	struct IsdnCardState *cs = dev_id;
	32	u_char val, s1val, s0val;
	33	u_long flags;
	34
	35	spin_lock_irqsave(&cs->lock, flags);
	36	s1val = bytein(cs->hw.njet.base + NETJET_IRQSTAT1);
	37	if (!(s1val & NETJET_ISACIRQ)) {
	38	val = NETjet_ReadIC(cs, ISAC_ISTA);
	39	if (cs->debug & L1_DEB_ISAC)
	40	debugl1(cs, "tiger: i1 %x %x", s1val, val);
	41	if (val) {
	42	isac_interrupt(cs, val);
	43	NETjet_WriteIC(cs, ISAC_MASK, 0xFF);
	44	NETjet_WriteIC(cs, ISAC_MASK, 0x0);
	45	}
	46	s1val = 1;
	47	} else
	48	s1val = 0;
	49	/*
	50	* read/write stat0 is better, because lower IRQ rate
	51	* Note the IRQ is on for 125 us if a condition match
	52	* thats long on modern CPU and so the IRQ is reentered
	53	* all the time.
	54	*/
	55	s0val = bytein(cs->hw.njet.base + NETJET_IRQSTAT0);
	56	if ((s0val \| s1val)==0) { // shared IRQ
	57	spin_unlock_irqrestore(&cs->lock, flags);
	58	return IRQ_NONE;
	59	}
	60	if (s0val)
	61	byteout(cs->hw.njet.base + NETJET_IRQSTAT0, s0val);
	62	/* start new code 13/07/00 GE */
	63	/* set bits in sval to indicate which page is free */
	64	if (inl(cs->hw.njet.base + NETJET_DMA_WRITE_ADR) <
	65	inl(cs->hw.njet.base + NETJET_DMA_WRITE_IRQ))
	66	/* the 2nd write page is free */
	67	s0val = 0x08;
	68	else /* the 1st write page is free */
	69	s0val = 0x04;
	70	if (inl(cs->hw.njet.base + NETJET_DMA_READ_ADR) <
	71	inl(cs->hw.njet.base + NETJET_DMA_READ_IRQ))
	72	/* the 2nd read page is free */
	73	s0val \|= 0x02;
	74	else /* the 1st read page is free */
	75	s0val \|= 0x01;
	76	if (s0val != cs->hw.njet.last_is0) /* we have a DMA interrupt */
	77	{
	78	if (test_and_set_bit(FLG_LOCK_ATOMIC, &cs->HW_Flags)) {
	79	printk(KERN_WARNING "nj LOCK_ATOMIC s0val %x->%x\n",
	80	cs->hw.njet.last_is0, s0val);
	81	spin_unlock_irqrestore(&cs->lock, flags);
	82	return IRQ_HANDLED;
	83	}
	84	cs->hw.njet.irqstat0 = s0val;
	85	if ((cs->hw.njet.irqstat0 & NETJET_IRQM0_READ) !=
	86	(cs->hw.njet.last_is0 & NETJET_IRQM0_READ))
	87	/* we have a read dma int */
	88	read_tiger(cs);
	89	if ((cs->hw.njet.irqstat0 & NETJET_IRQM0_WRITE) !=
	90	(cs->hw.njet.last_is0 & NETJET_IRQM0_WRITE))
	91	/* we have a write dma int */
	92	write_tiger(cs);
	93	/* end new code 13/07/00 GE */
94	test_and_clear_bit(FLG_LOCK_ATOMIC, &cs->HW_Flags);
95	}
96	spin_unlock_irqrestore(&cs->lock, flags);
97	return IRQ_HANDLED;
98	}
99
100	static void
101	reset_netjet_s(struct IsdnCardState *cs)
102	{
103	cs->hw.njet.ctrl_reg = 0xff; /* Reset On */
104	byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
105	mdelay(10);
106	/* now edge triggered for TJ320 GE 13/07/00 */
107	/* see comment in IRQ function */
108	if (cs->subtyp) /* TJ320 */
109	cs->hw.njet.ctrl_reg = 0x40; /* Reset Off and status read clear */
110	else
111	cs->hw.njet.ctrl_reg = 0x00; /* Reset Off and status read clear */
112	byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
113	mdelay(10);
114	cs->hw.njet.auxd = 0;
115	cs->hw.njet.dmactrl = 0;
116	byteout(cs->hw.njet.base + NETJET_AUXCTRL, ~NETJET_ISACIRQ);
117	byteout(cs->hw.njet.base + NETJET_IRQMASK1, NETJET_ISACIRQ);
118	byteout(cs->hw.njet.auxa, cs->hw.njet.auxd);
119	}
120
121	static int
122	NETjet_S_card_msg(struct IsdnCardState cs, int mt, void arg)
123	{
124	u_long flags;
125
126	switch (mt) {
127	case CARD_RESET:
128	spin_lock_irqsave(&cs->lock, flags);
129	reset_netjet_s(cs);
130	spin_unlock_irqrestore(&cs->lock, flags);
131	return(0);
132	case CARD_RELEASE:
133	release_io_netjet(cs);
134	return(0);
135	case CARD_INIT:
136	reset_netjet_s(cs);
137	inittiger(cs);
138	spin_lock_irqsave(&cs->lock, flags);
139	clear_pending_isac_ints(cs);
140	initisac(cs);
141	/* Reenable all IRQ */
142	cs->writeisac(cs, ISAC_MASK, 0);
143	spin_unlock_irqrestore(&cs->lock, flags);
144	return(0);
145	case CARD_TEST:
146	return(0);
147	}
148	return(0);
149	}
150
67eb5db5	151	static struct pci_dev *dev_netjet __devinitdata = NULL;
1da177e4	152
67eb5db5	153	int __devinit
1da177e4 LT	154	setup_netjet_s(struct IsdnCard *card)
	155	{
	156	int bytecnt,cfg;
	157	struct IsdnCardState *cs = card->cs;
	158	char tmp[64];
	159
	160	#ifdef __BIG_ENDIAN
	161	#error "not running on big endian machines now"
	162	#endif
	163	strcpy(tmp, NETjet_S_revision);
	164	printk(KERN_INFO "HiSax: Traverse Tech. NETjet-S driver Rev. %s\n", HiSax_getrev(tmp));
	165	if (cs->typ != ISDN_CTYPE_NETJET_S)
	166	return(0);
	167	test_and_clear_bit(FLG_LOCK_ATOMIC, &cs->HW_Flags);
	168
	169	#ifdef CONFIG_PCI
	170
	171	for ( ;; )
	172	{
	173	if ((dev_netjet = pci_find_device(PCI_VENDOR_ID_TIGERJET,
	174	PCI_DEVICE_ID_TIGERJET_300, dev_netjet))) {
	175	if (pci_enable_device(dev_netjet))
	176	return(0);
	177	pci_set_master(dev_netjet);
	178	cs->irq = dev_netjet->irq;
	179	if (!cs->irq) {
	180	printk(KERN_WARNING "NETjet-S: No IRQ for PCI card found\n");
	181	return(0);
	182	}
	183	cs->hw.njet.base = pci_resource_start(dev_netjet, 0);
	184	if (!cs->hw.njet.base) {
	185	printk(KERN_WARNING "NETjet-S: No IO-Adr for PCI card found\n");
	186	return(0);
	187	}
	188	/* the TJ300 and TJ320 must be detected, the IRQ handling is different
	189	* unfortunatly the chips use the same device ID, but the TJ320 has
	190	* the bit20 in status PCI cfg register set
	191	*/
	192	pci_read_config_dword(dev_netjet, 0x04, &cfg);
	193	if (cfg & 0x00100000)
	194	cs->subtyp = 1; /* TJ320 */
	195	else
	196	cs->subtyp = 0; /* TJ300 */
	197	/* 2001/10/04 Christoph Ersfeld, Formula-n Europe AG www.formula-n.com */
	198	if ((dev_netjet->subsystem_vendor == 0x55) &&
	199	(dev_netjet->subsystem_device == 0x02)) {
	200	printk(KERN_WARNING "Netjet: You tried to load this driver with an incompatible TigerJet-card\n");
	201	printk(KERN_WARNING "Use type=41 for Formula-n enter:now ISDN PCI and compatible\n");
	202	return(0);
	203	}
	204	/* end new code */
	205	} else {
	206	printk(KERN_WARNING "NETjet-S: No PCI card found\n");
	207	return(0);
	208	}
	209
	210	cs->hw.njet.auxa = cs->hw.njet.base + NETJET_AUXDATA;
	211	cs->hw.njet.isac = cs->hw.njet.base \| NETJET_ISAC_OFF;
	212
	213	cs->hw.njet.ctrl_reg = 0xff; /* Reset On */
	214	byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
	215	mdelay(10);
	216
	217	cs->hw.njet.ctrl_reg = 0x00; /* Reset Off and status read clear */
218	byteout(cs->hw.njet.base + NETJET_CTRL, cs->hw.njet.ctrl_reg);
219	mdelay(10);
220
221	cs->hw.njet.auxd = 0xC0;
222	cs->hw.njet.dmactrl = 0;
223
224	byteout(cs->hw.njet.base + NETJET_AUXCTRL, ~NETJET_ISACIRQ);
225	byteout(cs->hw.njet.base + NETJET_IRQMASK1, NETJET_ISACIRQ);
226	byteout(cs->hw.njet.auxa, cs->hw.njet.auxd);
227
228	switch ( ( ( NETjet_ReadIC( cs, ISAC_RBCH ) >> 5 ) & 3 ) )
229	{
230	case 0 :
231	break;
232
233	case 3 :
234	printk( KERN_WARNING "NETjet-S: NETspider-U PCI card found\n" );
235	continue;
236
237	default :
238	printk( KERN_WARNING "NETjet-S: No PCI card found\n" );
239	return 0;
240	}
241	break;
242	}
243	#else
244
245	printk(KERN_WARNING "NETjet-S: NO_PCI_BIOS\n");
246	printk(KERN_WARNING "NETjet-S: unable to config NETJET-S PCI\n");
247	return (0);
248
249	#endif /* CONFIG_PCI */
250
251	bytecnt = 256;
252
253	printk(KERN_INFO
254	"NETjet-S: %s card configured at %#lx IRQ %d\n",
255	cs->subtyp ? "TJ320" : "TJ300", cs->hw.njet.base, cs->irq);
256	if (!request_region(cs->hw.njet.base, bytecnt, "netjet-s isdn")) {
257	printk(KERN_WARNING
258	"HiSax: %s config port %#lx-%#lx already in use\n",
259	CardType[card->typ],
260	cs->hw.njet.base,
261	cs->hw.njet.base + bytecnt);
262	return (0);
263	}
264	cs->readisac = &NETjet_ReadIC;
265	cs->writeisac = &NETjet_WriteIC;
266	cs->readisacfifo = &NETjet_ReadICfifo;
267	cs->writeisacfifo = &NETjet_WriteICfifo;
268	cs->BC_Read_Reg = &dummyrr;
269	cs->BC_Write_Reg = &dummywr;
270	cs->BC_Send_Data = &netjet_fill_dma;
271	setup_isac(cs);
272	cs->cardmsg = &NETjet_S_card_msg;
273	cs->irq_func = &netjet_s_interrupt;
9ba02bec	274	cs->irq_flags \|= IRQF_SHARED;
1da177e4 LT	275	ISACVersion(cs, "NETjet-S:");
	276	return (1);
	277	}