src/devices/dev_lca.c

/*
 *  Copyright (C) 2006-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_lca.c,v 1.9 2007/04/28 09:19:52 debug Exp $
 *
 *  LCA PCI bus (for Alpha machines).
 */

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

#include "bus_isa.h"
#include "bus_pci.h"
#include "cpu.h"
#include "device.h"
#include "emul.h"
#include "interrupt.h"
#include "machine.h"
#include "memory.h"
#include "misc.h"


#include "alpha_lcareg.h"

#define LCA_ISA_BASE    (LCA_PCI_SIO + 0x10000000)
#define LCA_ISA_MEMBASE (LCA_PCI_SIO + 0x18000000)


struct lca_data {
        struct pci_data         *pci_data;

        uint64_t                ioc_conf;
        uint64_t                tlb_enable;
        uint64_t                window_base_0;
        uint64_t                window_mask_0;
        uint64_t                window_t_base_0;
        uint64_t                window_base_1;
        uint64_t                window_mask_1;
        uint64_t                window_t_base_1;
};


/*
 *  lca_interrupt_assert():
 *
 *  Line 0 = ISA interrupt.
 */
void lca_interrupt_assert(struct interrupt *interrupt)
{
        fatal("lca_interrupt_assert: TODO\n");
        exit(1);
}


/*
 *  lca_interrupt_deassert():
 *
 *  Line 0 = ISA interrupt.
 */
void lca_interrupt_deassert(struct interrupt *interrupt)
{
        fatal("lca_interrupt_deassert: TODO\n");
        exit(1);
}


DEVICE_ACCESS(lca_pci_conf)
{
        uint64_t idata = 0, odata = 0;
        int tag, bus, dev, func, reg;
        struct lca_data *d = extra;

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

        /*
         *  1. Decompose the address into a tag.
         *
         *  According to NetBSD's lca_pci.c, the address is composed like this:
         *
         *      addr = tag << 5 | (regoffset & ~0x03) << 5 | 0x3 << 3
         */
        reg = (relative_addr >> 5) & 0xfc;
        tag = (relative_addr >> 5) & ~0xff;

        /*
         *  2. Decompose the tag into bus, dev, and func.
         *
         *  The tag can be constructed in one of two ways. On the primary
         *  bus (nr 0):
         *
         *      tag = (1 << (device + 11)) | (function << 8);
         *
         *  and on other busses, the tag is a normal:
         *
         *      tag = (bus << 16) | (device << 11) | (function << 8)
         */
        /*  printf("tag = 0x%x\n", (int)tag);  */
        bus = d->ioc_conf & 1;

        if (bus == 0) {
                for (dev=0; dev<21; dev++)
                        if (tag & (0x800 << dev))
                                break;
                if (dev >= 21) {
                        /*  fatal("[ LCA: No bus 0 device? TODO ]\n");
                        exit(1);  */
                        dev = 0;
                }
        } else {
                fatal("TODO. Non-zero bus.\n");
                exit(1);
        }

        func = (tag >> 8) & 7;
        /*  printf("bus=%i dev=%i func=%i reg=%i\n", bus,dev,func,reg);  */

        /*  Pass PCI accesses onto bus_pci:  */
        bus_pci_setaddr(cpu, d->pci_data, bus, dev, func, reg);
        bus_pci_data_access(cpu, d->pci_data, writeflag == MEM_READ?
            &odata : &idata, len, writeflag);

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

        return 1;
}


DEVICE_ACCESS(lca_isa)
{
        unsigned int ofs, i;
        uint8_t byte;

        relative_addr >>= 5;

        ofs = relative_addr & 3;
        if (ofs > len) {
                fatal("[ ofs=%i len=%i in lca_isa access function. "
                    "aborting ]\n", ofs, len);
                exit(1);
        }

        if (writeflag == MEM_WRITE) {
                byte = data[ofs % len];
                return cpu->memory_rw(cpu, cpu->mem, LCA_ISA_BASE +
                    relative_addr, &byte, 1, writeflag, CACHE_NONE);
        }

        cpu->memory_rw(cpu, cpu->mem, LCA_ISA_BASE + relative_addr,
            &byte, 1, MEM_READ, CACHE_NONE);

        for (i=0; i<len; i++)
                data[i] = i == ofs? byte : 0x00;

        return 1;
}


