-// 16bit code to load disk image and start system boot.
+// Code to load disk image and start system boot.
//
// Copyright (C) 2008 Kevin O'Connor <kevin@koconnor.net>
// Copyright (C) 2002 MandrakeSoft S.A.
//
-// This file may be distributed under the terms of the GNU GPLv3 license.
+// This file may be distributed under the terms of the GNU LGPLv3 license.
-#include "util.h" // irq_enable
-#include "biosvar.h" // struct bregs
+#include "util.h" // dprintf
+#include "biosvar.h" // GET_EBDA
#include "config.h" // CONFIG_*
+#include "disk.h" // cdrom_boot
+#include "bregs.h" // struct bregs
+#include "boot.h" // struct ipl_s
#include "cmos.h" // inb_cmos
-#include "ata.h" // ata_detect
+#include "paravirt.h"
-//--------------------------------------------------------------------------
-// print_boot_device
-// displays the boot device
-//--------------------------------------------------------------------------
+struct ipl_s IPL;
-static const char drivetypes[][10]={
- "", "Floppy","Hard Disk","CD-Rom", "Network"
-};
-static void
-print_boot_device(u16 type)
+/****************************************************************
+ * IPL and BCV handlers
+ ****************************************************************/
+
+void
+boot_setup(void)
{
- /* NIC appears as type 0x80 */
- if (type == IPL_TYPE_BEV)
- type = 0x4;
- if (type == 0 || type > 0x4)
- BX_PANIC("Bad drive type\n");
- printf("Booting from %s...\n", drivetypes[type]);
+ if (! CONFIG_BOOT)
+ return;
+ dprintf(3, "init boot device ordering\n");
+
+ memset(&IPL, 0, sizeof(IPL));
+
+ // Floppy drive
+ struct ipl_entry_s *ie = &IPL.bev[0];
+ ie->type = IPL_TYPE_FLOPPY;
+ ie->description = "Floppy";
+ ie++;
+
+ // First HDD
+ ie->type = IPL_TYPE_HARDDISK;
+ ie->description = "Hard Disk";
+ ie++;
+
+ // CDROM
+ if (CONFIG_CDROM_BOOT) {
+ ie->type = IPL_TYPE_CDROM;
+ ie->description = "CD-Rom";
+ ie++;
+ }
+
+ if (CONFIG_COREBOOT_FLASH) {
+ ie->type = IPL_TYPE_CBFS;
+ ie->description = "CBFS";
+ ie++;
+ }
- // XXX - latest cvs has BEV description
+ IPL.bevcount = ie - IPL.bev;
+ SET_EBDA(boot_sequence, 0xffff);
+ if (CONFIG_COREBOOT) {
+ // XXX - hardcode defaults for coreboot.
+ IPL.bootorder = 0x87654231;
+ IPL.checkfloppysig = 1;
+ } else {
+ // On emulators, get boot order from nvram.
+ IPL.bootorder = (inb_cmos(CMOS_BIOS_BOOTFLAG2)
+ | ((inb_cmos(CMOS_BIOS_BOOTFLAG1) & 0xf0) << 4));
+ if (!(inb_cmos(CMOS_BIOS_BOOTFLAG1) & 1))
+ IPL.checkfloppysig = 1;
+ }
}
-//--------------------------------------------------------------------------
-// print_boot_failure
-// displays the reason why boot failed
-//--------------------------------------------------------------------------
-static void
-print_boot_failure(u16 type, u8 reason)
+// Add a BEV vector for a given pnp compatible option rom.
+void
+add_bev(u16 seg, u16 bev, u16 desc)
{
- if (type == 0 || type > 0x3)
- BX_PANIC("Bad drive type\n");
+ if (! CONFIG_BOOT)
+ return;
+ if (IPL.bevcount >= ARRAY_SIZE(IPL.bev))
+ return;
+
+ struct ipl_entry_s *ie = &IPL.bev[IPL.bevcount++];
+ ie->type = IPL_TYPE_BEV;
+ ie->vector = (seg << 16) | bev;
+ const char *d = "Unknown";
+ if (desc)
+ d = MAKE_FLATPTR(seg, desc);
+ ie->description = d;
+}
- printf("Boot failed");
- if (type < 4) {
- /* Report the reason too */
- if (reason==0)
- printf(": not a bootable disk");
- else
- printf(": could not read the boot disk");
+// Add a bcv entry for an expansion card harddrive or legacy option rom
+void
+add_bcv(u16 seg, u16 ip, u16 desc)
+{
+ if (! CONFIG_BOOT)
+ return;
+ if (IPL.bcvcount >= ARRAY_SIZE(IPL.bcv))
+ return;
+
+ struct ipl_entry_s *ie = &IPL.bcv[IPL.bcvcount++];
+ ie->type = BCV_TYPE_EXTERNAL;
+ ie->vector = (seg << 16) | ip;
+ const char *d = "Legacy option rom";
+ if (desc)
+ d = MAKE_FLATPTR(seg, desc);
+ ie->description = d;
+}
+
+// Add a bcv entry for an internal harddrive
+void
+add_bcv_internal(struct drive_s *drive_g)
+{
+ if (! CONFIG_BOOT)
+ return;
+ if (IPL.bcvcount >= ARRAY_SIZE(IPL.bcv))
+ return;
+
+ struct ipl_entry_s *ie = &IPL.bcv[IPL.bcvcount++];
+ if (CONFIG_THREADS) {
+ // Add to bcv list with assured drive order.
+ struct ipl_entry_s *end = ie;
+ for (;;) {
+ struct ipl_entry_s *prev = ie - 1;
+ if (prev < IPL.bcv || prev->type != BCV_TYPE_INTERNAL)
+ break;
+ struct drive_s *prevdrive = (void*)prev->vector;
+ if (prevdrive->type < drive_g->type
+ || (prevdrive->type == drive_g->type
+ && prevdrive->cntl_id < drive_g->cntl_id))
+ break;
+ ie--;
+ }
+ if (ie != end)
+ memmove(ie+1, ie, (void*)end-(void*)ie);
}
- printf("\n\n");
+ ie->type = BCV_TYPE_INTERNAL;
+ ie->vector = (u32)drive_g;
+ ie->description = "";
}
-static void
-try_boot(u16 seq_nr)
-{
- SET_IPL(sequence, seq_nr);
- u16 bootseg;
- u8 bootdrv = 0;
- u16 bootdev, bootip;
-
- if (CONFIG_ELTORITO_BOOT) {
- bootdev = inb_cmos(CMOS_BIOS_BOOTFLAG2);
- bootdev |= ((inb_cmos(CMOS_BIOS_BOOTFLAG1) & 0xf0) << 4);
- bootdev >>= 4 * seq_nr;
- bootdev &= 0xf;
- if (bootdev == 0)
- BX_PANIC("No bootable device.\n");
-
- /* Translate from CMOS runes to an IPL table offset by subtracting 1 */
- bootdev -= 1;
- } else {
- if (seq_nr ==2)
- BX_PANIC("No more boot devices.");
- if (!!(inb_cmos(CMOS_BIOS_CONFIG) & 0x20) ^ (seq_nr == 1))
- /* Boot from floppy if the bit is set or it's the second boot */
- bootdev = 0x00;
- else
- bootdev = 0x01;
+
+/****************************************************************
+ * Boot menu and BCV execution
+ ****************************************************************/
+
+// Show a generic menu item
+static int
+menu_show_default(struct ipl_entry_s *ie, int menupos)
+{
+ char desc[33];
+ printf("%d. %s\n", menupos
+ , strtcpy(desc, ie->description, ARRAY_SIZE(desc)));
+ return 1;
+}
+
+// Show floppy menu item - but only if there exists a floppy drive.
+static int
+menu_show_floppy(struct ipl_entry_s *ie, int menupos)
+{
+ int i;
+ for (i = 0; i < Drives.floppycount; i++) {
+ struct drive_s *drive_g = getDrive(EXTTYPE_FLOPPY, i);
+ printf("%d. Floppy [%s]\n", menupos + i, drive_g->desc);
}
+ return Drives.floppycount;
+}
- if (bootdev >= GET_IPL(count)) {
- BX_INFO("Invalid boot device (0x%x)\n", bootdev);
- return;
+// Show menu items from BCV list.
+static int
+menu_show_harddisk(struct ipl_entry_s *ie, int menupos)
+{
+ int i;
+ for (i = 0; i < IPL.bcvcount; i++) {
+ struct ipl_entry_s *ie = &IPL.bcv[i];
+ struct drive_s *drive_g = (void*)ie->vector;
+ switch (ie->type) {
+ case BCV_TYPE_INTERNAL:
+ printf("%d. %s\n", menupos + i, drive_g->desc);
+ break;
+ default:
+ menu_show_default(ie, menupos+i);
+ break;
+ }
}
- u16 type = GET_IPL(table[bootdev].type);
+ return IPL.bcvcount;
+}
- /* Do the loading, and set up vector as a far pointer to the boot
- * address, and bootdrv as the boot drive */
- print_boot_device(type);
-
- struct bregs cr;
- switch(type) {
- case IPL_TYPE_FLOPPY: /* FDD */
- case IPL_TYPE_HARDDISK: /* HDD */
-
- bootdrv = (type == IPL_TYPE_HARDDISK) ? 0x80 : 0x00;
- bootseg = 0x07c0;
-
- // Read sector
- memset(&cr, 0, sizeof(cr));
- cr.dl = bootdrv;
- cr.es = bootseg;
- cr.ah = 2;
- cr.al = 1;
- cr.cl = 1;
- call16_int(0x13, &cr);
-
- if (cr.flags & F_CF) {
- print_boot_failure(type, 1);
- return;
+// Show cdrom menu item - but only if there exists a cdrom drive.
+static int
+menu_show_cdrom(struct ipl_entry_s *ie, int menupos)
+{
+ int i;
+ for (i = 0; i < Drives.cdcount; i++) {
+ struct drive_s *drive_g = getDrive(EXTTYPE_CD, i);
+ printf("%d. CD-Rom [%s]\n", menupos + i, drive_g->desc);
+ }
+ return Drives.cdcount;
+}
+
+// Show coreboot-fs menu item.
+static int
+menu_show_cbfs(struct ipl_entry_s *ie, int menupos)
+{
+ int count = 0;
+ struct cbfs_file *file = NULL;
+ for (;;) {
+ file = cbfs_findprefix("img/", file);
+ if (!file)
+ break;
+ const char *filename = cbfs_filename(file);
+ printf("%d. Payload [%s]\n", menupos + count, &filename[4]);
+ count++;
+ if (count > 8)
+ break;
+ }
+ return count;
+}
+
+// Show IPL option menu.
+static void
+interactive_bootmenu(void)
+{
+ if (! CONFIG_BOOTMENU || ! qemu_cfg_show_boot_menu())
+ return;
+
+ while (get_keystroke(0) >= 0)
+ ;
+
+ printf("Press F12 for boot menu.\n\n");
+
+ int scan_code = get_keystroke(CONFIG_BOOTMENU_WAIT);
+ if (scan_code != 0x86)
+ /* not F12 */
+ return;
+
+ while (get_keystroke(0) >= 0)
+ ;
+
+ printf("Select boot device:\n\n");
+
+ int subcount[ARRAY_SIZE(IPL.bev)];
+ int menupos = 1;
+ int i;
+ for (i = 0; i < IPL.bevcount; i++) {
+ struct ipl_entry_s *ie = &IPL.bev[i];
+ int sc;
+ switch (ie->type) {
+ case IPL_TYPE_FLOPPY:
+ sc = menu_show_floppy(ie, menupos);
+ break;
+ case IPL_TYPE_HARDDISK:
+ sc = menu_show_harddisk(ie, menupos);
+ break;
+ case IPL_TYPE_CDROM:
+ sc = menu_show_cdrom(ie, menupos);
+ break;
+ case IPL_TYPE_CBFS:
+ sc = menu_show_cbfs(ie, menupos);
+ break;
+ default:
+ sc = menu_show_default(ie, menupos);
+ break;
}
+ subcount[i] = sc;
+ menupos += sc;
+ }
+
+ for (;;) {
+ scan_code = get_keystroke(1000);
+ if (scan_code == 0x01)
+ // ESC
+ break;
+ if (scan_code < 1 || scan_code > menupos)
+ continue;
+ int choice = scan_code - 1;
- /* Always check the signature on a HDD boot sector; on FDD,
- * only do the check if the CMOS doesn't tell us to skip it */
- if ((type != IPL_TYPE_FLOPPY)
- || !((inb_cmos(CMOS_BIOS_BOOTFLAG1) & 0x01))) {
- if (GET_FARVAR(bootseg, *(u16*)0x1fe) != 0xaa55) {
- print_boot_failure(type, 0);
- return;
- }
+ // Find out which IPL this was for.
+ int bev = 0;
+ while (choice > subcount[bev]) {
+ choice -= subcount[bev];
+ bev++;
}
+ IPL.bev[bev].subchoice = choice-1;
- /* Canonicalize bootseg:bootip */
- bootip = (bootseg & 0x0fff) << 4;
- bootseg &= 0xf000;
+ // Add user choice to the boot order.
+ IPL.bootorder = (IPL.bootorder << 4) | (bev+1);
break;
- case IPL_TYPE_CDROM: /* CD-ROM */
- // XXX
- return;
+ }
+ printf("\n");
+}
+
+// Run the specified bcv.
+static void
+run_bcv(struct ipl_entry_s *ie)
+{
+ switch (ie->type) {
+ case BCV_TYPE_INTERNAL:
+ map_hd_drive((void*)ie->vector);
break;
- case IPL_TYPE_BEV: {
- /* Expansion ROM with a Bootstrap Entry Vector (a far
- * pointer) */
- u32 vector = GET_IPL(table[bootdev].vector);
- bootseg = vector >> 16;
- bootip = vector & 0xffff;
+ case BCV_TYPE_EXTERNAL:
+ call_bcv(ie->vector >> 16, ie->vector & 0xffff);
break;
}
- default:
+}
+
+// Prepare for boot - show menu and run bcvs.
+void
+boot_prep(void)
+{
+ if (! CONFIG_BOOT)
return;
- }
- memset(&cr, 0, sizeof(cr));
- cr.ip = bootip;
- cr.cs = bootseg;
+ // XXX - show available drives?
+
+ // Allow user to modify BCV/IPL order.
+ interactive_bootmenu();
+
+ // Setup floppy boot order
+ int override = IPL.bev[0].subchoice;
+ struct drive_s *tmp = Drives.idmap[EXTTYPE_FLOPPY][0];
+ Drives.idmap[EXTTYPE_FLOPPY][0] = Drives.idmap[EXTTYPE_FLOPPY][override];
+ Drives.idmap[EXTTYPE_FLOPPY][override] = tmp;
+
+ // Run BCVs
+ override = IPL.bev[1].subchoice;
+ if (override < IPL.bcvcount)
+ run_bcv(&IPL.bcv[override]);
+ int i;
+ for (i=0; i<IPL.bcvcount; i++)
+ if (i != override)
+ run_bcv(&IPL.bcv[i]);
+}
+
+
+/****************************************************************
+ * Boot code (int 18/19)
+ ****************************************************************/
+
+// Jump to a bootup entry point.
+static void
+call_boot_entry(u16 bootseg, u16 bootip, u8 bootdrv)
+{
+ dprintf(1, "Booting from %04x:%04x\n", bootseg, bootip);
+
+ struct bregs br;
+ memset(&br, 0, sizeof(br));
+ br.flags = F_IF;
+ br.code = SEGOFF(bootseg, bootip);
// Set the magic number in ax and the boot drive in dl.
- cr.dl = bootdrv;
- cr.ax = 0xaa55;
- call16(&cr);
+ br.dl = bootdrv;
+ br.ax = 0xaa55;
+ call16(&br);
+}
- // Boot failed: invoke the boot recovery function
- memset(&cr, 0, sizeof(cr));
- call16_int(0x18, &cr);
+// Boot from a disk (either floppy or harddrive)
+static void
+boot_disk(u8 bootdrv, int checksig)
+{
+ u16 bootseg = 0x07c0;
+
+ // Read sector
+ struct bregs br;
+ memset(&br, 0, sizeof(br));
+ br.flags = F_IF;
+ br.dl = bootdrv;
+ br.es = bootseg;
+ br.ah = 2;
+ br.al = 1;
+ br.cl = 1;
+ call16_int(0x13, &br);
+
+ if (br.flags & F_CF) {
+ printf("Boot failed: could not read the boot disk\n\n");
+ return;
+ }
+
+ if (checksig) {
+ struct mbr_s *mbr = (void*)0;
+ if (GET_FARVAR(bootseg, mbr->signature) != MBR_SIGNATURE) {
+ printf("Boot failed: not a bootable disk\n\n");
+ return;
+ }
+ }
+
+ /* Canonicalize bootseg:bootip */
+ u16 bootip = (bootseg & 0x0fff) << 4;
+ bootseg &= 0xf000;
+
+ call_boot_entry(bootseg, bootip, bootdrv);
}
-// Boot Failure recovery: try the next device.
-void VISIBLE
-handle_18()
+// Boot from a CD-ROM
+static void
+boot_cdrom(struct ipl_entry_s *ie)
{
- debug_enter(NULL);
- u16 seq = GET_IPL(sequence) + 1;
- try_boot(seq);
+ if (! CONFIG_CDROM_BOOT)
+ return;
+ int status = cdrom_boot(ie->subchoice);
+ if (status) {
+ printf("Boot failed: Could not read from CDROM (code %04x)\n", status);
+ return;
+ }
+
+ u16 ebda_seg = get_ebda_seg();
+ u8 bootdrv = GET_EBDA2(ebda_seg, cdemu.emulated_extdrive);
+ u16 bootseg = GET_EBDA2(ebda_seg, cdemu.load_segment);
+ /* Canonicalize bootseg:bootip */
+ u16 bootip = (bootseg & 0x0fff) << 4;
+ bootseg &= 0xf000;
+
+ call_boot_entry(bootseg, bootip, bootdrv);
}
-// INT 19h Boot Load Service Entry Point
-void VISIBLE
-handle_19()
+// Boot from a CBFS payload
+static void
+boot_cbfs(struct ipl_entry_s *ie)
{
- debug_enter(NULL);
- try_boot(0);
+ if (! CONFIG_COREBOOT_FLASH)
+ return;
+ int count = ie->subchoice;
+ struct cbfs_file *file = NULL;
+ for (;;) {
+ file = cbfs_findprefix("img/", file);
+ if (!file)
+ return;
+ if (count--)
+ continue;
+ cbfs_run_payload(file);
+ }
}
-// Called from 32bit code - start boot process
-void VISIBLE
-begin_boot()
+static void
+do_boot(u16 seq_nr)
{
- ata_detect();
- irq_enable();
+ if (! CONFIG_BOOT)
+ panic("Boot support not compiled in.\n");
+
+ u32 bootdev = IPL.bootorder;
+ bootdev >>= 4 * seq_nr;
+ bootdev &= 0xf;
+
+ /* Translate bootdev to an IPL table offset by subtracting 1 */
+ bootdev -= 1;
+
+ if (bootdev >= IPL.bevcount) {
+ printf("No bootable device.\n");
+ // Loop with irqs enabled - this allows ctrl+alt+delete to work.
+ for (;;)
+ biosusleep(1000000);
+ }
+
+ /* Do the loading, and set up vector as a far pointer to the boot
+ * address, and bootdrv as the boot drive */
+ struct ipl_entry_s *ie = &IPL.bev[bootdev];
+ char desc[33];
+ printf("Booting from %s...\n"
+ , strtcpy(desc, ie->description, ARRAY_SIZE(desc)));
+
+ switch(ie->type) {
+ case IPL_TYPE_FLOPPY:
+ boot_disk(0x00, IPL.checkfloppysig);
+ break;
+ case IPL_TYPE_HARDDISK:
+ boot_disk(0x80, 1);
+ break;
+ case IPL_TYPE_CDROM:
+ boot_cdrom(ie);
+ break;
+ case IPL_TYPE_CBFS:
+ boot_cbfs(ie);
+ break;
+ case IPL_TYPE_BEV:
+ call_boot_entry(ie->vector >> 16, ie->vector & 0xffff, 0);
+ break;
+ }
+
+ // Boot failed: invoke the boot recovery function
struct bregs br;
memset(&br, 0, sizeof(br));
- call16_int(0x19, &br);
+ br.flags = F_IF;
+ call16_int(0x18, &br);
+}
+
+// Boot Failure recovery: try the next device.
+void VISIBLE32FLAT
+handle_18(void)
+{
+ debug_serial_setup();
+ debug_enter(NULL, DEBUG_HDL_18);
+ u16 ebda_seg = get_ebda_seg();
+ u16 seq = GET_EBDA2(ebda_seg, boot_sequence) + 1;
+ SET_EBDA2(ebda_seg, boot_sequence, seq);
+ do_boot(seq);
+}
+
+// INT 19h Boot Load Service Entry Point
+void VISIBLE32FLAT
+handle_19(void)
+{
+ debug_serial_setup();
+ debug_enter(NULL, DEBUG_HDL_19);
+ SET_EBDA(boot_sequence, 0);
+ do_boot(0);
}