#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <wchar.h>
#include "../86box.h"
#include "../nmi.h"
#include "../timer.h"
#include "../pit.h"
#include "../mem.h"
#include "../device.h"
#include "../floppy/fdd.h"
#include "../floppy/fdc.h"
#include "../game/gameport.h"
#include "../ibm_5161.h"
#include "../keyboard.h"
#include "../rom.h"
#include "machine.h"


static void
machine_xt_common_init(const machine_t *model)
{
    machine_common_init(model);

    pit_ctr_set_out_func(&pit->counters[1], pit_refresh_timer_xt);

    device_add(&fdc_xt_device);
    nmi_init();
    if (joystick_type != JOYSTICK_TYPE_NONE)
	device_add(&gameport_device);
}


int
machine_pc_init(const machine_t *model)
{
    int ret;

    ret = bios_load_linear(L"roms/machines/ibmpc/BIOS_5150_24APR81_U33.BIN",
			   0x000fe000, 40960, 0);
    if (ret) {
	bios_load_aux_linear(L"roms/machines/ibmpc/IBM 5150 - Cassette BASIC version C1.00 - U29 - 5700019.bin",
			     0x000f6000, 8192, 0);
	bios_load_aux_linear(L"roms/machines/ibmpc/IBM 5150 - Cassette BASIC version C1.00 - U30 - 5700027.bin",
			     0x000f8000, 8192, 0);
	bios_load_aux_linear(L"roms/machines/ibmpc/IBM 5150 - Cassette BASIC version C1.00 - U31 - 5700035.bin",
			     0x000fa000, 8192, 0);
	bios_load_aux_linear(L"roms/machines/ibmpc/IBM 5150 - Cassette BASIC version C1.00 - U32 - 5700043.bin",
			     0x000fc000, 8192, 0);
    }

    if (bios_only || !ret)
	return ret;

    device_add(&keyboard_pc_device);

    machine_xt_common_init(model);

    return ret;
}


int
machine_pc82_init(const machine_t *model)
{
    int ret, ret2;

    ret = bios_load_linear(L"roms/machines/ibmpc82/pc102782.bin",
			   0x000fe000, 40960, 0);
    if (ret) {
	ret2 = bios_load_aux_linear(L"roms/machines/ibmpc82/ibm-basic-1.10.rom",
				    0x000f6000, 32768, 0);
	if (!ret2) {
		bios_load_aux_linear(L"roms/machines/ibmpc82/basicc11.f6",
				     0x000f6000, 8192, 0);
		bios_load_aux_linear(L"roms/machines/ibmpc82/basicc11.f8",
				     0x000f8000, 8192, 0);
		bios_load_aux_linear(L"roms/machines/ibmpc82/basicc11.fa",
				     0x000fa000, 8192, 0);
		bios_load_aux_linear(L"roms/machines/ibmpc82/basicc11.fc",
				     0x000fc000, 8192, 0);
	}
    }

    if (bios_only || !ret)
	return ret;

    device_add(&keyboard_pc82_device);
    device_add(&ibm_5161_device);

    machine_xt_common_init(model);

    return ret;
}


static void
machine_xt_init_ex(const machine_t *model)
{
    device_add(&keyboard_xt_device);

    machine_xt_common_init(model);
}


int
machine_xt_init(const machine_t *model)
{
    int ret;

    ret = bios_load_linear(L"roms/machines/ibmxt/xt.rom",
			   0x000f0000, 65536, 0);
    if (!ret) {
	ret = bios_load_linear(L"roms/machines/ibmxt/1501512.u18",
			       0x000fe000, 65536, 0x6000);
	if (ret) {
		bios_load_aux_linear(L"roms/machines/ibmxt/1501512.u18",
				     0x000f8000, 24576, 0);
		bios_load_aux_linear(L"roms/machines/ibmxt/5000027.u19",
				     0x000f0000, 32768, 0);
	}
    }

    if (bios_only || !ret)
	return ret;

    machine_xt_init_ex(model);

    device_add(&ibm_5161_device);

    return ret;
}


int
machine_genxt_init(const machine_t *model)
{
    int ret;

    ret = bios_load_linear(L"roms/machines/genxt/pcxt.rom",
			   0x000fe000, 8192, 0);

    if (bios_only || !ret)
	return ret;

    machine_xt_init_ex(model);

    return ret;
}


int
machine_xt86_init(const machine_t *model)
{
    int ret;

    ret = bios_load_linear(L"roms/machines/ibmxt86/BIOS_5160_09MAY86_U18_59X7268_62X0890_27256_F800.BIN",
			   0x000fe000, 65536, 0x6000);
    if (ret) {
	(void) bios_load_aux_linear(L"roms/machines/ibmxt86/BIOS_5160_09MAY86_U18_59X7268_62X0890_27256_F800.BIN",
				    0x000f8000, 24576, 0);
	(void) bios_load_aux_linear(L"roms/machines/ibmxt86/BIOS_5160_09MAY86_U19_62X0819_68X4370_27256_F000.BIN",
				    0x000f0000, 32768, 0);
    }

    if (bios_only || !ret)
	return ret;

    device_add(&keyboard_xt86_device);
    device_add(&ibm_5161_device);

    machine_xt_common_init(model);

    return ret;
}


static void
machine_xt_clone_init(const machine_t *model)
{
    device_add(&keyboard_xt86_device);

    machine_xt_common_init(model);
}


int
machine_xt_amixt_init(const machine_t *model)
{
    int ret;

    ret = bios_load_linear(L"roms/machines/amixt/ami_8088_bios_31jan89.bin",
			   0x000fe000, 8192, 0);

    if (bios_only || !ret)
	return ret;

    machine_xt_clone_init(model);

    return ret;
}


int
machine_xt_dtk_init(const machine_t *model)
{
    int ret;

    ret = bios_load_linear(L"roms/machines/dtk/dtk_erso_2.42_2764.bin",
			   0x000fe000, 8192, 0);

    if (bios_only || !ret)
	return ret;

    machine_xt_clone_init(model);

    return ret;
}


int
machine_xt_jukopc_init(const machine_t *model)
{
    int ret;

    ret = bios_load_linear(L"roms/machines/jukopc/000o001.bin",
			   0x000fe000, 8192, 0);

    if (bios_only || !ret)
	return ret;

    machine_xt_clone_init(model);

    return ret;
}


int
machine_xt_open_xt_init(const machine_t *model)
{
    int ret;

    ret = bios_load_linear(L"roms/machines/open_xt/pcxt31.bin",
			   0x000fe000, 8192, 0);

    if (bios_only || !ret)
	return ret;

    machine_xt_clone_init(model);

    return ret;
}


int
machine_xt_pxxt_init(const machine_t *model)
{
    int ret;

    ret = bios_load_linear(L"roms/machines/pxxt/000p001.bin",
			   0x000fe000, 8192, 0);

    if (bios_only || !ret)
	return ret;

    machine_xt_clone_init(model);

    return 1;
}