linux/arch/m68k/amiga/cia.c
<<
>>
Prefs
   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#include <linux/irq.h>
  22
  23#include <asm/irq.h>
  24#include <asm/amigahw.h>
  25#include <asm/amigaints.h>
  26
  27struct ciabase {
  28        volatile struct CIA *cia;
  29        unsigned char icr_mask, icr_data;
  30        unsigned short int_mask;
  31        int handler_irq, cia_irq, server_irq;
  32        char *name;
  33} ciaa_base = {
  34        .cia            = &ciaa,
  35        .int_mask       = IF_PORTS,
  36        .handler_irq    = IRQ_AMIGA_PORTS,
  37        .cia_irq        = IRQ_AMIGA_CIAA,
  38        .name           = "CIAA"
  39}, ciab_base = {
  40        .cia            = &ciab,
  41        .int_mask       = IF_EXTER,
  42        .handler_irq    = IRQ_AMIGA_EXTER,
  43        .cia_irq        = IRQ_AMIGA_CIAB,
  44        .name           = "CIAB"
  45};
  46
  47/*
  48 *  Cause or clear CIA interrupts, return old interrupt status.
  49 */
  50
  51unsigned char cia_set_irq(struct ciabase *base, unsigned char mask)
  52{
  53        unsigned char old;
  54
  55        old = (base->icr_data |= base->cia->icr);
  56        if (mask & CIA_ICR_SETCLR)
  57                base->icr_data |= mask;
  58        else
  59                base->icr_data &= ~mask;
  60        if (base->icr_data & base->icr_mask)
  61                amiga_custom.intreq = IF_SETCLR | base->int_mask;
  62        return old & base->icr_mask;
  63}
  64
  65/*
  66 *  Enable or disable CIA interrupts, return old interrupt mask,
  67 */
  68
  69unsigned char cia_able_irq(struct ciabase *base, unsigned char mask)
  70{
  71        unsigned char old;
  72
  73        old = base->icr_mask;
  74        base->icr_data |= base->cia->icr;
  75        base->cia->icr = mask;
  76        if (mask & CIA_ICR_SETCLR)
  77                base->icr_mask |= mask;
  78        else
  79                base->icr_mask &= ~mask;
  80        base->icr_mask &= CIA_ICR_ALL;
  81        if (base->icr_data & base->icr_mask)
  82                amiga_custom.intreq = IF_SETCLR | base->int_mask;
  83        return old;
  84}
  85
  86static irqreturn_t cia_handler(int irq, void *dev_id)
  87{
  88        struct ciabase *base = dev_id;
  89        int mach_irq;
  90        unsigned char ints;
  91
  92        mach_irq = base->cia_irq;
  93        ints = cia_set_irq(base, CIA_ICR_ALL);
  94        amiga_custom.intreq = base->int_mask;
  95        for (; ints; mach_irq++, ints >>= 1) {
  96                if (ints & 1)
  97                        generic_handle_irq(mach_irq);
  98        }
  99        return IRQ_HANDLED;
 100}
 101
 102static void cia_irq_enable(struct irq_data *data)
 103{
 104        unsigned int irq = data->irq;
 105        unsigned char mask;
 106
 107        if (irq >= IRQ_AMIGA_CIAB) {
 108                mask = 1 << (irq - IRQ_AMIGA_CIAB);
 109                cia_set_irq(&ciab_base, mask);
 110                cia_able_irq(&ciab_base, CIA_ICR_SETCLR | mask);
 111        } else {
 112                mask = 1 << (irq - IRQ_AMIGA_CIAA);
 113                cia_set_irq(&ciaa_base, mask);
 114                cia_able_irq(&ciaa_base, CIA_ICR_SETCLR | mask);
 115        }
 116}
 117
 118static void cia_irq_disable(struct irq_data *data)
 119{
 120        unsigned int irq = data->irq;
 121
 122        if (irq >= IRQ_AMIGA_CIAB)
 123                cia_able_irq(&ciab_base, 1 << (irq - IRQ_AMIGA_CIAB));
 124        else
 125                cia_able_irq(&ciaa_base, 1 << (irq - IRQ_AMIGA_CIAA));
 126}
 127
 128static struct irq_chip cia_irq_chip = {
 129        .name           = "cia",
 130        .irq_enable     = cia_irq_enable,
 131        .irq_disable    = cia_irq_disable,
 132};
 133
 134/*
 135 * Override auto irq 2 & 6 and use them as general chain
 136 * for external interrupts, we link the CIA interrupt sources
 137 * into this chain.
 138 */
 139
 140static void auto_irq_enable(struct irq_data *data)
 141{
 142        switch (data->irq) {
 143        case IRQ_AUTO_2:
 144                amiga_custom.intena = IF_SETCLR | IF_PORTS;
 145                break;
 146        case IRQ_AUTO_6:
 147                amiga_custom.intena = IF_SETCLR | IF_EXTER;
 148                break;
 149        }
 150}
 151
 152static void auto_irq_disable(struct irq_data *data)
 153{
 154        switch (data->irq) {
 155        case IRQ_AUTO_2:
 156                amiga_custom.intena = IF_PORTS;
 157                break;
 158        case IRQ_AUTO_6:
 159                amiga_custom.intena = IF_EXTER;
 160                break;
 161        }
 162}
 163
 164static struct irq_chip auto_irq_chip = {
 165        .name           = "auto",
 166        .irq_enable     = auto_irq_enable,
 167        .irq_disable    = auto_irq_disable,
 168};
 169
 170void __init cia_init_IRQ(struct ciabase *base)
 171{
 172        m68k_setup_irq_controller(&cia_irq_chip, handle_simple_irq,
 173                                  base->cia_irq, CIA_IRQS);
 174
 175        /* clear any pending interrupt and turn off all interrupts */
 176        cia_set_irq(base, CIA_ICR_ALL);
 177        cia_able_irq(base, CIA_ICR_ALL);
 178
 179        /* override auto int and install CIA handler */
 180        m68k_setup_irq_controller(&auto_irq_chip, handle_simple_irq,
 181                                  base->handler_irq, 1);
 182        m68k_irq_startup_irq(base->handler_irq);
 183        if (request_irq(base->handler_irq, cia_handler, IRQF_SHARED,
 184                        base->name, base))
 185                pr_err("Couldn't register %s interrupt\n", base->name);
 186}
 187