pc.c 14.4 KB
Newer Older
B
bellard 已提交
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
/*
 * QEMU PC System Emulator
 * 
 * Copyright (c) 2003-2004 Fabrice Bellard
 * 
 * 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.
 */
#include "vl.h"

B
bellard 已提交
26 27 28
/* output Bochs bios info messages */
//#define DEBUG_BIOS

B
bellard 已提交
29 30
#define BIOS_FILENAME "bios.bin"
#define VGABIOS_FILENAME "vgabios.bin"
B
bellard 已提交
31
#define VGABIOS_CIRRUS_FILENAME "vgabios-cirrus.bin"
B
bellard 已提交
32 33 34 35 36 37 38 39 40
#define LINUX_BOOT_FILENAME "linux_boot.bin"

#define KERNEL_LOAD_ADDR     0x00100000
#define INITRD_LOAD_ADDR     0x00400000
#define KERNEL_PARAMS_ADDR   0x00090000
#define KERNEL_CMDLINE_ADDR  0x00099000

int speaker_data_on;
int dummy_refresh_clock;
41
static fdctrl_t *floppy_controller;
B
bellard 已提交
42
static RTCState *rtc_state;
B
bellard 已提交
43
static PITState *pit;
B
bellard 已提交
44

B
bellard 已提交
45
static void ioport80_write(void *opaque, uint32_t addr, uint32_t data)
B
bellard 已提交
46 47 48
{
}

49 50 51 52 53 54 55 56 57 58 59 60
/* MSDOS compatibility mode FPU exception support */
/* XXX: add IGNNE support */
void cpu_set_ferr(CPUX86State *s)
{
    pic_set_irq(13, 1);
}

static void ioportF0_write(void *opaque, uint32_t addr, uint32_t data)
{
    pic_set_irq(13, 0);
}

B
bellard 已提交
61 62 63 64 65 66 67
/* TSC handling */

uint64_t cpu_get_tsc(CPUX86State *env)
{
    return qemu_get_clock(vm_clock);
}

B
bellard 已提交
68 69
/* PC cmos mappings */

B
bellard 已提交
70
#define REG_EQUIPMENT_BYTE          0x14
B
bellard 已提交
71 72 73 74 75 76 77 78
#define REG_IBM_CENTURY_BYTE        0x32
#define REG_IBM_PS2_CENTURY_BYTE    0x37


static inline int to_bcd(RTCState *s, int a)
{
    return ((a / 10) << 4) | (a % 10);
}
B
bellard 已提交
79

80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103
static int cmos_get_fd_drive_type(int fd0)
{
    int val;

    switch (fd0) {
    case 0:
        /* 1.44 Mb 3"5 drive */
        val = 4;
        break;
    case 1:
        /* 2.88 Mb 3"5 drive */
        val = 5;
        break;
    case 2:
        /* 1.2 Mb 5"5 drive */
        val = 2;
        break;
    default:
        val = 0;
        break;
    }
    return val;
}

