1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21 /*
  22  * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
  23  * Use is subject to license terms.
  24  */
  25 
  26 #include <sys/types.h>
  27 #include <sys/param.h>
  28 #include <sys/controlregs.h>
  29 #include <sys/bootconf.h>
  30 #include <sys/bootvfs.h>
  31 #include <sys/bootregs.h>
  32 #include <sys/bootconf.h>
  33 #include <sys/conf.h>
  34 #include <sys/promif.h>
  35 #include <sys/ddi.h>
  36 #include <sys/sunddi.h>
  37 #include <sys/sunndi.h>
  38 #include <sys/biosdisk.h>
  39 #include <sys/psw.h>
  40 #if defined(__xpv)
  41 #include <sys/hypervisor.h>
  42 #endif
  43 
  44 extern int prom_debug;
  45 
  46 /* hard code realmode memory address for now */
  47 #define BIOS_RES_BUFFER_ADDR            0x7000
  48 
  49 #define BIOSDEV_NUM     8
  50 #define STARTING_DRVNUM 0x80
  51 #define FP_OFF(fp) (((uintptr_t)(fp)) & 0xFFFF)
  52 #define FP_SEG(fp) ((((uintptr_t)(fp)) >> 16) & 0xFFFF)
  53 
  54 #ifdef DEBUG
  55 int biosdebug = 0;
  56 #define dprintf(fmt) \
  57         if (biosdebug) \
  58                 prom_printf fmt
  59 #else
  60 #define dprintf(fmt)
  61 #endif
  62 
  63 biosdev_data_t biosdev_info[BIOSDEV_NUM]; /* from 0x80 to 0x87 */
  64 int dobiosdev = 1;
  65 
  66 
  67 static int bios_check_extension_present(uchar_t);
  68 static int get_dev_params(uchar_t);
  69 static int read_firstblock(uchar_t drivenum);
  70 static int drive_present(uchar_t drivenum);
  71 static void reset_disk(uchar_t drivenum);
  72 static int is_eltorito(uchar_t drivenum);
  73 
  74 #if !defined(__xpv)
  75 void
  76 startup_bios_disk()
  77 {
  78         uchar_t drivenum;
  79         int got_devparams = 0;
  80         int got_first_block = 0;
  81         uchar_t name[20];
  82         dev_info_t      *devi;
  83         int extensions;
  84 
  85         if (dobiosdev == 0)
  86                 return;
  87 
  88         for (drivenum = 0x80; drivenum < (0x80 + BIOSDEV_NUM); drivenum++) {
  89 
  90                 if (!drive_present(drivenum))
  91                         continue;
  92 
  93                 extensions = bios_check_extension_present(drivenum);
  94 
  95                 /*
  96                  * If we're booting from an Eltorito CD/DVD image, there's
  97                  * no need to get the device parameters or read the first block
  98                  * because we'll never install onto this device.
  99                  */
 100                 if (extensions && is_eltorito(drivenum))
 101                         continue;
 102 
 103                 if (extensions && get_dev_params(drivenum))
 104                         got_devparams = 1;
 105                 else
 106                         got_devparams = 0;
 107 
 108                 if ((got_first_block = read_firstblock(drivenum)) == 0) {
 109                         /* retry */
 110                         got_first_block = read_firstblock(drivenum);
 111                 }
 112 
 113                 if (got_devparams || got_first_block) {
 114                         (void) sprintf((char *)name, "biosdev-0x%x", drivenum);
 115                         devi = ddi_root_node();
 116                         (void) e_ddi_prop_update_byte_array(DDI_DEV_T_NONE,
 117                             devi, (char *)name,
 118                             (uchar_t *)&biosdev_info[drivenum - 0x80],
 119                             sizeof (biosdev_data_t));
 120                 }
 121         }
 122 }
 123 #endif
 124 
 125 static int
 126 bios_check_extension_present(uchar_t drivenum)
 127 {
 128         struct bop_regs rp = {0};
 129         extern struct bootops           *bootops;
 130 
 131         rp.eax.word.ax = 0x4100;
 132         rp.ebx.word.bx = 0x55AA;
 133         rp.edx.word.dx = drivenum;
 134 
 135         /* make sure we have extension support */
 136         BOP_DOINT(bootops, 0x13, &rp);
 137 
 138         if (((rp.eflags & PS_C) != 0) || (rp.ebx.word.bx != 0xAA55)) {
 139                 dprintf(("bios_check_extension_present int13 fn 41 "
 140                     "failed %d bx = %x\n", rp.eflags, rp.ebx.word.bx));
 141                 return (0);
 142         }
 143 
 144         if ((rp.ecx.word.cx & 0x7) == 0) {
 145                 dprintf(("bios_check_extension_present get device parameters "
 146                     "not supported cx = %x\n", rp.ecx.word.cx));
 147                 return (0);
 148         }
 149 
 150         return (1);
 151 }
 152 
 153 static int
 154 get_dev_params(uchar_t drivenum)
 155 {
 156         struct bop_regs rp = {0};
 157         fn48_t   *bufp;
 158         extern struct bootops           *bootops;
 159         int i;
 160         int index;
 161         uchar_t *tmp;
 162 
 163         dprintf(("In get_dev_params\n"));
 164 
 165         bufp = (fn48_t *)BIOS_RES_BUFFER_ADDR;
 166 
 167         /*
 168          * We cannot use bzero here as we're initializing data
 169          * at an address below kernel base.
 170          */
 171         for (i = 0; i < sizeof (*bufp); i++)
 172                 ((uchar_t *)bufp)[i] = 0;
 173 
 174         bufp->buflen = sizeof (*bufp);
 175         rp.eax.word.ax = 0x4800;
 176         rp.edx.byte.dl = drivenum;
 177 
 178         rp.esi.word.si = (uint16_t)FP_OFF((uint_t)(uintptr_t)bufp);
 179         rp.ds = FP_SEG((uint_t)(uintptr_t)bufp);
 180 
 181         BOP_DOINT(bootops, 0x13, &rp);
 182 
 183         if ((rp.eflags & PS_C) != 0) {
 184                 dprintf(("EDD FAILED on drive eflag = %x ah= %x\n",
 185                     rp.eflags, rp.eax.byte.ah));
 186                 return (0);
 187         }
 188 
 189         index = drivenum - 0x80;
 190         biosdev_info[index].edd_valid = 1;
 191 
 192         /*
 193          * Some compilers turn a structure copy into a call
 194          * to memcpy.  Since we are copying data below kernel
 195          * base intentionally, and memcpy asserts that's not
 196          * the case, we do the copy manually here.
 197          */
 198         tmp = (uchar_t *)&biosdev_info[index].fn48_dev_params;
 199         for (i = 0; i < sizeof (*bufp); i++)
 200                 tmp[i] = ((uchar_t *)bufp)[i];
 201 
 202         return (1);
 203 }
 204 
 205 static int
 206 drive_present(uchar_t drivenum)
 207 {
 208         struct bop_regs rp = {0};
 209 
 210         rp.eax.byte.ah = 0x8;   /* get params */
 211         rp.edx.byte.dl = drivenum;
 212 
 213         BOP_DOINT(bootops, 0x13, &rp);
 214 
 215         if (((rp.eflags & PS_C) != 0) || rp.eax.byte.ah != 0) {
 216                 dprintf(("drive not present drivenum %x eflag %x ah %x\n",
 217                     drivenum, rp.eflags, rp.eax.byte.ah));
 218                 return (0);
 219         }
 220 
 221         dprintf(("drive-present %x\n", drivenum));
 222         return (1);
 223 }
 224 
 225 static void
 226 reset_disk(uchar_t drivenum)
 227 {
 228         struct bop_regs rp = {0};
 229         int status;
 230 
 231         rp.eax.byte.ah = 0x0;   /* reset disk */
 232         rp.edx.byte.dl = drivenum;
 233 
 234         BOP_DOINT(bootops, 0x13, &rp);
 235 
 236         status = rp.eax.byte.ah;
 237 
 238         if (((rp.eflags & PS_C) != 0) || status != 0)
 239                 dprintf(("Bad disk reset driv %x, status %x\n", drivenum,
 240                     status));
 241 }
 242 
 243 /* Get first block */
 244 static int
 245 read_firstblock(uchar_t drivenum)
 246 {
 247 
 248         struct bop_regs rp = {0};
 249         caddr_t  bufp;
 250         uchar_t status;
 251         int i, index;
 252 
 253 
 254         reset_disk(drivenum);
 255         bufp = (caddr_t)BIOS_RES_BUFFER_ADDR;
 256 
 257 
 258         rp.eax.byte.ah = 0x2;   /* Read disk */
 259         rp.eax.byte.al = 1;     /* nsect */
 260         rp.ecx.byte.ch = 0;     /* cyl & 0xff */
 261         rp.ecx.byte.cl = 1;     /* cyl >> 2 & 0xc0 (sector number) */
 262         rp.edx.byte.dh = 0;     /* head */
 263         rp.edx.byte.dl = drivenum;      /* drivenum */
 264 
 265         /* es:bx is buf address */
 266         rp.ebx.word.bx = (uint16_t)FP_OFF((uint_t)(uintptr_t)bufp);
 267         rp.es = FP_SEG((uint_t)(uintptr_t)bufp);
 268 
 269         BOP_DOINT(bootops, 0x13, &rp);
 270 
 271         status = rp.eax.byte.ah;
 272         if (((rp.eflags & PS_C) != 0) || status != 0) {
 273                 dprintf(("read_firstblock AH not clear %x \n", status));
 274                 return (0);
 275         }
 276 
 277         dprintf(("drivenum %x uid at 0x1b8 is %x\n", drivenum,
 278             *(uint32_t *)(bufp +0x1b8)));
 279 
 280         index = drivenum - 0x80;
 281 
 282         biosdev_info[index].first_block_valid = 1;
 283         for (i = 0; i < 512; i++)
 284                 biosdev_info[index].first_block[i] = *((uchar_t *)bufp + i);
 285 
 286         return (1);
 287 }
 288 
 289 static int
 290 is_eltorito(uchar_t drivenum)
 291 {
 292         struct bop_regs rp = {0};
 293         fn4b_t   *bufp;
 294         extern struct bootops           *bootops;
 295         int i;
 296 
 297         dprintf(("In is_eltorito\n"));
 298 
 299         bufp = (fn4b_t *)BIOS_RES_BUFFER_ADDR;
 300 
 301         /*
 302          * We cannot use bzero here as we're initializing data
 303          * at an address below kernel base.
 304          */
 305         for (i = 0; i < sizeof (*bufp); i++)
 306                 ((uchar_t *)bufp)[i] = 0;
 307 
 308         bufp->pkt_size = sizeof (*bufp);
 309         rp.eax.word.ax = 0x4b01;
 310         rp.edx.byte.dl = drivenum;
 311 
 312         rp.esi.word.si = (uint16_t)FP_OFF((uint_t)(uintptr_t)bufp);
 313         rp.ds = FP_SEG((uint_t)(uintptr_t)bufp);
 314 
 315         BOP_DOINT(bootops, 0x13, &rp);
 316 
 317         if ((rp.eflags & PS_C) != 0 || bufp->drivenum != drivenum) {
 318                 dprintf(("fn 0x4b01 FAILED on drive "
 319                     "eflags=%x ah=%x drivenum=%x\n",
 320                     rp.eflags, rp.eax.byte.ah, bufp->drivenum));
 321                 return (0);
 322         }
 323 
 324         if (prom_debug)
 325                 prom_printf("INT13 FN4B01 mtype => %x", bufp->boot_mtype);
 326 
 327         return (1);
 328 }