initial commit
[freebsd-arm:freebsd-arm.git] / boot / i386 / libi386 / biospci.c
1 /*-
2  * Copyright (c) 1998 Michael Smith <msmith@freebsd.org>
3  * All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  *
14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24  * SUCH DAMAGE.
25  */
26
27 #include <sys/cdefs.h>
28 __FBSDID("$FreeBSD$");
29
30 /*
31  * PnP enumerator using the PCI BIOS.
32  */
33
34 #include <stand.h>
35 #include <machine/stdarg.h>
36 #include <bootstrap.h>
37 #include <isapnp.h>
38 #include <btxv86.h>
39 #include "libi386.h"
40
41 /*
42  * Stupid PCI BIOS interface doesn't let you simply enumerate everything
43  * that's there, instead you have to ask it if it has something.
44  *
45  * So we have to scan by class code, subclass code and sometimes programming
46  * interface.
47  */
48
49 struct pci_progif 
50 {
51     int         pi_code;
52     const char  *pi_name;
53 };
54
55 static struct pci_progif progif_null[] = {
56     {0x0,       NULL},
57     {-1,        NULL}
58 };
59
60 static struct pci_progif progif_display[] = {
61     {0x0,       "VGA"},
62     {0x1,       "8514"},
63     {-1,        NULL}
64 };
65
66 static struct pci_progif progif_ide[] = {
67     {0x00,      NULL},
68     {0x01,      NULL},
69     {0x02,      NULL},
70     {0x03,      NULL},
71     {0x04,      NULL},
72     {0x05,      NULL},
73     {0x06,      NULL},
74     {0x07,      NULL},
75     {0x08,      NULL},
76     {0x09,      NULL},
77     {0x0a,      NULL},
78     {0x0b,      NULL},
79     {0x0c,      NULL},
80     {0x0d,      NULL},
81     {0x0e,      NULL},
82     {0x0f,      NULL},
83     {0x80,      NULL},
84     {0x81,      NULL},
85     {0x82,      NULL},
86     {0x83,      NULL},
87     {0x84,      NULL},
88     {0x85,      NULL},
89     {0x86,      NULL},
90     {0x87,      NULL},
91     {0x88,      NULL},
92     {0x89,      NULL},
93     {0x8a,      NULL},
94     {0x8b,      NULL},
95     {0x8c,      NULL},
96     {0x8d,      NULL},
97     {0x8e,      NULL},
98     {0x8f,      NULL},
99     {-1,        NULL}
100 };
101
102 static struct pci_progif progif_serial[] = {
103     {0x0,       "8250"},
104     {0x1,       "16450"},
105     {0x2,       "16550"},
106     {-1,        NULL}
107 };
108
109 static struct pci_progif progif_parallel[] = {
110     {0x0,       "Standard"},
111     {0x1,       "Bidirectional"},
112     {0x2,       "ECP"},
113     {-1,        NULL}
114 };
115
116 static struct pci_progif progif_firewire[] = {
117     {0x10,      "OHCI"},
118     {-1,        NULL}
119 };
120
121 struct pci_subclass 
122 {
123     int                 ps_subclass;
124     const char          *ps_name;
125     struct pci_progif   *ps_progif;     /* if set, use for programming interface value(s) */
126 };
127
128 static struct pci_subclass subclass_old[] = {
129     {0x0,       "Old non-VGA",          progif_null},
130     {0x1,       "Old VGA",              progif_null},
131     {-1,        NULL,                   NULL}
132 };
133
134 static struct pci_subclass subclass_mass[] = {
135     {0x0,       "SCSI",                 progif_null},
136     {0x1,       "IDE",                  progif_ide},
137     {0x2,       "Floppy disk",          progif_null},
138     {0x3,       "IPI",                  progif_null},
139     {0x4,       "RAID",                 progif_null},
140     {0x80,      "mass storage",         progif_null},
141     {-1,        NULL,                   NULL}
142 };
143
144 static struct pci_subclass subclass_net[] = {
145     {0x0,       "Ethernet",             progif_null},
146     {0x1,       "Token ring",           progif_null},
147     {0x2,       "FDDI",                 progif_null},
148     {0x3,       "ATM",                  progif_null},
149     {0x80,      "network",              progif_null},
150     {-1,        NULL,                   NULL}
151 };
152
153 static struct pci_subclass subclass_display[] = {
154     {0x0,       NULL,                   progif_display},
155     {0x1,       "XGA",                  progif_null},
156     {0x80,      "other",                progif_null},
157     {-1,        NULL,                   NULL}
158 };
159
160 static struct pci_subclass subclass_comms[] = {
161     {0x0,       "serial",               progif_serial},
162     {0x1,       "parallel",             progif_parallel},
163     {0x80,      "communications",       progif_null},
164     {-1,        NULL,                   NULL}
165 };
166
167 static struct pci_subclass subclass_serial[] = {
168     {0x0,       "FireWire",             progif_firewire},
169     {0x1,       "ACCESS.bus",           progif_null},
170     {0x2,       "SSA",                  progif_null},
171     {0x3,       "USB",                  progif_null},
172     {0x4,       "Fibrechannel",         progif_null},
173     {-1,        NULL,                   NULL}
174 };
175
176 static struct pci_class
177 {
178     int                 pc_class;
179     const char          *pc_name;
180     struct pci_subclass *pc_subclass;
181 } pci_classes[] = {
182     {0x0,       "device",       subclass_old},
183     {0x1,       "controller",   subclass_mass},
184     {0x2,       "controller",   subclass_net},
185     {0x3,       "display",      subclass_display},
186     {0x7,       "controller",   subclass_comms},
187     {0xc,       "controller",   subclass_serial},
188     {-1,        NULL,           NULL}
189 };
190
191
192 static void     biospci_enumerate(void);
193 static void     biospci_addinfo(int devid, struct pci_class *pc, struct pci_subclass *psc, struct pci_progif *ppi);
194
195 static int      biospci_version;
196 static int      biospci_hwcap;
197
198 struct pnphandler biospcihandler =
199 {
200     "PCI BIOS",
201     biospci_enumerate
202 };
203
204 static void
205 biospci_enumerate(void)
206 {
207     int                 device_index, err;
208     uint32_t            locator, devid;
209     struct pci_class    *pc;
210     struct pci_subclass *psc;
211     struct pci_progif   *ppi;
212
213     /* Find the PCI BIOS */
214     v86.ctl = V86_FLAGS;
215     v86.addr = 0x1a;
216     v86.eax = 0xb101;
217     v86.edi = 0x0;
218     v86int();
219
220     /* Check for OK response */
221     if ((v86.efl & 1) || ((v86.eax & 0xff00) != 0) || (v86.edx != 0x20494350))
222         return;
223
224     biospci_version = v86.ebx & 0xffff;
225     biospci_hwcap = v86.eax & 0xff;
226 #if 0
227     printf("PCI BIOS %d.%d%s%s\n", 
228            bcd2bin((biospci_version >> 8) & 0xf), bcd2bin(biospci_version & 0xf),
229            (biospci_hwcap & 1) ? " config1" : "", (biospci_hwcap & 2) ? " config2" : "");
230 #endif
231     /* Iterate over known classes */
232     for (pc = pci_classes; pc->pc_class >= 0; pc++) {
233         /* Iterate over subclasses */
234         for (psc = pc->pc_subclass; psc->ps_subclass >= 0; psc++) {
235             /* Iterate over programming interfaces */
236             for (ppi = psc->ps_progif; ppi->pi_code >= 0; ppi++) {
237
238                 /* Scan for matches */
239                 for (device_index = 0; ; device_index++) {
240                     /* Look for a match */
241                     err = biospci_find_devclass((pc->pc_class << 16)
242                         + (psc->ps_subclass << 8) + ppi->pi_code,
243                         device_index, &locator);
244                     if (err != 0)
245                         break;
246
247                     /* Read the device identifier from the nominated device */
248                     err = biospci_read_config(locator, 0, 2, &devid);
249                     if (err != 0)
250                         break;
251                     
252                     /* We have the device ID, create a PnP object and save everything */
253                     biospci_addinfo(devid, pc, psc, ppi);
254                 }
255             }
256         }
257     }
258 }
259
260 static void
261 biospci_addinfo(int devid, struct pci_class *pc, struct pci_subclass *psc, struct pci_progif *ppi) 
262 {
263     struct pnpinfo      *pi;
264     char                desc[80];
265     
266     
267     /* build the description */
268     desc[0] = 0;
269     if (ppi->pi_name != NULL) {
270         strcat(desc, ppi->pi_name);
271         strcat(desc, " ");
272     }
273     if (psc->ps_name != NULL) {
274         strcat(desc, psc->ps_name);
275         strcat(desc, " ");
276     }
277     if (pc->pc_name != NULL)
278         strcat(desc, pc->pc_name);
279
280     pi = pnp_allocinfo();
281     pi->pi_desc = strdup(desc);
282     sprintf(desc,"0x%08x", devid);
283     pnp_addident(pi, desc);
284     pnp_addinfo(pi);
285 }
286
287 int
288 biospci_find_devclass(uint32_t class, int index, uint32_t *locator)
289 {
290         v86.ctl = V86_FLAGS;
291         v86.addr = 0x1a;
292         v86.eax = 0xb103;
293         v86.ecx = class;
294         v86.esi = index;
295         v86int();
296
297          /* error */
298         if ((v86.efl & 1) || (v86.eax & 0xff00))
299                 return (-1);
300
301         *locator = v86.ebx;
302         return (0);
303 }
304 /*
305  * Configuration space access methods.
306  * width = 0(byte), 1(word) or 2(dword).
307  */
308 int
309 biospci_write_config(uint32_t locator, int offset, int width, uint32_t val)
310 {
311         v86.ctl = V86_FLAGS;
312         v86.addr = 0x1a;
313         v86.eax = 0xb10b + width;
314         v86.ebx = locator;
315         v86.edi = offset;
316         v86.ecx = val;
317         v86int();
318
319          /* error */
320         if ((v86.efl & 1) || (v86.eax & 0xff00))
321                 return (-1);
322
323         return(0);
324 }
325
326 int
327 biospci_read_config(uint32_t locator, int offset, int width, uint32_t *val)
328 {
329         v86.ctl = V86_FLAGS;
330         v86.addr = 0x1a;
331         v86.eax = 0xb108 + width;
332         v86.ebx = locator;
333         v86.edi = offset;
334         v86int();
335
336          /* error */
337         if ((v86.efl & 1) || (v86.eax & 0xff00))
338                 return (-1);
339
340         *val = v86.ecx;
341         return (0);
342 }
343