B
bellard 已提交
104 105
static void cmos_init(int ram_size, int boot_device)
{
B
bellard 已提交
106
    RTCState *s = rtc_state;
B
bellard 已提交
107
    int val;
B
bellard 已提交
108
    int fd0, fd1, nb;
B
bellard 已提交
109 110 111 112 113
    time_t ti;
    struct tm *tm;

    /* set the CMOS date */
    time(&ti);
B
bellard 已提交
114 115 116 117
    if (rtc_utc)
        tm = gmtime(&ti);
    else
        tm = localtime(&ti);
B
bellard 已提交
118 119 120 121 122
    rtc_set_date(s, tm);

    val = to_bcd(s, (tm->tm_year / 100) + 19);
    rtc_set_memory(s, REG_IBM_CENTURY_BYTE, val);
    rtc_set_memory(s, REG_IBM_PS2_CENTURY_BYTE, val);
B
bellard 已提交
123

B
bellard 已提交
124
    /* various important CMOS locations needed by PC/Bochs bios */
B
bellard 已提交
125 126

    /* memory size */
B
bellard 已提交
127 128 129 130
    val = 640; /* base memory in K */
    rtc_set_memory(s, 0x15, val);
    rtc_set_memory(s, 0x16, val >> 8);

B
bellard 已提交
131 132 133
    val = (ram_size / 1024) - 1024;
    if (val > 65535)
        val = 65535;
B
bellard 已提交
134 135 136 137
    rtc_set_memory(s, 0x17, val);
    rtc_set_memory(s, 0x18, val >> 8);
    rtc_set_memory(s, 0x30, val);
    rtc_set_memory(s, 0x31, val >> 8);
B
bellard 已提交
138 139 140 141

    val = (ram_size / 65536) - ((16 * 1024 * 1024) / 65536);
    if (val > 65535)
        val = 65535;
B
bellard 已提交
142 143
    rtc_set_memory(s, 0x34, val);
    rtc_set_memory(s, 0x35, val >> 8);
B
bellard 已提交
144 145 146 147
    
    switch(boot_device) {
    case 'a':
    case 'b':
B
bellard 已提交
148
        rtc_set_memory(s, 0x3d, 0x01); /* floppy boot */
B
bellard 已提交
149 150 151
        break;
    default:
    case 'c':
B
bellard 已提交
152
        rtc_set_memory(s, 0x3d, 0x02); /* hard drive boot */
B
bellard 已提交
153 154
        break;
    case 'd':
B
bellard 已提交
155
        rtc_set_memory(s, 0x3d, 0x03); /* CD-ROM boot */
B
bellard 已提交
156 157 158
        break;
    }

B
bellard 已提交
159 160
    /* floppy type */

161 162
    fd0 = fdctrl_get_drive_type(floppy_controller, 0);
    fd1 = fdctrl_get_drive_type(floppy_controller, 1);
B
bellard 已提交
163

164
    val = (cmos_get_fd_drive_type(fd0) << 4) | cmos_get_fd_drive_type(fd1);
B
bellard 已提交
165 166 167
    rtc_set_memory(s, 0x10, val);
    
    val = 0;
B
bellard 已提交
168
    nb = 0;
B
bellard 已提交
169 170 171 172 173 174 175 176
    if (fd0 < 3)
        nb++;
    if (fd1 < 3)
        nb++;
    switch (nb) {
    case 0:
        break;
    case 1:
B
bellard 已提交
177
        val |= 0x01; /* 1 drive, ready for boot */
B
bellard 已提交
178 179
        break;
    case 2:
B
bellard 已提交
180
        val |= 0x41; /* 2 drives, ready for boot */
B
bellard 已提交
181 182
        break;
    }
B
bellard 已提交
183 184 185 186
    val |= 0x02; /* FPU is there */
    val |= 0x04; /* PS/2 mouse installed */
    rtc_set_memory(s, REG_EQUIPMENT_BYTE, val);

B
bellard 已提交
187 188
}

B
bellard 已提交
189
static void speaker_ioport_write(void *opaque, uint32_t addr, uint32_t val)
B
bellard 已提交
190 191
{
    speaker_data_on = (val >> 1) & 1;
B
bellard 已提交
192
    pit_set_gate(pit, 2, val & 1);
B
bellard 已提交
193 194
}

B
bellard 已提交
195
static uint32_t speaker_ioport_read(void *opaque, uint32_t addr)
B
bellard 已提交
196 197
{
    int out;
B
bellard 已提交
198
    out = pit_get_out(pit, 2, qemu_get_clock(vm_clock));
B
bellard 已提交
199
    dummy_refresh_clock ^= 1;
B
bellard 已提交
200
    return (speaker_data_on << 1) | pit_get_gate(pit, 2) | (out << 5) |
B
bellard 已提交
201 202 203
      (dummy_refresh_clock << 4);
}

B
bellard 已提交
204 205 206 207 208 209 210 211 212 213 214
static void ioport92_write(void *opaque, uint32_t addr, uint32_t val)
{
    cpu_x86_set_a20(cpu_single_env, (val >> 1) & 1);
    /* XXX: bit 0 is fast reset */
}

static uint32_t ioport92_read(void *opaque, uint32_t addr)
{
    return ((cpu_single_env->a20_mask >> 20) & 1) << 1;
}

B
bellard 已提交
215 216 217
/***********************************************************/
/* Bochs BIOS debug ports */

