#ifndef _X87_OPS_LOADSTORE_H_
#define _X87_OPS_LOADSTORE_H_
static int opFILDiw_a16(uint32_t fetchdat) {
	int16_t temp;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FILDw %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp = geteaw();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f\n", (double)temp);
	x87_push((double)temp);
	CLOCK_CYCLES(x87_timings.fild_16);
	return 0;
}
static int opFILDiw_a32(uint32_t fetchdat) {
	int16_t temp;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FILDw %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp = geteaw();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f\n", (double)temp);
	x87_push((double)temp);
	CLOCK_CYCLES(x87_timings.fild_16);
	return 0;
}

static int opFISTiw_a16(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTw %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = x87_fround(ST(0));
/*                        if (temp64 > 32767 || temp64 < -32768)
                           fatal("FISTw overflow %i\n", temp64);*/
	seteaw((int16_t)temp64);
	CLOCK_CYCLES(x87_timings.fist_16);
	return cpu_state.abrt;
}
static int opFISTiw_a32(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTw %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = x87_fround(ST(0));
/*                        if (temp64 > 32767 || temp64 < -32768)
                           fatal("FISTw overflow %i\n", temp64);*/
	seteaw((int16_t)temp64);
	CLOCK_CYCLES(x87_timings.fist_16);
	return cpu_state.abrt;
}

static int opFISTPiw_a16(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTw %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = x87_fround(ST(0));
/*                        if (temp64 > 32767 || temp64 < -32768)
                           fatal("FISTw overflow %i\n", temp64);*/
	seteaw((int16_t)temp64);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fist_16);
	return 0;
}
static int opFISTPiw_a32(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTw %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = x87_fround(ST(0));
/*                        if (temp64 > 32767 || temp64 < -32768)
                           fatal("FISTw overflow %i\n", temp64);*/
	seteaw((int16_t)temp64);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fist_16);
	return 0;
}

static int opFILDiq_a16(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FILDl %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = geteaq();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f  %08X %08X\n", (double)temp64, readmeml(easeg, cpu_state.eaaddr), readmeml(easeg, cpu_state.eaaddr + 4));
	x87_push((double)temp64);
	cpu_state.MM[cpu_state.TOP & 7].q = temp64;
	cpu_state.tag[cpu_state.TOP & 7] = TAG_VALID | TAG_UINT64;

	CLOCK_CYCLES(x87_timings.fild_64);
	return 0;
}
static int opFILDiq_a32(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FILDl %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = geteaq();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f  %08X %08X\n", (double)temp64, readmeml(easeg, cpu_state.eaaddr), readmeml(easeg, cpu_state.eaaddr + 4));
	x87_push((double)temp64);
	cpu_state.MM[cpu_state.TOP & 7].q = temp64;
	cpu_state.tag[cpu_state.TOP & 7] = TAG_VALID | TAG_UINT64;

	CLOCK_CYCLES(x87_timings.fild_64);
	return 0;
}

static int FBSTP_a16(uint32_t fetchdat) {
	double tempd;
	int c;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FBSTP %08X:%08X\n", easeg, cpu_state.eaaddr);
	tempd = ST(0);
	if (tempd < 0.0)
		tempd = -tempd;
	for (c = 0; c < 9; c++) {
		uint8_t tempc = (uint8_t)floor(fmod(tempd, 10.0));
		tempd -= floor(fmod(tempd, 10.0));
		tempd /= 10.0;
		tempc |= ((uint8_t)floor(fmod(tempd, 10.0))) << 4;
		tempd -= floor(fmod(tempd, 10.0));
		tempd /= 10.0;
		writememb(easeg, cpu_state.eaaddr + c, tempc);
	}
	tempc = (uint8_t)floor(fmod(tempd, 10.0));
	if (ST(0) < 0.0)
		tempc |= 0x80;
	writememb(easeg, cpu_state.eaaddr + 9, tempc);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fbstp);
	return 0;
}
static int FBSTP_a32(uint32_t fetchdat) {
	double tempd;
	int c;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FBSTP %08X:%08X\n", easeg, cpu_state.eaaddr);
	tempd = ST(0);
	if (tempd < 0.0)
		tempd = -tempd;
	for (c = 0; c < 9; c++) {
		uint8_t tempc = (uint8_t)floor(fmod(tempd, 10.0));
		tempd -= floor(fmod(tempd, 10.0));
		tempd /= 10.0;
		tempc |= ((uint8_t)floor(fmod(tempd, 10.0))) << 4;
		tempd -= floor(fmod(tempd, 10.0));
		tempd /= 10.0;
		writememb(easeg, cpu_state.eaaddr + c, tempc);
	}
	tempc = (uint8_t)floor(fmod(tempd, 10.0));
	if (ST(0) < 0.0)
		tempc |= 0x80;
	writememb(easeg, cpu_state.eaaddr + 9, tempc);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fbstp);
	return 0;
}

