pc.c 30.4 KB
Newer Older
B
bellard 已提交
1 2
/*
 * QEMU PC System Emulator
3
 *
B
bellard 已提交
4
 * Copyright (c) 2003-2004 Fabrice Bellard
5
 *
B
bellard 已提交
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
 * 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 已提交
24 25 26 27 28 29 30 31 32 33
#include "hw.h"
#include "pc.h"
#include "fdc.h"
#include "pci.h"
#include "block.h"
#include "sysemu.h"
#include "audio/audio.h"
#include "net.h"
#include "smbus.h"
#include "boards.h"
A
aurel32 已提交
34
#include "console.h"
B
bellard 已提交
35

B
bellard 已提交
36 37 38
/* output Bochs bios info messages */
//#define DEBUG_BIOS

B
bellard 已提交
39 40
#define BIOS_FILENAME "bios.bin"
#define VGABIOS_FILENAME "vgabios.bin"
B
bellard 已提交
41
#define VGABIOS_CIRRUS_FILENAME "vgabios-cirrus.bin"
B
bellard 已提交
42

43 44
#define PC_MAX_BIOS_SIZE (4 * 1024 * 1024)

45 46
/* Leave a chunk of memory at the top of RAM for the BIOS ACPI tables.  */
#define ACPI_DATA_SIZE       0x10000
B
bellard 已提交
47

T
ths 已提交
48 49
#define MAX_IDE_BUS 2

50
static fdctrl_t *floppy_controller;
B
bellard 已提交
51
static RTCState *rtc_state;
B
bellard 已提交
52
static PITState *pit;
53
static IOAPICState *ioapic;
B
bellard 已提交
54
static PCIDevice *i440fx_state;
B
bellard 已提交
55

B
bellard 已提交
56
static void ioport80_write(void *opaque, uint32_t addr, uint32_t data)
B
bellard 已提交
57 58 59
{
}

60
/* MSDOS compatibility mode FPU exception support */
P
pbrook 已提交
61
static qemu_irq ferr_irq;
62 63 64
/* XXX: add IGNNE support */
void cpu_set_ferr(CPUX86State *s)
{
P
pbrook 已提交
65
    qemu_irq_raise(ferr_irq);
66 67 68 69
}

static void ioportF0_write(void *opaque, uint32_t addr, uint32_t data)
{
P
pbrook 已提交
70
    qemu_irq_lower(ferr_irq);
71 72
}

B
bellard 已提交
73 74 75
/* TSC handling */
uint64_t cpu_get_tsc(CPUX86State *env)
{
76 77 78 79 80 81
    /* Note: when using kqemu, it is more logical to return the host TSC
       because kqemu does not trap the RDTSC instruction for
       performance reasons */
#if USE_KQEMU
    if (env->kqemu_enabled) {
        return cpu_get_real_ticks();
82
    } else
83 84 85 86
#endif
    {
        return cpu_get_ticks();
    }
B
bellard 已提交
87 88
}

B
bellard 已提交
89 90 91 92 93 94 95 96
/* SMM support */
void cpu_smm_update(CPUState *env)
{
    if (i440fx_state && env == first_cpu)
        i440fx_set_smm(i440fx_state, (env->hflags >> HF_SMM_SHIFT) & 1);
}


B
bellard 已提交
97 98 99 100 101 102 103 104 105
/* IRQ handling */
int cpu_get_pic_interrupt(CPUState *env)
{
    int intno;

    intno = apic_get_interrupt(env);
    if (intno >= 0) {
        /* set irq request if a PIC irq is still pending */
        /* XXX: improve that */
106
        pic_update_irq(isa_pic);
B
bellard 已提交
107 108 109
        return intno;
    }
    /* read the irq from the PIC */
110 111 112
    if (!apic_accept_pic_intr(env))
        return -1;

B
bellard 已提交
113 114 115 116
    intno = pic_read_irq(isa_pic);
    return intno;
}

P
pbrook 已提交
117
static void pic_irq_request(void *opaque, int irq, int level)
B
bellard 已提交
118
{
119 120
    CPUState *env = first_cpu;

A
aurel32 已提交
121 122 123
    if (env->apic_state) {
        while (env) {
            if (apic_accept_pic_intr(env))
124
                apic_deliver_pic_intr(env, level);
A
aurel32 已提交
125 126 127
            env = env->next_cpu;
        }
    } else {
A
aurel32 已提交
128 129 130 131
        if (level)
            cpu_interrupt(env, CPU_INTERRUPT_HARD);
        else
            cpu_reset_interrupt(env, CPU_INTERRUPT_HARD);
132
    }
B
bellard 已提交
133 134
}

B
bellard 已提交
135 136
/* PC cmos mappings */

B
bellard 已提交
137 138
#define REG_EQUIPMENT_BYTE          0x14

139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162
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;
}

163
static void cmos_init_hd(int type_ofs, int info_ofs, BlockDriverState *hd)
B
bellard 已提交
164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179
{
    RTCState *s = rtc_state;
    int cylinders, heads, sectors;
    bdrv_get_geometry_hint(hd, &cylinders, &heads, &sectors);
    rtc_set_memory(s, type_ofs, 47);
    rtc_set_memory(s, info_ofs, cylinders);
    rtc_set_memory(s, info_ofs + 1, cylinders >> 8);
    rtc_set_memory(s, info_ofs + 2, heads);
    rtc_set_memory(s, info_ofs + 3, 0xff);
    rtc_set_memory(s, info_ofs + 4, 0xff);
    rtc_set_memory(s, info_ofs + 5, 0xc0 | ((heads > 8) << 3));
    rtc_set_memory(s, info_ofs + 6, cylinders);
    rtc_set_memory(s, info_ofs + 7, cylinders >> 8);
    rtc_set_memory(s, info_ofs + 8, sectors);
}

