ppc_oldworld.c 13.4 KB
Newer Older
J
j_mayer 已提交
1
/*
2
 * QEMU OldWorld PowerMac (currently ~G3 Beige) hardware System Emulator
J
j_mayer 已提交
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
 *
 * Copyright (c) 2004-2007 Fabrice Bellard
 * Copyright (c) 2007 Jocelyn Mayer
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 */
P
pbrook 已提交
25 26
#include "hw.h"
#include "ppc.h"
J
j_mayer 已提交
27
#include "ppc_mac.h"
A
aurel32 已提交
28
#include "mac_dbdma.h"
P
pbrook 已提交
29 30 31 32 33 34 35
#include "nvram.h"
#include "pc.h"
#include "sysemu.h"
#include "net.h"
#include "isa.h"
#include "pci.h"
#include "boards.h"
B
blueswir1 已提交
36
#include "fw_cfg.h"
B
blueswir1 已提交
37
#include "escc.h"
J
j_mayer 已提交
38

T
ths 已提交
39
#define MAX_IDE_BUS 2
40
#define VGA_BIOS_SIZE 65536
B
blueswir1 已提交
41 42
#define CFG_ADDR 0xf0000510

J
j_mayer 已提交
43 44 45 46 47 48 49 50
/* temporary frame buffer OSI calls for the video.x driver. The right
   solution is to modify the driver to use VGA PCI I/Os */
/* XXX: to be removed. This is no way related to emulation */
static int vga_osi_call (CPUState *env)
{
    static int vga_vbl_enabled;
    int linesize;

51
    //    printf("osi_call R5=" REGX "\n", ppc_dump_gpr(env, 5));
J
j_mayer 已提交
52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

    /* same handler as PearPC, coming from the original MOL video
       driver. */
    switch(env->gpr[5]) {
    case 4:
        break;
    case 28: /* set_vmode */
        if (env->gpr[6] != 1 || env->gpr[7] != 0)
            env->gpr[3] = 1;
        else
            env->gpr[3] = 0;
        break;
    case 29: /* get_vmode_info */
        if (env->gpr[6] != 0) {
            if (env->gpr[6] != 1 || env->gpr[7] != 0) {
                env->gpr[3] = 1;
                break;
            }
        }
        env->gpr[3] = 0;
        env->gpr[4] = (1 << 16) | 1; /* num_vmodes, cur_vmode */
        env->gpr[5] = (1 << 16) | 0; /* num_depths, cur_depth_mode */
        env->gpr[6] = (graphic_width << 16) | graphic_height; /* w, h */
        env->gpr[7] = 85 << 16; /* refresh rate */
        env->gpr[8] = (graphic_depth + 7) & ~7; /* depth (round to byte) */
        linesize = ((graphic_depth + 7) >> 3) * graphic_width;
        linesize = (linesize + 3) & ~3;
        env->gpr[9] = (linesize << 16) | 0; /* row_bytes, offset */
        break;
    case 31: /* set_video power */
        env->gpr[3] = 0;
        break;
    case 39: /* video_ctrl */
        if (env->gpr[6] == 0 || env->gpr[6] == 1)
            vga_vbl_enabled = env->gpr[6];
        env->gpr[3] = 0;
        break;
    case 47:
        break;
    case 59: /* set_color */
        /* R6 = index, R7 = RGB */
        env->gpr[3] = 0;
        break;
    case 64: /* get color */
        /* R6 = index */
        env->gpr[3] = 0;
        break;
    case 116: /* set hwcursor */
        /* R6 = x, R7 = y, R8 = visible, R9 = data */
        break;
    default:
103 104
        fprintf(stderr, "unsupported OSI call R5=" REGX "\n",
                ppc_dump_gpr(env, 5));
J
j_mayer 已提交
105 106 107 108 109 110
        break;
    }

    return 1; /* osi_call handled */
}

