mirror of
https://github.com/Wiimpathy/HatariWii.git
synced 2024-06-03 00:58:44 +02:00
398 lines
10 KiB
C
398 lines
10 KiB
C
/*
|
|
* UAE - The Un*x Amiga Emulator - CPU core
|
|
*
|
|
* MC68000 emulation
|
|
*
|
|
* Copyright 1995 Bernd Schmidt
|
|
*
|
|
* Adaptation to Hatari by Thomas Huth
|
|
*
|
|
* This file is distributed under the GNU General Public License, version 2
|
|
* or at your option any later version. Read the file gpl.txt for details.
|
|
*/
|
|
|
|
#ifndef UAE_NEWCPU_H
|
|
#define UAE_NEWCPU_H
|
|
|
|
#include "readcpu.h"
|
|
#include "m68k.h"
|
|
#include "memory.h"
|
|
|
|
|
|
/* Possible exceptions sources for M68000_Exception() and Exception() */
|
|
#define M68000_EXC_SRC_CPU 1 /* Direct CPU exception */
|
|
#define M68000_EXC_SRC_AUTOVEC 2 /* Auto-vector exception (e.g. VBL) */
|
|
#define M68000_EXC_SRC_INT_MFP 3 /* MFP interrupt exception */
|
|
#define M68000_EXC_SRC_INT_DSP 4 /* DSP interrupt exception */
|
|
|
|
|
|
/* Special flags */
|
|
#define SPCFLAG_DEBUGGER 1
|
|
#define SPCFLAG_STOP 2
|
|
#define SPCFLAG_BUSERROR 4
|
|
#define SPCFLAG_INT 8
|
|
#define SPCFLAG_BRK 0x10
|
|
#define SPCFLAG_EXTRA_CYCLES 0x20
|
|
#define SPCFLAG_TRACE 0x40
|
|
#define SPCFLAG_DOTRACE 0x80
|
|
#define SPCFLAG_DOINT 0x100
|
|
#define SPCFLAG_MFP 0x200
|
|
#define SPCFLAG_EXEC 0x400
|
|
#define SPCFLAG_MODE_CHANGE 0x800
|
|
#define SPCFLAG_DSP 0x1000
|
|
|
|
|
|
#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 const int areg_byteinc[];
|
|
extern const 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];
|
|
|
|
|
|
typedef unsigned long cpuop_func (uae_u32) REGPARAM;
|
|
|
|
struct cputbl {
|
|
cpuop_func *handler;
|
|
int specific;
|
|
uae_u16 opcode;
|
|
};
|
|
|
|
extern unsigned long op_illg (uae_u32) REGPARAM;
|
|
|
|
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
|
|
|
|
extern struct regstruct
|
|
{
|
|
uae_u32 regs[16];
|
|
uaecptr usp,isp,msp;
|
|
uae_u16 sr;
|
|
flagtype t1;
|
|
flagtype t0;
|
|
flagtype s;
|
|
flagtype m;
|
|
flagtype x;
|
|
flagtype stopped;
|
|
int intmask;
|
|
|
|
uae_u32 pc;
|
|
uae_u8 *pc_p;
|
|
uae_u8 *pc_oldp;
|
|
uae_u16 opcode;
|
|
uae_u32 instruction_pc;
|
|
|
|
uae_u32 vbr,sfc,dfc;
|
|
|
|
fptype fp[8];
|
|
fptype fp_result;
|
|
|
|
uae_u32 fpcr,fpsr,fpiar;
|
|
uae_u32 fpsr_highbyte;
|
|
|
|
uae_u32 spcflags;
|
|
|
|
uae_u32 prefetch_pc;
|
|
uae_u32 prefetch;
|
|
} regs, lastint_regs;
|
|
|
|
STATIC_INLINE void set_special (uae_u32 x)
|
|
{
|
|
regs.spcflags |= x;
|
|
}
|
|
|
|
STATIC_INLINE void unset_special (uae_u32 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 (uaecptr newpc)
|
|
{
|
|
regs.pc_p = regs.pc_oldp = get_real_address (newpc);
|
|
regs.pc = newpc;
|
|
}
|
|
|
|
STATIC_INLINE uaecptr m68k_getpc (void)
|
|
{
|
|
return regs.pc + ((char *)regs.pc_p - (char *)regs.pc_oldp);
|
|
}
|
|
|
|
STATIC_INLINE uaecptr m68k_getpc_p (uae_u8 *p)
|
|
{
|
|
return regs.pc + ((char *)p - (char *)regs.pc_oldp);
|
|
}
|
|
|
|
#define get_ibyte(o) do_get_mem_byte(regs.pc_p + (o) + 1)
|
|
#define get_iword(o) do_get_mem_word(regs.pc_p + (o))
|
|
#define get_ilong(o) do_get_mem_long(regs.pc_p + (o))
|
|
|
|
STATIC_INLINE void refill_prefetch (uae_u32 currpc, uae_u32 offs)
|
|
{
|
|
uae_u32 t = (currpc + offs) & ~1;
|
|
uae_u32 r;
|
|
#ifdef UNALIGNED_PROFITABLE
|
|
if ( t - regs.prefetch_pc == 2 ) /* keep 1 word and read 1 new word */
|
|
{
|
|
r = regs.prefetch;
|
|
r <<= 16;
|
|
r |= get_word (t+2);
|
|
}
|
|
else
|
|
{
|
|
/* [NP] FIXME : when we refill with 4 bytes, we should not read one long */
|
|
/* but 2 words, else some bus errors are not detected if the address overlaps */
|
|
/* on a bus error region (eg : get_long(t=213ffffe) doesn't give a bus error, */
|
|
/* but it should. This should be better handled in memory.c */
|
|
// r = get_long (t); /* read 2 new words */
|
|
r = get_word (t);
|
|
r <<= 16;
|
|
r |= get_word (t+2);
|
|
}
|
|
regs.prefetch = r;
|
|
#else
|
|
if ( t - regs.prefetch_pc == 2 ) /* keep 1 word and read 1 new word */
|
|
{
|
|
r = do_get_mem_word (((uae_u8 *)®s.prefetch) + 2);
|
|
r <<= 16;
|
|
r |= get_word (t+2);
|
|
}
|
|
else
|
|
{
|
|
/* [NP] FIXME : when we refill with 4 bytes, we should not read one long */
|
|
/* but 2 words, else some bus errors are not detected if the address overlaps */
|
|
/* on a bus error region (eg : get_long(t=213ffffe) doesn't give a bus error, */
|
|
/* but it should. This should be better handled in memory.c */
|
|
// r = get_long (t); /* read 2 new words */
|
|
r = get_word (t);
|
|
r <<= 16;
|
|
r |= get_word (t+2);
|
|
}
|
|
do_put_mem_long (®s.prefetch, r);
|
|
#endif
|
|
//fprintf (stderr,"PC %x PREFPC %x T %x R %x\n", currpc, regs.prefetch_pc, t, r);
|
|
regs.prefetch_pc = t;
|
|
}
|
|
|
|
STATIC_INLINE uae_u32 get_ibyte_prefetch (uae_s32 o)
|
|
{
|
|
uae_u32 currpc = m68k_getpc ();
|
|
uae_u32 addr = currpc + o + 1;
|
|
uae_u32 offs = addr - regs.prefetch_pc;
|
|
uae_u32 v;
|
|
if (offs > 3) {
|
|
refill_prefetch (currpc, o + 1);
|
|
offs = addr - regs.prefetch_pc;
|
|
}
|
|
v = do_get_mem_byte (((uae_u8 *)®s.prefetch) + offs);
|
|
if (offs >= 2)
|
|
refill_prefetch (currpc, 2);
|
|
/* printf ("get_ibyte PC %lx ADDR %lx OFFS %lx V %lx\n", currpc, addr, offs, v); */
|
|
return v;
|
|
}
|
|
STATIC_INLINE uae_u32 get_iword_prefetch (uae_s32 o)
|
|
{
|
|
uae_u32 currpc = m68k_getpc ();
|
|
uae_u32 addr = currpc + o;
|
|
uae_u32 offs = addr - regs.prefetch_pc;
|
|
uae_u32 v;
|
|
//fprintf (stderr,"get_iword PC %lx ADDR %lx OFFS %lx V %lx\n", currpc, addr, offs, v);
|
|
if (offs > 3) {
|
|
refill_prefetch (currpc, o);
|
|
offs = addr - regs.prefetch_pc;
|
|
}
|
|
v = do_get_mem_word (((uae_u8 *)®s.prefetch) + offs);
|
|
if (offs >= 2)
|
|
refill_prefetch (currpc, 2);
|
|
//fprintf (stderr,"get_iword PC %lx ADDR %lx OFFS %lx V %lx\n", currpc, addr, offs, v);
|
|
/* printf ("get_iword PC %lx ADDR %lx OFFS %lx V %lx\n", currpc, addr, offs, v); */
|
|
return v;
|
|
}
|
|
STATIC_INLINE uae_u32 get_ilong_prefetch (uae_s32 o)
|
|
{
|
|
uae_u32 v = get_iword_prefetch (o);
|
|
v <<= 16;
|
|
v |= get_iword_prefetch (o + 2);
|
|
return v;
|
|
}
|
|
|
|
#define m68k_incpc(o) (regs.pc_p += (o))
|
|
|
|
STATIC_INLINE void fill_prefetch_0 (void)
|
|
{
|
|
}
|
|
|
|
#define fill_prefetch_2 fill_prefetch_0
|
|
|
|
/* These are only used by the 68020/68881 code, and therefore don't
|
|
* need to handle prefetch. */
|
|
STATIC_INLINE uae_u32 next_ibyte (void)
|
|
{
|
|
uae_u32 r = get_ibyte (0);
|
|
m68k_incpc (2);
|
|
return r;
|
|
}
|
|
|
|
STATIC_INLINE uae_u32 next_iword (void)
|
|
{
|
|
uae_u32 r = get_iword (0);
|
|
m68k_incpc (2);
|
|
return r;
|
|
}
|
|
|
|
STATIC_INLINE uae_u32 next_ilong (void)
|
|
{
|
|
uae_u32 r = get_ilong (0);
|
|
m68k_incpc (4);
|
|
return r;
|
|
}
|
|
|
|
#define m68k_setpc_bcc m68k_setpc
|
|
#define m68k_setpc_rte m68k_setpc
|
|
|
|
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;
|
|
}
|
|
|
|
/* m68k_do_rts, m68k_do_bsr and m68k_do_jsr were originally defined in
|
|
* compiler.h, but since that header file has been removed from Hatari,
|
|
* they are now defined here: */
|
|
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(uaecptr oldpc, uae_s32 offset)
|
|
{
|
|
m68k_areg(regs, 7) -= 4;
|
|
put_long(m68k_areg(regs, 7), oldpc);
|
|
m68k_incpc(offset);
|
|
}
|
|
|
|
STATIC_INLINE void m68k_do_jsr(uaecptr oldpc, uaecptr dest)
|
|
{
|
|
m68k_areg(regs, 7) -= 4;
|
|
put_long(m68k_areg(regs, 7), oldpc);
|
|
m68k_setpc(dest);
|
|
}
|
|
|
|
|
|
extern uae_u32 get_disp_ea_020 (uae_u32 base, uae_u32 dp);
|
|
extern uae_u32 get_disp_ea_000 (uae_u32 base, uae_u32 dp);
|
|
|
|
extern uae_s32 ShowEA (FILE *, int reg, amodes mode, wordsizes size, char *buf);
|
|
|
|
extern void MakeSR (void);
|
|
extern void MakeFromSR (void);
|
|
extern void Exception (int, uaecptr, int);
|
|
extern void dump_counts (void);
|
|
extern int m68k_move2c (int, uae_u32 *);
|
|
extern int m68k_movec2 (int, uae_u32 *);
|
|
extern void m68k_divl (uae_u32, uae_u32, uae_u16, uaecptr);
|
|
extern void m68k_mull (uae_u32, uae_u32, uae_u16);
|
|
extern void build_cpufunctbl(void);
|
|
extern void init_m68k (void);
|
|
extern void m68k_go (int);
|
|
extern void m68k_dumpstate (FILE *, uaecptr *);
|
|
extern void m68k_disasm (FILE *, uaecptr, uaecptr *, int);
|
|
extern void m68k_reset (void);
|
|
|
|
extern void mmu_op (uae_u32, uae_u16);
|
|
|
|
extern void fpp_opp (uae_u32, uae_u16);
|
|
extern void fdbcc_opp (uae_u32, uae_u16);
|
|
extern void fscc_opp (uae_u32, uae_u16);
|
|
extern void ftrapcc_opp (uae_u32,uaecptr);
|
|
extern void fbcc_opp (uae_u32, uaecptr, uae_u32);
|
|
extern void fsave_opp (uae_u32);
|
|
extern void frestore_opp (uae_u32);
|
|
|
|
extern int getDivu68kCycles (uae_u32 dividend, uae_u16 divisor);
|
|
extern int getDivs68kCycles (uae_s32 dividend, uae_s16 divisor);
|
|
|
|
/* Opcode of faulting instruction */
|
|
extern uae_u16 last_op_for_exception_3;
|
|
/* PC at fault time */
|
|
extern uaecptr last_addr_for_exception_3;
|
|
/* Address that generated the exception */
|
|
extern uaecptr last_fault_for_exception_3;
|
|
/* read (0) or write (1) access */
|
|
extern int last_writeaccess_for_exception_3;
|
|
/* instruction (1) or data (0) access */
|
|
extern int last_instructionaccess_for_exception_3;
|
|
|
|
#define CPU_OP_NAME(a) op ## a
|
|
|
|
/* 68040 */
|
|
extern const struct cputbl op_smalltbl_0_ff[];
|
|
/* 68020 + 68881 */
|
|
extern const struct cputbl op_smalltbl_1_ff[];
|
|
/* 68020 */
|
|
extern const struct cputbl op_smalltbl_2_ff[];
|
|
/* 68010 */
|
|
extern const struct cputbl op_smalltbl_3_ff[];
|
|
/* 68000 */
|
|
extern const struct cputbl op_smalltbl_4_ff[];
|
|
/* 68000 slow but compatible. */
|
|
extern const struct cputbl op_smalltbl_5_ff[];
|
|
|
|
extern cpuop_func *cpufunctbl[65536];
|
|
|
|
extern uae_u32 caar, cacr;
|
|
|
|
/* Family of the latest instruction executed (to check for pairing) */
|
|
extern int OpcodeFamily; /* see instrmnem in readcpu.h */
|
|
|
|
/* How many cycles to add to the current instruction in case a "misaligned" bus acces is made */
|
|
/* (used when addressing mode is d8(an,ix)) */
|
|
extern int BusCyclePenalty;
|
|
|
|
#endif /* UAE_NEWCPU_H */
|