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