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