grubload/multiboot_c.c

   1 #include "console.h"
   2 #include <minilib.h>
   3 #include <io.h>
   4 #include <smram.h>
   5 #include <multiboot.h>
   6 #include <smi.h>
   7
   8 #define INFO_SIGNATURE 0x5754454E
   9
  10 extern char _binary_realmode_bin_start[];
  11 extern int _binary_realmode_bin_size;
  12
  13
  14
  15 struct info_section
  16 {
  17         unsigned int signature;
  18         void (*firstrun)();
  19 };
  20
  21 void panic(const char *msg)
  22 {
  23         puts("PANIC: ");
  24         puts(msg);
  25         puts("\nSystem halted\n");
  26         while(1) asm("hlt");
  27 }
  28
  29 void c_start(unsigned int magic, struct mb_info *mbinfo)
  30 {
  31         struct mod_info *mods = mbinfo->mods;
  32         unsigned short *grubptr = (unsigned short *)0x7CFE;
  33         unsigned char smramc;
  34         int i;
  35
  36         void (*realmode)() = (void (*)()) 0x4000;
  37
  38         show_cursor();
  39         puts("NetWatch loader\n");
  40
  41         if (magic != MULTIBOOT_LOADER_MAGIC)
  42                 panic("Bootloader was not multiboot compliant; cannot continue.");
  43
  44         for (i = 0; i < mbinfo->mod_cnt; i++)
  45         {
  46                 puts("Module found:\n");
  47                 puts("  Start: "); puthex(mods[i].mod_start); puts("\n");
  48                 puts("  Size: "); puthex(mods[i].mod_end - mods[i].mod_start); puts("\n");
  49                 puts("  Name: "); puts(mods[i].mod_string); puts("\n");
  50         }
  51
  52         if (mbinfo->mod_cnt != 1)
  53                 panic("Expected exactly one module; cannot continue.");
  54
  55         puts("Current USB state is: "); puthex(pci_read16(0, 31, 2, 0xC0)); puts(" "); puthex(pci_read16(0, 31, 4, 0xC0)); puts("\n");
  56         puts("Current SMI state is: "); puthex(inl(0x830)); puts("\n");
  57         puts("Current SMRAMC state is: "); puthex(pci_read8(0, 0, 0, 0x70)); puts("\n");
  58
  59         smi_disable();
  60
  61         /* Try really hard to shut up USB_LEGKEY. */
  62         pci_write16(0, 31, 2, 0xC0, pci_read16(0, 31, 2, 0xC0));
  63         pci_write16(0, 31, 2, 0xC0, 0);
  64         pci_write16(0, 31, 4, 0xC0, pci_read16(0, 31, 4, 0xC0));
  65         pci_write16(0, 31, 4, 0xC0, 0);
  66
  67         /* Open the SMRAM aperture and load our ELF. */
  68         smram_state_t old_smramc = smram_save_state();
  69
  70         if (smram_aseg_set_state(SMRAM_ASEG_OPEN) != 0)
  71                 panic("Opening SMRAM failed; cannot load ELF.");
  72
  73         load_elf(mods[0].mod_start, mods[0].mod_end - mods[0].mod_start);
  74
  75         struct info_section * info = (struct info_section *)0x10000;
  76         if (info->signature != INFO_SIGNATURE)
  77         {
  78                 smram_restore_state(old_smramc);                /* Restore so that video ram is touchable again. */
  79                 panic("Info section signature mismatch.");
  80         }
  81
  82         info->firstrun();
  83         smram_restore_state(old_smramc);
  84
  85         puts("Waiting for a bit before returning to real mode...");
  86         for (i=0; i<0x500000; i++)
  87         {
  88                 if ((i % 0x100000) == 0)
  89                         puts(".");
  90                 inb(0x80);
  91         }
  92         puts("\n");
  93
  94         puts("Now returning to real mode.\n");
  95         memcpy(0x4000, _binary_realmode_bin_start, (int)&_binary_realmode_bin_size);
  96         realmode();     // goodbye!
  97 }