sys/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_CY(v86.efl) || ((v86.eax & 0xff00) != 0) ||
 222         (v86.edx != 0x20494350))
 223         return;
 224
 225     biospci_version = v86.ebx & 0xffff;
 226     biospci_hwcap = v86.eax & 0xff;
 227 #if 0
 228     printf("PCI BIOS %d.%d%s%s\n",
 229            bcd2bin((biospci_version >> 8) & 0xf), bcd2bin(biospci_version & 0xf),
 230            (biospci_hwcap & 1) ? " config1" : "", (biospci_hwcap & 2) ? " config2" : "");
 231 #endif
 232     /* Iterate over known classes */
 233     for (pc = pci_classes; pc->pc_class >= 0; pc++) {
 234         /* Iterate over subclasses */
 235         for (psc = pc->pc_subclass; psc->ps_subclass >= 0; psc++) {
 236             /* Iterate over programming interfaces */
 237             for (ppi = psc->ps_progif; ppi->pi_code >= 0; ppi++) {
 238
 239                 /* Scan for matches */
 240                 for (device_index = 0; ; device_index++) {
 241                     /* Look for a match */
 242                     err = biospci_find_devclass((pc->pc_class << 16)
 243                         + (psc->ps_subclass << 8) + ppi->pi_code,
 244                         device_index, &locator);
 245                     if (err != 0)
 246                         break;
 247
 248                     /* Read the device identifier from the nominated device */
 249                     err = biospci_read_config(locator, 0, 2, &devid);
 250                     if (err != 0)
 251                         break;
 252
 253                     /* We have the device ID, create a PnP object and save everything */
 254                     biospci_addinfo(devid, pc, psc, ppi);
 255                 }
 256             }
 257         }
 258     }
 259 }
 260
 261 static void
 262 biospci_addinfo(int devid, struct pci_class *pc, struct pci_subclass *psc, struct pci_progif *ppi)
 263 {
 264     struct pnpinfo      *pi;
 265     char                desc[80];
 266
 267
 268     /* build the description */
 269     desc[0] = 0;
 270     if (ppi->pi_name != NULL) {
 271         strcat(desc, ppi->pi_name);
 272         strcat(desc, " ");
 273     }
 274     if (psc->ps_name != NULL) {
 275         strcat(desc, psc->ps_name);
 276         strcat(desc, " ");
 277     }
 278     if (pc->pc_name != NULL)
 279         strcat(desc, pc->pc_name);
 280
 281     pi = pnp_allocinfo();
 282     pi->pi_desc = strdup(desc);
 283     sprintf(desc,"0x%08x", devid);
 284     pnp_addident(pi, desc);
 285     pnp_addinfo(pi);
 286 }
 287
 288 int
 289 biospci_find_devclass(uint32_t class, int index, uint32_t *locator)
 290 {
 291         v86.ctl = V86_FLAGS;
 292         v86.addr = 0x1a;
 293         v86.eax = 0xb103;
 294         v86.ecx = class;
 295         v86.esi = index;
 296         v86int();
 297
 298          /* error */
 299         if (V86_CY(v86.efl) || (v86.eax & 0xff00))
 300                 return (-1);
 301
 302         *locator = v86.ebx;
 303         return (0);
 304 }
 305 /*
 306  * Configuration space access methods.
 307  * width = 0(byte), 1(word) or 2(dword).
 308  */
 309 int
 310 biospci_write_config(uint32_t locator, int offset, int width, uint32_t val)
 311 {
 312         v86.ctl = V86_FLAGS;
 313         v86.addr = 0x1a;
 314         v86.eax = 0xb10b + width;
 315         v86.ebx = locator;
 316         v86.edi = offset;
 317         v86.ecx = val;
 318         v86int();
 319
 320          /* error */
 321         if (V86_CY(v86.efl) || (v86.eax & 0xff00))
 322                 return (-1);
 323
 324         return(0);
 325 }
 326
 327 int
 328 biospci_read_config(uint32_t locator, int offset, int width, uint32_t *val)
 329 {
 330         v86.ctl = V86_FLAGS;
 331         v86.addr = 0x1a;
 332         v86.eax = 0xb108 + width;
 333         v86.ebx = locator;
 334         v86.edi = offset;
 335         v86int();
 336
 337          /* error */
 338         if (V86_CY(v86.efl) || (v86.eax & 0xff00))
 339                 return (-1);
 340
 341         *val = v86.ecx;
 342         return (0);
 343 }
 344
 345 uint32_t
 346 biospci_locator(int8_t bus, uint8_t device, uint8_t function)
 347 {
 348
 349         return ((bus << 8) | ((device & 0x1f) << 3) | (function & 0x7));
 350 }