180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196
/* convert boot_device letter to something recognizable by the bios */
static int boot_device2nibble(char boot_device)
{
    switch(boot_device) {
    case 'a':
    case 'b':
        return 0x01; /* floppy boot */
    case 'c':
        return 0x02; /* hard drive boot */
    case 'd':
        return 0x03; /* CD-ROM boot */
    case 'n':
        return 0x04; /* Network boot */
    }
    return 0;
}

197 198
/* copy/pasted from cmos_init, should be made a general function
 and used there as well */
199
static int pc_boot_set(void *opaque, const char *boot_device)
200 201
{
#define PC_MAX_BOOT_DEVICES 3
202
    RTCState *s = (RTCState *)opaque;
203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223
    int nbds, bds[3] = { 0, };
    int i;

    nbds = strlen(boot_device);
    if (nbds > PC_MAX_BOOT_DEVICES) {
        term_printf("Too many boot devices for PC\n");
        return(1);
    }
    for (i = 0; i < nbds; i++) {
        bds[i] = boot_device2nibble(boot_device[i]);
        if (bds[i] == 0) {
            term_printf("Invalid boot device for PC: '%c'\n",
                    boot_device[i]);
            return(1);
        }
    }
    rtc_set_memory(s, 0x3d, (bds[1] << 4) | bds[0]);
    rtc_set_memory(s, 0x38, (bds[2] << 4));
    return(0);
}

B
bellard 已提交
224
/* hd_table must contain 4 block drivers */
225 226
static void cmos_init(ram_addr_t ram_size, ram_addr_t above_4g_mem_size,
                      const char *boot_device, BlockDriverState **hd_table)
B
bellard 已提交
227
{
B
bellard 已提交
228
    RTCState *s = rtc_state;
229
    int nbds, bds[3] = { 0, };
B
bellard 已提交
230
    int val;
B
bellard 已提交
231
    int fd0, fd1, nb;
B
bellard 已提交
232
    int i;
B
bellard 已提交
233 234

    /* various important CMOS locations needed by PC/Bochs bios */
B
bellard 已提交
235 236

    /* memory size */
B
bellard 已提交
237 238 239 240
    val = 640; /* base memory in K */
    rtc_set_memory(s, 0x15, val);
    rtc_set_memory(s, 0x16, val >> 8);

B
bellard 已提交
241 242 243
    val = (ram_size / 1024) - 1024;
    if (val > 65535)
        val = 65535;
B
bellard 已提交
244 245 246 247
    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 已提交
248

249 250 251 252 253 254
    if (above_4g_mem_size) {
        rtc_set_memory(s, 0x5b, (unsigned int)above_4g_mem_size >> 16);
        rtc_set_memory(s, 0x5c, (unsigned int)above_4g_mem_size >> 24);
        rtc_set_memory(s, 0x5d, (uint64_t)above_4g_mem_size >> 32);
    }

B
bellard 已提交
255 256 257 258
    if (ram_size > (16 * 1024 * 1024))
        val = (ram_size / 65536) - ((16 * 1024 * 1024) / 65536);
    else
        val = 0;
B
bellard 已提交
259 260
    if (val > 65535)
        val = 65535;
B
bellard 已提交
261 262
    rtc_set_memory(s, 0x34, val);
    rtc_set_memory(s, 0x35, val >> 8);
263

A
aurel32 已提交
264 265 266
    /* set the number of CPU */
    rtc_set_memory(s, 0x5f, smp_cpus - 1);

267
    /* set boot devices, and disable floppy signature check if requested */
268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
#define PC_MAX_BOOT_DEVICES 3
    nbds = strlen(boot_device);
    if (nbds > PC_MAX_BOOT_DEVICES) {
        fprintf(stderr, "Too many boot devices for PC\n");
        exit(1);
    }
    for (i = 0; i < nbds; i++) {
        bds[i] = boot_device2nibble(boot_device[i]);
        if (bds[i] == 0) {
            fprintf(stderr, "Invalid boot device for PC: '%c'\n",
                    boot_device[i]);
            exit(1);
        }
    }
    rtc_set_memory(s, 0x3d, (bds[1] << 4) | bds[0]);
    rtc_set_memory(s, 0x38, (bds[2] << 4) | (fd_bootchk ?  0x0 : 0x1));
B
bellard 已提交
284

B
bellard 已提交
285 286
    /* floppy type */

287 288
    fd0 = fdctrl_get_drive_type(floppy_controller, 0);
    fd1 = fdctrl_get_drive_type(floppy_controller, 1);
B
bellard 已提交
289

290
    val = (cmos_get_fd_drive_type(fd0) << 4) | cmos_get_fd_drive_type(fd1);
B
bellard 已提交
291
    rtc_set_memory(s, 0x10, val);
292

B
bellard 已提交
293
    val = 0;
B
bellard 已提交
294
    nb = 0;
B
bellard 已提交
295 296 297 298 299 300 301 302
    if (fd0 < 3)
        nb++;
    if (fd1 < 3)
        nb++;
    switch (nb) {
    case 0:
        break;
    case 1:
B
bellard 已提交
303
        val |= 0x01; /* 1 drive, ready for boot */
B
bellard 已提交
304 305
        break;
    case 2:
B
bellard 已提交
306
        val |= 0x41; /* 2 drives, ready for boot */
B
bellard 已提交
307 308
        break;
    }
B
bellard 已提交
309 310 311 312
    val |= 0x02; /* FPU is there */
    val |= 0x04; /* PS/2 mouse installed */
    rtc_set_memory(s, REG_EQUIPMENT_BYTE, val);

B
bellard 已提交
313 314 315 316 317
    /* hard drives */

    rtc_set_memory(s, 0x12, (hd_table[0] ? 0xf0 : 0) | (hd_table[1] ? 0x0f : 0));
    if (hd_table[0])
        cmos_init_hd(0x19, 0x1b, hd_table[0]);
318
    if (hd_table[1])
B
bellard 已提交
319 320 321
        cmos_init_hd(0x1a, 0x24, hd_table[1]);

    val = 0;
B
bellard 已提交
322
    for (i = 0; i < 4; i++) {
B
bellard 已提交
323
        if (hd_table[i]) {
B
bellard 已提交
324 325 326 327 328 329 330 331 332 333 334 335 336 337 338
            int cylinders, heads, sectors, translation;
            /* NOTE: bdrv_get_geometry_hint() returns the physical
                geometry.  It is always such that: 1 <= sects <= 63, 1
                <= heads <= 16, 1 <= cylinders <= 16383. The BIOS
                geometry can be different if a translation is done. */
            translation = bdrv_get_translation_hint(hd_table[i]);
            if (translation == BIOS_ATA_TRANSLATION_AUTO) {
                bdrv_get_geometry_hint(hd_table[i], &cylinders, &heads, &sectors);
                if (cylinders <= 1024 && heads <= 16 && sectors <= 63) {
                    /* No translation. */
                    translation = 0;
                } else {
                    /* LBA translation. */
                    translation = 1;
                }
B
bellard 已提交
339
            } else {
B
bellard 已提交
340
                translation--;
B
bellard 已提交
341 342 343
            }
            val |= translation << (i * 2);
        }
B
bellard 已提交
344
    }
B
bellard 已提交
345
    rtc_set_memory(s, 0x39, val);
B
bellard 已提交
346 347
}

