src/devices/dev_openpic.c

/*
 *  Copyright (C) 2005-2007  Anders Gavare.  All rights reserved.
 *
 *  Redistribution and use in source and binary forms, with or without
 *  modification, are permitted provided that the following conditions are met:
 *
 *  1. Redistributions of source code must retain the above copyright
 *     notice, this list of conditions and the following disclaimer.
 *  2. Redistributions in binary form must reproduce the above copyright  
 *     notice, this list of conditions and the following disclaimer in the 
 *     documentation and/or other materials provided with the distribution.
 *  3. The name of the author may not be used to endorse or promote products
 *     derived from this software without specific prior written permission.
 *
 *  THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 *  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 *  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 *  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE   
 *  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 *  OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 *  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 *  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 *  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 *  SUCH DAMAGE.
 *   
 *  $Id: dev_openpic.c,v 1.14 2007/09/11 21:42:52 debug Exp $
 *  
 *  COMMENT: OpenPIC Interrupt controller (used by sandpoint ppc)
 *  based on dev_gc.c
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "cpu.h"
#include "device.h"
#include "machine.h"
#include "memory.h"
#include "misc.h"


#define DEV_OPENPIC_LENGTH              0x40000

struct openpic_data {
        struct interrupt cpu_irq;

        uint32_t        status_hi;
        uint32_t        status_lo;
        uint32_t        enable_hi;
        uint32_t        enable_lo;
};


void openpic_hi_interrupt_assert(struct interrupt *interrupt)
{
        struct openpic_data *d = interrupt->extra;
        d->status_hi |= interrupt->line;
        if (d->status_lo & d->enable_lo || d->status_hi & d->enable_hi)
                INTERRUPT_ASSERT(d->cpu_irq);
}
void openpic_hi_interrupt_deassert(struct interrupt *interrupt)
{
        struct openpic_data *d = interrupt->extra;
        d->status_hi &= ~interrupt->line;
        if (!(d->status_lo & d->enable_lo || d->status_hi & d->enable_hi))
                INTERRUPT_DEASSERT(d->cpu_irq);
}
void openpic_lo_interrupt_assert(struct interrupt *interrupt)
{
        struct openpic_data *d = interrupt->extra;
        d->status_lo |= interrupt->line;
        if (d->status_lo & d->enable_lo || d->status_hi & d->enable_hi)
                INTERRUPT_ASSERT(d->cpu_irq);
}
void openpic_lo_interrupt_deassert(struct interrupt *interrupt)
{
        struct openpic_data *d = interrupt->extra;
        d->status_lo &= ~interrupt->line;
        if (!(d->status_lo & d->enable_lo || d->status_hi & d->enable_hi))
                INTERRUPT_DEASSERT(d->cpu_irq);
}

#define OPENPIC_MASK                            0x80000000
#define OPENPIC_ACTIVITY                        0x40000000      /* Read Only */
#define OPENPIC_PRIORITY_MASK                   0x000f0000
#define OPENPIC_PRIORITY_SHIFT                  16
#define OPENPIC_VECTOR_MASK                     0x000000ff

#define OPENPIC_VEC_TIMER       64      /* and up */
#define OPENPIC_VEC_IPI         72      /* and up */
#define OPENPIC_VEC_SPURIOUS    127