B
bellard 已提交
218
void bochs_bios_write(void *opaque, uint32_t addr, uint32_t val)
B
bellard 已提交
219
{
B
bellard 已提交
220 221 222
    static const char shutdown_str[8] = "Shutdown";
    static int shutdown_index = 0;
    
B
bellard 已提交
223 224 225 226 227 228 229 230 231 232 233 234
    switch(addr) {
        /* Bochs BIOS messages */
    case 0x400:
    case 0x401:
        fprintf(stderr, "BIOS panic at rombios.c, line %d\n", val);
        exit(1);
    case 0x402:
    case 0x403:
#ifdef DEBUG_BIOS
        fprintf(stderr, "%c", val);
#endif
        break;
B
bellard 已提交
235 236 237 238 239 240 241 242 243 244 245 246
    case 0x8900:
        /* same as Bochs power off */
        if (val == shutdown_str[shutdown_index]) {
            shutdown_index++;
            if (shutdown_index == 8) {
                shutdown_index = 0;
                qemu_system_shutdown_request();
            }
        } else {
            shutdown_index = 0;
        }
        break;
B
bellard 已提交
247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263

        /* LGPL'ed VGA BIOS messages */
    case 0x501:
    case 0x502:
        fprintf(stderr, "VGA BIOS panic, line %d\n", val);
        exit(1);
    case 0x500:
    case 0x503:
#ifdef DEBUG_BIOS
        fprintf(stderr, "%c", val);
#endif
        break;
    }
}

void bochs_bios_init(void)
{
B
bellard 已提交
264 265 266 267
    register_ioport_write(0x400, 1, 2, bochs_bios_write, NULL);
    register_ioport_write(0x401, 1, 2, bochs_bios_write, NULL);
    register_ioport_write(0x402, 1, 1, bochs_bios_write, NULL);
    register_ioport_write(0x403, 1, 1, bochs_bios_write, NULL);
B
bellard 已提交
268
    register_ioport_write(0x8900, 1, 1, bochs_bios_write, NULL);
B
bellard 已提交
269 270 271 272 273

    register_ioport_write(0x501, 1, 2, bochs_bios_write, NULL);
    register_ioport_write(0x502, 1, 2, bochs_bios_write, NULL);
    register_ioport_write(0x500, 1, 1, bochs_bios_write, NULL);
    register_ioport_write(0x503, 1, 1, bochs_bios_write, NULL);
B
bellard 已提交
274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307
}


int load_kernel(const char *filename, uint8_t *addr, 
                uint8_t *real_addr)
{
    int fd, size;
    int setup_sects;

    fd = open(filename, O_RDONLY);
    if (fd < 0)
        return -1;

    /* load 16 bit code */
    if (read(fd, real_addr, 512) != 512)
        goto fail;
    setup_sects = real_addr[0x1F1];
    if (!setup_sects)
        setup_sects = 4;
    if (read(fd, real_addr + 512, setup_sects * 512) != 
        setup_sects * 512)
        goto fail;
    
    /* load 32 bit code */
    size = read(fd, addr, 16 * 1024 * 1024);
    if (size < 0)
        goto fail;
    close(fd);
    return size;
 fail:
    close(fd);
    return -1;
}

B
bellard 已提交
308 309 310 311 312 313 314 315 316
static const int ide_iobase[2] = { 0x1f0, 0x170 };
static const int ide_iobase2[2] = { 0x3f6, 0x376 };
static const int ide_irq[2] = { 14, 15 };

#define NE2000_NB_MAX 6

static uint32_t ne2000_io[NE2000_NB_MAX] = { 0x300, 0x320, 0x340, 0x360, 0x280, 0x380 };
static int ne2000_irq[NE2000_NB_MAX] = { 9, 10, 11, 3, 4, 5 };