static int FISTPiq_a16(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTPl %08X:%08X\n", easeg, cpu_state.eaaddr);
	if (cpu_state.tag[cpu_state.TOP & 7] & TAG_UINT64)
		temp64 = cpu_state.MM[cpu_state.TOP & 7].q;
	else
		temp64 = x87_fround(ST(0));
	seteaq(temp64);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fist_64);
	return 0;
}
static int FISTPiq_a32(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTPl %08X:%08X\n", easeg, cpu_state.eaaddr);
	if (cpu_state.tag[cpu_state.TOP & 7] & TAG_UINT64)
		temp64 = cpu_state.MM[cpu_state.TOP & 7].q;
	else
		temp64 = x87_fround(ST(0));
	seteaq(temp64);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fist_64);
	return 0;
}

static int opFILDil_a16(uint32_t fetchdat) {
	int32_t templ;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FILDs %08X:%08X\n", easeg, cpu_state.eaaddr);
	templ = geteal();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f %08X %i\n", (double)templ, templ, templ);
	x87_push((double)templ);
	CLOCK_CYCLES(x87_timings.fild_32);
	return 0;
}
static int opFILDil_a32(uint32_t fetchdat) {
	int32_t templ;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FILDs %08X:%08X\n", easeg, cpu_state.eaaddr);
	templ = geteal();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f %08X %i\n", (double)templ, templ, templ);
	x87_push((double)templ);
	CLOCK_CYCLES(x87_timings.fild_32);
	return 0;
}

static int opFISTil_a16(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTs %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = x87_fround(ST(0));
/*                        if (temp64 > 2147483647 || temp64 < -2147483647)
                           fatal("FISTl out of range! %i\n", temp64);*/
	seteal((int32_t)temp64);
	CLOCK_CYCLES(x87_timings.fist_32);
	return cpu_state.abrt;
}
static int opFISTil_a32(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTs %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = x87_fround(ST(0));
/*                        if (temp64 > 2147483647 || temp64 < -2147483647)
                           fatal("FISTl out of range! %i\n", temp64);*/
	seteal((int32_t)temp64);
	CLOCK_CYCLES(x87_timings.fist_32);
	return cpu_state.abrt;
}

static int opFISTPil_a16(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTs %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = x87_fround(ST(0));
/*                        if (temp64 > 2147483647 || temp64 < -2147483647)
                           fatal("FISTl out of range! %i\n", temp64);*/
	seteal((int32_t)temp64);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fist_32);
	return 0;
}
static int opFISTPil_a32(uint32_t fetchdat) {
	int64_t temp64;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FISTs %08X:%08X\n", easeg, cpu_state.eaaddr);
	temp64 = x87_fround(ST(0));
/*                        if (temp64 > 2147483647 || temp64 < -2147483647)
                           fatal("FISTl out of range! %i\n", temp64);*/
	seteal((int32_t)temp64);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fist_32);
	return 0;
}

static int opFLDe_a16(uint32_t fetchdat) {
	double t;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FLDe %08X:%08X\n", easeg, cpu_state.eaaddr);
	t = x87_ld80();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f\n", t);
	x87_push(t);
	CLOCK_CYCLES(x87_timings.fld_80);
	return 0;
}
static int opFLDe_a32(uint32_t fetchdat) {
	double t;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FLDe %08X:%08X\n", easeg, cpu_state.eaaddr);
	t = x87_ld80();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f\n", t);
	x87_push(t);
	CLOCK_CYCLES(x87_timings.fld_80);
	return 0;
}

static int opFSTPe_a16(uint32_t fetchdat) {
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FSTPe %08X:%08X\n", easeg, cpu_state.eaaddr);
	x87_st80(ST(0));
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fst_80);
	return 0;
}
static int opFSTPe_a32(uint32_t fetchdat) {
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FSTPe %08X:%08X\n", easeg, cpu_state.eaaddr);
	x87_st80(ST(0));
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fst_80);
	return 0;
}