DEVICE_ACCESS(lca_ioc)
{
        uint64_t idata = 0, odata = 0;
        struct lca_data *d = extra;

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

        switch (relative_addr + LCA_IOC_BASE) {

        case LCA_IOC_BASE:
                /*  Ignore? Linux reads from the base at startup.  */
                break;

        case LCA_IOC_CONF:
                if (writeflag == MEM_READ) {
                        odata = d->ioc_conf;
                } else {
                        d->ioc_conf = idata;
                        /*  Only bit 0 is implemented so far, the PCI bus 0 vs
                            bus non-0 selection bit.  */
                        if (idata & ~1) {
                                fatal("TODO: Write to unimplemented bit of"
                                    " IOC_CONF: 0x%x\n", (int)idata);
                                exit(1);
                        }
                }
                break;

        case LCA_IOC_TBIA:
                /*  TLB Invalidate All.  */
                /*  TODO: For now, let's just ignore it.  */
                break;

        case LCA_IOC_TB_ENA:
                if (writeflag == MEM_READ) {
                        odata = d->tlb_enable;
                } else {
                        d->tlb_enable = idata;
                        /*  TODO: Actually implement this.  */
                        if (idata & ~IOC_TB_ENA_TEN) {
                                fatal("TODO: LCA_IOC_TB_ENA value "
                                    " (0x%"PRIx64") has unimplemented "
                                    "bits.\n", (uint64_t)idata);
                                exit(1);
                        }
                }
                break;

        case LCA_IOC_W_BASE0:
                if (writeflag == MEM_READ) {
                        odata = d->window_base_0;
                } else {
                        d->window_base_0 = idata;
                        /*  TODO: Actually implement this.  */
                        if (idata != 0ULL && idata != 0x300800000ULL) {
                                fatal("TODO: LCA_IOC_W_BASE0 value differs"
                                    " (0x%"PRIx64") from the only implemented"
                                    " values\n", (uint64_t)idata);
                                exit(1);
                        }
                }
                break;

        case LCA_IOC_W_MASK0:
                if (writeflag == MEM_READ) {
                        odata = d->window_mask_0;
                } else {
                        d->window_mask_0 = idata;
                        /*  TODO: Actually implement this.  */
                        if (idata != 0x700000ULL) {
                                fatal("TODO: LCA_IOC_W_MASK0 value differs"
                                    " (0x%"PRIx64") from the only implemented"
                                    " value\n", (uint64_t)idata);
                                exit(1);
                        }
                }
                break;

        case LCA_IOC_W_T_BASE0:
                if (writeflag == MEM_READ) {
                        odata = d->window_t_base_0;
                } else {
                        d->window_t_base_0 = idata;
                        /*  TODO: Actually implement this.  */
                }
                break;

        case LCA_IOC_W_BASE1:
                if (writeflag == MEM_READ) {
                        odata = d->window_base_1;
                } else {
                        d->window_base_1 = idata;
                        /*  TODO: Actually implement this.  */
                        if (idata != 0x240000000ULL) {
                                fatal("TODO: LCA_IOC_W_BASE1 value differs"
                                    " (0x%"PRIx64") from the only implemented"
                                    " value\n", (uint64_t)idata);
                                exit(1);
                        }
                }
                break;

        case LCA_IOC_W_MASK1:
                if (writeflag == MEM_READ) {
                        odata = d->window_mask_1;
                } else {
                        d->window_mask_1 = idata;
                        /*  TODO: Actually implement this.  */
                        if (idata != 0x3ff00000ULL) {
                                fatal("TODO: LCA_IOC_W_MASK1 value differs"
                                    " (0x%"PRIx64") from the only implemented"
                                    " value\n", (uint64_t)idata);
                                exit(1);
                        }
                }
                break;

        case LCA_IOC_W_T_BASE1:
                if (writeflag == MEM_READ) {
                        odata = d->window_t_base_1;
                } else {
                        d->window_t_base_1 = idata;
                        /*  TODO: Actually implement this.  */
                }
                break;

        default:fatal("[ lca_ioc: unimplemented %s to offset 0x%x",
                    writeflag == MEM_WRITE? "write" : "read", (int)
                    relative_addr);
                if (writeflag == MEM_WRITE)
                        fatal(": 0x%x", (int)idata);
                fatal(" ]\n");
                exit(1);
        }

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

        return 1;
}


