/*
 * UAE - The Un*x Amiga Emulator
 *
 * MC68000 emulation
 *
 * Copyright 1995 Bernd Schmidt
 * $Id: newcpu.h 2085 2006-05-16 19:28:18Z roms $
 */

#include "../ti_hw/mem.h"
#include "machdep/maccess.h"
#include "readcpu.h"
#include "stdlib.h"
#include "sysdeps.h"
#define CYGNUS_SIM 1

#define SPCFLAG_DBTRACE 1
#define SPCFLAG_DBSKIP 2
#define SPCFLAG_STOP 4
#define SPCFLAG_INT 8
#define SPCFLAG_BRK 16
#define SPCFLAG_TRACE 32
#define SPCFLAG_DOTRACE 64
#define SPCFLAG_DOINT 128
#define SPCFLAG_ADRERR 256
#define SPCFLAG_MODE_CHANGE 512

#ifndef SET_CFLG

#define SET_CFLG(x) (CFLG = (x))
#define SET_NFLG(x) (NFLG = (x))
#define SET_VFLG(x) (VFLG = (x))
#define SET_ZFLG(x) (ZFLG = (x))
#define SET_XFLG(x) (XFLG = (x))

#define GET_CFLG CFLG
#define GET_NFLG NFLG
#define GET_VFLG VFLG
#define GET_ZFLG ZFLG
#define GET_XFLG XFLG

#define CLEAR_CZNV   \
	do {             \
		SET_CFLG(0); \
		SET_ZFLG(0); \
		SET_NFLG(0); \
		SET_VFLG(0); \
	} while(0)

#define COPY_CARRY (SET_XFLG(GET_CFLG))
#endif

extern int areg_byteinc[];
extern int imm8_table[];

extern int movem_index1[256];
extern int movem_index2[256];
extern int movem_next[256];

extern int fpp_movem_index1[256];
extern int fpp_movem_index2[256];
extern int fpp_movem_next[256];

extern int broken_in;

extern int uae_initial_pc;
extern int currIntLev;
extern void Interrupt(int);

typedef unsigned long cpuop_func(uint32_t);

struct cputbl {
	cpuop_func *handler;
	int specific;
	uint16_t opcode;
};

extern unsigned long op_illg(uint32_t);

typedef char flagtype;

/* You can set this to long double to be more accurate. However, the
   resulting alignment issues will cost a lot of performance in some
   apps */
#define USE_LONG_DOUBLE 0

#if USE_LONG_DOUBLE
typedef long double fptype;
#else
typedef double fptype;
#endif

struct flag_struct {
	unsigned int c;
	unsigned int z;
	unsigned int n;
	unsigned int v;
	unsigned int x;
};

extern struct regstruct {
	uint32_t regs[16];
	uintptr_t usp, isp /*,msp*/;
	uint16_t sr;
	flagtype t1;
	//    flagtype t0;
	flagtype s;
	//    flagtype m;
	flagtype x;
	flagtype stopped;
	struct flag_struct flags;
	int intmask;

	uint32_t pc;
	uint8_t *pc_p;
	uint8_t *pc_oldp;

	uint32_t vbr, sfc, dfc;

	fptype fp[8];
	fptype fp_result;

	uint32_t fpcr, fpsr, fpiar;
	uint32_t fpsr_highbyte;

	uint32_t spcflags;
	uint32_t kick_mask;
	uint32_t address_space_mask;
	uint16_t irc, ir;

	uint8_t panic;
	uint32_t panic_pc, panic_addr;

#if CYGNUS_SIM
	/* NOTE stuff related to simulator framework */

	/* NOTE need to have m68k performance information here */

	unsigned char *insn_end;

	/* NOTE control information */

	int prevlock;
	int thislock;
	int exception;

	int end_of_registers;

	/* NOTE simulator information */
	int msize;
#define PROFILE_FREQ 1
#define PROFILE_SHIFT 2
	int profile;
	unsigned short *profile_hist;
	unsigned char *memory;
	int xyram_select, xram_start, yram_start;
	unsigned char *xmem;
	unsigned char *ymem;
	unsigned char *xmem_offset;
	unsigned char *ymem_offset;
#endif /* CYGNUS_SIM */
} regs, lastint_regs;

#include "machdep/m68k.h"

#if CYGNUS_SIM
extern int trace;
#endif /* CYGNUS_SIM */

STATIC_INLINE uint32_t munge24(uint32_t x) {
	return x & regs.address_space_mask;
}

STATIC_INLINE void set_special(uint32_t x) {
	regs.spcflags |= x;
}

STATIC_INLINE void unset_special(uint32_t x) {
	regs.spcflags &= ~x;
}

#define m68k_dreg(r, num) ((r).regs[(num)])
#define m68k_areg(r, num) (((r).regs + 8)[(num)])

STATIC_INLINE void m68k_setpc(uintptr_t newpc) {
	regs.pc_p = regs.pc_oldp = hw_get_real_address(newpc);
	regs.pc = newpc & 0xffffff;
}

