1 |
dpavlin |
4 |
/* |
2 |
|
|
* Copyright (C) 2003-2005 Anders Gavare. All rights reserved. |
3 |
|
|
* |
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 |
18 |
* $Id: dev_turbochannel.c,v 1.44 2005/10/26 14:37:04 debug Exp $ |
29 |
dpavlin |
4 |
* |
30 |
|
|
* Generic framework for TURBOchannel devices, used in DECstation machines. |
31 |
|
|
*/ |
32 |
|
|
|
33 |
|
|
#include <stdio.h> |
34 |
|
|
#include <stdlib.h> |
35 |
|
|
#include <string.h> |
36 |
|
|
|
37 |
|
|
#include "devices.h" |
38 |
|
|
#include "machine.h" |
39 |
|
|
#include "memory.h" |
40 |
|
|
#include "misc.h" |
41 |
|
|
#include "sfbreg.h" |
42 |
|
|
|
43 |
|
|
|
44 |
dpavlin |
10 |
#define DEVICE_NAME_BUFLEN 9 |
45 |
|
|
#define CARD_NAME_BUFLEN 9 |
46 |
|
|
#define CARD_FIRMWARE_BUFLEN 5 |
47 |
|
|
|
48 |
dpavlin |
4 |
struct turbochannel_data { |
49 |
|
|
int slot_nr; |
50 |
|
|
uint64_t baseaddr; |
51 |
|
|
uint64_t endaddr; |
52 |
|
|
int irq; |
53 |
|
|
|
54 |
|
|
int rom_skip; |
55 |
|
|
|
56 |
dpavlin |
10 |
char device_name[DEVICE_NAME_BUFLEN]; /* NUL-terminated */ |
57 |
dpavlin |
4 |
|
58 |
|
|
/* These should be terminated with spaces */ |
59 |
dpavlin |
10 |
char card_firmware_version[CARD_NAME_BUFLEN]; |
60 |
|
|
char card_vendor_name[CARD_NAME_BUFLEN]; |
61 |
|
|
char card_module_name[CARD_NAME_BUFLEN]; |
62 |
|
|
char card_firmware_type[CARD_FIRMWARE_BUFLEN]; |
63 |
dpavlin |
4 |
}; |
64 |
|
|
|
65 |
|
|
|
66 |
|
|
/* |
67 |
|
|
* dev_turbochannel_access(): |
68 |
|
|
*/ |
69 |
|
|
int dev_turbochannel_access(struct cpu *cpu, struct memory *mem, |
70 |
|
|
uint64_t relative_addr, unsigned char *data, size_t len, |
71 |
|
|
int writeflag, void *extra) |
72 |
|
|
{ |
73 |
|
|
struct turbochannel_data *d = extra; |
74 |
|
|
uint64_t idata = 0, odata = 0; |
75 |
|
|
|
76 |
dpavlin |
18 |
if (writeflag == MEM_WRITE) |
77 |
|
|
idata = memory_readmax64(cpu, data, len); |
78 |
dpavlin |
4 |
|
79 |
|
|
relative_addr += d->rom_skip; |
80 |
|
|
|
81 |
|
|
if (writeflag == MEM_READ) { |
82 |
|
|
debug("[ turbochannel: read from slot %i addr 0x%08lx (", |
83 |
|
|
d->slot_nr, (long)relative_addr); |
84 |
|
|
|
85 |
|
|
relative_addr &= 0x7fff; |
86 |
|
|
|
87 |
|
|
switch (relative_addr) { |
88 |
|
|
case 0x3e0: |
89 |
|
|
odata = 0x00000001; debug("ROM width"); |
90 |
|
|
break; |
91 |
|
|
case 0x3e4: |
92 |
|
|
odata = 0x00000004; debug("ROM stride"); |
93 |
|
|
break; |
94 |
|
|
case 0x3e8: |
95 |
|
|
/* 8KB * romsize */ |
96 |
|
|
odata = 0x00000001; debug("ROM size"); |
97 |
|
|
break; |
98 |
|
|
case 0x3ec: |
99 |
|
|
/* 4MB * slotsize */ |
100 |
|
|
odata = 0x00000001; debug("slot size"); |
101 |
|
|
break; |
102 |
|
|
case 0x3f0: |
103 |
|
|
odata = 0x55555555; debug("ROM signature byte 0"); |
104 |
|
|
break; |
105 |
|
|
case 0x3f4: |
106 |
|
|
odata = 0x00000000; debug("ROM signature byte 1"); |
107 |
|
|
break; |
108 |
|
|
case 0x3f8: |
109 |
|
|
odata = 0xaaaaaaaa; debug("ROM signature byte 2"); |
110 |
|
|
break; |
111 |
|
|
case 0x3fc: |
112 |
|
|
odata = 0xffffffff; debug("ROM signature byte 3"); |
113 |
|
|
break; |
114 |
|
|
case 0x470: |
115 |
|
|
/* 0=nothing, 1=parity */ |
116 |
|
|
odata = 0x00000000; debug("flags"); break; |
117 |
|
|
default: |
118 |
|
|
if (relative_addr >= 0x400 && relative_addr < 0x420) |
119 |
|
|
odata = d->card_firmware_version[ |
120 |
|
|
(relative_addr-0x400)/4]; |
121 |
|
|
else if (relative_addr >= 0x420 && |
122 |
|
|
relative_addr < 0x440) |
123 |
|
|
odata = d->card_vendor_name[ |
124 |
|
|
(relative_addr-0x420)/4]; |
125 |
|
|
else if (relative_addr >= 0x440 && |
126 |
|
|
relative_addr < 0x460) |
127 |
|
|
odata = d->card_module_name[ |
128 |
|
|
(relative_addr-0x440)/4]; |
129 |
|
|
else if (relative_addr >= 0x460 && |
130 |
|
|
relative_addr < 0x470) |
131 |
|
|
odata = d->card_firmware_type[ |
132 |
|
|
(relative_addr-0x460)/4]; |
133 |
|
|
else { |
134 |
|
|
debug("?"); |
135 |
|
|
} |
136 |
|
|
} |
137 |
|
|
|
138 |
|
|
/* |
139 |
|
|
* If this slot is empty, return an error so that a DBE |
140 |
|
|
* exception is caused. (This is the way DECstation operating |
141 |
|
|
* systems have to detect the absence of cards in a |
142 |
|
|
* TURBOchannel slot.) |
143 |
|
|
* |
144 |
|
|
* NOTE: The Sprite kernel reads from offsets 0x3e0..0x400 |
145 |
|
|
* without handling the DBE exception, and both Ultrix and |
146 |
|
|
* NetBSD seem to detect the DBE exception using addresses |
147 |
|
|
* around offset 0x0 or 0x3c0000. This code seems to work |
148 |
|
|
* with all of the those OS kernels: |
149 |
|
|
*/ |
150 |
|
|
if (d->card_module_name[0] == ' ') { |
151 |
|
|
/* Return no data for empty slot: */ |
152 |
|
|
odata = 0; |
153 |
|
|
|
154 |
|
|
/* Return DBE exception in some cases: */ |
155 |
|
|
if (relative_addr < 0x3e0 || relative_addr >= 0x500) |
156 |
|
|
return 0; |
157 |
|
|
} |
158 |
|
|
|
159 |
|
|
debug(") ]\n"); |
160 |
|
|
} else { |
161 |
|
|
/* debug("[ turbochannel: write to 0x%08lx: 0x%08x ]\n", |
162 |
|
|
(long)relative_addr, (int)idata); */ |
163 |
|
|
} |
164 |
|
|
|
165 |
|
|
if (writeflag == MEM_READ) |
166 |
|
|
memory_writemax64(cpu, data, len, odata); |
167 |
|
|
|
168 |
|
|
return 1; |
169 |
|
|
} |
170 |
|
|
|
171 |
|
|
|
172 |
|
|
/* |
173 |
|
|
* dev_turbochannel_init(): |
174 |
|
|
* |
175 |
|
|
* This is a generic turbochannel card device. device_name should point |
176 |
|
|
* to a string such as "PMAG-BA". |
177 |
|
|
* |
178 |
|
|
* TODO: When running for example dual-head, maybe the name of each |
179 |
|
|
* framebuffer should include the card slot number? |
180 |
|
|
*/ |
181 |
|
|
void dev_turbochannel_init(struct machine *machine, struct memory *mem, |
182 |
|
|
int slot_nr, uint64_t baseaddr, uint64_t endaddr, |
183 |
|
|
char *device_name, int irq) |
184 |
|
|
{ |
185 |
|
|
struct vfb_data *fb; |
186 |
|
|
struct turbochannel_data *d; |
187 |
dpavlin |
10 |
int rom_offset=0x3c0000, rom_length=DEV_TURBOCHANNEL_LEN, rom_skip=0; |
188 |
dpavlin |
4 |
char *name2; |
189 |
dpavlin |
10 |
size_t nlen; |
190 |
dpavlin |
4 |
|
191 |
|
|
if (device_name == NULL) |
192 |
|
|
return; |
193 |
|
|
|
194 |
|
|
if (strlen(device_name) > 8) { |
195 |
|
|
fprintf(stderr, "dev_turbochannel_init(): bad device_name\n"); |
196 |
|
|
exit(1); |
197 |
|
|
} |
198 |
|
|
|
199 |
|
|
d = malloc(sizeof(struct turbochannel_data)); |
200 |
|
|
if (d == NULL) { |
201 |
|
|
fprintf(stderr, "out of memory\n"); |
202 |
|
|
exit(1); |
203 |
|
|
} |
204 |
|
|
memset(d, 0, sizeof(struct turbochannel_data)); |
205 |
|
|
d->slot_nr = slot_nr; |
206 |
|
|
d->baseaddr = baseaddr; |
207 |
|
|
d->endaddr = endaddr; |
208 |
|
|
d->irq = irq; |
209 |
|
|
|
210 |
dpavlin |
10 |
strlcpy(d->device_name, device_name, DEVICE_NAME_BUFLEN); |
211 |
dpavlin |
4 |
|
212 |
dpavlin |
10 |
strncpy(d->card_firmware_version, "V5.3a ", CARD_NAME_BUFLEN); |
213 |
|
|
strncpy(d->card_vendor_name, "DEC ", CARD_NAME_BUFLEN); |
214 |
|
|
strncpy(d->card_firmware_type, "TCF0", CARD_FIRMWARE_BUFLEN); |
215 |
dpavlin |
4 |
|
216 |
|
|
memset(d->card_module_name, ' ', 8); |
217 |
dpavlin |
10 |
memcpy(d->card_module_name, device_name, strlen(device_name)); |
218 |
dpavlin |
4 |
|
219 |
|
|
/* |
220 |
|
|
* According to NetBSD/pmax: |
221 |
|
|
* |
222 |
|
|
* PMAD-AA: le1 at tc0 slot 2 offset 0x0: address 00:00:00:00:00:00 |
223 |
|
|
* PMAG-AA: mfb0 at tc0 slot 2 offset 0x0: 1280x1024x8 |
224 |
|
|
* PMAG-BA: cfb0 at tc0 slot 2 offset 0x0cfb0: 1024x864x8 |
225 |
|
|
* PMAG-CA: px0 at tc0 slot 2 offset 0x0: 2D, 4x1 stamp, 8 plane |
226 |
|
|
* (PMAG-DA,EA,FA,FB are also pixelstamps) |
227 |
|
|
* PMAG-DV: xcfb0 at tc0 slot 2 offset 0x0: 1024x768x8 |
228 |
|
|
* PMAG-JA: "truecolor" in Ultrix |
229 |
|
|
* PMAGB-BA: sfb0 at tc0 slot 0 offset 0x0: 0x0x8 |
230 |
|
|
* PMAGB-VA: sfb0 at tc0 slot 2 offset 0x0: 0x0x8 |
231 |
|
|
* PMAZ-AA: asc0 at tc0 slot 2 offset 0x0: NCR53C94, 25MHz, SCSI ID 7 |
232 |
|
|
* |
233 |
|
|
* PMAF-FA: fta0 at tc0 slot 0 (fddi network, "DEC", "V1.0b") |
234 |
|
|
*/ |
235 |
|
|
|
236 |
|
|
if (strcmp(device_name, "PMAD-AA")==0) { |
237 |
|
|
/* le in NetBSD, Lance ethernet */ |
238 |
|
|
dev_le_init(machine, mem, baseaddr, 0, 0, irq, DEV_LE_LENGTH); |
239 |
|
|
/* One ROM at 0x1c03e0, and one at 0x3c0000. */ |
240 |
|
|
rom_skip = 0x300; |
241 |
|
|
rom_offset = 0x1c0000; |
242 |
|
|
rom_length = 0x201000; |
243 |
|
|
} else if (strcmp(device_name, "PMAZ-AA")==0) { |
244 |
|
|
/* asc in NetBSD, SCSI */ |
245 |
|
|
dev_asc_init(machine, mem, baseaddr, irq, d, |
246 |
|
|
DEV_ASC_DEC, NULL, NULL); |
247 |
|
|
rom_offset = 0xc0000; |
248 |
|
|
/* There is a copy at 0x0, at least that's where Linux |
249 |
|
|
looks for the rom signature */ |
250 |
|
|
} else if (strcmp(device_name, "PMAG-AA")==0) { |
251 |
|
|
/* mfb in NetBSD */ |
252 |
|
|
fb = dev_fb_init(machine, mem, baseaddr + VFB_MFB_VRAM, |
253 |
dpavlin |
12 |
VFB_GENERIC, 1280, 1024, 2048, 1024, 8, device_name); |
254 |
dpavlin |
4 |
/* bt455 = palette, bt431 = cursor */ |
255 |
|
|
dev_bt455_init(mem, baseaddr + VFB_MFB_BT455, fb); |
256 |
|
|
dev_bt431_init(mem, baseaddr + VFB_MFB_BT431, fb, 8); |
257 |
|
|
rom_offset = 0; |
258 |
|
|
} else if (strcmp(device_name, "PMAG-BA")==0) { |
259 |
|
|
/* cfb in NetBSD */ |
260 |
|
|
fb = dev_fb_init(machine, mem, baseaddr, VFB_GENERIC, |
261 |
dpavlin |
12 |
1024,864, 1024,1024,8, device_name); |
262 |
dpavlin |
4 |
dev_bt459_init(machine, mem, baseaddr + VFB_CFB_BT459, |
263 |
|
|
baseaddr + 0x300000, fb, 8, irq, BT459_BA); |
264 |
|
|
/* ROM at both 0x380000 and 0x3c0000? */ |
265 |
|
|
rom_offset = 0x380000; |
266 |
|
|
rom_length = 0x080000; |
267 |
|
|
} else if (strcmp(device_name, "PMAGB-BA")==0) { |
268 |
|
|
/* sfb in NetBSD */ |
269 |
|
|
/* TODO: This is not working with Ultrix yet. */ |
270 |
|
|
fb = dev_fb_init(machine, mem, baseaddr + SFB_OFFSET_VRAM, |
271 |
dpavlin |
12 |
VFB_GENERIC, 1280,1024, 1280,1024,8, device_name); |
272 |
dpavlin |
4 |
dev_sfb_init(machine, mem, baseaddr + SFB_ASIC_OFFSET, fb); |
273 |
|
|
/* TODO: the CLEAR doesn't get through, as the address |
274 |
|
|
range is already in use by the asic */ |
275 |
|
|
dev_bt459_init(machine, mem, baseaddr + SFB_OFFSET_BT459, |
276 |
|
|
baseaddr + SFB_CLEAR, fb, 8, irq, BT459_BBA); |
277 |
|
|
rom_offset = 0x0; /* ? TODO */ |
278 |
|
|
} else if (strcmp(device_name, "PMAG-CA")==0) { |
279 |
|
|
/* px in NetBSD */ |
280 |
|
|
dev_px_init(machine, mem, baseaddr, DEV_PX_TYPE_PX, irq); |
281 |
|
|
rom_offset = 0x3c0000; |
282 |
|
|
} else if (strcmp(device_name, "PMAG-DA")==0) { |
283 |
|
|
/* pxg in NetBSD */ |
284 |
|
|
dev_px_init(machine, mem, baseaddr, DEV_PX_TYPE_PXG, irq); |
285 |
|
|
rom_offset = 0x3c0000; |
286 |
|
|
} else if (strcmp(device_name, "PMAG-EA")==0) { |
287 |
|
|
/* pxg+ in NetBSD: TODO (not supported by the kernel |
288 |
|
|
I've tried) */ |
289 |
|
|
fatal("TODO (see dev_turbochannel.c)\n"); |
290 |
|
|
rom_offset = 0x3c0000; |
291 |
|
|
} else if (strcmp(device_name, "PMAG-FA")==0) { |
292 |
|
|
/* "pxg+ Turbo" in NetBSD */ |
293 |
|
|
dev_px_init(machine, mem, baseaddr, |
294 |
|
|
DEV_PX_TYPE_PXGPLUSTURBO, irq); |
295 |
|
|
rom_offset = 0x3c0000; |
296 |
|
|
} else if (strcmp(device_name, "PMAG-DV")==0) { |
297 |
|
|
/* xcfb in NetBSD: TODO */ |
298 |
|
|
fb = dev_fb_init(machine, mem, baseaddr + 0x2000000, |
299 |
dpavlin |
12 |
VFB_DEC_MAXINE, 0, 0, 0, 0, 0, "PMAG-DV"); |
300 |
dpavlin |
4 |
/* TODO: not yet usable, needs a IMS332 vdac */ |
301 |
|
|
rom_offset = 0x3c0000; |
302 |
|
|
} else if (strcmp(device_name, "PMAG-JA")==0) { |
303 |
|
|
/* "Truecolor", mixed 8- and 24-bit */ |
304 |
|
|
dev_pmagja_init(machine, mem, baseaddr, irq); |
305 |
|
|
rom_offset = 0; /* NOTE: 0, not 0x3c0000 */ |
306 |
|
|
} else if (strcmp(device_name, "PMAG-RO")==0) { |
307 |
|
|
/* This works at least B/W in Ultrix, so far. */ |
308 |
|
|
fb = dev_fb_init(machine, mem, baseaddr + 0x200000, |
309 |
dpavlin |
12 |
VFB_GENERIC, 1280,1024, 1280,1024, 8, "PMAG-RO"); |
310 |
dpavlin |
4 |
/* TODO: bt463 at offset 0x040000, not bt459 */ |
311 |
|
|
dev_bt459_init(machine, mem, baseaddr + 0x40000, 0, |
312 |
|
|
fb, 8, irq, 0); /* TODO: type */ |
313 |
|
|
dev_bt431_init(mem, baseaddr + 0x40010, fb, 8); /* cursor */ |
314 |
|
|
rom_offset = 0x3c0000; |
315 |
|
|
} else if (device_name[0] == '\0') { |
316 |
|
|
/* If this slot is empty, then occupy the entire |
317 |
|
|
4MB slot address range: */ |
318 |
|
|
rom_offset = 0; |
319 |
|
|
rom_length = 4*1048576; |
320 |
|
|
} else { |
321 |
|
|
fatal("warning: unknown TURBOchannel device name \"%s\"\n", |
322 |
|
|
device_name); |
323 |
|
|
} |
324 |
|
|
|
325 |
|
|
d->rom_skip = rom_skip; |
326 |
|
|
|
327 |
dpavlin |
10 |
nlen = strlen(device_name) + 30; |
328 |
|
|
name2 = malloc(nlen); |
329 |
dpavlin |
4 |
if (name2 == NULL) { |
330 |
|
|
fprintf(stderr, "out of memory in dev_turbochannel_init()\n"); |
331 |
|
|
exit(1); |
332 |
|
|
} |
333 |
|
|
if (*device_name) |
334 |
dpavlin |
10 |
snprintf(name2, nlen, "turbochannel [%s]", device_name); |
335 |
dpavlin |
4 |
else |
336 |
dpavlin |
10 |
snprintf(name2, nlen, "turbochannel"); |
337 |
dpavlin |
4 |
|
338 |
|
|
memory_device_register(mem, name2, baseaddr + rom_offset + rom_skip, |
339 |
|
|
rom_length-rom_skip, dev_turbochannel_access, d, MEM_DEFAULT, NULL); |
340 |
|
|
} |
341 |
|
|
|