86Box/src/rom.c

/*
 * 86Box	A hypervisor and IBM PC system emulator that specializes in
 *		running old operating systems and software designed for IBM
 *		PC systems and compatibles from 1981 through fairly recent
 *		system designs based on the PCI bus.
 *
 *		This file is part of the 86Box distribution.
 *
 *		Handling of ROM image files.
 *
 * NOTES:	- pc2386 BIOS is corrupt (JMP at F000:FFF0 points to RAM)
 *		- pc2386 video BIOS is underdumped (16k instead of 24k)
 *		- c386sx16 BIOS fails checksum
 *		- the loadfont() calls should be done elsewhere
 *
 * Version:	@(#)rom.c	1.0.37	2018/05/20
 *
 * Authors:	Sarah Walker, <http://pcem-emulator.co.uk/>
 *		Miran Grca, <mgrca8@gmail.com>
 *		Fred N. van Kempen, <decwiz@yahoo.com>
 *
 *		Copyright 2008-2018 Sarah Walker.
 *		Copyright 2016-2018 Miran Grca.
 *		Copyright 2018 Fred N. van Kempen.
 */
#include <stdarg.h>
#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <stdlib.h>
#include <wchar.h>
#define HAVE_STDARG_H
#include "86box.h"
#include "config.h"
#include "cpu/cpu.h"
#include "mem.h"
#include "rom.h"
#include "video/video.h"		/* for loadfont() */
#include "plat.h"
#include "machine/m_xt_xi8088.h"


int	romspresent[ROM_MAX];


#ifdef ENABLE_ROM_LOG
int rom_do_log = ENABLE_ROM_LOG;
#endif


static void
rom_log(const char *format, ...)
{
#ifdef ENABLE_ROM_LOG
    va_list ap;

    if (rom_do_log) {
	va_start(ap, format);
	pclog_ex(format, ap);
	va_end(ap);
    }
#endif
}


FILE *
rom_fopen(wchar_t *fn, wchar_t *mode)
{
    wchar_t temp[1024];

    wcscpy(temp, exe_path);
    plat_put_backslash(temp);
    wcscat(temp, fn);

    return(plat_fopen(temp, mode));
}


int
rom_getfile(wchar_t *fn, wchar_t *s, int size)
{
    FILE *f;

    wcscpy(s, exe_path);
    plat_put_backslash(s);
    wcscat(s, fn);

    f = plat_fopen(s, L"rb");
    if (f != NULL) {
	(void)fclose(f);
	return(1);
    }

    return(0);
}


int
rom_present(wchar_t *fn)
{
    FILE *f;

    f = rom_fopen(fn, L"rb");
    if (f != NULL) {
	(void)fclose(f);
	return(1);
    }

    return(0);
}


uint8_t
rom_read(uint32_t addr, void *priv)
{
    rom_t *rom = (rom_t *)priv;

#ifdef ROM_TRACE
    if (rom->mapping.base==ROM_TRACE)
	rom_log("ROM: read byte from BIOS at %06lX\n", addr);
#endif

    return(rom->rom[addr & rom->mask]);
}


uint16_t
rom_readw(uint32_t addr, void *priv)
{
    rom_t *rom = (rom_t *)priv;

#ifdef ROM_TRACE
    if (rom->mapping.base==ROM_TRACE)
	rom_log("ROM: read word from BIOS at %06lX\n", addr);
#endif

    return(*(uint16_t *)&rom->rom[addr & rom->mask]);
}


uint32_t
rom_readl(uint32_t addr, void *priv)
{
    rom_t *rom = (rom_t *)priv;

#ifdef ROM_TRACE
    if (rom->mapping.base==ROM_TRACE)
	rom_log("ROM: read long from BIOS at %06lX\n", addr);
#endif

    return(*(uint32_t *)&rom->rom[addr & rom->mask]);
}


