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