DEVICE_ACCESS(openpic)
{
//      struct openpic_data *d = extra;
        uint64_t idata = 0, odata = 0;

        if (writeflag == MEM_WRITE)
                idata = memory_readmax64(cpu, data, len);

        uint64_t priority,vector, active;
        priority = ( relative_addr & 0xf000 );
        vector   = ( relative_addr & 0x00ff );
        active   = ( relative_addr & 0x4000 );

        debug("[ openpic: access at %04x -> priority: %x vector: 0x%02x %d active: %x ]\n",
                (int)relative_addr, (int)priority, (int)vector, (int)vector, (int)active );

        switch (relative_addr) {

        case 0x00:
                if (writeflag == MEM_READ) {
                        // version 1.2
                        odata = 0x02000000;
                        fatal("[ openpic: read from "
                            "offset 0x%x (OpenPIC version) = %x]\n", (int)
                            relative_addr, (int)odata);
                }
                fatal("[ openpic: unimplemented write to "
                    "offset 0x%x: data=0x%x (OpenPIC version) ]\n", (int)
                    relative_addr, (int)idata);
                break;

#if 0
#define INT_STATE_REG_H  (interrupt_reg + 0x00)
#define INT_ENABLE_REG_H (interrupt_reg + 0x04)
#define INT_CLEAR_REG_H  (interrupt_reg + 0x08)
#define INT_LEVEL_REG_H  (interrupt_reg + 0x0c)
#define INT_STATE_REG_L  (interrupt_reg + 0x10)
#define INT_ENABLE_REG_L (interrupt_reg + 0x14)
#define INT_CLEAR_REG_L  (interrupt_reg + 0x18)
#define INT_LEVEL_REG_L  (interrupt_reg + 0x1c)
#endif

#if 0
        case 0x10:
                if (writeflag == MEM_READ)
                        odata = d->status_hi & d->enable_hi;
                break;

        case 0x14:
                if (writeflag == MEM_READ)
                        odata = d->enable_hi;
                else {
                        int old_assert = (d->status_lo & d->enable_lo
                            || d->status_hi & d->enable_hi);
                        int new_assert;
                        d->enable_hi = idata;

                        new_assert = (d->status_lo & d->enable_lo ||
                            d->status_hi & d->enable_hi);

                        if (old_assert && !new_assert)
                                INTERRUPT_DEASSERT(d->cpu_irq);
                        else if (!old_assert && new_assert)
                                INTERRUPT_ASSERT(d->cpu_irq);
                }
                break;

        case 0x18:
                if (writeflag == MEM_WRITE) {
                        int old_assert = (d->status_lo & d->enable_lo
                            || d->status_hi & d->enable_hi);
                        int new_assert;
                        d->status_hi &= ~idata;

                        new_assert = (d->status_lo & d->enable_lo ||
                            d->status_hi & d->enable_hi);

                        if (old_assert && !new_assert)
                                INTERRUPT_DEASSERT(d->cpu_irq);
                        else if (!old_assert && new_assert)
                                INTERRUPT_ASSERT(d->cpu_irq);
                }
                break;

        case 0x20:
                if (writeflag == MEM_READ)
                        odata = d->status_lo & d->enable_lo;
                break;

        case 0x24:
                if (writeflag == MEM_READ)
                        odata = d->enable_lo;
                else {
                        int old_assert = (d->status_lo & d->enable_lo
                            || d->status_hi & d->enable_hi);
                        int new_assert;
                        d->enable_lo = idata;

                        new_assert = (d->status_lo & d->enable_lo ||
                            d->status_hi & d->enable_hi);

                        if (old_assert && !new_assert)
                                INTERRUPT_DEASSERT(d->cpu_irq);
                        else if (!old_assert && new_assert)
                                INTERRUPT_ASSERT(d->cpu_irq);
                }
                break;

        case 0x28:
                if (writeflag == MEM_WRITE) {
                        int old_assert = (d->status_lo & d->enable_lo
                            || d->status_hi & d->enable_hi);
                        int new_assert;
                        d->status_lo &= ~idata;

                        new_assert = (d->status_lo & d->enable_lo ||
                            d->status_hi & d->enable_hi);

                        if (old_assert && !new_assert)
                                INTERRUPT_DEASSERT(d->cpu_irq);
                        else if (!old_assert && new_assert)
                                INTERRUPT_ASSERT(d->cpu_irq);
                }
                break;

        case 0x1c:
        case 0x2c:
                /*  Avoid a debug message.  */
                break;
#endif
        default:if (writeflag == MEM_WRITE) {
                        fatal("[ openpic: unimplemented write to "
                            "offset 0x%x: data=0x%x ]\n", (int)
                            relative_addr, (int)idata);
                } else {
                        fatal("[ openpic: unimplemented read from "
                            "offset 0x%x ]\n", (int)relative_addr);
                }
        }

        if (writeflag == MEM_READ)
                memory_writemax64(cpu, data, len, odata);

        return 1;
}


