Linux 2.6.31-rc6
[linux-2.6] / arch / m68k / amiga / cia.c
1 /*
2  *  linux/arch/m68k/amiga/cia.c - CIA support
3  *
4  *  Copyright (C) 1996 Roman Zippel
5  *
6  *  The concept of some functions bases on the original Amiga OS function
7  *
8  * This file is subject to the terms and conditions of the GNU General Public
9  * License.  See the file COPYING in the main directory of this archive
10  * for more details.
11  */
12
13 #include <linux/types.h>
14 #include <linux/kernel.h>
15 #include <linux/sched.h>
16 #include <linux/errno.h>
17 #include <linux/kernel_stat.h>
18 #include <linux/init.h>
19 #include <linux/seq_file.h>
20 #include <linux/interrupt.h>
21
22 #include <asm/irq.h>
23 #include <asm/amigahw.h>
24 #include <asm/amigaints.h>
25
26 struct ciabase {
27         volatile struct CIA *cia;
28         unsigned char icr_mask, icr_data;
29         unsigned short int_mask;
30         int handler_irq, cia_irq, server_irq;
31         char *name;
32 } ciaa_base = {
33         .cia            = &ciaa,
34         .int_mask       = IF_PORTS,
35         .handler_irq    = IRQ_AMIGA_PORTS,
36         .cia_irq        = IRQ_AMIGA_CIAA,
37         .name           = "CIAA"
38 }, ciab_base = {
39         .cia            = &ciab,
40         .int_mask       = IF_EXTER,
41         .handler_irq    = IRQ_AMIGA_EXTER,
42         .cia_irq        = IRQ_AMIGA_CIAB,
43         .name           = "CIAB"
44 };
45
46 /*
47  *  Cause or clear CIA interrupts, return old interrupt status.
48  */
49
50 unsigned char cia_set_irq(struct ciabase *base, unsigned char mask)
51 {
52         unsigned char old;
53
54         old = (base->icr_data |= base->cia->icr);
55         if (mask & CIA_ICR_SETCLR)
56                 base->icr_data |= mask;
57         else
58                 base->icr_data &= ~mask;
59         if (base->icr_data & base->icr_mask)
60                 amiga_custom.intreq = IF_SETCLR | base->int_mask;
61         return old & base->icr_mask;
62 }
63
64 /*
65  *  Enable or disable CIA interrupts, return old interrupt mask,
66  */
67
68 unsigned char cia_able_irq(struct ciabase *base, unsigned char mask)
69 {
70         unsigned char old;
71
72         old = base->icr_mask;
73         base->icr_data |= base->cia->icr;
74         base->cia->icr = mask;
75         if (mask & CIA_ICR_SETCLR)
76                 base->icr_mask |= mask;
77         else
78                 base->icr_mask &= ~mask;
79         base->icr_mask &= CIA_ICR_ALL;
80         if (base->icr_data & base->icr_mask)
81                 amiga_custom.intreq = IF_SETCLR | base->int_mask;
82         return old;
83 }
84
85 static irqreturn_t cia_handler(int irq, void *dev_id)
86 {
87         struct ciabase *base = dev_id;
88         int mach_irq;
89         unsigned char ints;
90
91         mach_irq = base->cia_irq;
92         ints = cia_set_irq(base, CIA_ICR_ALL);
93         amiga_custom.intreq = base->int_mask;
94         for (; ints; mach_irq++, ints >>= 1) {
95                 if (ints & 1)
96                         m68k_handle_int(mach_irq);
97         }
98         return IRQ_HANDLED;
99 }
100
101 static void cia_enable_irq(unsigned int irq)
102 {
103         unsigned char mask;
104
105         if (irq >= IRQ_AMIGA_CIAB) {
106                 mask = 1 << (irq - IRQ_AMIGA_CIAB);
107                 cia_set_irq(&ciab_base, mask);
108                 cia_able_irq(&ciab_base, CIA_ICR_SETCLR | mask);
109         } else {
110                 mask = 1 << (irq - IRQ_AMIGA_CIAA);
111                 cia_set_irq(&ciaa_base, mask);
112                 cia_able_irq(&ciaa_base, CIA_ICR_SETCLR | mask);
113         }
114 }
115
116 static void cia_disable_irq(unsigned int irq)
117 {
118         if (irq >= IRQ_AMIGA_CIAB)
119                 cia_able_irq(&ciab_base, 1 << (irq - IRQ_AMIGA_CIAB));
120         else
121                 cia_able_irq(&ciaa_base, 1 << (irq - IRQ_AMIGA_CIAA));
122 }
123
124 static struct irq_controller cia_irq_controller = {
125         .name           = "cia",
126         .lock           = __SPIN_LOCK_UNLOCKED(cia_irq_controller.lock),
127         .enable         = cia_enable_irq,
128         .disable        = cia_disable_irq,
129 };
130
131 /*
132  * Override auto irq 2 & 6 and use them as general chain
133  * for external interrupts, we link the CIA interrupt sources
134  * into this chain.
135  */
136
137 static void auto_enable_irq(unsigned int irq)
138 {
139         switch (irq) {
140         case IRQ_AUTO_2:
141                 amiga_custom.intena = IF_SETCLR | IF_PORTS;
142                 break;
143         case IRQ_AUTO_6:
144                 amiga_custom.intena = IF_SETCLR | IF_EXTER;
145                 break;
146         }
147 }
148
149 static void auto_disable_irq(unsigned int irq)
150 {
151         switch (irq) {
152         case IRQ_AUTO_2:
153                 amiga_custom.intena = IF_PORTS;
154                 break;
155         case IRQ_AUTO_6:
156                 amiga_custom.intena = IF_EXTER;
157                 break;
158         }
159 }
160
161 static struct irq_controller auto_irq_controller = {
162         .name           = "auto",
163         .lock           = __SPIN_LOCK_UNLOCKED(auto_irq_controller.lock),
164         .enable         = auto_enable_irq,
165         .disable        = auto_disable_irq,
166 };
167
168 void __init cia_init_IRQ(struct ciabase *base)
169 {
170         m68k_setup_irq_controller(&cia_irq_controller, base->cia_irq, CIA_IRQS);
171
172         /* clear any pending interrupt and turn off all interrupts */
173         cia_set_irq(base, CIA_ICR_ALL);
174         cia_able_irq(base, CIA_ICR_ALL);
175
176         /* override auto int and install CIA handler */
177         m68k_setup_irq_controller(&auto_irq_controller, base->handler_irq, 1);
178         m68k_irq_startup(base->handler_irq);
179         if (request_irq(base->handler_irq, cia_handler, IRQF_SHARED,
180                         base->name, base))
181                 pr_err("Couldn't register %s interrupt\n", base->name);
182 }