static int opFLDd_a16(uint32_t fetchdat) {
	x87_td t;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FLDd %08X:%08X\n", easeg, cpu_state.eaaddr);
	t.i = geteaq();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f\n", t.d);
	x87_push(t.d);
	CLOCK_CYCLES(x87_timings.fld_64);
	return 0;
}
static int opFLDd_a32(uint32_t fetchdat) {
	x87_td t;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FLDd %08X:%08X\n", easeg, cpu_state.eaaddr);
	t.i = geteaq();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f\n", t.d);
	x87_push(t.d);
	CLOCK_CYCLES(x87_timings.fld_64);
	return 0;
}

static int opFSTd_a16(uint32_t fetchdat) {
	x87_td t;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FSTd %08X:%08X\n", easeg, cpu_state.eaaddr);
	t.d = ST(0);
	seteaq(t.i);
	CLOCK_CYCLES(x87_timings.fst_64);
	return cpu_state.abrt;
}
static int opFSTd_a32(uint32_t fetchdat) {
	x87_td t;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FSTd %08X:%08X\n", easeg, cpu_state.eaaddr);
	t.d = ST(0);
	seteaq(t.i);
	CLOCK_CYCLES(x87_timings.fst_64);
	return cpu_state.abrt;
}

static int opFSTPd_a16(uint32_t fetchdat) {
	x87_td t;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	CHECK_WRITE(cpu_state.ea_seg, cpu_state.eaaddr, cpu_state.eaaddr + 7);
	if (fplog)
		pclog("FSTd %08X:%08X\n", easeg, cpu_state.eaaddr);
	t.d = ST(0);
	seteaq(t.i);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fst_64);
	return 0;
}
static int opFSTPd_a32(uint32_t fetchdat) {
	x87_td t;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	CHECK_WRITE(cpu_state.ea_seg, cpu_state.eaaddr, cpu_state.eaaddr + 7);
	if (fplog)
		pclog("FSTd %08X:%08X\n", easeg, cpu_state.eaaddr);
	t.d = ST(0);
	seteaq(t.i);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fst_64);
	return 0;
}

static int opFLDs_a16(uint32_t fetchdat) {
	x87_ts ts;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FLDs %08X:%08X\n", easeg, cpu_state.eaaddr);
	ts.i = geteal();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f\n", ts.s);
	x87_push((double)ts.s);
	CLOCK_CYCLES(x87_timings.fld_32);
	return 0;
}
static int opFLDs_a32(uint32_t fetchdat) {
	x87_ts ts;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_READ(cpu_state.ea_seg);
	if (fplog)
		pclog("FLDs %08X:%08X\n", easeg, cpu_state.eaaddr);
	ts.i = geteal();
	if (cpu_state.abrt)
		return 1;
	if (fplog)
		pclog("  %f\n", ts.s);
	x87_push((double)ts.s);
	CLOCK_CYCLES(x87_timings.fld_32);
	return 0;
}

static int opFSTs_a16(uint32_t fetchdat) {
	x87_ts ts;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FSTs %08X:%08X\n", easeg, cpu_state.eaaddr);
	ts.s = (float)ST(0);
	seteal(ts.i);
	CLOCK_CYCLES(x87_timings.fst_32);
	return cpu_state.abrt;
}
static int opFSTs_a32(uint32_t fetchdat) {
	x87_ts ts;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FSTs %08X:%08X\n", easeg, cpu_state.eaaddr);
	ts.s = (float)ST(0);
	seteal(ts.i);
	CLOCK_CYCLES(x87_timings.fst_32);
	return cpu_state.abrt;
}

static int opFSTPs_a16(uint32_t fetchdat) {
	x87_ts ts;
	FP_ENTER();
	fetch_ea_16(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FSTs %08X:%08X\n", easeg, cpu_state.eaaddr);
	ts.s = (float)ST(0);
	seteal(ts.i);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fst_32);
	return 0;
}
static int opFSTPs_a32(uint32_t fetchdat) {
	x87_ts ts;
	FP_ENTER();
	fetch_ea_32(fetchdat);
	SEG_CHECK_WRITE(cpu_state.ea_seg);
	if (fplog)
		pclog("FSTs %08X:%08X\n", easeg, cpu_state.eaaddr);
	ts.s = (float)ST(0);
	seteal(ts.i);
	if (cpu_state.abrt)
		return 1;
	x87_pop();
	CLOCK_CYCLES(x87_timings.fst_32);
	return 0;
}

#endif /* _X87_OPS_LOADSTORE_H_ */