111 112 113 114 115 116
static int fw_cfg_boot_set(void *opaque, const char *boot_device)
{
    fw_cfg_add_i16(opaque, FW_CFG_BOOT_DEVICE, boot_device[0]);
    return 0;
}

P
Paul Brook 已提交
117
static void ppc_heathrow_init (ram_addr_t ram_size,
118
                               const char *boot_device,
J
j_mayer 已提交
119 120 121 122 123
                               const char *kernel_filename,
                               const char *kernel_cmdline,
                               const char *initrd_filename,
                               const char *cpu_model)
{
B
bellard 已提交
124
    CPUState *env = NULL, *envs[MAX_CPUS];
J
j_mayer 已提交
125 126 127
    char buf[1024];
    qemu_irq *pic, **heathrow_irqs;
    int linux_boot, i;
P
pbrook 已提交
128
    ram_addr_t ram_offset, bios_offset, vga_bios_offset;
129 130
    uint32_t kernel_base, initrd_base;
    int32_t kernel_size, initrd_size;
J
j_mayer 已提交
131 132 133 134
    PCIBus *pci_bus;
    MacIONVRAMState *nvr;
    int vga_bios_size, bios_size;
    int pic_mem_index, nvram_mem_index, dbdma_mem_index, cuda_mem_index;
B
blueswir1 已提交
135
    int escc_mem_index, ide_mem_index[2];
136
    uint16_t ppc_boot_device;
T
ths 已提交
137 138
    BlockDriverState *hd[MAX_IDE_BUS * MAX_IDE_DEVS];
    int index;
B
blueswir1 已提交
139
    void *fw_cfg;
A
aurel32 已提交
140
    void *dbdma;
P
pbrook 已提交
141
    uint8_t *vga_bios_ptr;
J
j_mayer 已提交
142 143 144 145 146

    linux_boot = (kernel_filename != NULL);

    /* init CPUs */
    if (cpu_model == NULL)
147
        cpu_model = "G3";
J
j_mayer 已提交
148
    for (i = 0; i < smp_cpus; i++) {
B
bellard 已提交
149 150 151 152 153
        env = cpu_init(cpu_model);
        if (!env) {
            fprintf(stderr, "Unable to find PowerPC CPU definition\n");
            exit(1);
        }
154 155
        /* Set time-base frequency to 16.6 Mhz */
        cpu_ppc_tb_init(env,  16600000UL);
J
j_mayer 已提交
156
        env->osi_call = vga_osi_call;
J
Jan Kiszka 已提交
157
        qemu_register_reset(&cpu_ppc_reset, 0, env);
J
j_mayer 已提交
158 159 160 161
        envs[i] = env;
    }

    /* allocate RAM */
162 163 164 165 166 167 168
    if (ram_size > (2047 << 20)) {
        fprintf(stderr,
                "qemu: Too much memory for this machine: %d MB, maximum 2047 MB\n",
                ((unsigned int)ram_size / (1 << 20)));
        exit(1);
    }

169 170 171
    ram_offset = qemu_ram_alloc(ram_size);
    cpu_register_physical_memory(0, ram_size, ram_offset);

J
j_mayer 已提交
172
    /* allocate and load BIOS */
173
    bios_offset = qemu_ram_alloc(BIOS_SIZE);
J
j_mayer 已提交
174
    if (bios_name == NULL)
B
blueswir1 已提交
175
        bios_name = PROM_FILENAME;
J
j_mayer 已提交
176
    snprintf(buf, sizeof(buf), "%s/%s", bios_dir, bios_name);
B
blueswir1 已提交
177 178 179 180
    cpu_register_physical_memory(PROM_ADDR, BIOS_SIZE, bios_offset | IO_MEM_ROM);

    /* Load OpenBIOS (ELF) */
    bios_size = load_elf(buf, 0, NULL, NULL, NULL);
J
j_mayer 已提交
181
    if (bios_size < 0 || bios_size > BIOS_SIZE) {
P
Paul Brook 已提交
182
        hw_error("qemu: could not load PowerPC bios '%s'\n", buf);
J
j_mayer 已提交
183 184 185 186
        exit(1);
    }

    /* allocate and load VGA BIOS */
187
    vga_bios_offset = qemu_ram_alloc(VGA_BIOS_SIZE);
P
pbrook 已提交
188
    vga_bios_ptr = qemu_get_ram_ptr(vga_bios_offset);
J
j_mayer 已提交
189
    snprintf(buf, sizeof(buf), "%s/%s", bios_dir, VGABIOS_FILENAME);
P
pbrook 已提交
190
    vga_bios_size = load_image(buf, vga_bios_ptr + 8);
J
j_mayer 已提交
191 192 193 194 195 196 197
    if (vga_bios_size < 0) {
        /* if no bios is present, we can still work */
        fprintf(stderr, "qemu: warning: could not load VGA bios '%s'\n", buf);
        vga_bios_size = 0;
    } else {
        /* set a specific header (XXX: find real Apple format for NDRV
           drivers) */
P
pbrook 已提交
198 199 200 201 202
        vga_bios_ptr[0] = 'N';
        vga_bios_ptr[1] = 'D';
        vga_bios_ptr[2] = 'R';
        vga_bios_ptr[3] = 'V';
        cpu_to_be32w((uint32_t *)(vga_bios_ptr + 4), vga_bios_size);
J
j_mayer 已提交
203 204 205 206
        vga_bios_size += 8;
    }

    if (linux_boot) {
207
        uint64_t lowaddr = 0;
J
j_mayer 已提交
208
        kernel_base = KERNEL_LOAD_ADDR;
209 210 211 212 213 214 215 216
        /* Now we can load the kernel. The first step tries to load the kernel
           supposing PhysAddr = 0x00000000. If that was wrong the kernel is
           loaded again, the new PhysAddr being computed from lowaddr. */
        kernel_size = load_elf(kernel_filename, kernel_base, NULL, &lowaddr, NULL);
        if (kernel_size > 0 && lowaddr != KERNEL_LOAD_ADDR) {
            kernel_size = load_elf(kernel_filename, (2 * kernel_base) - lowaddr,
                                   NULL, 0, NULL);
        }
B
blueswir1 已提交
217 218 219 220 221 222 223
        if (kernel_size < 0)
            kernel_size = load_aout(kernel_filename, kernel_base,
                                    ram_size - kernel_base);
        if (kernel_size < 0)
            kernel_size = load_image_targphys(kernel_filename,
                                              kernel_base,
                                              ram_size - kernel_base);
J
j_mayer 已提交
224
        if (kernel_size < 0) {
P
Paul Brook 已提交
225
            hw_error("qemu: could not load kernel '%s'\n",
J
j_mayer 已提交
226 227 228 229 230 231
                      kernel_filename);
            exit(1);
        }
        /* load initrd */
        if (initrd_filename) {
            initrd_base = INITRD_LOAD_ADDR;
232 233
            initrd_size = load_image_targphys(initrd_filename, initrd_base,
                                              ram_size - initrd_base);
J
j_mayer 已提交
234
            if (initrd_size < 0) {
P
Paul Brook 已提交
235 236
                hw_error("qemu: could not load initial ram disk '%s'\n",
                         initrd_filename);
J
j_mayer 已提交
237 238 239 240 241 242
                exit(1);
            }
        } else {
            initrd_base = 0;
            initrd_size = 0;
        }
243
        ppc_boot_device = 'm';
J
j_mayer 已提交
244 245 246 247 248
    } else {
        kernel_base = 0;
        kernel_size = 0;
        initrd_base = 0;
        initrd_size = 0;
249
        ppc_boot_device = '\0';
J
j_mayer 已提交
250
        for (i = 0; boot_device[i] != '\0'; i++) {
251
            /* TOFIX: for now, the second IDE channel is not properly
J
j_mayer 已提交
252
             *        used by OHW. The Mac floppy disk are not emulated.
253 254 255
             *        For now, OHW cannot boot from the network.
             */
#if 0
J
j_mayer 已提交
256 257
            if (boot_device[i] >= 'a' && boot_device[i] <= 'f') {
                ppc_boot_device = boot_device[i];
258
                break;
J
j_mayer 已提交
259
            }
260
#else
J
j_mayer 已提交
261 262
            if (boot_device[i] >= 'c' && boot_device[i] <= 'd') {
                ppc_boot_device = boot_device[i];
263
                break;
J
j_mayer 已提交
264
            }
265 266 267
#endif
        }
        if (ppc_boot_device == '\0') {
268
            fprintf(stderr, "No valid boot device for G3 Beige machine\n");
269 270
            exit(1);
        }
J
j_mayer 已提交
271 272 273
    }

    isa_mem_base = 0x80000000;
274

J
j_mayer 已提交
275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290
    /* Register 2 MB of ISA IO space */
    isa_mmio_init(0xfe000000, 0x00200000);

    /* XXX: we register only 1 output pin for heathrow PIC */
    heathrow_irqs = qemu_mallocz(smp_cpus * sizeof(qemu_irq *));
    heathrow_irqs[0] =
        qemu_mallocz(smp_cpus * sizeof(qemu_irq) * 1);
    /* Connect the heathrow PIC outputs to the 6xx bus */
    for (i = 0; i < smp_cpus; i++) {
        switch (PPC_INPUT(env)) {
        case PPC_FLAGS_INPUT_6xx:
            heathrow_irqs[i] = heathrow_irqs[0] + (i * 1);
            heathrow_irqs[i][0] =
                ((qemu_irq *)env->irq_inputs)[PPC6xx_INPUT_INT];
            break;
        default:
P
Paul Brook 已提交
291
            hw_error("Bus model not supported on OldWorld Mac machine\n");
J
j_mayer 已提交
292 293 294 295 296
        }
    }

    /* init basic PC hardware */
    if (PPC_INPUT(env) != PPC_FLAGS_INPUT_6xx) {
P
Paul Brook 已提交
297
        hw_error("Only 6xx bus is supported on heathrow machine\n");
J
j_mayer 已提交
298 299 300
    }
    pic = heathrow_pic_init(&pic_mem_index, 1, heathrow_irqs);
    pci_bus = pci_grackle_init(0xfec00000, pic);
P
Paul Brook 已提交
301
    pci_vga_init(pci_bus, vga_bios_offset, vga_bios_size);
302

A
aurel32 已提交
303
    escc_mem_index = escc_init(0x80013000, pic[0x0f], pic[0x10], serial_hds[0],
B
blueswir1 已提交
304
                               serial_hds[1], ESCC_CLOCK, 4);
305

306 307
    for(i = 0; i < nb_nics; i++)
        pci_nic_init(pci_bus, &nd_table[i], -1, "ne2k_pci");
J
j_mayer 已提交
308

T
ths 已提交
309 310 311 312 313

    if (drive_get_max_bus(IF_IDE) >= MAX_IDE_BUS) {
        fprintf(stderr, "qemu: too many IDE bus\n");
        exit(1);
    }
314 315

    /* First IDE channel is a MAC IDE on the MacIO bus */
T
ths 已提交
316 317 318 319 320 321 322 323 324 325
    index = drive_get_index(IF_IDE, 0, 0);
    if (index == -1)
        hd[0] = NULL;
    else
        hd[0] =  drives_table[index].bdrv;
    index = drive_get_index(IF_IDE, 0, 1);
    if (index == -1)
        hd[1] = NULL;
    else
        hd[1] =  drives_table[index].bdrv;
326 327 328
    dbdma = DBDMA_init(&dbdma_mem_index);
    ide_mem_index[0] = -1;
    ide_mem_index[1] = pmac_ide_init(hd, pic[0x0D], dbdma, 0x16, pic[0x02]);
T
ths 已提交
329

330
    /* Second IDE channel is a CMD646 on the PCI bus */
T
ths 已提交
331 332 333 334 335 336 337 338 339 340
    index = drive_get_index(IF_IDE, 1, 0);
    if (index == -1)
        hd[0] = NULL;
    else
        hd[0] =  drives_table[index].bdrv;
    index = drive_get_index(IF_IDE, 1, 1);
    if (index == -1)
        hd[1] = NULL;
    else
        hd[1] =  drives_table[index].bdrv;
341 342
    hd[3] = hd[2] = NULL;
    pci_cmd646_ide_init(pci_bus, hd, 0);
J
j_mayer 已提交
343 344 345 346 347 348

    /* cuda also initialize ADB */
    cuda_init(&cuda_mem_index, pic[0x12]);

    adb_kbd_init(&adb_bus);
    adb_mouse_init(&adb_bus);
349

B
blueswir1 已提交
350
    nvr = macio_nvram_init(&nvram_mem_index, 0x2000, 4);
J
j_mayer 已提交
351 352
    pmac_format_nvram_partition(nvr, 0x2000);

353 354 355
    macio_init(pci_bus, PCI_DEVICE_ID_APPLE_343S1201, 1, pic_mem_index,
               dbdma_mem_index, cuda_mem_index, nvr, 2, ide_mem_index,
               escc_mem_index);
J
j_mayer 已提交
356 357 358 359 360 361 362 363 364 365

    if (usb_enabled) {
        usb_ohci_init_pci(pci_bus, 3, -1);
    }

    if (graphic_depth != 15 && graphic_depth != 32 && graphic_depth != 8)
        graphic_depth = 15;

    /* No PCI init: the BIOS will do it */

B
blueswir1 已提交
366 367 368 369
    fw_cfg = fw_cfg_init(0, 0, CFG_ADDR, CFG_ADDR + 2);
    fw_cfg_add_i32(fw_cfg, FW_CFG_ID, 1);
    fw_cfg_add_i64(fw_cfg, FW_CFG_RAM_SIZE, (uint64_t)ram_size);
    fw_cfg_add_i16(fw_cfg, FW_CFG_MACHINE_ID, ARCH_HEATHROW);
370 371 372 373 374 375 376 377 378 379 380 381
    fw_cfg_add_i32(fw_cfg, FW_CFG_KERNEL_ADDR, kernel_base);
    fw_cfg_add_i32(fw_cfg, FW_CFG_KERNEL_SIZE, kernel_size);
    if (kernel_cmdline) {
        fw_cfg_add_i32(fw_cfg, FW_CFG_KERNEL_CMDLINE, CMDLINE_ADDR);
        pstrcpy_targphys(CMDLINE_ADDR, TARGET_PAGE_SIZE, kernel_cmdline);
    } else {
        fw_cfg_add_i32(fw_cfg, FW_CFG_KERNEL_CMDLINE, 0);
    }
    fw_cfg_add_i32(fw_cfg, FW_CFG_INITRD_ADDR, initrd_base);
    fw_cfg_add_i32(fw_cfg, FW_CFG_INITRD_SIZE, initrd_size);
    fw_cfg_add_i16(fw_cfg, FW_CFG_BOOT_DEVICE, ppc_boot_device);
    qemu_register_boot_set(fw_cfg_boot_set, fw_cfg);
J
j_mayer 已提交
382 383
}

384
static QEMUMachine heathrow_machine = {
385
    .name = "g3beige",
386 387
    .desc = "Heathrow based PowerMAC",
    .init = ppc_heathrow_init,
B
balrog 已提交
388
    .max_cpus = MAX_CPUS,
389
    .is_default = 1,
J
j_mayer 已提交
390
};
391 392 393 394 395 396 397

static void heathrow_machine_init(void)
{
    qemu_register_machine(&heathrow_machine);
}

machine_init(heathrow_machine_init);