DEVINIT(lca)
{
        char *interrupt_path;
        struct interrupt interrupt_template;
        struct lca_data *d = malloc(sizeof(struct lca_data));
        if (d == NULL) {
                fprintf(stderr, "out of memory\n");
                exit(1);
        }
        memset(d, 0, sizeof(struct lca_data));

        /*  Register a PCI bus:  */
        d->pci_data = bus_pci_init(
            devinit->machine,
            "TODO: irq"         /*  pciirq: TODO  */,
            LCA_PCI_SIO,        /*  pci device io offset  */
            0x00000000,         /*  pci device mem offset: TODO  */
            0x00000000,         /*  PCI portbase: TODO  */
            0x00000000,         /*  PCI membase: TODO  */
            "TODO: pci irq base",       /*  PCI irqbase: TODO  */
            LCA_ISA_BASE,       /*  ISA portbase  */
            LCA_ISA_MEMBASE,    /*  ISA membase  */
            "TODO: irqbase isa");                /*  ISA irqbase: TODO  */

        /*  Add the "sio0" controller (as seen by NetBSD):  */
        bus_pci_add(devinit->machine, d->pci_data, devinit->machine->memory,
            0, 7, 0, "i82378zb");

        memory_device_register(devinit->machine->memory, "lca_pci_conf",
            LCA_PCI_CONF, 0x20000000, dev_lca_pci_conf_access, (void *)d,
            DM_DEFAULT, NULL);

        memory_device_register(devinit->machine->memory, "lca_isa",
            LCA_PCI_SIO, 0x10000 << 5, dev_lca_isa_access, (void *)d,
            DM_DEFAULT, NULL);

        memory_device_register(devinit->machine->memory, "lca_ioc",
            LCA_IOC_BASE, 0x20000000, dev_lca_ioc_access, (void *)d,
            DM_DEFAULT, NULL);

        interrupt_path = malloc(strlen(devinit->machine->path) + 10);
        snprintf(interrupt_path, strlen(devinit->machine->path) + 10,
            "%s.lca", devinit->machine->path);

        memset(&interrupt_template, 0, sizeof(interrupt_template));
        interrupt_template.line = 0;
        interrupt_template.name = interrupt_path;
        interrupt_template.extra = d;
        interrupt_template.interrupt_assert = lca_interrupt_assert;
        interrupt_template.interrupt_deassert = lca_interrupt_deassert;
        interrupt_handler_register(&interrupt_template);

        bus_isa_init(devinit->machine, interrupt_path,
            BUS_ISA_IDE0 | BUS_ISA_IDE1, LCA_ISA_BASE, LCA_ISA_MEMBASE);

        return 1;
}