/* Load a ROM BIOS from its chips, interleaved mode. */
int
rom_load_linear(wchar_t *fn, uint32_t addr, int sz, int off, uint8_t *ptr)
{
    FILE *f = rom_fopen(fn, L"rb");
        
    if (f == NULL) {
	rom_log("ROM: image '%ls' not found\n", fn);
	return(0);
    }

    /* Make sure we only look at the base-256K offset. */
    if (addr >= 0x40000)
    {
	addr = 0;
    }
    else
    {
	addr &= 0x03ffff;
    }

    (void)fseek(f, off, SEEK_SET);
    (void)fread(ptr+addr, sz, 1, f);
    (void)fclose(f);

    return(1);
}


/* Load a ROM BIOS from its chips, linear mode with high bit flipped. */
int
rom_load_linear_inverted(wchar_t *fn, uint32_t addr, int sz, int off, uint8_t *ptr)
{
    FILE *f = rom_fopen(fn, L"rb");
        
    if (f == NULL) {
	rom_log("ROM: image '%ls' not found\n", fn);
	return(0);
    }

    /* Make sure we only look at the base-256K offset. */
    if (addr >= 0x40000)
    {
	addr = 0;
    }
    else
    {
	addr &= 0x03ffff;
    }

    (void)fseek(f, 0, SEEK_END);
    if (ftell(f) < sz) {
	(void)fclose(f);
	return(0);
    }

    (void)fseek(f, off, SEEK_SET);
    (void)fread(ptr+addr+0x10000, sz >> 1, 1, f);
    (void)fread(ptr+addr, sz >> 1, 1, f);
    (void)fclose(f);

    return(1);
}


/* Load a ROM BIOS from its chips, interleaved mode. */
int
rom_load_interleaved(wchar_t *fnl, wchar_t *fnh, uint32_t addr, int sz, int off, uint8_t *ptr)
{
    FILE *fl = rom_fopen(fnl, L"rb");
    FILE *fh = rom_fopen(fnh, L"rb");
    int c;

    if (fl == NULL || fh == NULL) {
	if (fl == NULL) rom_log("ROM: image '%ls' not found\n", fnl);
	  else (void)fclose(fl);
	if (fh == NULL) rom_log("ROM: image '%ls' not found\n", fnh);
	  else (void)fclose(fh);

	return(0);
    }

    /* Make sure we only look at the base-256K offset. */
    if (addr >= 0x40000)
    {
	addr = 0;
    }
    else
    {
	addr &= 0x03ffff;
    }

    (void)fseek(fl, off, SEEK_SET);
    (void)fseek(fh, off, SEEK_SET);
    for (c=0; c<sz; c+=2) {
	ptr[addr+c] = fgetc(fl);
	ptr[addr+c+1] = fgetc(fh);
    }
    (void)fclose(fh);
    (void)fclose(fl);

    return(1);
}


int
rom_init(rom_t *rom, wchar_t *fn, uint32_t addr, int sz, int mask, int off, uint32_t flags)
{
    /* Allocate a buffer for the image. */
    rom->rom = malloc(sz);
    memset(rom->rom, 0xff, sz);

    /* Load the image file into the buffer. */
    if (! rom_load_linear(fn, addr, sz, off, rom->rom)) {
	/* Nope.. clean up. */
	free(rom->rom);
	rom->rom = NULL;
	return(-1);
    }

    rom->mask = mask;

    mem_mapping_add(&rom->mapping,
		    addr, sz,
		    rom_read, rom_readw, rom_readl,
		    mem_write_null, mem_write_nullw, mem_write_nulll,
		    rom->rom, flags | MEM_MAPPING_ROM, rom);

    return(0);
}


int
rom_init_interleaved(rom_t *rom, wchar_t *fnl, wchar_t *fnh, uint32_t addr, int sz, int mask, int off, uint32_t flags)
{
    /* Allocate a buffer for the image. */
    rom->rom = malloc(sz);
    memset(rom->rom, 0xff, sz);

    /* Load the image file into the buffer. */
    if (! rom_load_interleaved(fnl, fnh, addr, sz, off, rom->rom)) {
	/* Nope.. clean up. */
	free(rom->rom);
	rom->rom = NULL;
	return(-1);
    }

    rom->mask = mask;

    mem_mapping_add(&rom->mapping,
		    addr, sz,
		    rom_read, rom_readw, rom_readl,
		    mem_write_null, mem_write_nullw, mem_write_nulll,
		    rom->rom, flags | MEM_MAPPING_ROM, rom);

    return(0);
}


