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