2 * QEMU Sun4m System Emulator
4 * Copyright (c) 2003-2005 Fabrice Bellard
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to deal
8 * in the Software without restriction, including without limitation the rights
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 * copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
28 * Sun4m architecture was used in the following machines:
30 * SPARCserver 6xxMP/xx
31 * SPARCclassic (SPARCclassic Server)(SPARCstation LC) (4/15), SPARCclassic X (4/10)
32 * SPARCstation LX/ZX (4/30)
33 * SPARCstation Voyager
34 * SPARCstation 10/xx, SPARCserver 10/xx
35 * SPARCstation 5, SPARCserver 5
36 * SPARCstation 20/xx, SPARCserver 20
39 * See for example: http://www.sunhelp.org/faq/sunref1.html
43 #define DPRINTF(fmt, args...) \
44 do { printf("CPUIRQ: " fmt , ##args); } while (0)
46 #define DPRINTF(fmt, args...)
49 #define KERNEL_LOAD_ADDR 0x00004000
50 #define CMDLINE_ADDR 0x007ff000
51 #define INITRD_LOAD_ADDR 0x00800000
52 #define PROM_SIZE_MAX (256 * 1024)
53 #define PROM_ADDR 0xffd00000
54 #define PROM_FILENAME "openbios-sparc32"
60 target_phys_addr_t iommu_base, slavio_base;
61 target_phys_addr_t intctl_base, counter_base, nvram_base, ms_kb_base;
62 target_phys_addr_t serial_base, fd_base;
63 target_phys_addr_t dma_base, esp_base, le_base;
64 target_phys_addr_t tcx_base, cs_base, power_base;
65 long vram_size, nvram_size;
66 // IRQ numbers are not PIL ones, but master interrupt controller register
68 int intctl_g_intr, esp_irq, le_irq, clock_irq, clock1_irq;
69 int ser_irq, ms_kb_irq, fd_irq, me_irq, cs_irq;
70 int machine_id; // For NVRAM
71 uint32_t intbit_to_level[32];
76 uint64_t cpu_get_tsc()
78 return qemu_get_clock(vm_clock);
81 int DMA_get_channel_mode (int nchan)
85 int DMA_read_memory (int nchan, void *buf, int pos, int size)
89 int DMA_write_memory (int nchan, void *buf, int pos, int size)
93 void DMA_hold_DREQ (int nchan) {}
94 void DMA_release_DREQ (int nchan) {}
95 void DMA_schedule(int nchan) {}
96 void DMA_run (void) {}
97 void DMA_init (int high_page_enable) {}
98 void DMA_register_channel (int nchan,
99 DMA_transfer_handler transfer_handler,
104 static void nvram_set_word (m48t59_t *nvram, uint32_t addr, uint16_t value)
106 m48t59_write(nvram, addr++, (value >> 8) & 0xff);
107 m48t59_write(nvram, addr++, value & 0xff);
110 static void nvram_set_lword (m48t59_t *nvram, uint32_t addr, uint32_t value)
112 m48t59_write(nvram, addr++, value >> 24);
113 m48t59_write(nvram, addr++, (value >> 16) & 0xff);
114 m48t59_write(nvram, addr++, (value >> 8) & 0xff);
115 m48t59_write(nvram, addr++, value & 0xff);
118 static void nvram_set_string (m48t59_t *nvram, uint32_t addr,
119 const unsigned char *str, uint32_t max)
123 for (i = 0; i < max && str[i] != '\0'; i++) {
124 m48t59_write(nvram, addr + i, str[i]);
126 m48t59_write(nvram, addr + max - 1, '\0');
129 static uint32_t nvram_set_var (m48t59_t *nvram, uint32_t addr,
130 const unsigned char *str)
134 len = strlen(str) + 1;
135 nvram_set_string(nvram, addr, str, len);
140 static void nvram_finish_partition (m48t59_t *nvram, uint32_t start,
145 // Length divided by 16
146 m48t59_write(nvram, start + 2, ((end - start) >> 12) & 0xff);
147 m48t59_write(nvram, start + 3, ((end - start) >> 4) & 0xff);
149 sum = m48t59_read(nvram, start);
150 for (i = 0; i < 14; i++) {
151 sum += m48t59_read(nvram, start + 2 + i);
152 sum = (sum + ((sum & 0xff00) >> 8)) & 0xff;
154 m48t59_write(nvram, start + 1, sum & 0xff);
157 extern int nographic;
159 static void nvram_init(m48t59_t *nvram, uint8_t *macaddr, const char *cmdline,
160 int boot_device, uint32_t RAM_size,
161 uint32_t kernel_size,
162 int width, int height, int depth,
165 unsigned char tmp = 0;
169 // Try to match PPC NVRAM
170 nvram_set_string(nvram, 0x00, "QEMU_BIOS", 16);
171 nvram_set_lword(nvram, 0x10, 0x00000001); /* structure v1 */
172 // NVRAM_size, arch not applicable
173 m48t59_write(nvram, 0x2D, smp_cpus & 0xff);
174 m48t59_write(nvram, 0x2E, 0);
175 m48t59_write(nvram, 0x2F, nographic & 0xff);
176 nvram_set_lword(nvram, 0x30, RAM_size);
177 m48t59_write(nvram, 0x34, boot_device & 0xff);
178 nvram_set_lword(nvram, 0x38, KERNEL_LOAD_ADDR);
179 nvram_set_lword(nvram, 0x3C, kernel_size);
181 strcpy(phys_ram_base + CMDLINE_ADDR, cmdline);
182 nvram_set_lword(nvram, 0x40, CMDLINE_ADDR);
183 nvram_set_lword(nvram, 0x44, strlen(cmdline));
185 // initrd_image, initrd_size passed differently
186 nvram_set_word(nvram, 0x54, width);
187 nvram_set_word(nvram, 0x56, height);
188 nvram_set_word(nvram, 0x58, depth);
190 // OpenBIOS nvram variables
191 // Variable partition
193 m48t59_write(nvram, start, 0x70);
194 nvram_set_string(nvram, start + 4, "system", 12);
197 for (i = 0; i < nb_prom_envs; i++)
198 end = nvram_set_var(nvram, end, prom_envs[i]);
200 m48t59_write(nvram, end++ , 0);
201 end = start + ((end - start + 15) & ~15);
202 nvram_finish_partition(nvram, start, end);
206 m48t59_write(nvram, start, 0x7f);
207 nvram_set_string(nvram, start + 4, "free", 12);
210 nvram_finish_partition(nvram, start, end);
212 // Sun4m specific use
214 m48t59_write(nvram, i++, 0x01);
215 m48t59_write(nvram, i++, machine_id);
217 m48t59_write(nvram, i++, macaddr[j++]);
218 m48t59_write(nvram, i++, macaddr[j++]);
219 m48t59_write(nvram, i++, macaddr[j++]);
220 m48t59_write(nvram, i++, macaddr[j++]);
221 m48t59_write(nvram, i++, macaddr[j++]);
222 m48t59_write(nvram, i, macaddr[j]);
224 /* Calculate checksum */
225 for (i = start; i < start + 15; i++) {
226 tmp ^= m48t59_read(nvram, i);
228 m48t59_write(nvram, start + 15, tmp);
231 static void *slavio_intctl;
235 slavio_pic_info(slavio_intctl);
240 slavio_irq_info(slavio_intctl);
243 void cpu_check_irqs(CPUState *env)
245 if (env->pil_in && (env->interrupt_index == 0 ||
246 (env->interrupt_index & ~15) == TT_EXTINT)) {
249 for (i = 15; i > 0; i--) {
250 if (env->pil_in & (1 << i)) {
251 int old_interrupt = env->interrupt_index;
253 env->interrupt_index = TT_EXTINT | i;
254 if (old_interrupt != env->interrupt_index)
255 cpu_interrupt(env, CPU_INTERRUPT_HARD);
259 } else if (!env->pil_in && (env->interrupt_index & ~15) == TT_EXTINT) {
260 env->interrupt_index = 0;
261 cpu_reset_interrupt(env, CPU_INTERRUPT_HARD);
265 static void cpu_set_irq(void *opaque, int irq, int level)
267 CPUState *env = opaque;
270 DPRINTF("Raise CPU IRQ %d\n", irq);
272 env->pil_in |= 1 << irq;
275 DPRINTF("Lower CPU IRQ %d\n", irq);
276 env->pil_in &= ~(1 << irq);
281 static void dummy_cpu_set_irq(void *opaque, int irq, int level)
285 static void *slavio_misc;
287 void qemu_system_powerdown(void)
289 slavio_set_power_fail(slavio_misc, 1);
292 static void main_cpu_reset(void *opaque)
294 CPUState *env = opaque;
300 static void secondary_cpu_reset(void *opaque)
302 CPUState *env = opaque;
308 static void *sun4m_hw_init(const struct hwdef *hwdef, int RAM_size,
309 DisplayState *ds, const char *cpu_model)
312 CPUState *env, *envs[MAX_CPUS];
314 void *iommu, *espdma, *ledma, *main_esp, *nvram;
315 const sparc_def_t *def;
316 qemu_irq *cpu_irqs[MAX_CPUS], *slavio_irq, *slavio_cpu_irq,
317 *espdma_irq, *ledma_irq;
320 sparc_find_by_name(cpu_model, &def);
322 fprintf(stderr, "Unable to find Sparc CPU definition\n");
326 for(i = 0; i < smp_cpus; i++) {
328 cpu_sparc_register(env, def);
331 qemu_register_reset(main_cpu_reset, env);
333 qemu_register_reset(secondary_cpu_reset, env);
336 register_savevm("cpu", i, 3, cpu_save, cpu_load, env);
337 cpu_irqs[i] = qemu_allocate_irqs(cpu_set_irq, envs[i], MAX_PILS);
340 for (i = smp_cpus; i < MAX_CPUS; i++)
341 cpu_irqs[i] = qemu_allocate_irqs(dummy_cpu_set_irq, NULL, MAX_PILS);
344 cpu_register_physical_memory(0, RAM_size, 0);
346 iommu = iommu_init(hwdef->iommu_base);
347 slavio_intctl = slavio_intctl_init(hwdef->intctl_base,
348 hwdef->intctl_base + 0x10000ULL,
349 &hwdef->intbit_to_level[0],
350 &slavio_irq, &slavio_cpu_irq,
354 espdma = sparc32_dma_init(hwdef->dma_base, slavio_irq[hwdef->esp_irq],
356 ledma = sparc32_dma_init(hwdef->dma_base + 16ULL,
357 slavio_irq[hwdef->le_irq], iommu, &ledma_irq);
359 if (graphic_depth != 8 && graphic_depth != 24) {
360 fprintf(stderr, "qemu: Unsupported depth: %d\n", graphic_depth);
363 tcx_init(ds, hwdef->tcx_base, phys_ram_base + RAM_size, RAM_size,
364 hwdef->vram_size, graphic_width, graphic_height, graphic_depth);
366 if (nd_table[0].model == NULL
367 || strcmp(nd_table[0].model, "lance") == 0) {
368 lance_init(&nd_table[0], hwdef->le_base, ledma, *ledma_irq);
369 } else if (strcmp(nd_table[0].model, "?") == 0) {
370 fprintf(stderr, "qemu: Supported NICs: lance\n");
373 fprintf(stderr, "qemu: Unsupported NIC: %s\n", nd_table[0].model);
377 nvram = m48t59_init(slavio_irq[0], hwdef->nvram_base, 0,
378 hwdef->nvram_size, 8);
379 for (i = 0; i < MAX_CPUS; i++) {
380 slavio_timer_init(hwdef->counter_base +
381 (target_phys_addr_t)(i * TARGET_PAGE_SIZE),
382 slavio_cpu_irq[i], 0);
384 slavio_timer_init(hwdef->counter_base + 0x10000ULL,
385 slavio_irq[hwdef->clock1_irq], 2);
386 slavio_serial_ms_kbd_init(hwdef->ms_kb_base, slavio_irq[hwdef->ms_kb_irq]);
387 // Slavio TTYA (base+4, Linux ttyS0) is the first Qemu serial device
388 // Slavio TTYB (base+0, Linux ttyS1) is the second Qemu serial device
389 slavio_serial_init(hwdef->serial_base, slavio_irq[hwdef->ser_irq],
390 serial_hds[1], serial_hds[0]);
391 fdctrl_init(slavio_irq[hwdef->fd_irq], 0, 1, hwdef->fd_base, fd_table);
392 main_esp = esp_init(bs_table, hwdef->esp_base, espdma, *espdma_irq);
394 for (i = 0; i < MAX_DISKS; i++) {
396 esp_scsi_attach(main_esp, bs_table[i], i);
400 slavio_misc = slavio_misc_init(hwdef->slavio_base, hwdef->power_base,
401 slavio_irq[hwdef->me_irq]);
402 if (hwdef->cs_base != (target_phys_addr_t)-1)
403 cs_init(hwdef->cs_base, hwdef->cs_irq, slavio_intctl);
408 static void sun4m_load_kernel(long vram_size, int RAM_size, int boot_device,
409 const char *kernel_filename,
410 const char *kernel_cmdline,
411 const char *initrd_filename,
418 long prom_offset, initrd_size, kernel_size;
420 linux_boot = (kernel_filename != NULL);
422 prom_offset = RAM_size + vram_size;
423 cpu_register_physical_memory(PROM_ADDR,
424 (PROM_SIZE_MAX + TARGET_PAGE_SIZE - 1) & TARGET_PAGE_MASK,
425 prom_offset | IO_MEM_ROM);
427 snprintf(buf, sizeof(buf), "%s/%s", bios_dir, PROM_FILENAME);
428 ret = load_elf(buf, 0, NULL, NULL, NULL);
430 fprintf(stderr, "qemu: could not load prom '%s'\n",
437 kernel_size = load_elf(kernel_filename, -0xf0000000, NULL, NULL, NULL);
439 kernel_size = load_aout(kernel_filename, phys_ram_base + KERNEL_LOAD_ADDR);
441 kernel_size = load_image(kernel_filename, phys_ram_base + KERNEL_LOAD_ADDR);
442 if (kernel_size < 0) {
443 fprintf(stderr, "qemu: could not load kernel '%s'\n",
450 if (initrd_filename) {
451 initrd_size = load_image(initrd_filename, phys_ram_base + INITRD_LOAD_ADDR);
452 if (initrd_size < 0) {
453 fprintf(stderr, "qemu: could not load initial ram disk '%s'\n",
458 if (initrd_size > 0) {
459 for (i = 0; i < 64 * TARGET_PAGE_SIZE; i += TARGET_PAGE_SIZE) {
460 if (ldl_raw(phys_ram_base + KERNEL_LOAD_ADDR + i)
461 == 0x48647253) { // HdrS
462 stl_raw(phys_ram_base + KERNEL_LOAD_ADDR + i + 16, INITRD_LOAD_ADDR);
463 stl_raw(phys_ram_base + KERNEL_LOAD_ADDR + i + 20, initrd_size);
469 nvram_init(nvram, (uint8_t *)&nd_table[0].macaddr, kernel_cmdline,
470 boot_device, RAM_size, kernel_size, graphic_width,
471 graphic_height, graphic_depth, machine_id);
474 static const struct hwdef hwdefs[] = {
477 .iommu_base = 0x10000000,
478 .tcx_base = 0x50000000,
479 .cs_base = 0x6c000000,
480 .slavio_base = 0x70000000,
481 .ms_kb_base = 0x71000000,
482 .serial_base = 0x71100000,
483 .nvram_base = 0x71200000,
484 .fd_base = 0x71400000,
485 .counter_base = 0x71d00000,
486 .intctl_base = 0x71e00000,
487 .dma_base = 0x78400000,
488 .esp_base = 0x78800000,
489 .le_base = 0x78c00000,
490 .power_base = 0x7a000000,
491 .vram_size = 0x00100000,
492 .nvram_size = 0x2000,
504 2, 3, 5, 7, 9, 11, 0, 14, 3, 5, 7, 9, 11, 13, 12, 12,
505 6, 0, 4, 10, 8, 0, 11, 0, 0, 0, 0, 0, 15, 0, 15, 0,
510 .iommu_base = 0xfe0000000ULL,
511 .tcx_base = 0xe20000000ULL,
513 .slavio_base = 0xff0000000ULL,
514 .ms_kb_base = 0xff1000000ULL,
515 .serial_base = 0xff1100000ULL,
516 .nvram_base = 0xff1200000ULL,
517 .fd_base = 0xff1700000ULL,
518 .counter_base = 0xff1300000ULL,
519 .intctl_base = 0xff1400000ULL,
520 .dma_base = 0xef0400000ULL,
521 .esp_base = 0xef0800000ULL,
522 .le_base = 0xef0c00000ULL,
523 .power_base = 0xefa000000ULL,
524 .vram_size = 0x00100000,
525 .nvram_size = 0x2000,
537 2, 3, 5, 7, 9, 11, 0, 14, 3, 5, 7, 9, 11, 13, 12, 12,
538 6, 0, 4, 10, 8, 0, 11, 0, 0, 0, 0, 0, 15, 0, 15, 0,
543 static void sun4m_common_init(int RAM_size, int boot_device, DisplayState *ds,
544 const char *kernel_filename, const char *kernel_cmdline,
545 const char *initrd_filename, const char *cpu_model,
546 unsigned int machine, int max_ram)
550 if ((unsigned int)RAM_size > (unsigned int)max_ram) {
551 fprintf(stderr, "qemu: Too much memory for this machine: %d, maximum %d\n",
552 (unsigned int)RAM_size / (1024 * 1024),
553 (unsigned int)max_ram / (1024 * 1024));
556 nvram = sun4m_hw_init(&hwdefs[machine], RAM_size, ds, cpu_model);
558 sun4m_load_kernel(hwdefs[machine].vram_size, RAM_size, boot_device,
559 kernel_filename, kernel_cmdline, initrd_filename,
560 hwdefs[machine].machine_id, nvram);
563 /* SPARCstation 5 hardware initialisation */
564 static void ss5_init(int RAM_size, int vga_ram_size, int boot_device,
565 DisplayState *ds, const char **fd_filename, int snapshot,
566 const char *kernel_filename, const char *kernel_cmdline,
567 const char *initrd_filename, const char *cpu_model)
569 if (cpu_model == NULL)
570 cpu_model = "Fujitsu MB86904";
571 sun4m_common_init(RAM_size, boot_device, ds, kernel_filename,
572 kernel_cmdline, initrd_filename, cpu_model,
576 /* SPARCstation 10 hardware initialisation */
577 static void ss10_init(int RAM_size, int vga_ram_size, int boot_device,
578 DisplayState *ds, const char **fd_filename, int snapshot,
579 const char *kernel_filename, const char *kernel_cmdline,
580 const char *initrd_filename, const char *cpu_model)
582 if (cpu_model == NULL)
583 cpu_model = "TI SuperSparc II";
584 sun4m_common_init(RAM_size, boot_device, ds, kernel_filename,
585 kernel_cmdline, initrd_filename, cpu_model,
586 1, PROM_ADDR); // XXX prom overlap, actually first 4GB ok
589 QEMUMachine ss5_machine = {
591 "Sun4m platform, SPARCstation 5",
595 QEMUMachine ss10_machine = {
597 "Sun4m platform, SPARCstation 10",