DEVINIT(openpic)
{
        struct openpic_data *d;
        int i;

        CHECK_ALLOCATION(d = malloc(sizeof(struct openpic_data)));
        memset(d, 0, sizeof(struct openpic_data));

        /*  Connect to the CPU interrupt pin:  */
        INTERRUPT_CONNECT(devinit->interrupt_path, d->cpu_irq);

        /*
         *  Register the 126 OpenPIC interrupts
         */
        for (i=0; i<126; i++) {
                struct interrupt template;
                char n[300];
                snprintf(n, sizeof(n), "%s.openpic.%i",
                    devinit->interrupt_path, i);
                memset(&template, 0, sizeof(template));
                template.line = 1 << i;
                template.name = n;
                template.extra = d;
                template.interrupt_assert = openpic_lo_interrupt_assert;
                template.interrupt_deassert = openpic_lo_interrupt_deassert;
                interrupt_handler_register(&template);
        }

        memory_device_register(devinit->machine->memory, "openpic",
            devinit->addr, DEV_OPENPIC_LENGTH, dev_openpic_access, d, DM_DEFAULT, NULL);

        return 1;
}

1	dpavlin	22	/*
2	dpavlin	34	* Copyright (C) 2005-2007 Anders Gavare. All rights reserved.
3	dpavlin	22	*
4			* Redistribution and use in source and binary forms, with or without
5			* modification, are permitted provided that the following conditions are met:
6			*
7			* 1. Redistributions of source code must retain the above copyright
8			* notice, this list of conditions and the following disclaimer.
9			* 2. Redistributions in binary form must reproduce the above copyright
10			* notice, this list of conditions and the following disclaimer in the
11			* documentation and/or other materials provided with the distribution.
12			* 3. The name of the author may not be used to endorse or promote products
13			* derived from this software without specific prior written permission.
14			*
15			* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16			* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17			* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18			* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19			* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20			* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21			* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22			* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23			* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24			* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25			* SUCH DAMAGE.
26			*
27	dpavlin	63	* $Id: dev_openpic.c,v 1.14 2007/09/11 21:42:52 debug Exp $
28	dpavlin	22	*
29	dpavlin	63	* COMMENT: OpenPIC Interrupt controller (used by sandpoint ppc)
30	dpavlin	64	* based on dev_gc.c
31	dpavlin	22	*/
32
33			#include <stdio.h>
34			#include <stdlib.h>
35			#include <string.h>
36
37			#include "cpu.h"
38			#include "device.h"
39			#include "machine.h"
40			#include "memory.h"
41			#include "misc.h"
42
43
44	dpavlin	63	#define DEV_OPENPIC_LENGTH 0x40000
45	dpavlin	34
46	dpavlin	63	struct openpic_data {
47	dpavlin	34	struct interrupt cpu_irq;
48
49			uint32_t status_hi;
50			uint32_t status_lo;
51			uint32_t enable_hi;
52			uint32_t enable_lo;
53			};
54
55
56	dpavlin	63	void openpic_hi_interrupt_assert(struct interrupt *interrupt)
57	dpavlin	34	{
58	dpavlin	63	struct openpic_data *d = interrupt->extra;
59	dpavlin	34	d->status_hi \|= interrupt->line;
60			if (d->status_lo & d->enable_lo \|\| d->status_hi & d->enable_hi)
61			INTERRUPT_ASSERT(d->cpu_irq);
62			}
63	dpavlin	63	void openpic_hi_interrupt_deassert(struct interrupt *interrupt)
64	dpavlin	34	{
65	dpavlin	63	struct openpic_data *d = interrupt->extra;
66	dpavlin	34	d->status_hi &= ~interrupt->line;
67			if (!(d->status_lo & d->enable_lo \|\| d->status_hi & d->enable_hi))
68			INTERRUPT_DEASSERT(d->cpu_irq);
69			}
70	dpavlin	63	void openpic_lo_interrupt_assert(struct interrupt *interrupt)
71	dpavlin	34	{
72	dpavlin	63	struct openpic_data *d = interrupt->extra;
73	dpavlin	34	d->status_lo \|= interrupt->line;
74			if (d->status_lo & d->enable_lo \|\| d->status_hi & d->enable_hi)
75			INTERRUPT_ASSERT(d->cpu_irq);
76			}
77	dpavlin	63	void openpic_lo_interrupt_deassert(struct interrupt *interrupt)
78	dpavlin	34	{
79	dpavlin	63	struct openpic_data *d = interrupt->extra;
80	dpavlin	34	d->status_lo &= ~interrupt->line;
81			if (!(d->status_lo & d->enable_lo \|\| d->status_hi & d->enable_hi))
82			INTERRUPT_DEASSERT(d->cpu_irq);
83			}
84
85	dpavlin	66	#define OPENPIC_MASK 0x80000000
86			#define OPENPIC_ACTIVITY 0x40000000 /* Read Only */
87			#define OPENPIC_PRIORITY_MASK 0x000f0000
88			#define OPENPIC_PRIORITY_SHIFT 16
89			#define OPENPIC_VECTOR_MASK 0x000000ff
90	dpavlin	34
91	dpavlin	66	#define OPENPIC_VEC_TIMER 64 /* and up */
92			#define OPENPIC_VEC_IPI 72 /* and up */
93			#define OPENPIC_VEC_SPURIOUS 127
94
95	dpavlin	63	DEVICE_ACCESS(openpic)
96	dpavlin	22	{
97	dpavlin	64	// struct openpic_data *d = extra;
98	dpavlin	22	uint64_t idata = 0, odata = 0;
99
100			if (writeflag == MEM_WRITE)
101			idata = memory_readmax64(cpu, data, len);
102
103	dpavlin	66	uint64_t priority,vector, active;
104			priority = ( relative_addr & 0xf000 );
105			vector = ( relative_addr & 0x00ff );
106			active = ( relative_addr & 0x4000 );
107
108			debug("[ openpic: access at %04x -> priority: %x vector: 0x%02x %d active: %x ]\n",
109			(int)relative_addr, (int)priority, (int)vector, (int)vector, (int)active );
110
111	dpavlin	22	switch (relative_addr) {
112
113	dpavlin	65	case 0x00:
114	dpavlin	66	if (writeflag == MEM_READ) {
115	dpavlin	65	// version 1.2
116			odata = 0x02000000;
117	dpavlin	66	fatal("[ openpic: read from "
118			"offset 0x%x (OpenPIC version) = %x]\n", (int)
119			relative_addr, (int)odata);
120			}
121			fatal("[ openpic: unimplemented write to "
122			"offset 0x%x: data=0x%x (OpenPIC version) ]\n", (int)
123			relative_addr, (int)idata);
124	dpavlin	65	break;
125
126	dpavlin	22	#if 0
127			#define INT_STATE_REG_H (interrupt_reg + 0x00)
128			#define INT_ENABLE_REG_H (interrupt_reg + 0x04)
129			#define INT_CLEAR_REG_H (interrupt_reg + 0x08)
130			#define INT_LEVEL_REG_H (interrupt_reg + 0x0c)
131			#define INT_STATE_REG_L (interrupt_reg + 0x10)
132			#define INT_ENABLE_REG_L (interrupt_reg + 0x14)
133			#define INT_CLEAR_REG_L (interrupt_reg + 0x18)
134			#define INT_LEVEL_REG_L (interrupt_reg + 0x1c)
135			#endif
136
137	dpavlin	64	#if 0
138	dpavlin	22	case 0x10:
139			if (writeflag == MEM_READ)
140	dpavlin	24	odata = d->status_hi & d->enable_hi;
141	dpavlin	22	break;
142
143			case 0x14:
144			if (writeflag == MEM_READ)
145			odata = d->enable_hi;
146			else {
147	dpavlin	34	int old_assert = (d->status_lo & d->enable_lo
148			\|\| d->status_hi & d->enable_hi);
149			int new_assert;
150	dpavlin	22	d->enable_hi = idata;
151	dpavlin	34
152			new_assert = (d->status_lo & d->enable_lo \|\|
153			d->status_hi & d->enable_hi);
154
155			if (old_assert && !new_assert)
156			INTERRUPT_DEASSERT(d->cpu_irq);
157			else if (!old_assert && new_assert)
158			INTERRUPT_ASSERT(d->cpu_irq);
159	dpavlin	22	}
160			break;
161
162			case 0x18:
163			if (writeflag == MEM_WRITE) {
164	dpavlin	34	int old_assert = (d->status_lo & d->enable_lo
165			\|\| d->status_hi & d->enable_hi);
166			int new_assert;
167	dpavlin	22	d->status_hi &= ~idata;
168	dpavlin	34
169			new_assert = (d->status_lo & d->enable_lo \|\|
170			d->status_hi & d->enable_hi);
171
172			if (old_assert && !new_assert)
173			INTERRUPT_DEASSERT(d->cpu_irq);
174			else if (!old_assert && new_assert)
175			INTERRUPT_ASSERT(d->cpu_irq);
176	dpavlin	22	}
177			break;
178
179			case 0x20:
180			if (writeflag == MEM_READ)
181	dpavlin	24	odata = d->status_lo & d->enable_lo;
182	dpavlin	22	break;
183
184			case 0x24:
185			if (writeflag == MEM_READ)
186			odata = d->enable_lo;
187			else {
188	dpavlin	34	int old_assert = (d->status_lo & d->enable_lo
189			\|\| d->status_hi & d->enable_hi);
190			int new_assert;
191	dpavlin	22	d->enable_lo = idata;
192	dpavlin	34
193			new_assert = (d->status_lo & d->enable_lo \|\|
194			d->status_hi & d->enable_hi);
195
196			if (old_assert && !new_assert)
197			INTERRUPT_DEASSERT(d->cpu_irq);
198			else if (!old_assert && new_assert)
199			INTERRUPT_ASSERT(d->cpu_irq);
200	dpavlin	22	}
201			break;
202
203			case 0x28:
204			if (writeflag == MEM_WRITE) {
205	dpavlin	34	int old_assert = (d->status_lo & d->enable_lo
206			\|\| d->status_hi & d->enable_hi);
207			int new_assert;
208	dpavlin	22	d->status_lo &= ~idata;
209	dpavlin	34
210			new_assert = (d->status_lo & d->enable_lo \|\|
211			d->status_hi & d->enable_hi);
212
213			if (old_assert && !new_assert)
214			INTERRUPT_DEASSERT(d->cpu_irq);
215			else if (!old_assert && new_assert)
216			INTERRUPT_ASSERT(d->cpu_irq);
217	dpavlin	22	}
218			break;
219
220	dpavlin	44	case 0x1c:
221	dpavlin	24	case 0x2c:
222	dpavlin	34	/* Avoid a debug message. */
223	dpavlin	24	break;
224	dpavlin	64	#endif
225	dpavlin	22	default:if (writeflag == MEM_WRITE) {
226	dpavlin	63	fatal("[ openpic: unimplemented write to "
227	dpavlin	22	"offset 0x%x: data=0x%x ]\n", (int)
228			relative_addr, (int)idata);
229			} else {
230	dpavlin	63	fatal("[ openpic: unimplemented read from "
231	dpavlin	22	"offset 0x%x ]\n", (int)relative_addr);
232			}
233			}
234
235			if (writeflag == MEM_READ)
236			memory_writemax64(cpu, data, len, odata);
237
238			return 1;
239			}
240
241
242	dpavlin	63	DEVINIT(openpic)
243	dpavlin	22	{
244	dpavlin	63	struct openpic_data *d;
245	dpavlin	34	int i;
246	dpavlin	22
247	dpavlin	63	CHECK_ALLOCATION(d = malloc(sizeof(struct openpic_data)));
248			memset(d, 0, sizeof(struct openpic_data));
249	dpavlin	22
250	dpavlin	42	/* Connect to the CPU interrupt pin: */
251	dpavlin	34	INTERRUPT_CONNECT(devinit->interrupt_path, d->cpu_irq);
252	dpavlin	22
253	dpavlin	34	/*
254	dpavlin	64	* Register the 126 OpenPIC interrupts
255	dpavlin	34	*/
256	dpavlin	64	for (i=0; i<126; i++) {
257	dpavlin	34	struct interrupt template;
258			char n[300];
259	dpavlin	64	snprintf(n, sizeof(n), "%s.openpic.%i",
260	dpavlin	34	devinit->interrupt_path, i);
261			memset(&template, 0, sizeof(template));
262			template.line = 1 << i;
263			template.name = n;
264			template.extra = d;
265	dpavlin	63	template.interrupt_assert = openpic_lo_interrupt_assert;
266			template.interrupt_deassert = openpic_lo_interrupt_deassert;
267	dpavlin	34	interrupt_handler_register(&template);
268			}
269
270	dpavlin	63	memory_device_register(devinit->machine->memory, "openpic",
271			devinit->addr, DEV_OPENPIC_LENGTH, dev_openpic_access, d, DM_DEFAULT, NULL);
272	dpavlin	34
273			return 1;
274	dpavlin	22	}
275