hw/alpha/dp264.c

   1 /*
   2  * QEMU Alpha DP264/CLIPPER hardware system emulator.
   3  *
   4  * Choose CLIPPER IRQ mappings over, say, DP264, MONET, or WEBBRICK
   5  * variants because CLIPPER doesn't have an SMC669 SuperIO controller
   6  * that we need to emulate as well.
   7  */
   8
   9 #include "qemu/osdep.h"
  10 #include "hw/hw.h"
  11 #include "elf.h"
  12 #include "hw/loader.h"
  13 #include "hw/boards.h"
  14 #include "alpha_sys.h"
  15 #include "qemu/error-report.h"
  16 #include "sysemu/sysemu.h"
  17 #include "hw/timer/mc146818rtc.h"
  18 #include "hw/ide.h"
  19 #include "hw/timer/i8254.h"
  20 #include "hw/char/serial.h"
  21
  22 #define MAX_IDE_BUS 2
  23
  24 static uint64_t cpu_alpha_superpage_to_phys(void *opaque, uint64_t addr)
  25 {
  26     if (((addr >> 41) & 3) == 2) {
  27         addr &= 0xffffffffffull;
  28     }
  29     return addr;
  30 }
  31
  32 /* Note that there are at least 3 viewpoints of IRQ numbers on Alpha systems.
  33     (0) The dev_irq_n lines into the cpu, which we totally ignore,
  34     (1) The DRIR lines in the typhoon chipset,
  35     (2) The "vector" aka mangled interrupt number reported by SRM PALcode,
  36     (3) The interrupt number assigned by the kernel.
  37    The following function is concerned with (1) only.  */
  38
  39 static int clipper_pci_map_irq(PCIDevice *d, int irq_num)
  40 {
  41     int slot = d->devfn >> 3;
  42
  43     assert(irq_num >= 0 && irq_num <= 3);
  44
  45     return (slot + 1) * 4 + irq_num;
  46 }
  47
  48 static void clipper_init(MachineState *machine)
  49 {
  50     ram_addr_t ram_size = machine->ram_size;
  51     const char *cpu_model = machine->cpu_model;
  52     const char *kernel_filename = machine->kernel_filename;
  53     const char *kernel_cmdline = machine->kernel_cmdline;
  54     const char *initrd_filename = machine->initrd_filename;
  55     AlphaCPU *cpus[4];
  56     PCIBus *pci_bus;
  57     ISABus *isa_bus;
  58     qemu_irq rtc_irq;
  59     long size, i;
  60     char *palcode_filename;
  61     uint64_t palcode_entry, palcode_low, palcode_high;
  62     uint64_t kernel_entry, kernel_low, kernel_high;
  63
  64     /* Create up to 4 cpus.  */
  65     memset(cpus, 0, sizeof(cpus));
  66     for (i = 0; i < smp_cpus; ++i) {
  67         cpus[i] = cpu_alpha_init(cpu_model ? cpu_model : "ev67");
  68     }
  69
  70     cpus[0]->env.trap_arg0 = ram_size;
  71     cpus[0]->env.trap_arg1 = 0;
  72     cpus[0]->env.trap_arg2 = smp_cpus;
  73
  74     /* Init the chipset.  */
  75     pci_bus = typhoon_init(ram_size, &isa_bus, &rtc_irq, cpus,
  76                            clipper_pci_map_irq);
  77
  78     /* Since we have an SRM-compatible PALcode, use the SRM epoch.  */
  79     rtc_init(isa_bus, 1900, rtc_irq);
  80
  81     pit_init(isa_bus, 0x40, 0, NULL);
  82     isa_create_simple(isa_bus, "i8042");
  83
  84     /* VGA setup.  Don't bother loading the bios.  */
  85     pci_vga_init(pci_bus);
  86
  87     /* Serial code setup.  */
  88     serial_hds_isa_init(isa_bus, MAX_SERIAL_PORTS);
  89
  90     /* Network setup.  e1000 is good enough, failing Tulip support.  */
  91     for (i = 0; i < nb_nics; i++) {
  92         pci_nic_init_nofail(&nd_table[i], pci_bus, "e1000", NULL);
  93     }
  94
  95     /* IDE disk setup.  */
  96     {
  97         DriveInfo *hd[MAX_IDE_BUS * MAX_IDE_DEVS];
  98         ide_drive_get(hd, ARRAY_SIZE(hd));
  99
 100         pci_cmd646_ide_init(pci_bus, hd, 0);
 101     }
 102
 103     /* Load PALcode.  Given that this is not "real" cpu palcode,
 104        but one explicitly written for the emulation, we might as
 105        well load it directly from and ELF image.  */
 106     palcode_filename = qemu_find_file(QEMU_FILE_TYPE_BIOS,
 107                                 bios_name ? bios_name : "palcode-clipper");
 108     if (palcode_filename == NULL) {
 109         error_report("no palcode provided");
 110         exit(1);
 111     }
 112     size = load_elf(palcode_filename, cpu_alpha_superpage_to_phys,
 113                     NULL, &palcode_entry, &palcode_low, &palcode_high,
 114                     0, EM_ALPHA, 0);
 115     if (size < 0) {
 116         error_report("could not load palcode '%s'", palcode_filename);
 117         exit(1);
 118     }
 119     g_free(palcode_filename);
 120
 121     /* Start all cpus at the PALcode RESET entry point.  */
 122     for (i = 0; i < smp_cpus; ++i) {
 123         cpus[i]->env.pal_mode = 1;
 124         cpus[i]->env.pc = palcode_entry;
 125         cpus[i]->env.palbr = palcode_entry;
 126     }
 127
 128     /* Load a kernel.  */
 129     if (kernel_filename) {
 130         uint64_t param_offset;
 131
 132         size = load_elf(kernel_filename, cpu_alpha_superpage_to_phys,
 133                         NULL, &kernel_entry, &kernel_low, &kernel_high,
 134                         0, EM_ALPHA, 0);
 135         if (size < 0) {
 136             error_report("could not load kernel '%s'", kernel_filename);
 137             exit(1);
 138         }
 139
 140         cpus[0]->env.trap_arg1 = kernel_entry;
 141
 142         param_offset = kernel_low - 0x6000;
 143
 144         if (kernel_cmdline) {
 145             pstrcpy_targphys("cmdline", param_offset, 0x100, kernel_cmdline);
 146         }
 147
 148         if (initrd_filename) {
 149             long initrd_base, initrd_size;
 150
 151             initrd_size = get_image_size(initrd_filename);
 152             if (initrd_size < 0) {
 153                 error_report("could not load initial ram disk '%s'",
 154                              initrd_filename);
 155                 exit(1);
 156             }
 157
 158             /* Put the initrd image as high in memory as possible.  */
 159             initrd_base = (ram_size - initrd_size) & TARGET_PAGE_MASK;
 160             load_image_targphys(initrd_filename, initrd_base,
 161                                 ram_size - initrd_base);
 162
 163             address_space_stq(&address_space_memory, param_offset + 0x100,
 164                               initrd_base + 0xfffffc0000000000ULL,
 165                               MEMTXATTRS_UNSPECIFIED,
 166                               NULL);
 167             address_space_stq(&address_space_memory, param_offset + 0x108,
 168                               initrd_size, MEMTXATTRS_UNSPECIFIED, NULL);
 169         }
 170     }
 171 }
 172
 173 static void clipper_machine_init(MachineClass *mc)
 174 {
 175     mc->desc = "Alpha DP264/CLIPPER";
 176     mc->init = clipper_init;
 177     mc->max_cpus = 4;
 178     mc->is_default = 1;
 179 }
 180
 181 DEFINE_MACHINE("clipper", clipper_machine_init)