/* Load the ROM BIOS image(s) for the selected machine into memory. */
int
rom_load_bios(int rom_id)
{
    FILE *f;

    loadfont(L"roms/video/mda/mda.rom", 0);

    /* If not done yet, allocate a 128KB buffer for the BIOS ROM. */
    if (rom == NULL)
	rom = (uint8_t *)malloc(131072);
    memset(rom, 0xff, 131072);

    /* Default to a 64K ROM BIOS image. */
    biosmask = 0xffff;

    /* Zap the BIOS ROM EXTENSION area. */
    memset(romext, 0xff, 0x8000);
    mem_mapping_disable(&romext_mapping);

    switch (rom_id) {
	case ROM_IBMPC:		/* IBM PC */
		if (! rom_load_linear(
			L"roms/machines/ibmpc/pc102782.bin",
			0x00e000, 8192, 0, rom)) break;

		/* Try to load the (full) BASIC ROM. */
		if (rom_load_linear(
			L"roms/machines/ibmpc/ibm-basic-1.10.rom",
			0x006000, 32768, 0, rom)) return(1);

		/* Nope. Try to load the first BASIC ROM image. */
		if (! rom_load_linear(
			L"roms/machines/ibmpc/basicc11.f6",
			0x006000, 8192, 0, rom)) return(1);	/* nope */
		if (! rom_load_linear(
			L"roms/machines/ibmpc/basicc11.f8",
			0x008000, 8192, 0, rom)) break;		/* nope */
		if (! rom_load_linear(
			L"roms/machines/ibmpc/basicc11.fa",
			0x00a000, 8192, 0, rom)) break;		/* nope */
		if (! rom_load_linear(
			L"roms/machines/ibmpc/basicc11.fc",
			0x00c000, 8192, 0, rom)) break;		/* nope */
		return(1);

	case ROM_IBMXT:		/* IBM PX-XT */
		if (rom_load_linear(
			L"roms/machines/ibmxt/xt.rom",
			0x000000, 65536, 0, rom)) return(1);

		if (! rom_load_linear(
			L"roms/machines/ibmxt/5000027.u19",
			0x000000, 32768, 0, rom)) break;
		if (rom_load_linear(
			L"roms/machines/ibmxt/1501512.u18",
			0x008000, 32768, 0, rom)) return(1);
		break;

	case ROM_XI8088:
		if (rom_load_linear_inverted(
			L"roms/machines/xi8088/bios-xi8088.bin",
			0x000000, 131072, 0, rom)) {
			biosmask = 0x1ffff;
			xi8088_bios_128kb_set(1);
			return(1);
		} else {
			if (rom_load_linear(
				L"roms/machines/xi8088/bios-xi8088.bin",
				0x000000, 65536, 0, rom)) {
				xi8088_bios_128kb_set(0);
				return(1);
			}
		}
		break;

	case ROM_IBMXT286:	/* IBM PX-XT 286 */
		if (rom_load_interleaved(
			L"roms/machines/ibmxt286/bios_5162_21apr86_u34_78x7460_27256.bin",
			L"roms/machines/ibmxt286/bios_5162_21apr86_u35_78x7461_27256.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_IBMPCJR:	/* IBM PCjr */
		if (rom_load_linear(
			L"roms/machines/ibmpcjr/bios.rom",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_IBMAT:		/* IBM PC-AT */
		if (rom_load_interleaved(
			L"roms/machines/ibmat/62x0820.u27",
			L"roms/machines/ibmat/62x0821.u47",
			0x000000, 65536, 0, rom)) return(1);
		break;

#ifdef WALTJE
	case ROM_OPENAT:	/* PC/AT clone with OpenBIOS */
		if (rom_load_linear(
			L"roms/machines/open_at/bios.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;
#endif

	case ROM_GENXT:		/* Generic PC-XT clone */
		if (rom_load_linear(
			L"roms/machines/genxt/pcxt.rom",
			0x00e000, 8192, 0, rom)) return(1);
		break;

	case ROM_PC1512:	/* Amstrad PC-1512 */
		if (! rom_load_interleaved(
			L"roms/machines/pc1512/40044",
			L"roms/machines/pc1512/40043",
			0x00c000, 16384, 0, rom)) break;
		f = rom_fopen(L"roms/machines/pc1512/40078", L"rb");
		if (f == NULL) break;
		(void)fclose(f);
		return(1);

	case ROM_PC1640:	/* Amstrad PC-1640 */
		if (! rom_load_interleaved(
			L"roms/machines/pc1640/40044.v3",
			L"roms/machines/pc1640/40043.v3",
			0x00c000, 16384, 0, rom)) break;
		f = rom_fopen(L"roms/machines/pc1640/40100", L"rb");
		if (f == NULL) break;
		(void)fclose(f);
		return(1);

	case ROM_PC200:
		if (! rom_load_interleaved(
			L"roms/machines/pc200/pc20v2.1",
			L"roms/machines/pc200/pc20v2.0",
			0x00c000, 16384, 0, rom)) break;
		f = rom_fopen(L"roms/machines/pc200/40109", L"rb");
		if (f == NULL) break;
		(void)fclose(f);
		return(1);

	case ROM_TANDY:
		if (rom_load_linear(
			L"roms/machines/tandy/tandy1t1.020",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_TANDY1000HX:
		if (! rom_load_linear(
			L"roms/machines/tandy1000hx/v020000.u12",
			0x000000, 0x20000, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_TANDY1000SL2:
		if (rom_load_interleaved(
			L"roms/machines/tandy1000sl2/8079047.hu1",
			L"roms/machines/tandy1000sl2/8079048.hu2",
			0x000000, 65536, 0x30000/2, rom)) return(1);
		break;

	case ROM_PORTABLE:
		if (rom_load_linear(
			L"roms/machines/portable/compaq portable plus 100666-001 rev c u47.bin",
			0x00e000, 8192, 0, rom)) return(1);
		break;

	case ROM_PORTABLEII:
		if (! rom_load_interleaved(
			L"roms/machines/portableii/109740-001.rom",
			L"roms/machines/portableii/109739-001.rom",
			0x000000, 32768, 0, rom)) break;
		biosmask = 0x7fff;
		return(1);

#if defined(DEV_BRANCH) && defined(USE_PORTABLE3)
	case ROM_PORTABLEIII:
	case ROM_PORTABLEIII386:
		if (rom_load_interleaved(
			L"roms/machines/portableiii/109738-002.bin",
			L"roms/machines/portableiii/109737-002.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;
#endif

	case ROM_DTKXT:
		if (rom_load_linear(
			L"roms/machines/dtk/dtk_erso_2.42_2764.bin",
			0x00e000, 8192, 0, rom)) return(1);
		break;

	case ROM_OLIM24:
		if (rom_load_interleaved(
			L"roms/machines/olivetti_m24/olivetti_m24_version_1.43_low.bin",
			L"roms/machines/olivetti_m24/olivetti_m24_version_1.43_high.bin",
			0x00c000, 16384, 0, rom)) return(1);
		break;

	case ROM_PC2086:
		if (! rom_load_interleaved(
			L"roms/machines/pc2086/40179.ic129",
			L"roms/machines/pc2086/40180.ic132",
			0x000000, 16384, 0, rom)) break;
		f = rom_fopen(L"roms/machines/pc2086/40186.ic171", L"rb");
		if (f == NULL) break;
		(void)fclose(f);
		biosmask = 0x3fff;
		return(1);

	case ROM_PC3086:
		if (! rom_load_linear(
			L"roms/machines/pc3086/fc00.bin",
			0x000000, 16384, 0, rom)) break;
		f = rom_fopen(L"roms/machines/pc3086/c000.bin", L"rb");
		if (f == NULL) break;
		(void)fclose(f);
		biosmask = 0x3fff;		
		return(1);

	case ROM_CMDPC30:
		if (! rom_load_interleaved(
			L"roms/machines/cmdpc30/commodore pc 30 iii even.bin",
			L"roms/machines/cmdpc30/commodore pc 30 iii odd.bin",
			0x000000, 32768, 0, rom)) break;
		biosmask = 0x7fff;
		return(1);

	case ROM_AMI386SX:
		if (rom_load_linear(
			L"roms/machines/ami386/ami386.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_AMI386DX_OPTI495:	/* uses the OPTi 82C495 chipset */
		if (rom_load_linear(
			L"roms/machines/ami386dx/opt495sx.ami",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_MR386DX_OPTI495:	/* uses the OPTi 82C495 chipset */
		if (rom_load_linear(
			L"roms/machines/mr386dx/opt495sx.mr",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_AWARD386SX_OPTI495:	/* uses the OPTi 82C495 chipset */
	case ROM_AWARD386DX_OPTI495:	/* uses the OPTi 82C495 chipset */
	case ROM_AWARD486_OPTI495:	/* uses the OPTi 82C495 chipset */
		if (rom_load_linear(
			L"roms/machines/award495/opt495s.awa",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_AMI286:
		if (rom_load_linear(
			L"roms/machines/ami286/amic206.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_AWARD286:
		if (rom_load_linear(
			L"roms/machines/award286/award.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_EUROPC:
		if (rom_load_linear(
			L"roms/machines/europc/50145",
			0x008000, 32768, 0, rom)) return(1);
		break;

	case ROM_MEGAPC:
	case ROM_MEGAPCDX:
		if (rom_load_interleaved(
			L"roms/machines/megapc/41651-bios lo.u18",
			L"roms/machines/megapc/211253-bios hi.u19",
			0x000000, 65536, 0x08000, rom)) return(1);
		break;

	case ROM_AMI486:
		if (rom_load_linear(
			L"roms/machines/ami486/ami486.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_WIN486:
		if (rom_load_linear(
			L"roms/machines/win486/ali1429g.amw",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_430VX:
		if (! rom_load_linear(
			L"roms/machines/430vx/55xwuq0e.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_REVENGE:
		if (! rom_load_linear(
			L"roms/machines/revenge/1009af2_.bio",
			0x010000, 65536, 128, rom)) break;
		if (! rom_load_linear(
			L"roms/machines/revenge/1009af2_.bi1",
			0x000000, 0x00c000, 128, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_ENDEAVOR:
		if (! rom_load_linear(
			L"roms/machines/endeavor/1006cb0_.bio",
			0x010000, 65536, 128, rom)) break;
		if (! rom_load_linear(
			L"roms/machines/endeavor/1006cb0_.bi1",
			0x000000, 0x00d000, 128, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_IBMPS1_2011:
		if (! rom_load_linear(
			L"roms/machines/ibmps1es/f80000.bin",
			0x000000, 131072, 0x60000, rom)) break;
		biosmask = 0x1ffff;
		return(1);
 
	case ROM_IBMPS1_2121:
	case ROM_IBMPS1_2121_ISA:
		if (! rom_load_linear(
			L"roms/machines/ibmps1_2121/fc0000.bin",
			0x000000, 131072, 0x20000, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_IBMPS1_2133:
		if (! rom_load_linear(
			L"roms/machines/ibmps1_2133/ps1_2133_52g2974_rom.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

#if defined(DEV_BRANCH) && defined(USE_PORTABLE3)
	case ROM_DESKPRO_386:
		if (! rom_load_interleaved(
			L"roms/machines/deskpro386/109592-005.u11.bin",
			L"roms/machines/deskpro386/109591-005.u13.bin",
			0x000000, 32768, 0, rom)) break;
		biosmask = 0x7fff;
		return(1);
#endif

	case ROM_AMIXT:
		if (rom_load_linear(
			L"roms/machines/amixt/ami_8088_bios_31jan89.bin",
			0x00e000, 8192, 0, rom)) return(1);
		break;

#if defined(DEV_BRANCH) && defined(USE_LASERXT)
	case ROM_LTXT:
		if (rom_load_linear(
			L"roms/machines/ltxt/27c64.bin",
			0x00e000, 8192, 0, rom)) return(1);
		break;

	case ROM_LXT3:
		if (rom_load_linear(
			L"roms/machines/lxt3/27c64d.bin",
			0x00e000, 8192, 0, rom)) return(1);
		break;
#endif

	case ROM_GW286CT:
		if (rom_load_linear(
			L"roms/machines/gw286ct/2ctc001.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_SPC4200P:	/* Samsung SPC-4200P */
		if (rom_load_linear(
			L"roms/machines/spc4200p/u8.01",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_SPC4216P:
		if (! rom_load_interleaved(
			L"roms/machines/spc4216p/7101.u8",
			L"roms/machines/spc4216p/ac64.u10",
			0x000000, 65536, 0, rom)) break;
		return(1);

	case ROM_KMXC02:
		if (rom_load_linear(
			L"roms/machines/kmxc02/3ctm005.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_SUPER286TR:	/* Hyundai Super-286TR */
		if (rom_load_linear(
			L"roms/machines/super286tr/hyundai_award286.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_DTK386:	/* uses NEAT chipset */
		if (rom_load_linear(
			L"roms/machines/dtk386/3cto001.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_PXXT:
		if (rom_load_linear(
			L"roms/machines/pxxt/000p001.bin",
			0x00e000, 8192, 0, rom)) return(1);
		break;

	case ROM_JUKOPC:
		if (rom_load_linear(
			L"roms/machines/jukopc/000o001.bin",
			0x00e000, 8192, 0, rom)) return(1);
		break;

	case ROM_IBMPS2_M30_286:
		if (! rom_load_linear(
			L"roms/machines/ibmps2_m30_286/33f5381a.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_IBMPS2_M70_TYPE3:
		if (! rom_load_interleaved(
			L"roms/machines/ibmps2_m70_type3/70-a_even.bin",
			L"roms/machines/ibmps2_m70_type3/70-a_odd.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);
	
	case ROM_IBMPS2_M70_TYPE4:
		if (! rom_load_interleaved(
			L"roms/machines/ibmps2_m70_type4/70-b_even.bin",
			L"roms/machines/ibmps2_m70_type4/70-b_odd.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);
	
	case ROM_DTK486:
		if (rom_load_linear(
			L"roms/machines/dtk486/4siw005.bin",
			0x000000, 65536, 0, rom)) return(1);
		break;

	case ROM_R418:
		if (! rom_load_linear(
			L"roms/machines/r418/r418i.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

#if 0
	case ROM_586MC1:
		if (! rom_load_linear(
			L"roms/machines/586mc1/is.34",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);
#endif

	case ROM_PLATO:
		if (! rom_load_linear(
			L"roms/machines/plato/1016ax1_.bio",
			0x010000, 65536, 128, rom)) break;
		if (! rom_load_linear(
			L"roms/machines/plato/1016ax1_.bi1",
			0x000000, 0x00d000, 128, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_MB500N:
		if (! rom_load_linear(
			L"roms/machines/mb500n/031396s.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_AP53:
		if (! rom_load_linear(
			L"roms/machines/ap53/ap53r2c0.rom",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_P55T2S:
		if (! rom_load_linear(
			L"roms/machines/p55t2s/s6y08t.rom",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_PRESIDENT:
		if (! rom_load_linear(
			L"roms/machines/president/bios.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_P54TP4XE:
		if (! rom_load_linear(
			L"roms/machines/p54tp4xe/t15i0302.awd",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_ACERM3A:
		if (! rom_load_linear(
			L"roms/machines/acerm3a/r01-b3.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_ACERV35N:
		if (! rom_load_linear(
			L"roms/machines/acerv35n/v35nd1s1.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_P55VA:
		if (! rom_load_linear(
			L"roms/machines/p55va/va021297.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_P55T2P4:
		if (! rom_load_linear(
			L"roms/machines/p55t2p4/0207_j2.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_P55TVP4:
		if (! rom_load_linear(
			L"roms/machines/p55tvp4/tv5i0204.awd",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

#if defined(DEV_BRANCH) && defined(USE_I686)
	case ROM_440FX:		/* working Tyan BIOS */
		if (! rom_load_linear(
			L"roms/machines/440fx/ntmaw501.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_S1668:		/* working Tyan BIOS */
		if (! rom_load_linear(
			L"roms/machines/tpatx/s1668p.rom",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);
#endif

	case ROM_THOR:
		if (! rom_load_linear(
			L"roms/machines/thor/1006cn0_.bio",
			0x010000, 65536, 128, rom)) break;
		if (! rom_load_linear(
			L"roms/machines/thor/1006cn0_.bi1",
			0x000000, 65536, 128, rom)) break;
		biosmask = 0x1ffff;
		return(1);

#if defined(DEV_BRANCH) && defined(USE_MRTHOR)
	case ROM_MRTHOR:
		if (! rom_load_linear(
			L"roms/machines/mrthor/mr_atx.bio",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);
#endif

	case ROM_PB640:
		if (! rom_load_linear(
			L"roms/machines/pb640/1007CP0R.BIO",
			0x010000, 65536, 128, rom)) break;
		if (! rom_load_linear(
			L"roms/machines/pb640/1007CP0R.BI1",
			0x000000, 0x00d000, 128, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_ZAPPA:
		if (! rom_load_linear(
			L"roms/machines/zappa/1006bs0_.bio",
			0x010000, 65536, 128, rom)) break;
		if (! rom_load_linear(
			L"roms/machines/zappa/1006bs0_.bi1",
			0x000000, 65536, 128, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_IBMPS2_M50:
		if (! rom_load_interleaved(
			L"roms/machines/ibmps2_m50/90x7423.zm14",
			L"roms/machines/ibmps2_m50/90x7426.zm16",
			0x000000, 65536, 0, rom)) break;
		if (! rom_load_interleaved(
			L"roms/machines/ibmps2_m50/90x7420.zm13",
			L"roms/machines/ibmps2_m50/90x7429.zm18",
			0x010000, 65536, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_IBMPS2_M55SX:
		if (! rom_load_interleaved(
			L"roms/machines/ibmps2_m55sx/33f8146.zm41",
			L"roms/machines/ibmps2_m55sx/33f8145.zm40",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_IBMPS2_M80:
		if (! rom_load_interleaved(
			L"roms/machines/ibmps2_m80/15f6637.bin",
			L"roms/machines/ibmps2_m80/15f6639.bin",
			0x000000, 131072, 0, rom)) break;
		biosmask = 0x1ffff;
		return(1);

	case ROM_T1000:
		loadfont(L"roms/machines/t1000/t1000font.bin", 2);
		if (!rom_load_linear(
			L"roms/machines/t1000/t1000.rom",
			0x000000, 32768, 0, rom)) break;
		biosmask = 0x7fff;
		return(1);

	case ROM_T1200:
		loadfont(L"roms/machines/t1200/t1000font.bin", 2);
		if (!rom_load_linear(
			L"roms/machines/t1200/t1200_019e.ic15.bin",
			0x000000, 32768, 0, rom)) break;
		biosmask = 0x7fff;
		return(1);

	case ROM_T3100E:
		loadfont(L"roms/machines/t3100e/t3100e_font.bin", 5);
		if (rom_load_linear(
			L"roms/machines/t3100e/t3100e.rom",
			0x000000, 65536, 0, rom)) return(1);
		break;

	default:
		rom_log("ROM: don't know how to handle ROM set %d !\n", rom_id);
    }

    return(0);
}