stand/i386/libi386/biospci.c

   1 /*-
   2  * Copyright (c) 1998 Michael Smith <msmith@freebsd.org>
   3  * Copyright (c) 2016 Netflix, Inc
   4  * All rights reserved.
   5  *
   6  * Redistribution and use in source and binary forms, with or without
   7  * modification, are permitted provided that the following conditions
   8  * are met:
   9  * 1. Redistributions of source code must retain the above copyright
  10  *    notice, this list of conditions and the following disclaimer.
  11  * 2. Redistributions in binary form must reproduce the above copyright
  12  *    notice, this list of conditions and the following disclaimer in the
  13  *    documentation and/or other materials provided with the distribution.
  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 #include <sys/cdefs.h>
  29 __FBSDID("$FreeBSD$");
  30
  31 /*
  32  * PnP enumerator using the PCI BIOS.
  33  */
  34
  35 #include <stand.h>
  36 #include <machine/stdarg.h>
  37 #include <bootstrap.h>
  38 #include <isapnp.h>
  39 #include <btxv86.h>
  40 #include "libi386.h"
  41
  42 /*
  43  * Stupid PCI BIOS interface doesn't let you simply enumerate everything
  44  * that's there, instead you have to ask it if it has something.
  45  *
  46  * So we have to scan by class code, subclass code and sometimes programming
  47  * interface.
  48  */
  49
  50 struct pci_progif
  51 {
  52     int         pi_code;
  53     const char  *pi_name;
  54 };
  55
  56 static struct pci_progif progif_null[] = {
  57     {0x0,       NULL},
  58     {-1,        NULL}
  59 };
  60
  61 static struct pci_progif progif_display[] = {
  62     {0x0,       "VGA"},
  63     {0x1,       "8514"},
  64     {-1,        NULL}
  65 };
  66
  67 static struct pci_progif progif_ide[] = {
  68     {0x00,      NULL},
  69     {0x01,      NULL},
  70     {0x02,      NULL},
  71     {0x03,      NULL},
  72     {0x04,      NULL},
  73     {0x05,      NULL},
  74     {0x06,      NULL},
  75     {0x07,      NULL},
  76     {0x08,      NULL},
  77     {0x09,      NULL},
  78     {0x0a,      NULL},
  79     {0x0b,      NULL},
  80     {0x0c,      NULL},
  81     {0x0d,      NULL},
  82     {0x0e,      NULL},
  83     {0x0f,      NULL},
  84     {0x80,      NULL},
  85     {0x81,      NULL},
  86     {0x82,      NULL},
  87     {0x83,      NULL},
  88     {0x84,      NULL},
  89     {0x85,      NULL},
  90     {0x86,      NULL},
  91     {0x87,      NULL},
  92     {0x88,      NULL},
  93     {0x89,      NULL},
  94     {0x8a,      NULL},
  95     {0x8b,      NULL},
  96     {0x8c,      NULL},
  97     {0x8d,      NULL},
  98     {0x8e,      NULL},
  99     {0x8f,      NULL},
 100     {-1,        NULL}
 101 };
 102
 103 static struct pci_progif progif_serial[] = {
 104     {0x0,       "8250"},
 105     {0x1,       "16450"},
 106     {0x2,       "16550"},
 107     {-1,        NULL}
 108 };
 109
 110 static struct pci_progif progif_parallel[] = {
 111     {0x0,       "Standard"},
 112     {0x1,       "Bidirectional"},
 113     {0x2,       "ECP"},
 114     {-1,        NULL}
 115 };
 116
 117 static struct pci_progif progif_firewire[] = {
 118     {0x10,      "OHCI"},
 119     {-1,        NULL}
 120 };
 121
 122 struct pci_subclass
 123 {
 124     int                 ps_subclass;
 125     const char          *ps_name;
 126     struct pci_progif   *ps_progif;     /* if set, use for programming interface value(s) */
 127 };
 128
 129 static struct pci_subclass subclass_old[] = {
 130     {0x0,       "Old non-VGA",          progif_null},
 131     {0x1,       "Old VGA",              progif_null},
 132     {-1,        NULL,                   NULL}
 133 };
 134
 135 static struct pci_subclass subclass_mass[] = {
 136     {0x0,       "SCSI",                 progif_null},
 137     {0x1,       "IDE",                  progif_ide},
 138     {0x2,       "Floppy disk",          progif_null},
 139     {0x3,       "IPI",                  progif_null},
 140     {0x4,       "RAID",                 progif_null},
 141     {0x80,      "mass storage",         progif_null},
 142     {-1,        NULL,                   NULL}
 143 };
 144
 145 static struct pci_subclass subclass_net[] = {
 146     {0x0,       "Ethernet",             progif_null},
 147     {0x1,       "Token ring",           progif_null},
 148     {0x2,       "FDDI",                 progif_null},
 149     {0x3,       "ATM",                  progif_null},
 150     {0x80,      "network",              progif_null},
 151     {-1,        NULL,                   NULL}
 152 };
 153
 154 static struct pci_subclass subclass_display[] = {
 155     {0x0,       NULL,                   progif_display},
 156     {0x1,       "XGA",                  progif_null},
 157     {0x80,      "other",                progif_null},
 158     {-1,        NULL,                   NULL}
 159 };
 160
 161 static struct pci_subclass subclass_comms[] = {
 162     {0x0,       "serial",               progif_serial},
 163     {0x1,       "parallel",             progif_parallel},
 164     {0x80,      "communications",       progif_null},
 165     {-1,        NULL,                   NULL}
 166 };
 167
 168 static struct pci_subclass subclass_serial[] = {
 169     {0x0,       "FireWire",             progif_firewire},
 170     {0x1,       "ACCESS.bus",           progif_null},
 171     {0x2,       "SSA",                  progif_null},
 172     {0x3,       "USB",                  progif_null},
 173     {0x4,       "Fibrechannel",         progif_null},
 174     {-1,        NULL,                   NULL}
 175 };
 176
 177 static struct pci_class
 178 {
 179     int                 pc_class;
 180     const char          *pc_name;
 181     struct pci_subclass *pc_subclass;
 182 } pci_classes[] = {
 183     {0x0,       "device",       subclass_old},
 184     {0x1,       "controller",   subclass_mass},
 185     {0x2,       "controller",   subclass_net},
 186     {0x3,       "display",      subclass_display},
 187     {0x7,       "controller",   subclass_comms},
 188     {0xc,       "controller",   subclass_serial},
 189     {-1,        NULL,           NULL}
 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 struct pnphandler biospcihandler =
 196 {
 197     "PCI BIOS",
 198     biospci_enumerate
 199 };
 200 static int biospci_version;
 201
 202 #define PCI_BIOS_PRESENT        0xb101
 203 #define FIND_PCI_DEVICE         0xb102
 204 #define FIND_PCI_CLASS_CODE     0xb103
 205 #define GENERATE_SPECIAL_CYCLE  0xb106
 206 #define READ_CONFIG_BYTE        0xb108
 207 #define READ_CONFIG_WORD        0xb109
 208 #define READ_CONFIG_DWORD       0xb10a
 209 #define WRITE_CONFIG_BYTE       0xb10b
 210 #define WRITE_CONFIG_WORD       0xb10c
 211 #define WRITE_CONFIG_DWORD      0xb10d
 212 #define GET_IRQ_ROUTING_OPTIONS 0xb10e
 213 #define SET_PCI_IRQ             0xb10f
 214
 215 #define PCI_INT                 0x1a
 216
 217 #define PCI_SIGNATURE           0x20494350      /* AKA "PCI " */
 218
 219 void
 220 biospci_detect(void)
 221 {
 222     uint16_t version, hwcap, maxbus;
 223     char buf[24];
 224
 225     /* Find the PCI BIOS */
 226     v86.ctl = V86_FLAGS;
 227     v86.addr = PCI_INT;
 228     v86.eax = PCI_BIOS_PRESENT;
 229     v86.edi = 0x0;
 230     v86int();
 231
 232     /* Check for OK response */
 233     if (V86_CY(v86.efl) || ((v86.eax & 0xff00) != 0) ||
 234         (v86.edx != PCI_SIGNATURE))
 235         return;
 236
 237     version = v86.ebx & 0xffff;
 238     hwcap = v86.eax & 0xff;
 239     maxbus = v86.ecx & 0xff;
 240 #if 0
 241     printf("PCI BIOS %d.%d%s%s maxbus %d\n",
 242            bcd2bin((version >> 8) & 0xf), bcd2bin(version & 0xf),
 243            (hwcap & 1) ? " config1" : "", (hwcap & 2) ? " config2" : "",
 244            maxbus);
 245 #endif
 246     sprintf(buf, "%d", bcd2bin((version >> 8) & 0xf));
 247     setenv("pcibios.major", buf, 1);
 248     sprintf(buf, "%d", bcd2bin(version & 0xf));
 249     setenv("pcibios.minor", buf, 1);
 250     sprintf(buf, "%d", !!(hwcap & 1));
 251     setenv("pcibios.config1", buf, 1);
 252     sprintf(buf, "%d", !!(hwcap & 2));
 253     setenv("pcibios.config2", buf, 1);
 254     sprintf(buf, "%d", maxbus);
 255     setenv("pcibios.maxbus", buf, 1);
 256     biospci_version = bcd2bin((version >> 8) & 0xf) * 10 + bcd2bin(version & 0xf);
 257 }
 258
 259 static void
 260 biospci_enumerate(void)
 261 {
 262     int                 device_index, err;
 263     uint32_t            locator, devid;
 264     struct pci_class    *pc;
 265     struct pci_subclass *psc;
 266     struct pci_progif   *ppi;
 267
 268     /* Iterate over known classes */
 269     for (pc = pci_classes; pc->pc_class >= 0; pc++) {
 270         /* Iterate over subclasses */
 271         for (psc = pc->pc_subclass; psc->ps_subclass >= 0; psc++) {
 272             /* Iterate over programming interfaces */
 273             for (ppi = psc->ps_progif; ppi->pi_code >= 0; ppi++) {
 274
 275                 /* Scan for matches */
 276                 for (device_index = 0; ; device_index++) {
 277                     /* Look for a match */
 278                     err = biospci_find_devclass((pc->pc_class << 16)
 279                         + (psc->ps_subclass << 8) + ppi->pi_code,
 280                         device_index, &locator);
 281                     if (err != 0)
 282                         break;
 283
 284                     /* Read the device identifier from the nominated device */
 285                     err = biospci_read_config(locator, 0, BIOSPCI_32BITS, &devid);
 286                     if (err != 0)
 287                         break;
 288
 289                     /* We have the device ID, create a PnP object and save everything */
 290                     biospci_addinfo(devid, pc, psc, ppi);
 291                 }
 292             }
 293         }
 294     }
 295 }
 296
 297 static void
 298 biospci_addinfo(int devid, struct pci_class *pc, struct pci_subclass *psc, struct pci_progif *ppi)
 299 {
 300     struct pnpinfo      *pi;
 301     char                desc[80];
 302
 303
 304     /* build the description */
 305     desc[0] = 0;
 306     if (ppi->pi_name != NULL) {
 307         strcat(desc, ppi->pi_name);
 308         strcat(desc, " ");
 309     }
 310     if (psc->ps_name != NULL) {
 311         strcat(desc, psc->ps_name);
 312         strcat(desc, " ");
 313     }
 314     if (pc->pc_name != NULL)
 315         strcat(desc, pc->pc_name);
 316
 317     pi = pnp_allocinfo();
 318     pi->pi_desc = strdup(desc);
 319     sprintf(desc,"0x%08x", devid);
 320     pnp_addident(pi, desc);
 321     pnp_addinfo(pi);
 322 }
 323
 324 int
 325 biospci_find_devclass(uint32_t class, int index, uint32_t *locator)
 326 {
 327         v86.ctl = V86_FLAGS;
 328         v86.addr = PCI_INT;
 329         v86.eax = FIND_PCI_CLASS_CODE;
 330         v86.ecx = class;
 331         v86.esi = index;
 332         v86int();
 333
 334          /* error */
 335         if (V86_CY(v86.efl) || (v86.eax & 0xff00))
 336                 return (-1);
 337
 338         *locator = v86.ebx;
 339         return (0);
 340 }
 341
 342 static int
 343 biospci_find_device(uint32_t devid, int index, uint32_t *locator)
 344 {
 345         v86.ctl = V86_FLAGS;
 346         v86.addr = PCI_INT;
 347         v86.eax = FIND_PCI_DEVICE;
 348         v86.edx = devid & 0xffff;               /* EDX - Vendor ID */
 349         v86.ecx = (devid >> 16) & 0xffff;       /* ECX - Device ID */
 350         v86.esi = index;
 351         v86int();
 352
 353          /* error */
 354         if (V86_CY(v86.efl) || (v86.eax & 0xff00))
 355                 return (-1);
 356
 357         *locator = v86.ebx;
 358         return (0);
 359 }
 360 /*
 361  * Configuration space access methods.
 362  * width = 0(byte), 1(word) or 2(dword).
 363  */
 364 int
 365 biospci_write_config(uint32_t locator, int offset, int width, uint32_t val)
 366 {
 367         v86.ctl = V86_FLAGS;
 368         v86.addr = PCI_INT;
 369         v86.eax = WRITE_CONFIG_BYTE + width;
 370         v86.ebx = locator;
 371         v86.edi = offset;
 372         v86.ecx = val;
 373         v86int();
 374
 375          /* error */
 376         if (V86_CY(v86.efl) || (v86.eax & 0xff00))
 377                 return (-1);
 378
 379         return(0);
 380 }
 381
 382 int
 383 biospci_read_config(uint32_t locator, int offset, int width, uint32_t *val)
 384 {
 385         v86.ctl = V86_FLAGS;
 386         v86.addr = PCI_INT;
 387         v86.eax = READ_CONFIG_BYTE + width;
 388         v86.ebx = locator;
 389         v86.edi = offset;
 390         v86int();
 391
 392          /* error */
 393         if (V86_CY(v86.efl) || (v86.eax & 0xff00))
 394                 return (-1);
 395
 396         *val = v86.ecx;
 397         return (0);
 398 }
 399
 400 uint32_t
 401 biospci_locator(int8_t bus, uint8_t device, uint8_t function)
 402 {
 403
 404         return ((bus << 8) | ((device & 0x1f) << 3) | (function & 0x7));
 405 }