STATIC_INLINE uintptr_t m68k_getpc(void) {
	return regs.pc + ((char *)regs.pc_p - (char *)regs.pc_oldp);
}

STATIC_INLINE uintptr_t m68k_getpc_p(uint8_t *p) {
	return regs.pc + ((char *)p - (char *)regs.pc_oldp);
}

#define get_ibyte(o) do_get_mem_byte((uint8_t *)(regs.pc_p + (o) + 1))
#define get_iword(o) do_get_mem_word((uint16_t *)(regs.pc_p + (o)))
#define get_ilong(o) do_get_mem_long((uint32_t *)(regs.pc_p + (o)))

#define m68k_incpc(o) (regs.pc_p += (o))

/* These are only used by the 68020/68881 code, and therefore don't
 * need to handle prefetch.  */
STATIC_INLINE uint32_t next_ibyte(void) {
	uint32_t r = get_ibyte(0);
	m68k_incpc(2);
	return r;
}

STATIC_INLINE uint32_t next_iword(void) {
	uint32_t r = get_iword(0);
	m68k_incpc(2);
	return r;
}

STATIC_INLINE uint32_t next_ilong(void) {
	uint32_t r = get_ilong(0);
	m68k_incpc(4);
	return r;
}

STATIC_INLINE void m68k_do_rts(void) {
	m68k_setpc(get_long(m68k_areg(regs, 7)));
	m68k_areg(regs, 7) += 4;
}

STATIC_INLINE void m68k_do_bsr(uintptr_t oldpc, int32_t offset) {
	m68k_areg(regs, 7) -= 4;
	put_long(m68k_areg(regs, 7), oldpc);
	m68k_incpc(offset);
}

STATIC_INLINE void m68k_do_jsr(uintptr_t oldpc, uintptr_t dest) {
	m68k_areg(regs, 7) -= 4;
	put_long(m68k_areg(regs, 7), oldpc);
	m68k_setpc(dest);
}

STATIC_INLINE void m68k_setstopped(int stop) {
	regs.stopped = stop;
	/* A traced STOP instruction drops through immediately without
	   actually stopping.  */
	if(stop && (regs.spcflags & SPCFLAG_DOTRACE) == 0) regs.spcflags |= SPCFLAG_STOP;
}

extern uint32_t get_disp_ea_020(uint32_t base, uint32_t dp);
extern uint32_t get_disp_ea_000(uint32_t base, uint32_t dp);

extern int32_t ShowEA(FILE *, int reg, amodes mode, wordsizes size, char *buf);

extern void MakeSR(void);
extern void MakeFromSR(void);
extern void Exception(int, uintptr_t);
extern void dump_counts(void);
extern int m68k_move2c(int, uint32_t *);
extern int m68k_movec2(int, uint32_t *);
extern void m68k_divl(uint32_t, uint32_t, uint16_t, uintptr_t);
extern void m68k_mull(uint32_t, uint32_t, uint16_t);
extern void init_m68k(void);
extern void m68k_go(int);
#if 0
extern void m68k_dumpstate (FILE *, uintptr_t *);
#endif /* 0 */
#ifdef NO_GDB
extern int m68k_disasm(char *, uintptr_t);
#endif /* NO_GDB */
extern void m68k_reset(void);
extern int intlev(void);

extern void mmu_op(uint32_t, uint16_t);

extern void fpp_opp(uint32_t, uint16_t);
extern void fdbcc_opp(uint32_t, uint16_t);
extern void fscc_opp(uint32_t, uint16_t);
extern void ftrapcc_opp(uint32_t, uintptr_t);
extern void fbcc_opp(uint32_t, uintptr_t, uint32_t);
extern void fsave_opp(uint32_t);
extern void frestore_opp(uint32_t);

extern void exception3(uint32_t opcode, uintptr_t addr, uintptr_t fault);
extern void exception3i(uint32_t opcode, uintptr_t addr, uintptr_t fault);
#if 0
extern void exception2 (uintptr_t addr, uintptr_t fault);
extern void cpureset (void);
#endif /* 0 */

extern void fill_prefetch_slow(void);

#define CPU_OP_NAME(a) op##a

/* 68040 */
extern struct cputbl op_smalltbl_0_ff[];
/* 68020 + 68881 */
extern struct cputbl op_smalltbl_1_ff[];
/* 68020 */
extern struct cputbl op_smalltbl_2_ff[];
/* 68010 */
extern struct cputbl op_smalltbl_3_ff[];
/* 68000 */
extern struct cputbl op_smalltbl_4_ff[];
/* 68000 slow but compatible.  */
extern struct cputbl op_smalltbl_5_ff[];

extern cpuop_func *cpufunctbl[65536] ASM_SYM_FOR_FUNC("cpufunctbl");

#ifdef JIT
#else
#define flush_icache(X) \
	do {                \
	} while(0)
#endif