1	dpavlin	24	/*
2	dpavlin	34	* Copyright (C) 2006-2007 Anders Gavare. All rights reserved.
3	dpavlin	24	*
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			*
28	dpavlin	40	* $Id: dev_lca.c,v 1.9 2007/04/28 09:19:52 debug Exp $
29	dpavlin	24	*
30	dpavlin	32	* LCA PCI bus (for Alpha machines).
31	dpavlin	24	*/
32
33			#include <stdio.h>
34			#include <stdlib.h>
35			#include <string.h>
36
37			#include "bus_isa.h"
38	dpavlin	32	#include "bus_pci.h"
39	dpavlin	24	#include "cpu.h"
40			#include "device.h"
41			#include "emul.h"
42	dpavlin	34	#include "interrupt.h"
43	dpavlin	24	#include "machine.h"
44			#include "memory.h"
45			#include "misc.h"
46
47
48			#include "alpha_lcareg.h"
49
50			#define LCA_ISA_BASE (LCA_PCI_SIO + 0x10000000)
51			#define LCA_ISA_MEMBASE (LCA_PCI_SIO + 0x18000000)
52
53
54			struct lca_data {
55	dpavlin	32	struct pci_data *pci_data;
56
57			uint64_t ioc_conf;
58			uint64_t tlb_enable;
59			uint64_t window_base_0;
60			uint64_t window_mask_0;
61			uint64_t window_t_base_0;
62			uint64_t window_base_1;
63			uint64_t window_mask_1;
64			uint64_t window_t_base_1;
65	dpavlin	24	};
66
67
68	dpavlin	34	/*
69			* lca_interrupt_assert():
70			*
71			* Line 0 = ISA interrupt.
72			*/
73			void lca_interrupt_assert(struct interrupt *interrupt)
74			{
75			fatal("lca_interrupt_assert: TODO\n");
76			exit(1);
77			}
78
79
80			/*
81			* lca_interrupt_deassert():
82			*
83			* Line 0 = ISA interrupt.
84			*/
85			void lca_interrupt_deassert(struct interrupt *interrupt)
86			{
87			fatal("lca_interrupt_deassert: TODO\n");
88			exit(1);
89			}
90
91
92	dpavlin	32	DEVICE_ACCESS(lca_pci_conf)
93			{
94			uint64_t idata = 0, odata = 0;
95			int tag, bus, dev, func, reg;
96			struct lca_data *d = extra;
97
98			if (writeflag == MEM_WRITE)
99			idata = memory_readmax64(cpu, data, len);
100
101			/*
102			* 1. Decompose the address into a tag.
103			*
104			* According to NetBSD's lca_pci.c, the address is composed like this:
105			*
106			* addr = tag << 5 \| (regoffset & ~0x03) << 5 \| 0x3 << 3
107			*/
108			reg = (relative_addr >> 5) & 0xfc;
109			tag = (relative_addr >> 5) & ~0xff;
110
111			/*
112			* 2. Decompose the tag into bus, dev, and func.
113			*
114			* The tag can be constructed in one of two ways. On the primary
115			* bus (nr 0):
116			*
117			* tag = (1 << (device + 11)) \| (function << 8);
118			*
119			* and on other busses, the tag is a normal:
120			*
121			* tag = (bus << 16) \| (device << 11) \| (function << 8)
122			*/
123			/* printf("tag = 0x%x\n", (int)tag); */
124			bus = d->ioc_conf & 1;
125
126			if (bus == 0) {
127			for (dev=0; dev<21; dev++)
128			if (tag & (0x800 << dev))
129			break;
130			if (dev >= 21) {
131			/* fatal("[ LCA: No bus 0 device? TODO ]\n");
132			exit(1); */
133			dev = 0;
134			}
135			} else {
136			fatal("TODO. Non-zero bus.\n");
137			exit(1);
138			}
139
140			func = (tag >> 8) & 7;
141			/* printf("bus=%i dev=%i func=%i reg=%i\n", bus,dev,func,reg); */
142
143			/* Pass PCI accesses onto bus_pci: */
144			bus_pci_setaddr(cpu, d->pci_data, bus, dev, func, reg);
145			bus_pci_data_access(cpu, d->pci_data, writeflag == MEM_READ?
146			&odata : &idata, len, writeflag);
147
148			if (writeflag == MEM_READ)
149			memory_writemax64(cpu, data, len, odata);
150
151			return 1;
152			}
153
154
155	dpavlin	24	DEVICE_ACCESS(lca_isa)
156			{
157	dpavlin	40	unsigned int ofs, i;
158	dpavlin	24	uint8_t byte;
159
160			relative_addr >>= 5;
161
162			ofs = relative_addr & 3;
163			if (ofs > len) {
164			fatal("[ ofs=%i len=%i in lca_isa access function. "
165			"aborting ]\n", ofs, len);
166			exit(1);
167			}
168
169			if (writeflag == MEM_WRITE) {
170			byte = data[ofs % len];
171			return cpu->memory_rw(cpu, cpu->mem, LCA_ISA_BASE +
172			relative_addr, &byte, 1, writeflag, CACHE_NONE);
173			}
174
175			cpu->memory_rw(cpu, cpu->mem, LCA_ISA_BASE + relative_addr,
176			&byte, 1, MEM_READ, CACHE_NONE);
177
178			for (i=0; i<len; i++)
179			data[i] = i == ofs? byte : 0x00;
180
181			return 1;
182			}
183
184
185	dpavlin	32	DEVICE_ACCESS(lca_ioc)
186			{
187			uint64_t idata = 0, odata = 0;
188			struct lca_data *d = extra;
189
190			if (writeflag == MEM_WRITE)
191			idata = memory_readmax64(cpu, data, len);
192
193			switch (relative_addr + LCA_IOC_BASE) {
194
195			case LCA_IOC_BASE:
196			/* Ignore? Linux reads from the base at startup. */
197			break;
198
199			case LCA_IOC_CONF:
200			if (writeflag == MEM_READ) {
201			odata = d->ioc_conf;
202			} else {
203			d->ioc_conf = idata;
204			/* Only bit 0 is implemented so far, the PCI bus 0 vs
205			bus non-0 selection bit. */
206			if (idata & ~1) {
207			fatal("TODO: Write to unimplemented bit of"
208			" IOC_CONF: 0x%x\n", (int)idata);
209			exit(1);
210			}
211			}
212			break;
213
214			case LCA_IOC_TBIA:
215			/* TLB Invalidate All. */
216			/* TODO: For now, let's just ignore it. */
217			break;
218
219			case LCA_IOC_TB_ENA:
220			if (writeflag == MEM_READ) {
221			odata = d->tlb_enable;
222			} else {
223			d->tlb_enable = idata;
224			/* TODO: Actually implement this. */
225			if (idata & ~IOC_TB_ENA_TEN) {
226			fatal("TODO: LCA_IOC_TB_ENA value "
227			" (0x%"PRIx64") has unimplemented "
228			"bits.\n", (uint64_t)idata);
229			exit(1);
230			}
231			}
232			break;
233
234			case LCA_IOC_W_BASE0:
235			if (writeflag == MEM_READ) {
236			odata = d->window_base_0;
237			} else {
238			d->window_base_0 = idata;
239			/* TODO: Actually implement this. */
240			if (idata != 0ULL && idata != 0x300800000ULL) {
241			fatal("TODO: LCA_IOC_W_BASE0 value differs"
242			" (0x%"PRIx64") from the only implemented"
243			" values\n", (uint64_t)idata);
244			exit(1);
245			}
246			}
247			break;
248
249			case LCA_IOC_W_MASK0:
250			if (writeflag == MEM_READ) {
251			odata = d->window_mask_0;
252			} else {
253			d->window_mask_0 = idata;
254			/* TODO: Actually implement this. */
255			if (idata != 0x700000ULL) {
256			fatal("TODO: LCA_IOC_W_MASK0 value differs"
257			" (0x%"PRIx64") from the only implemented"
258			" value\n", (uint64_t)idata);
259			exit(1);
260			}
261			}
262			break;
263
264			case LCA_IOC_W_T_BASE0:
265			if (writeflag == MEM_READ) {
266			odata = d->window_t_base_0;
267			} else {
268			d->window_t_base_0 = idata;
269			/* TODO: Actually implement this. */
270			}
271			break;
272
273			case LCA_IOC_W_BASE1:
274			if (writeflag == MEM_READ) {
275			odata = d->window_base_1;
276			} else {
277			d->window_base_1 = idata;
278			/* TODO: Actually implement this. */
279			if (idata != 0x240000000ULL) {
280			fatal("TODO: LCA_IOC_W_BASE1 value differs"
281			" (0x%"PRIx64") from the only implemented"
282			" value\n", (uint64_t)idata);
283			exit(1);
284			}
285			}
286			break;
287
288			case LCA_IOC_W_MASK1:
289			if (writeflag == MEM_READ) {
290			odata = d->window_mask_1;
291			} else {
292			d->window_mask_1 = idata;
293			/* TODO: Actually implement this. */
294			if (idata != 0x3ff00000ULL) {
295			fatal("TODO: LCA_IOC_W_MASK1 value differs"
296			" (0x%"PRIx64") from the only implemented"
297			" value\n", (uint64_t)idata);
298			exit(1);
299			}
300			}
301			break;
302
303			case LCA_IOC_W_T_BASE1:
304			if (writeflag == MEM_READ) {
305			odata = d->window_t_base_1;
306			} else {
307			d->window_t_base_1 = idata;
308			/* TODO: Actually implement this. */
309			}
310			break;
311
312			default:fatal("[ lca_ioc: unimplemented %s to offset 0x%x",
313			writeflag == MEM_WRITE? "write" : "read", (int)
314			relative_addr);
315			if (writeflag == MEM_WRITE)
316			fatal(": 0x%x", (int)idata);
317			fatal(" ]\n");
318			exit(1);
319			}
320
321			if (writeflag == MEM_READ)
322			memory_writemax64(cpu, data, len, odata);
323
324			return 1;
325			}
326
327
328	dpavlin	24	DEVINIT(lca)
329			{
330	dpavlin	34	char *interrupt_path;
331			struct interrupt interrupt_template;
332	dpavlin	24	struct lca_data *d = malloc(sizeof(struct lca_data));
333			if (d == NULL) {
334			fprintf(stderr, "out of memory\n");
335			exit(1);
336			}
337			memset(d, 0, sizeof(struct lca_data));
338
339	dpavlin	32	/* Register a PCI bus: */
340			d->pci_data = bus_pci_init(
341			devinit->machine,
342	dpavlin	34	"TODO: irq" /* pciirq: TODO */,
343	dpavlin	32	LCA_PCI_SIO, /* pci device io offset */
344			0x00000000, /* pci device mem offset: TODO */
345			0x00000000, /* PCI portbase: TODO */
346			0x00000000, /* PCI membase: TODO */
347	dpavlin	34	"TODO: pci irq base", /* PCI irqbase: TODO */
348	dpavlin	32	LCA_ISA_BASE, /* ISA portbase */
349			LCA_ISA_MEMBASE, /* ISA membase */
350	dpavlin	34	"TODO: irqbase isa"); /* ISA irqbase: TODO */
351	dpavlin	32
352			/* Add the "sio0" controller (as seen by NetBSD): */
353			bus_pci_add(devinit->machine, d->pci_data, devinit->machine->memory,
354			0, 7, 0, "i82378zb");
355
356			memory_device_register(devinit->machine->memory, "lca_pci_conf",
357			LCA_PCI_CONF, 0x20000000, dev_lca_pci_conf_access, (void *)d,
358			DM_DEFAULT, NULL);
359
360	dpavlin	24	memory_device_register(devinit->machine->memory, "lca_isa",
361			LCA_PCI_SIO, 0x10000 << 5, dev_lca_isa_access, (void *)d,
362			DM_DEFAULT, NULL);
363
364	dpavlin	32	memory_device_register(devinit->machine->memory, "lca_ioc",
365			LCA_IOC_BASE, 0x20000000, dev_lca_ioc_access, (void *)d,
366			DM_DEFAULT, NULL);
367
368	dpavlin	34	interrupt_path = malloc(strlen(devinit->machine->path) + 10);
369			snprintf(interrupt_path, strlen(devinit->machine->path) + 10,
370			"%s.lca", devinit->machine->path);
371	dpavlin	24
372	dpavlin	34	memset(&interrupt_template, 0, sizeof(interrupt_template));
373			interrupt_template.line = 0;
374			interrupt_template.name = interrupt_path;
375			interrupt_template.extra = d;
376			interrupt_template.interrupt_assert = lca_interrupt_assert;
377			interrupt_template.interrupt_deassert = lca_interrupt_deassert;
378			interrupt_handler_register(&interrupt_template);
379
380			bus_isa_init(devinit->machine, interrupt_path,
381			BUS_ISA_IDE0 \| BUS_ISA_IDE1, LCA_ISA_BASE, LCA_ISA_MEMBASE);
382
383	dpavlin	24	return 1;
384			}
385