348 349 350 351 352 353 354 355 356 357 358
void ioport_set_a20(int enable)
{
    /* XXX: send to all CPUs ? */
    cpu_x86_set_a20(first_cpu, enable);
}

int ioport_get_a20(void)
{
    return ((first_cpu->a20_mask >> 20) & 1);
}

B
bellard 已提交
359 360
static void ioport92_write(void *opaque, uint32_t addr, uint32_t val)
{
361
    ioport_set_a20((val >> 1) & 1);
B
bellard 已提交
362 363 364 365 366
    /* XXX: bit 0 is fast reset */
}

static uint32_t ioport92_read(void *opaque, uint32_t addr)
{
367
    return ioport_get_a20() << 1;
B
bellard 已提交
368 369
}

B
bellard 已提交
370 371 372
/***********************************************************/
/* Bochs BIOS debug ports */

373
static void bochs_bios_write(void *opaque, uint32_t addr, uint32_t val)
B
bellard 已提交
374
{
B
bellard 已提交
375 376
    static const char shutdown_str[8] = "Shutdown";
    static int shutdown_index = 0;
377

B
bellard 已提交
378 379 380 381 382 383 384 385 386 387 388 389
    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 已提交
390 391 392 393 394 395 396 397 398 399 400 401
    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 已提交
402 403 404 405 406 407 408 409 410 411 412 413 414 415 416

        /* 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;
    }
}

417
static void bochs_bios_init(void)
B
bellard 已提交
418
{
B
bellard 已提交
419 420 421 422
    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 已提交
423
    register_ioport_write(0x8900, 1, 1, bochs_bios_write, NULL);
B
bellard 已提交
424 425 426 427 428

    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 已提交
429 430
}

T
ths 已提交
431 432
/* Generate an initial boot sector which sets state and jump to
   a specified vector */
433
static void generate_bootsect(uint32_t gpr[8], uint16_t segs[6], uint16_t ip)
T
ths 已提交
434 435 436
{
    uint8_t bootsect[512], *p;
    int i;
T
ths 已提交
437
    int hda;
T
ths 已提交
438

T
ths 已提交
439 440
    hda = drive_get_index(IF_IDE, 0, 0);
    if (hda == -1) {
T
ths 已提交
441 442 443 444 445 446 447 448
	fprintf(stderr, "A disk image must be given for 'hda' when booting "
		"a Linux kernel\n");
	exit(1);
    }

    memset(bootsect, 0, sizeof(bootsect));

    /* Copy the MSDOS partition table if possible */
T
ths 已提交
449
    bdrv_read(drives_table[hda].bdrv, 0, bootsect, 1);
T
ths 已提交
450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485

    /* Make sure we have a partition signature */
    bootsect[510] = 0x55;
    bootsect[511] = 0xaa;

    /* Actual code */
    p = bootsect;
    *p++ = 0xfa;		/* CLI */
    *p++ = 0xfc;		/* CLD */

    for (i = 0; i < 6; i++) {
	if (i == 1)		/* Skip CS */
	    continue;

	*p++ = 0xb8;		/* MOV AX,imm16 */
	*p++ = segs[i];
	*p++ = segs[i] >> 8;
	*p++ = 0x8e;		/* MOV <seg>,AX */
	*p++ = 0xc0 + (i << 3);
    }

    for (i = 0; i < 8; i++) {
	*p++ = 0x66;		/* 32-bit operand size */
	*p++ = 0xb8 + i;	/* MOV <reg>,imm32 */
	*p++ = gpr[i];
	*p++ = gpr[i] >> 8;
	*p++ = gpr[i] >> 16;
	*p++ = gpr[i] >> 24;
    }

    *p++ = 0xea;		/* JMP FAR */
    *p++ = ip;			/* IP */
    *p++ = ip >> 8;
    *p++ = segs[1];		/* CS */
    *p++ = segs[1] >> 8;

T
ths 已提交
486
    bdrv_set_boot_sector(drives_table[hda].bdrv, bootsect, sizeof(bootsect));
T
ths 已提交
487
}
B
bellard 已提交
488

T
ths 已提交
489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513
static long get_file_size(FILE *f)
{
    long where, size;

    /* XXX: on Unix systems, using fstat() probably makes more sense */

    where = ftell(f);
    fseek(f, 0, SEEK_END);
    size = ftell(f);
    fseek(f, where, SEEK_SET);

    return size;
}

static void load_linux(const char *kernel_filename,
		       const char *initrd_filename,
		       const char *kernel_cmdline)
{
    uint16_t protocol;
    uint32_t gpr[8];
    uint16_t seg[6];
    uint16_t real_seg;
    int setup_size, kernel_size, initrd_size, cmdline_size;
    uint32_t initrd_max;
    uint8_t header[1024];
514
    target_phys_addr_t real_addr, prot_addr, cmdline_addr, initrd_addr;
T
ths 已提交
515 516 517 518 519 520 521 522 523 524 525 526 527 528 529
    FILE *f, *fi;

    /* Align to 16 bytes as a paranoia measure */
    cmdline_size = (strlen(kernel_cmdline)+16) & ~15;

    /* load the kernel header */
    f = fopen(kernel_filename, "rb");
    if (!f || !(kernel_size = get_file_size(f)) ||
	fread(header, 1, 1024, f) != 1024) {
	fprintf(stderr, "qemu: could not load kernel '%s'\n",
		kernel_filename);
	exit(1);
    }

    /* kernel protocol version */
B
bellard 已提交
530
#if 0
T
ths 已提交
531
    fprintf(stderr, "header magic: %#x\n", ldl_p(header+0x202));
B
bellard 已提交
532
#endif
T
ths 已提交
533 534 535 536 537 538 539
    if (ldl_p(header+0x202) == 0x53726448)
	protocol = lduw_p(header+0x206);
    else
	protocol = 0;

    if (protocol < 0x200 || !(header[0x211] & 0x01)) {
	/* Low kernel */
540 541 542
	real_addr    = 0x90000;
	cmdline_addr = 0x9a000 - cmdline_size;
	prot_addr    = 0x10000;
T
ths 已提交
543 544
    } else if (protocol < 0x202) {
	/* High but ancient kernel */
545 546 547
	real_addr    = 0x90000;
	cmdline_addr = 0x9a000 - cmdline_size;
	prot_addr    = 0x100000;
T
ths 已提交
548 549
    } else {
	/* High and recent kernel */
550 551 552
	real_addr    = 0x10000;
	cmdline_addr = 0x20000;
	prot_addr    = 0x100000;
T
ths 已提交
553 554
    }

B
bellard 已提交
555
#if 0
T
ths 已提交
556
    fprintf(stderr,
557 558 559
	    "qemu: real_addr     = 0x" TARGET_FMT_plx "\n"
	    "qemu: cmdline_addr  = 0x" TARGET_FMT_plx "\n"
	    "qemu: prot_addr     = 0x" TARGET_FMT_plx "\n",
560 561 562
	    real_addr,
	    cmdline_addr,
	    prot_addr);
B
bellard 已提交
563
#endif
T
ths 已提交
564 565 566 567 568 569 570 571 572 573 574

    /* highest address for loading the initrd */
    if (protocol >= 0x203)
	initrd_max = ldl_p(header+0x22c);
    else
	initrd_max = 0x37ffffff;

    if (initrd_max >= ram_size-ACPI_DATA_SIZE)
	initrd_max = ram_size-ACPI_DATA_SIZE-1;

    /* kernel command line */
575
    pstrcpy_targphys(cmdline_addr, 4096, kernel_cmdline);
T
ths 已提交
576 577

    if (protocol >= 0x202) {
578
	stl_p(header+0x228, cmdline_addr);
T
ths 已提交
579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611
    } else {
	stw_p(header+0x20, 0xA33F);
	stw_p(header+0x22, cmdline_addr-real_addr);
    }

    /* loader type */
    /* High nybble = B reserved for Qemu; low nybble is revision number.
       If this code is substantially changed, you may want to consider
       incrementing the revision. */
    if (protocol >= 0x200)
	header[0x210] = 0xB0;

    /* heap */
    if (protocol >= 0x201) {
	header[0x211] |= 0x80;	/* CAN_USE_HEAP */
	stw_p(header+0x224, cmdline_addr-real_addr-0x200);
    }

    /* load initrd */
    if (initrd_filename) {
	if (protocol < 0x200) {
	    fprintf(stderr, "qemu: linux kernel too old to load a ram disk\n");
	    exit(1);
	}

	fi = fopen(initrd_filename, "rb");
	if (!fi) {
	    fprintf(stderr, "qemu: could not load initial ram disk '%s'\n",
		    initrd_filename);
	    exit(1);
	}

	initrd_size = get_file_size(fi);
612
	initrd_addr = (initrd_max-initrd_size) & ~4095;
T
ths 已提交
613

614 615
        fprintf(stderr, "qemu: loading initrd (%#x bytes) at 0x" TARGET_FMT_plx
                "\n", initrd_size, initrd_addr);
T
ths 已提交
616

617
	if (!fread_targphys_ok(initrd_addr, initrd_size, fi)) {
T
ths 已提交
618 619 620 621 622 623
	    fprintf(stderr, "qemu: read error on initial ram disk '%s'\n",
		    initrd_filename);
	    exit(1);
	}
	fclose(fi);

624
	stl_p(header+0x218, initrd_addr);
T
ths 已提交
625 626 627 628
	stl_p(header+0x21c, initrd_size);
    }

    /* store the finalized header and load the rest of the kernel */
629
    cpu_physical_memory_write(real_addr, header, 1024);
T
ths 已提交
630 631 632 633 634 635 636 637

    setup_size = header[0x1f1];
    if (setup_size == 0)
	setup_size = 4;

    setup_size = (setup_size+1)*512;
    kernel_size -= setup_size;	/* Size of protected-mode code */

638 639
    if (!fread_targphys_ok(real_addr+1024, setup_size-1024, f) ||
	!fread_targphys_ok(prot_addr, kernel_size, f)) {
T
ths 已提交
640 641 642 643 644 645 646
	fprintf(stderr, "qemu: read error on kernel '%s'\n",
		kernel_filename);
	exit(1);
    }
    fclose(f);

    /* generate bootsector to set up the initial register state */
647
    real_seg = real_addr >> 4;
T
ths 已提交
648 649 650 651 652 653 654 655
    seg[0] = seg[2] = seg[3] = seg[4] = seg[4] = real_seg;
    seg[1] = real_seg+0x20;	/* CS */
    memset(gpr, 0, sizeof gpr);
    gpr[4] = cmdline_addr-real_addr-16;	/* SP (-16 is paranoia) */

    generate_bootsect(gpr, seg, 0);
}

656 657 658 659 660 661
static void main_cpu_reset(void *opaque)
{
    CPUState *env = opaque;
    cpu_reset(env);
}

B
bellard 已提交
662 663 664 665 666 667
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

668
static int ne2000_io[NE2000_NB_MAX] = { 0x300, 0x320, 0x340, 0x360, 0x280, 0x380 };
B
bellard 已提交
669 670
static int ne2000_irq[NE2000_NB_MAX] = { 9, 10, 11, 3, 4, 5 };

671 672 673
static int serial_io[MAX_SERIAL_PORTS] = { 0x3f8, 0x2f8, 0x3e8, 0x2e8 };
static int serial_irq[MAX_SERIAL_PORTS] = { 4, 3, 4, 3 };

674 675 676
static int parallel_io[MAX_PARALLEL_PORTS] = { 0x378, 0x278, 0x3bc };
static int parallel_irq[MAX_PARALLEL_PORTS] = { 7, 7, 7 };

677
#ifdef HAS_AUDIO
P
pbrook 已提交
678
static void audio_init (PCIBus *pci_bus, qemu_irq *pic)
679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694
{
    struct soundhw *c;
    int audio_enabled = 0;

    for (c = soundhw; !audio_enabled && c->name; ++c) {
        audio_enabled = c->enabled;
    }

    if (audio_enabled) {
        AudioState *s;

        s = AUD_init ();
        if (s) {
            for (c = soundhw; c->name; ++c) {
                if (c->enabled) {
                    if (c->isa) {
P
pbrook 已提交
695
                        c->init.init_isa (s, pic);
696 697 698 699 700 701 702 703 704 705 706 707 708
                    }
                    else {
                        if (pci_bus) {
                            c->init.init_pci (pci_bus, s);
                        }
                    }
                }
            }
        }
    }
}
#endif

P
pbrook 已提交
709
static void pc_init_ne2k_isa(NICInfo *nd, qemu_irq *pic)
710 711 712 713 714
{
    static int nb_ne2k = 0;

    if (nb_ne2k == NE2000_NB_MAX)
        return;
P
pbrook 已提交
715
    isa_ne2000_init(ne2000_io[nb_ne2k], pic[ne2000_irq[nb_ne2k]], nd);
716 717 718
    nb_ne2k++;
}

B
bellard 已提交
719
/* PC hardware initialisation */
720
static void pc_init1(ram_addr_t ram_size, int vga_ram_size,
721
                     const char *boot_device, DisplayState *ds,
B
bellard 已提交
722
                     const char *kernel_filename, const char *kernel_cmdline,
723
                     const char *initrd_filename,
724
                     int pci_enabled, const char *cpu_model)
B
bellard 已提交
725 726
{
    char buf[1024];
T
ths 已提交
727
    int ret, linux_boot, i;
B
bellard 已提交
728
    ram_addr_t ram_addr, vga_ram_addr, bios_offset, vga_bios_offset;
729
    ram_addr_t below_4g_mem_size, above_4g_mem_size = 0;
B
bellard 已提交
730
    int bios_size, isa_bios_size, vga_bios_size;
B
bellard 已提交
731
    PCIBus *pci_bus;
P
pbrook 已提交
732
    int piix3_devfn = -1;
733
    CPUState *env;
734
    NICInfo *nd;
P
pbrook 已提交
735 736
    qemu_irq *cpu_irq;
    qemu_irq *i8259;
T
ths 已提交
737 738 739
    int index;
    BlockDriverState *hd[MAX_IDE_BUS * MAX_IDE_DEVS];
    BlockDriverState *fd[MAX_FD];
740

741 742 743 744 745 746 747
    if (ram_size >= 0xe0000000 ) {
        above_4g_mem_size = ram_size - 0xe0000000;
        below_4g_mem_size = 0xe0000000;
    } else {
        below_4g_mem_size = ram_size;
    }

B
bellard 已提交
748 749
    linux_boot = (kernel_filename != NULL);

750
    /* init CPUs */
751 752 753 754 755 756 757 758
    if (cpu_model == NULL) {
#ifdef TARGET_X86_64
        cpu_model = "qemu64";
#else
        cpu_model = "qemu32";
#endif
    }
    
759
    for(i = 0; i < smp_cpus; i++) {
B
bellard 已提交
760 761 762 763 764
        env = cpu_init(cpu_model);
        if (!env) {
            fprintf(stderr, "Unable to find x86 CPU definition\n");
            exit(1);
        }
765
        if (i != 0)
B
bellard 已提交
766
            env->halted = 1;
767 768 769 770 771 772 773 774 775 776
        if (smp_cpus > 1) {
            /* XXX: enable it in all cases */
            env->cpuid_features |= CPUID_APIC;
        }
        qemu_register_reset(main_cpu_reset, env);
        if (pci_enabled) {
            apic_init(env);
        }
    }

A
aurel32 已提交
777 778
    vmport_init();

B
bellard 已提交
779
    /* allocate RAM */
B
bellard 已提交
780
    ram_addr = qemu_ram_alloc(ram_size);
781 782 783 784
    cpu_register_physical_memory(0, below_4g_mem_size, ram_addr);

    /* above 4giga memory allocation */
    if (above_4g_mem_size > 0) {
785 786
        cpu_register_physical_memory((target_phys_addr_t) 0x100000000ULL,
                                     above_4g_mem_size,
787 788
                                     ram_addr + below_4g_mem_size);
    }
B
bellard 已提交
789

B
bellard 已提交
790 791
    /* allocate VGA RAM */
    vga_ram_addr = qemu_ram_alloc(vga_ram_size);
B
bellard 已提交
792

B
bellard 已提交
793
    /* BIOS load */
794 795 796
    if (bios_name == NULL)
        bios_name = BIOS_FILENAME;
    snprintf(buf, sizeof(buf), "%s/%s", bios_dir, bios_name);
B
bellard 已提交
797
    bios_size = get_image_size(buf);
798
    if (bios_size <= 0 ||
B
bellard 已提交
799
        (bios_size % 65536) != 0) {
B
bellard 已提交
800 801
        goto bios_error;
    }
B
bellard 已提交
802
    bios_offset = qemu_ram_alloc(bios_size);
B
bellard 已提交
803 804 805
    ret = load_image(buf, phys_ram_base + bios_offset);
    if (ret != bios_size) {
    bios_error:
B
bellard 已提交
806
        fprintf(stderr, "qemu: could not load PC BIOS '%s'\n", buf);
B
bellard 已提交
807 808
        exit(1);
    }
B
bellard 已提交
809

B
bellard 已提交
810
    /* VGA BIOS load */
B
bellard 已提交
811 812 813 814 815
    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 已提交
816
    vga_bios_size = get_image_size(buf);
817
    if (vga_bios_size <= 0 || vga_bios_size > 65536)
B
bellard 已提交
818 819 820
        goto vga_bios_error;
    vga_bios_offset = qemu_ram_alloc(65536);

B
bellard 已提交
821
    ret = load_image(buf, phys_ram_base + vga_bios_offset);
B
bellard 已提交
822 823 824 825 826 827
    if (ret != vga_bios_size) {
    vga_bios_error:
        fprintf(stderr, "qemu: could not load VGA BIOS '%s'\n", buf);
        exit(1);
    }

B
bellard 已提交
828
    /* setup basic memory access */
829
    cpu_register_physical_memory(0xc0000, 0x10000,
B
bellard 已提交
830 831 832 833 834 835
                                 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;
836
    cpu_register_physical_memory(0xd0000, (192 * 1024) - isa_bios_size,
B
bellard 已提交
837
                                 IO_MEM_UNASSIGNED);
838 839
    cpu_register_physical_memory(0x100000 - isa_bios_size,
                                 isa_bios_size,
B
bellard 已提交
840
                                 (bios_offset + bios_size - isa_bios_size) | IO_MEM_ROM);
841

B
bellard 已提交
842 843 844 845 846 847 848 849
    {
        ram_addr_t option_rom_offset;
        int size, offset;

        offset = 0;
        for (i = 0; i < nb_option_roms; i++) {
            size = get_image_size(option_rom[i]);
            if (size < 0) {
850
                fprintf(stderr, "Could not load option rom '%s'\n",
B
bellard 已提交
851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867
                        option_rom[i]);
                exit(1);
            }
            if (size > (0x10000 - offset))
                goto option_rom_error;
            option_rom_offset = qemu_ram_alloc(size);
            ret = load_image(option_rom[i], phys_ram_base + option_rom_offset);
            if (ret != size) {
            option_rom_error:
                fprintf(stderr, "Too many option ROMS\n");
                exit(1);
            }
            size = (size + 4095) & ~4095;
            cpu_register_physical_memory(0xd0000 + offset,
                                         size, option_rom_offset | IO_MEM_ROM);
            offset += size;
        }
868 869
    }

B
bellard 已提交
870
    /* map all the bios at the top of memory */
871
    cpu_register_physical_memory((uint32_t)(-bios_size),
B
bellard 已提交
872
                                 bios_size, bios_offset | IO_MEM_ROM);
873

B
bellard 已提交
874 875
    bochs_bios_init();

T
ths 已提交
876 877
    if (linux_boot)
	load_linux(kernel_filename, initrd_filename, kernel_cmdline);
B
bellard 已提交
878

879
    cpu_irq = qemu_allocate_irqs(pic_irq_request, NULL, 1);
P
pbrook 已提交
880 881 882
    i8259 = i8259_init(cpu_irq[0]);
    ferr_irq = i8259[13];

B
bellard 已提交
883
    if (pci_enabled) {
P
pbrook 已提交
884
        pci_bus = i440fx_init(&i440fx_state, i8259);
885
        piix3_devfn = piix3_init(pci_bus, -1);
B
bellard 已提交
886 887
    } else {
        pci_bus = NULL;
B
bellard 已提交
888 889
    }

B
bellard 已提交
890
    /* init basic PC hardware */
B
bellard 已提交
891
    register_ioport_write(0x80, 1, 1, ioport80_write, NULL);
B
bellard 已提交
892

893 894
    register_ioport_write(0xf0, 1, 1, ioportF0_write, NULL);

B
bellard 已提交
895 896
    if (cirrus_vga_enabled) {
        if (pci_enabled) {
897 898
            pci_cirrus_vga_init(pci_bus,
                                ds, phys_ram_base + vga_ram_addr,
B
bellard 已提交
899
                                vga_ram_addr, vga_ram_size);
B
bellard 已提交
900
        } else {
901
            isa_cirrus_vga_init(ds, phys_ram_base + vga_ram_addr,
B
bellard 已提交
902
                                vga_ram_addr, vga_ram_size);
B
bellard 已提交
903
        }
904 905
    } else if (vmsvga_enabled) {
        if (pci_enabled)
906 907
            pci_vmsvga_init(pci_bus, ds, phys_ram_base + vga_ram_addr,
                            vga_ram_addr, vga_ram_size);
908 909
        else
            fprintf(stderr, "%s: vmware_vga: no PCI bus\n", __FUNCTION__);
B
bellard 已提交
910
    } else {
B
bellard 已提交
911
        if (pci_enabled) {
912
            pci_vga_init(pci_bus, ds, phys_ram_base + vga_ram_addr,
B
bellard 已提交
913
                         vga_ram_addr, vga_ram_size, 0, 0);
B
bellard 已提交
914
        } else {
915
            isa_vga_init(ds, phys_ram_base + vga_ram_addr,
B
bellard 已提交
916
                         vga_ram_addr, vga_ram_size);
B
bellard 已提交
917
        }
B
bellard 已提交
918
    }
B
bellard 已提交
919

P
pbrook 已提交
920
    rtc_state = rtc_init(0x70, i8259[8]);
B
bellard 已提交
921

922 923
    qemu_register_boot_set(pc_boot_set, rtc_state);

B
bellard 已提交
924 925 926
    register_ioport_read(0x92, 1, 1, ioport92_read, NULL);
    register_ioport_write(0x92, 1, 1, ioport92_write, NULL);

927 928 929
    if (pci_enabled) {
        ioapic = ioapic_init();
    }
P
pbrook 已提交
930
    pit = pit_init(0x40, i8259[0]);
B
bellard 已提交
931
    pcspk_init(pit);
932 933 934
    if (pci_enabled) {
        pic_set_alt_irq_func(isa_pic, ioapic_set_irq, ioapic);
    }
B
bellard 已提交
935

936 937
    for(i = 0; i < MAX_SERIAL_PORTS; i++) {
        if (serial_hds[i]) {
A
aurel32 已提交
938 939
            serial_init(serial_io[i], i8259[serial_irq[i]], 115200,
                        serial_hds[i]);
940 941
        }
    }
B
bellard 已提交
942

943 944
    for(i = 0; i < MAX_PARALLEL_PORTS; i++) {
        if (parallel_hds[i]) {
P
pbrook 已提交
945 946
            parallel_init(parallel_io[i], i8259[parallel_irq[i]],
                          parallel_hds[i]);
947 948 949
        }
    }

950 951 952 953 954 955 956 957
    for(i = 0; i < nb_nics; i++) {
        nd = &nd_table[i];
        if (!nd->model) {
            if (pci_enabled) {
                nd->model = "ne2k_pci";
            } else {
                nd->model = "ne2k_isa";
            }
B
bellard 已提交
958
        }
959
        if (strcmp(nd->model, "ne2k_isa") == 0) {
P
pbrook 已提交
960
            pc_init_ne2k_isa(nd, i8259);
961
        } else if (pci_enabled) {
962 963
            if (strcmp(nd->model, "?") == 0)
                fprintf(stderr, "qemu: Supported ISA NICs: ne2k_isa\n");
964
            pci_nic_init(pci_bus, nd, -1);
965 966 967
        } else if (strcmp(nd->model, "?") == 0) {
            fprintf(stderr, "qemu: Supported ISA NICs: ne2k_isa\n");
            exit(1);
968 969 970
        } else {
            fprintf(stderr, "qemu: Unsupported NIC: %s\n", nd->model);
            exit(1);
B
bellard 已提交
971
        }
972
    }
B
bellard 已提交
973

T
ths 已提交
974 975 976 977 978 979 980 981 982 983 984 985 986
    if (drive_get_max_bus(IF_IDE) >= MAX_IDE_BUS) {
        fprintf(stderr, "qemu: too many IDE bus\n");
        exit(1);
    }

    for(i = 0; i < MAX_IDE_BUS * MAX_IDE_DEVS; i++) {
        index = drive_get_index(IF_IDE, i / MAX_IDE_DEVS, i % MAX_IDE_DEVS);
	if (index != -1)
	    hd[i] = drives_table[index].bdrv;
	else
	    hd[i] = NULL;
    }

987
    if (pci_enabled) {
T
ths 已提交
988
        pci_piix3_ide_init(pci_bus, hd, piix3_devfn + 1, i8259);
989
    } else {
T
ths 已提交
990
        for(i = 0; i < MAX_IDE_BUS; i++) {
P
pbrook 已提交
991
            isa_ide_init(ide_iobase[i], ide_iobase2[i], i8259[ide_irq[i]],
T
ths 已提交
992
	                 hd[MAX_IDE_DEVS * i], hd[MAX_IDE_DEVS * i + 1]);
B
bellard 已提交
993
        }
B
bellard 已提交
994
    }
B
bellard 已提交
995

P
pbrook 已提交
996
    i8042_init(i8259[1], i8259[12], 0x60);
B
bellard 已提交
997
    DMA_init(0);
998
#ifdef HAS_AUDIO
P
pbrook 已提交
999
    audio_init(pci_enabled ? pci_bus : NULL, i8259);
B
bellard 已提交
1000
#endif
B
bellard 已提交
1001

T
ths 已提交
1002 1003 1004 1005 1006 1007 1008 1009
    for(i = 0; i < MAX_FD; i++) {
        index = drive_get_index(IF_FLOPPY, 0, i);
	if (index != -1)
	    fd[i] = drives_table[index].bdrv;
	else
	    fd[i] = NULL;
    }
    floppy_controller = fdctrl_init(i8259[6], 2, 0, 0x3f0, fd);
B
bellard 已提交
1010

1011
    cmos_init(below_4g_mem_size, above_4g_mem_size, boot_device, hd);
B
bellard 已提交
1012

B
bellard 已提交
1013
    if (pci_enabled && usb_enabled) {
T
ths 已提交
1014
        usb_uhci_piix3_init(pci_bus, piix3_devfn + 2);
B
bellard 已提交
1015 1016
    }

B
bellard 已提交
1017
    if (pci_enabled && acpi_enabled) {
1018
        uint8_t *eeprom_buf = qemu_mallocz(8 * 256); /* XXX: make this persistent */
P
pbrook 已提交
1019 1020 1021
        i2c_bus *smbus;

        /* TODO: Populate SPD eeprom data.  */
A
aurel32 已提交
1022
        smbus = piix4_pm_init(pci_bus, piix3_devfn + 3, 0xb100, i8259[9]);
1023
        for (i = 0; i < 8; i++) {
P
pbrook 已提交
1024
            smbus_eeprom_device_init(smbus, 0x50 + i, eeprom_buf + (i * 256));
1025
        }
B
bellard 已提交
1026
    }
1027

B
bellard 已提交
1028 1029 1030
    if (i440fx_state) {
        i440fx_init_memory_mappings(i440fx_state);
    }
T
ths 已提交
1031

P
pbrook 已提交
1032
    if (pci_enabled) {
T
ths 已提交
1033 1034
	int max_bus;
        int bus, unit;
P
pbrook 已提交
1035
        void *scsi;
1036

T
ths 已提交
1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047
        max_bus = drive_get_max_bus(IF_SCSI);

	for (bus = 0; bus <= max_bus; bus++) {
            scsi = lsi_scsi_init(pci_bus, -1);
            for (unit = 0; unit < LSI_MAX_DEVS; unit++) {
	        index = drive_get_index(IF_SCSI, bus, unit);
		if (index == -1)
		    continue;
		lsi_scsi_attach(scsi, drives_table[index].bdrv, unit);
	    }
        }
P
pbrook 已提交
1048
    }
B
bellard 已提交
1049
}
B
bellard 已提交
1050

1051
static void pc_init_pci(ram_addr_t ram_size, int vga_ram_size,
1052
                        const char *boot_device, DisplayState *ds,
1053
                        const char *kernel_filename,
1054
                        const char *kernel_cmdline,
1055 1056
                        const char *initrd_filename,
                        const char *cpu_model)
1057
{
1058
    pc_init1(ram_size, vga_ram_size, boot_device, ds,
1059
             kernel_filename, kernel_cmdline,
1060
             initrd_filename, 1, cpu_model);
1061 1062
}

1063
static void pc_init_isa(ram_addr_t ram_size, int vga_ram_size,
1064
                        const char *boot_device, DisplayState *ds,
1065
                        const char *kernel_filename,
1066
                        const char *kernel_cmdline,
1067 1068
                        const char *initrd_filename,
                        const char *cpu_model)
1069
{
1070
    pc_init1(ram_size, vga_ram_size, boot_device, ds,
1071
             kernel_filename, kernel_cmdline,
1072
             initrd_filename, 0, cpu_model);
1073 1074
}

B
bellard 已提交
1075
QEMUMachine pc_machine = {
A
aurel32 已提交
1076 1077 1078 1079
    .name = "pc",
    .desc = "Standard PC",
    .init = pc_init_pci,
    .ram_require = VGA_RAM_SIZE + PC_MAX_BIOS_SIZE,
1080 1081 1082
};

QEMUMachine isapc_machine = {
A
aurel32 已提交
1083 1084 1085 1086
    .name = "isapc",
    .desc = "ISA-only PC",
    .init = pc_init_isa,
    .ram_require = VGA_RAM_SIZE + PC_MAX_BIOS_SIZE,
B
bellard 已提交
1087
};