grubload/multiboot_c.c

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