2 * madgemc.c: Driver for the Madge Smart 16/4 MC16 MCA token ring card.
4 * Written 2000 by Adam Fritzler
6 * This software may be used and distributed according to the terms
7 * of the GNU General Public License, incorporated herein by reference.
9 * This driver module supports the following cards:
10 * - Madge Smart 16/4 Ringnode MC16
11 * - Madge Smart 16/4 Ringnode MC32 (??)
16 * Modification History:
17 * 16-Jan-00 AF Created
20 static const char version
[] = "madgemc.c: v0.91 23/01/2000 by Adam Fritzler\n";
22 #include <linux/module.h>
23 #include <linux/mca.h>
24 #include <linux/slab.h>
25 #include <linux/kernel.h>
26 #include <linux/errno.h>
27 #include <linux/init.h>
28 #include <linux/netdevice.h>
29 #include <linux/trdevice.h>
31 #include <asm/system.h>
36 #include "madgemc.h" /* Madge-specific constants */
38 #define MADGEMC_IO_EXTENT 32
39 #define MADGEMC_SIF_OFFSET 0x08
43 * These are read from the BIA ROM.
46 unsigned int cardtype
;
51 * These are read from the MCA POS registers.
53 unsigned int burstmode
:2;
54 unsigned int fairness
:1; /* 0 = Fair, 1 = Unfair */
55 unsigned int arblevel
:4;
56 unsigned int ringspeed
:2; /* 0 = 4mb, 1 = 16, 2 = Auto/none */
57 unsigned int cabletype
:1; /* 0 = RJ45, 1 = DB9 */
60 static int madgemc_open(struct net_device
*dev
);
61 static int madgemc_close(struct net_device
*dev
);
62 static int madgemc_chipset_init(struct net_device
*dev
);
63 static void madgemc_read_rom(struct net_device
*dev
, struct card_info
*card
);
64 static unsigned short madgemc_setnselout_pins(struct net_device
*dev
);
65 static void madgemc_setcabletype(struct net_device
*dev
, int type
);
67 static int madgemc_mcaproc(char *buf
, int slot
, void *d
);
69 static void madgemc_setregpage(struct net_device
*dev
, int page
);
70 static void madgemc_setsifsel(struct net_device
*dev
, int val
);
71 static void madgemc_setint(struct net_device
*dev
, int val
);
73 static irqreturn_t
madgemc_interrupt(int irq
, void *dev_id
);
76 * These work around paging, however they don't guarantee you're on the
79 #define SIFREADB(reg) (inb(dev->base_addr + ((reg<0x8)?reg:reg-0x8)))
80 #define SIFWRITEB(val, reg) (outb(val, dev->base_addr + ((reg<0x8)?reg:reg-0x8)))
81 #define SIFREADW(reg) (inw(dev->base_addr + ((reg<0x8)?reg:reg-0x8)))
82 #define SIFWRITEW(val, reg) (outw(val, dev->base_addr + ((reg<0x8)?reg:reg-0x8)))
85 * Read a byte-length value from the register.
87 static unsigned short madgemc_sifreadb(struct net_device
*dev
, unsigned short reg
)
93 madgemc_setregpage(dev
, 1);
95 madgemc_setregpage(dev
, 0);
101 * Write a byte-length value to a register.
103 static void madgemc_sifwriteb(struct net_device
*dev
, unsigned short val
, unsigned short reg
)
108 madgemc_setregpage(dev
, 1);
110 madgemc_setregpage(dev
, 0);
115 * Read a word-length value from a register
117 static unsigned short madgemc_sifreadw(struct net_device
*dev
, unsigned short reg
)
123 madgemc_setregpage(dev
, 1);
125 madgemc_setregpage(dev
, 0);
131 * Write a word-length value to a register.
133 static void madgemc_sifwritew(struct net_device
*dev
, unsigned short val
, unsigned short reg
)
138 madgemc_setregpage(dev
, 1);
140 madgemc_setregpage(dev
, 0);
144 static struct net_device_ops madgemc_netdev_ops __read_mostly
;
146 static int __devinit
madgemc_probe(struct device
*device
)
148 static int versionprinted
;
149 struct net_device
*dev
;
150 struct net_local
*tp
;
151 struct card_info
*card
;
152 struct mca_device
*mdev
= to_mca_device(device
);
155 if (versionprinted
++ == 0)
156 printk("%s", version
);
158 if(mca_device_claimed(mdev
))
160 mca_device_set_claim(mdev
, 1);
162 dev
= alloc_trdev(sizeof(struct net_local
));
164 printk("madgemc: unable to allocate dev space\n");
165 mca_device_set_claim(mdev
, 0);
170 dev
->netdev_ops
= &madgemc_netdev_ops
;
172 card
= kmalloc(sizeof(struct card_info
), GFP_KERNEL
);
179 * Parse configuration information. This all comes
180 * directly from the publicly available @002d.ADF.
181 * Get it from Madge or your local ADF library.
187 dev
->base_addr
= 0x0a20 +
188 ((mdev
->pos
[2] & MC16_POS2_ADDR2
)?0x0400:0) +
189 ((mdev
->pos
[0] & MC16_POS0_ADDR1
)?0x1000:0) +
190 ((mdev
->pos
[3] & MC16_POS3_ADDR3
)?0x2000:0);
195 switch(mdev
->pos
[0] >> 6) { /* upper two bits */
196 case 0x1: dev
->irq
= 3; break;
197 case 0x2: dev
->irq
= 9; break; /* IRQ 2 = IRQ 9 */
198 case 0x3: dev
->irq
= 10; break;
199 default: dev
->irq
= 0; break;
203 printk("%s: invalid IRQ\n", dev
->name
);
208 if (!request_region(dev
->base_addr
, MADGEMC_IO_EXTENT
,
210 printk(KERN_INFO
"madgemc: unable to setup Smart MC in slot %d because of I/O base conflict at 0x%04lx\n", mdev
->slot
, dev
->base_addr
);
211 dev
->base_addr
+= MADGEMC_SIF_OFFSET
;
215 dev
->base_addr
+= MADGEMC_SIF_OFFSET
;
220 card
->arblevel
= ((mdev
->pos
[0] >> 1) & 0x7) + 8;
223 * Burst mode and Fairness
225 card
->burstmode
= ((mdev
->pos
[2] >> 6) & 0x3);
226 card
->fairness
= ((mdev
->pos
[2] >> 4) & 0x1);
231 if ((mdev
->pos
[1] >> 2)&0x1)
232 card
->ringspeed
= 2; /* not selected */
233 else if ((mdev
->pos
[2] >> 5) & 0x1)
234 card
->ringspeed
= 1; /* 16Mb */
236 card
->ringspeed
= 0; /* 4Mb */
241 if ((mdev
->pos
[1] >> 6)&0x1)
242 card
->cabletype
= 1; /* STP/DB9 */
244 card
->cabletype
= 0; /* UTP/RJ-45 */
248 * ROM Info. This requires us to actually twiddle
249 * bits on the card, so we must ensure above that
250 * the base address is free of conflict (request_region above).
252 madgemc_read_rom(dev
, card
);
254 if (card
->manid
!= 0x4d) { /* something went wrong */
255 printk(KERN_INFO
"%s: Madge MC ROM read failed (unknown manufacturer ID %02x)\n", dev
->name
, card
->manid
);
259 if ((card
->cardtype
!= 0x08) && (card
->cardtype
!= 0x0d)) {
260 printk(KERN_INFO
"%s: Madge MC ROM read failed (unknown card ID %02x)\n", dev
->name
, card
->cardtype
);
265 /* All cards except Rev 0 and 1 MC16's have 256kb of RAM */
266 if ((card
->cardtype
== 0x08) && (card
->cardrev
<= 0x01))
271 printk("%s: %s Rev %d at 0x%04lx IRQ %d\n",
273 (card
->cardtype
== 0x08)?MADGEMC16_CARDNAME
:
274 MADGEMC32_CARDNAME
, card
->cardrev
,
275 dev
->base_addr
, dev
->irq
);
277 if (card
->cardtype
== 0x0d)
278 printk("%s: Warning: MC32 support is experimental and highly untested\n", dev
->name
);
280 if (card
->ringspeed
==2) { /* Unknown */
281 printk("%s: Warning: Ring speed not set in POS -- Please run the reference disk and set it!\n", dev
->name
);
282 card
->ringspeed
= 1; /* default to 16mb */
285 printk("%s: RAM Size: %dKB\n", dev
->name
, card
->ramsize
);
287 printk("%s: Ring Speed: %dMb/sec on %s\n", dev
->name
,
288 (card
->ringspeed
)?16:4,
289 card
->cabletype
?"STP/DB9":"UTP/RJ-45");
290 printk("%s: Arbitration Level: %d\n", dev
->name
,
293 printk("%s: Burst Mode: ", dev
->name
);
294 switch(card
->burstmode
) {
295 case 0: printk("Cycle steal"); break;
296 case 1: printk("Limited burst"); break;
297 case 2: printk("Delayed release"); break;
298 case 3: printk("Immediate release"); break;
300 printk(" (%s)\n", (card
->fairness
)?"Unfair":"Fair");
304 * Enable SIF before we assign the interrupt handler,
305 * just in case we get spurious interrupts that need
308 outb(0, dev
->base_addr
+ MC_CONTROL_REG0
); /* sanity */
309 madgemc_setsifsel(dev
, 1);
310 if (request_irq(dev
->irq
, madgemc_interrupt
, IRQF_SHARED
,
316 madgemc_chipset_init(dev
); /* enables interrupts! */
317 madgemc_setcabletype(dev
, card
->cabletype
);
319 /* Setup MCA structures */
320 mca_device_set_name(mdev
, (card
->cardtype
== 0x08)?MADGEMC16_CARDNAME
:MADGEMC32_CARDNAME
);
321 mca_set_adapter_procfn(mdev
->slot
, madgemc_mcaproc
, dev
);
323 printk("%s: Ring Station Address: %pM\n",
324 dev
->name
, dev
->dev_addr
);
326 if (tmsdev_init(dev
, device
)) {
327 printk("%s: unable to get memory for dev->priv.\n",
332 tp
= netdev_priv(dev
);
335 * The MC16 is physically a 32bit card. However, Madge
336 * insists on calling it 16bit, so I'll assume here that
337 * they know what they're talking about. Cut off DMA
340 tp
->setnselout
= madgemc_setnselout_pins
;
341 tp
->sifwriteb
= madgemc_sifwriteb
;
342 tp
->sifreadb
= madgemc_sifreadb
;
343 tp
->sifwritew
= madgemc_sifwritew
;
344 tp
->sifreadw
= madgemc_sifreadw
;
345 tp
->DataRate
= (card
->ringspeed
)?SPEED_16
:SPEED_4
;
347 memcpy(tp
->ProductID
, "Madge MCA 16/4 ", PROD_ID_SIZE
+ 1);
350 dev_set_drvdata(device
, dev
);
352 if (register_netdev(dev
) == 0)
355 dev_set_drvdata(device
, NULL
);
358 free_irq(dev
->irq
, dev
);
360 release_region(dev
->base_addr
-MADGEMC_SIF_OFFSET
,
367 mca_device_set_claim(mdev
, 0);
372 * Handle interrupts generated by the card
374 * The MicroChannel Madge cards need slightly more handling
375 * after an interrupt than other TMS380 cards do.
377 * First we must make sure it was this card that generated the
378 * interrupt (since interrupt sharing is allowed). Then,
379 * because we're using level-triggered interrupts (as is
380 * standard on MCA), we must toggle the interrupt line
381 * on the card in order to claim and acknowledge the interrupt.
382 * Once that is done, the interrupt should be handlable in
383 * the normal tms380tr_interrupt() routine.
385 * There's two ways we can check to see if the interrupt is ours,
386 * both with their own disadvantages...
388 * 1) Read in the SIFSTS register from the TMS controller. This
389 * is guaranteed to be accurate, however, there's a fairly
390 * large performance penalty for doing so: the Madge chips
391 * must request the register from the Eagle, the Eagle must
392 * read them from its internal bus, and then take the route
393 * back out again, for a 16bit read.
395 * 2) Use the MC_CONTROL_REG0_SINTR bit from the Madge ASICs.
396 * The major disadvantage here is that the accuracy of the
397 * bit is in question. However, it cuts out the extra read
398 * cycles it takes to read the Eagle's SIF, as its only an
399 * 8bit read, and theoretically the Madge bit is directly
400 * connected to the interrupt latch coming out of the Eagle
401 * hardware (that statement is not verified).
403 * I can't determine which of these methods has the best win. For now,
404 * we make a compromise. Use the Madge way for the first interrupt,
405 * which should be the fast-path, and then once we hit the first
406 * interrupt, keep on trying using the SIF method until we've
407 * exhausted all contiguous interrupts.
410 static irqreturn_t
madgemc_interrupt(int irq
, void *dev_id
)
413 struct net_device
*dev
;
416 printk("madgemc_interrupt: was not passed a dev_id!\n");
422 /* Make sure its really us. -- the Madge way */
423 pending
= inb(dev
->base_addr
+ MC_CONTROL_REG0
);
424 if (!(pending
& MC_CONTROL_REG0_SINTR
))
425 return IRQ_NONE
; /* not our interrupt */
428 * Since we're level-triggered, we may miss the rising edge
429 * of the next interrupt while we're off handling this one,
430 * so keep checking until the SIF verifies that it has nothing
433 pending
= STS_SYSTEM_IRQ
;
435 if (pending
& STS_SYSTEM_IRQ
) {
437 /* Toggle the interrupt to reset the latch on card */
438 reg1
= inb(dev
->base_addr
+ MC_CONTROL_REG1
);
439 outb(reg1
^ MC_CONTROL_REG1_SINTEN
,
440 dev
->base_addr
+ MC_CONTROL_REG1
);
441 outb(reg1
, dev
->base_addr
+ MC_CONTROL_REG1
);
443 /* Continue handling as normal */
444 tms380tr_interrupt(irq
, dev_id
);
446 pending
= SIFREADW(SIFSTS
); /* restart - the SIF way */
452 return IRQ_HANDLED
; /* not reachable */
456 * Set the card to the preferred ring speed.
458 * Unlike newer cards, the MC16/32 have their speed selection
459 * circuit connected to the Madge ASICs and not to the TMS380
460 * NSELOUT pins. Set the ASIC bits correctly here, and return
461 * zero to leave the TMS NSELOUT bits unaffected.
464 static unsigned short madgemc_setnselout_pins(struct net_device
*dev
)
467 struct net_local
*tp
= netdev_priv(dev
);
469 reg1
= inb(dev
->base_addr
+ MC_CONTROL_REG1
);
471 if(tp
->DataRate
== SPEED_16
)
472 reg1
|= MC_CONTROL_REG1_SPEED_SEL
; /* add for 16mb */
473 else if (reg1
& MC_CONTROL_REG1_SPEED_SEL
)
474 reg1
^= MC_CONTROL_REG1_SPEED_SEL
; /* remove for 4mb */
475 outb(reg1
, dev
->base_addr
+ MC_CONTROL_REG1
);
477 return 0; /* no change */
481 * Set the register page. This equates to the SRSX line
484 * Register selection is normally done via three contiguous
485 * bits. However, some boards (such as the MC16/32) use only
486 * two bits, plus a separate bit in the glue chip. This
487 * sets the SRSX bit (the top bit). See page 4-17 in the
488 * Yellow Book for which registers are affected.
491 static void madgemc_setregpage(struct net_device
*dev
, int page
)
495 reg1
= inb(dev
->base_addr
+ MC_CONTROL_REG1
);
496 if ((page
== 0) && (reg1
& MC_CONTROL_REG1_SRSX
)) {
497 outb(reg1
^ MC_CONTROL_REG1_SRSX
,
498 dev
->base_addr
+ MC_CONTROL_REG1
);
500 else if (page
== 1) {
501 outb(reg1
| MC_CONTROL_REG1_SRSX
,
502 dev
->base_addr
+ MC_CONTROL_REG1
);
504 reg1
= inb(dev
->base_addr
+ MC_CONTROL_REG1
);
508 * The SIF registers are not mapped into register space by default
509 * Set this to 1 to map them, 0 to map the BIA ROM.
512 static void madgemc_setsifsel(struct net_device
*dev
, int val
)
516 reg0
= inb(dev
->base_addr
+ MC_CONTROL_REG0
);
517 if ((val
== 0) && (reg0
& MC_CONTROL_REG0_SIFSEL
)) {
518 outb(reg0
^ MC_CONTROL_REG0_SIFSEL
,
519 dev
->base_addr
+ MC_CONTROL_REG0
);
520 } else if (val
== 1) {
521 outb(reg0
| MC_CONTROL_REG0_SIFSEL
,
522 dev
->base_addr
+ MC_CONTROL_REG0
);
524 reg0
= inb(dev
->base_addr
+ MC_CONTROL_REG0
);
528 * Enable SIF interrupts
530 * This does not enable interrupts in the SIF, but rather
531 * enables SIF interrupts to be passed onto the host.
534 static void madgemc_setint(struct net_device
*dev
, int val
)
538 reg1
= inb(dev
->base_addr
+ MC_CONTROL_REG1
);
539 if ((val
== 0) && (reg1
& MC_CONTROL_REG1_SINTEN
)) {
540 outb(reg1
^ MC_CONTROL_REG1_SINTEN
,
541 dev
->base_addr
+ MC_CONTROL_REG1
);
542 } else if (val
== 1) {
543 outb(reg1
| MC_CONTROL_REG1_SINTEN
,
544 dev
->base_addr
+ MC_CONTROL_REG1
);
549 * Cable type is set via control register 7. Bit zero high
550 * for UTP, low for STP.
552 static void madgemc_setcabletype(struct net_device
*dev
, int type
)
554 outb((type
==0)?MC_CONTROL_REG7_CABLEUTP
:MC_CONTROL_REG7_CABLESTP
,
555 dev
->base_addr
+ MC_CONTROL_REG7
);
559 * Enable the functions of the Madge chipset needed for
560 * full working order.
562 static int madgemc_chipset_init(struct net_device
*dev
)
564 outb(0, dev
->base_addr
+ MC_CONTROL_REG1
); /* pull SRESET low */
565 tms380tr_wait(100); /* wait for card to reset */
567 /* bring back into normal operating mode */
568 outb(MC_CONTROL_REG1_NSRESET
, dev
->base_addr
+ MC_CONTROL_REG1
);
570 /* map SIF registers */
571 madgemc_setsifsel(dev
, 1);
573 /* enable SIF interrupts */
574 madgemc_setint(dev
, 1);
580 * Disable the board, and put back into power-up state.
582 static void madgemc_chipset_close(struct net_device
*dev
)
584 /* disable interrupts */
585 madgemc_setint(dev
, 0);
586 /* unmap SIF registers */
587 madgemc_setsifsel(dev
, 0);
591 * Read the card type (MC16 or MC32) from the card.
593 * The configuration registers are stored in two separate
594 * pages. Pages are flipped by clearing bit 3 of CONTROL_REG0 (PAGE)
595 * for page zero, or setting bit 3 for page one.
597 * Page zero contains the following data:
598 * Byte 0: Manufacturer ID (0x4D -- ASCII "M")
602 * Byte 2: Card revision
603 * Byte 3: Mirror of POS config register 0
604 * Byte 4: Mirror of POS 1
605 * Byte 5: Mirror of POS 2
607 * Page one contains the following data:
609 * Byte 1-6: BIA, MSB to LSB.
611 * Note that to read the BIA, we must unmap the SIF registers
612 * by clearing bit 2 of CONTROL_REG0 (SIFSEL), as the data
613 * will reside in the same logical location. For this reason,
614 * _never_ read the BIA while the Eagle processor is running!
615 * The SIF will be completely inaccessible until the BIA operation
619 static void madgemc_read_rom(struct net_device
*dev
, struct card_info
*card
)
621 unsigned long ioaddr
;
622 unsigned char reg0
, reg1
, tmpreg0
, i
;
624 ioaddr
= dev
->base_addr
;
626 reg0
= inb(ioaddr
+ MC_CONTROL_REG0
);
627 reg1
= inb(ioaddr
+ MC_CONTROL_REG1
);
629 /* Switch to page zero and unmap SIF */
630 tmpreg0
= reg0
& ~(MC_CONTROL_REG0_PAGE
+ MC_CONTROL_REG0_SIFSEL
);
631 outb(tmpreg0
, ioaddr
+ MC_CONTROL_REG0
);
633 card
->manid
= inb(ioaddr
+ MC_ROM_MANUFACTURERID
);
634 card
->cardtype
= inb(ioaddr
+ MC_ROM_ADAPTERID
);
635 card
->cardrev
= inb(ioaddr
+ MC_ROM_REVISION
);
637 /* Switch to rom page one */
638 outb(tmpreg0
| MC_CONTROL_REG0_PAGE
, ioaddr
+ MC_CONTROL_REG0
);
642 for (i
= 0; i
< 6; i
++)
643 dev
->dev_addr
[i
] = inb(ioaddr
+ MC_ROM_BIA_START
+ i
);
645 /* Restore original register values */
646 outb(reg0
, ioaddr
+ MC_CONTROL_REG0
);
647 outb(reg1
, ioaddr
+ MC_CONTROL_REG1
);
650 static int madgemc_open(struct net_device
*dev
)
653 * Go ahead and reinitialize the chipset again, just to
654 * make sure we didn't get left in a bad state.
656 madgemc_chipset_init(dev
);
661 static int madgemc_close(struct net_device
*dev
)
664 madgemc_chipset_close(dev
);
669 * Give some details available from /proc/mca/slotX
671 static int madgemc_mcaproc(char *buf
, int slot
, void *d
)
673 struct net_device
*dev
= (struct net_device
*)d
;
674 struct net_local
*tp
= netdev_priv(dev
);
675 struct card_info
*curcard
= tp
->tmspriv
;
678 len
+= sprintf(buf
+len
, "-------\n");
680 len
+= sprintf(buf
+len
, "Card Revision: %d\n", curcard
->cardrev
);
681 len
+= sprintf(buf
+len
, "RAM Size: %dkb\n", curcard
->ramsize
);
682 len
+= sprintf(buf
+len
, "Cable type: %s\n", (curcard
->cabletype
)?"STP/DB9":"UTP/RJ-45");
683 len
+= sprintf(buf
+len
, "Configured ring speed: %dMb/sec\n", (curcard
->ringspeed
)?16:4);
684 len
+= sprintf(buf
+len
, "Running ring speed: %dMb/sec\n", (tp
->DataRate
==SPEED_16
)?16:4);
685 len
+= sprintf(buf
+len
, "Device: %s\n", dev
->name
);
686 len
+= sprintf(buf
+len
, "IO Port: 0x%04lx\n", dev
->base_addr
);
687 len
+= sprintf(buf
+len
, "IRQ: %d\n", dev
->irq
);
688 len
+= sprintf(buf
+len
, "Arbitration Level: %d\n", curcard
->arblevel
);
689 len
+= sprintf(buf
+len
, "Burst Mode: ");
690 switch(curcard
->burstmode
) {
691 case 0: len
+= sprintf(buf
+len
, "Cycle steal"); break;
692 case 1: len
+= sprintf(buf
+len
, "Limited burst"); break;
693 case 2: len
+= sprintf(buf
+len
, "Delayed release"); break;
694 case 3: len
+= sprintf(buf
+len
, "Immediate release"); break;
696 len
+= sprintf(buf
+len
, " (%s)\n", (curcard
->fairness
)?"Unfair":"Fair");
698 len
+= sprintf(buf
+len
, "Ring Station Address: %pM\n",
701 len
+= sprintf(buf
+len
, "Card not configured\n");
706 static int __devexit
madgemc_remove(struct device
*device
)
708 struct net_device
*dev
= dev_get_drvdata(device
);
709 struct net_local
*tp
;
710 struct card_info
*card
;
714 tp
= netdev_priv(dev
);
719 unregister_netdev(dev
);
720 release_region(dev
->base_addr
-MADGEMC_SIF_OFFSET
, MADGEMC_IO_EXTENT
);
721 free_irq(dev
->irq
, dev
);
724 dev_set_drvdata(device
, NULL
);
729 static short madgemc_adapter_ids
[] __initdata
= {
734 static struct mca_driver madgemc_driver
= {
735 .id_table
= madgemc_adapter_ids
,
738 .bus
= &mca_bus_type
,
739 .probe
= madgemc_probe
,
740 .remove
= __devexit_p(madgemc_remove
),
744 static int __init
madgemc_init (void)
746 madgemc_netdev_ops
= tms380tr_netdev_ops
;
747 madgemc_netdev_ops
.ndo_open
= madgemc_open
;
748 madgemc_netdev_ops
.ndo_stop
= madgemc_close
;
750 return mca_register_driver (&madgemc_driver
);
753 static void __exit
madgemc_exit (void)
755 mca_unregister_driver (&madgemc_driver
);
758 module_init(madgemc_init
);
759 module_exit(madgemc_exit
);
761 MODULE_LICENSE("GPL");