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 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 = qemu_find_file(QEMU_FILE_TYPE_BIOS, 105 bios_name ? bios_name : "palcode-clipper"); 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 g_free(palcode_filename); 118 119 /* Start all cpus at the PALcode RESET entry point. */ 120 for (i = 0; i < smp_cpus; ++i) { 121 cpus[i]->env.pal_mode = 1; 122 cpus[i]->env.pc = palcode_entry; 123 cpus[i]->env.palbr = palcode_entry; 124 } 125 126 /* Load a kernel. */ 127 if (kernel_filename) { 128 uint64_t param_offset; 129 130 size = load_elf(kernel_filename, cpu_alpha_superpage_to_phys, 131 NULL, &kernel_entry, &kernel_low, &kernel_high, 132 0, EM_ALPHA, 0); 133 if (size < 0) { 134 hw_error("could not load kernel '%s'\n", kernel_filename); 135 exit(1); 136 } 137 138 cpus[0]->env.trap_arg1 = kernel_entry; 139 140 param_offset = kernel_low - 0x6000; 141 142 if (kernel_cmdline) { 143 pstrcpy_targphys("cmdline", param_offset, 0x100, kernel_cmdline); 144 } 145 146 if (initrd_filename) { 147 long initrd_base, initrd_size; 148 149 initrd_size = get_image_size(initrd_filename); 150 if (initrd_size < 0) { 151 hw_error("could not load initial ram disk '%s'\n", 152 initrd_filename); 153 exit(1); 154 } 155 156 /* Put the initrd image as high in memory as possible. */ 157 initrd_base = (ram_size - initrd_size) & TARGET_PAGE_MASK; 158 load_image_targphys(initrd_filename, initrd_base, 159 ram_size - initrd_base); 160 161 address_space_stq(&address_space_memory, param_offset + 0x100, 162 initrd_base + 0xfffffc0000000000ULL, 163 MEMTXATTRS_UNSPECIFIED, 164 NULL); 165 address_space_stq(&address_space_memory, param_offset + 0x108, 166 initrd_size, MEMTXATTRS_UNSPECIFIED, NULL); 167 } 168 } 169 } 170 171 static QEMUMachine clipper_machine = { 172 .name = "clipper", 173 .desc = "Alpha DP264/CLIPPER", 174 .init = clipper_init, 175 .max_cpus = 4, 176 .is_default = 1, 177 }; 178 179 static void clipper_machine_init(void) 180 { 181 qemu_register_machine(&clipper_machine); 182 } 183 184 machine_init(clipper_machine_init); 185