grubload/multiboot_c.c

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