B
bellard 已提交
317 318 319 320 321 322 323
/* PC hardware initialisation */
void pc_init(int ram_size, int vga_ram_size, int boot_device,
             DisplayState *ds, const char **fd_filename, int snapshot,
             const char *kernel_filename, const char *kernel_cmdline,
             const char *initrd_filename)
{
    char buf[1024];
B
bellard 已提交
324
    int ret, linux_boot, initrd_size, i, nb_nics1, fd;
B
bellard 已提交
325 326
    unsigned long bios_offset, vga_bios_offset;
    int bios_size, isa_bios_size;
B
bellard 已提交
327 328 329 330 331 332 333

    linux_boot = (kernel_filename != NULL);

    /* allocate RAM */
    cpu_register_physical_memory(0, ram_size, 0);

    /* BIOS load */
B
bellard 已提交
334 335 336
    bios_offset = ram_size + vga_ram_size;
    vga_bios_offset = bios_offset + 256 * 1024;

B
bellard 已提交
337
    snprintf(buf, sizeof(buf), "%s/%s", bios_dir, BIOS_FILENAME);
B
bellard 已提交
338 339 340 341 342 343 344 345 346
    bios_size = get_image_size(buf);
    if (bios_size <= 0 || 
        (bios_size % 65536) != 0 ||
        bios_size > (256 * 1024)) {
        goto bios_error;
    }
    ret = load_image(buf, phys_ram_base + bios_offset);
    if (ret != bios_size) {
    bios_error:
B
bellard 已提交
347 348 349
        fprintf(stderr, "qemu: could not load PC bios '%s'\n", buf);
        exit(1);
    }
B
bellard 已提交
350

B
bellard 已提交
351
    /* VGA BIOS load */
B
bellard 已提交
352 353 354 355 356
    if (cirrus_vga_enabled) {
        snprintf(buf, sizeof(buf), "%s/%s", bios_dir, VGABIOS_CIRRUS_FILENAME);
    } else {
        snprintf(buf, sizeof(buf), "%s/%s", bios_dir, VGABIOS_FILENAME);
    }
B
bellard 已提交
357
    ret = load_image(buf, phys_ram_base + vga_bios_offset);
B
bellard 已提交
358 359
    
    /* setup basic memory access */
B
bellard 已提交
360 361 362 363 364 365 366 367 368 369 370 371 372 373 374
    cpu_register_physical_memory(0xc0000, 0x10000, 
                                 vga_bios_offset | IO_MEM_ROM);

    /* map the last 128KB of the BIOS in ISA space */
    isa_bios_size = bios_size;
    if (isa_bios_size > (128 * 1024))
        isa_bios_size = 128 * 1024;
    cpu_register_physical_memory(0xd0000, (192 * 1024) - isa_bios_size, 
                                 IO_MEM_UNASSIGNED);
    cpu_register_physical_memory(0x100000 - isa_bios_size, 
                                 isa_bios_size, 
                                 (bios_offset + bios_size - isa_bios_size) | IO_MEM_ROM);
    /* map all the bios at the top of memory */
    cpu_register_physical_memory((uint32_t)(-bios_size), 
                                 bios_size, bios_offset | IO_MEM_ROM);
B
bellard 已提交
375 376 377 378 379
    
    bochs_bios_init();

    if (linux_boot) {
        uint8_t bootsect[512];
380
        uint8_t old_bootsect[512];
B
bellard 已提交
381 382 383 384 385 386 387 388 389 390 391 392 393

        if (bs_table[0] == NULL) {
            fprintf(stderr, "A disk image must be given for 'hda' when booting a Linux kernel\n");
            exit(1);
        }
        snprintf(buf, sizeof(buf), "%s/%s", bios_dir, LINUX_BOOT_FILENAME);
        ret = load_image(buf, bootsect);
        if (ret != sizeof(bootsect)) {
            fprintf(stderr, "qemu: could not load linux boot sector '%s'\n",
                    buf);
            exit(1);
        }

394 395 396 397 398
        if (bdrv_read(bs_table[0], 0, old_bootsect, 1) >= 0) {
            /* copy the MSDOS partition table */
            memcpy(bootsect + 0x1be, old_bootsect + 0x1be, 0x40);
        }

B
bellard 已提交
399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433
        bdrv_set_boot_sector(bs_table[0], bootsect, sizeof(bootsect));

        /* now we can load the kernel */
        ret = load_kernel(kernel_filename, 
                          phys_ram_base + KERNEL_LOAD_ADDR,
                          phys_ram_base + KERNEL_PARAMS_ADDR);
        if (ret < 0) {
            fprintf(stderr, "qemu: could not load kernel '%s'\n", 
                    kernel_filename);
            exit(1);
        }
        
        /* load initrd */
        initrd_size = 0;
        if (initrd_filename) {
            initrd_size = load_image(initrd_filename, phys_ram_base + INITRD_LOAD_ADDR);
            if (initrd_size < 0) {
                fprintf(stderr, "qemu: could not load initial ram disk '%s'\n", 
                        initrd_filename);
                exit(1);
            }
        }
        if (initrd_size > 0) {
            stl_raw(phys_ram_base + KERNEL_PARAMS_ADDR + 0x218, INITRD_LOAD_ADDR);
            stl_raw(phys_ram_base + KERNEL_PARAMS_ADDR + 0x21c, initrd_size);
        }
        pstrcpy(phys_ram_base + KERNEL_CMDLINE_ADDR, 4096,
                kernel_cmdline);
        stw_raw(phys_ram_base + KERNEL_PARAMS_ADDR + 0x20, 0xA33F);
        stw_raw(phys_ram_base + KERNEL_PARAMS_ADDR + 0x22,
                KERNEL_CMDLINE_ADDR - KERNEL_PARAMS_ADDR);
        /* loader type */
        stw_raw(phys_ram_base + KERNEL_PARAMS_ADDR + 0x210, 0x01);
    }

B
bellard 已提交
434 435 436 437 438
    if (pci_enabled) {
        i440fx_init();
        piix3_init();
    }

B
bellard 已提交
439
    /* init basic PC hardware */
B
bellard 已提交
440
    register_ioport_write(0x80, 1, 1, ioport80_write, NULL);
B
bellard 已提交
441

442 443
    register_ioport_write(0xf0, 1, 1, ioportF0_write, NULL);

B
bellard 已提交
444 445 446 447 448 449 450 451 452 453 454 455
    if (cirrus_vga_enabled) {
        if (pci_enabled) {
            pci_cirrus_vga_init(ds, phys_ram_base + ram_size, ram_size, 
                                vga_ram_size);
        } else {
            isa_cirrus_vga_init(ds, phys_ram_base + ram_size, ram_size, 
                                vga_ram_size);
        }
    } else {
        vga_initialize(ds, phys_ram_base + ram_size, ram_size, 
                       vga_ram_size, pci_enabled);
    }
B
bellard 已提交
456

B
bellard 已提交
457
    rtc_state = rtc_init(0x70, 8);
B
bellard 已提交
458 459
    register_ioport_read(0x61, 1, 1, speaker_ioport_read, NULL);
    register_ioport_write(0x61, 1, 1, speaker_ioport_write, NULL);
B
bellard 已提交
460

B
bellard 已提交
461 462 463
    register_ioport_read(0x92, 1, 1, ioport92_read, NULL);
    register_ioport_write(0x92, 1, 1, ioport92_write, NULL);

B
bellard 已提交
464
    pic_init();
B
bellard 已提交
465
    pit = pit_init(0x40, 0);
B
bellard 已提交
466 467 468 469

    fd = serial_open_device();
    serial_init(0x3f8, 4, fd);

B
bellard 已提交
470 471 472 473
    if (pci_enabled) {
        for(i = 0; i < nb_nics; i++) {
            pci_ne2000_init(&nd_table[i]);
        }
B
bellard 已提交
474
        pci_piix3_ide_init(bs_table);
B
bellard 已提交
475 476 477 478 479 480 481
    } else {
        nb_nics1 = nb_nics;
        if (nb_nics1 > NE2000_NB_MAX)
            nb_nics1 = NE2000_NB_MAX;
        for(i = 0; i < nb_nics1; i++) {
            isa_ne2000_init(ne2000_io[i], ne2000_irq[i], &nd_table[i]);
        }
B
bellard 已提交
482

B
bellard 已提交
483 484 485 486
        for(i = 0; i < 2; i++) {
            isa_ide_init(ide_iobase[i], ide_iobase2[i], ide_irq[i],
                         bs_table[2 * i], bs_table[2 * i + 1]);
        }
B
bellard 已提交
487
    }
B
bellard 已提交
488

B
bellard 已提交
489
    kbd_init();
B
bellard 已提交
490
    DMA_init(0);
B
bellard 已提交
491 492

#ifndef _WIN32
B
bellard 已提交
493 494 495 496 497
    if (audio_enabled) {
        /* no audio supported yet for win32 */
        AUD_init();
        SB16_init();
    }
B
bellard 已提交
498
#endif
B
bellard 已提交
499

500
    floppy_controller = fdctrl_init(6, 2, 0, 0x3f0, fd_table);
B
bellard 已提交
501 502

    cmos_init(ram_size, boot_device);
B
bellard 已提交
503 504 505 506 507 508

    /* must be done after all PCI devices are instanciated */
    /* XXX: should be done in the Bochs BIOS */
    if (pci_enabled) {
        pci_bios_init();
    }
B
bellard 已提交
509
}