--- hatari/src/uae-cpu/newcpu.h 2019/04/01 07:09:16 1.1 +++ hatari/src/uae-cpu/newcpu.h 2019/04/09 08:59:34 1.1.1.18 @@ -1,30 +1,45 @@ /* - * UAE - The Un*x Amiga Emulator + * 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 UAENEWCPU -#define UAENEWCPU +#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 */ -/* custom chip support */ + +/* Special flags */ +#define SPCFLAG_DEBUGGER 1 #define SPCFLAG_STOP 2 -/*#define SPCFLAG_COPPER 4*/ +#define SPCFLAG_BUSERROR 4 #define SPCFLAG_INT 8 -#define SPCFLAG_BRK 16 -#define SPCFLAG_EXTRA_CYCLES 32 -#define SPCFLAG_TRACE 64 -#define SPCFLAG_DOTRACE 128 -#define SPCFLAG_DOINT 256 -/*#define SPCFLAG_BLTNASTY 512*/ -#define SPCFLAG_EXEC 1024 -#define SPCFLAG_MODE_CHANGE 8192 +#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 @@ -51,8 +66,8 @@ #define COPY_CARRY (SET_XFLG (GET_CFLG)) #endif -extern int areg_byteinc[]; -extern int imm8_table[]; +extern const int areg_byteinc[]; +extern const int imm8_table[]; extern int movem_index1[256]; extern int movem_index2[256]; @@ -62,7 +77,6 @@ extern int fpp_movem_index1[256]; extern int fpp_movem_index2[256]; extern int fpp_movem_next[256]; -extern int broken_in; typedef unsigned long cpuop_func (uae_u32) REGPARAM; @@ -76,6 +90,17 @@ extern unsigned long op_illg (uae_u32) R 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]; @@ -92,20 +117,21 @@ extern struct regstruct uae_u32 pc; uae_u8 *pc_p; uae_u8 *pc_oldp; + uae_u16 opcode; + uae_u32 instruction_pc; uae_u32 vbr,sfc,dfc; + uae_u32 caar, cacr; + + fptype fp[8]; + fptype fp_result; - double fp[8]; uae_u32 fpcr,fpsr,fpiar; + uae_u32 fpsr_highbyte; uae_u32 spcflags; - uae_u32 kick_mask; - /* Fellow sources say this is 4 longwords. That's impossible. It needs - * to be at least a longword. The HRM has some cryptic comment about two - * instructions being on the same longword boundary. - * The way this is implemented now seems like a good compromise. - */ + uae_u32 prefetch_pc; uae_u32 prefetch; } regs, lastint_regs; @@ -122,58 +148,127 @@ STATIC_INLINE void unset_special (uae_u3 #define m68k_dreg(r,num) ((r).regs[(num)]) #define m68k_areg(r,num) (((r).regs + 8)[(num)]) -#define get_ibyte(o) do_get_mem_byte((uae_u8 *)(regs.pc_p + (o) + 1)) -#define get_iword(o) do_get_mem_word((uae_u16 *)(regs.pc_p + (o))) -#define get_ilong(o) do_get_mem_long((uae_u32 *)(regs.pc_p + (o))) -STATIC_INLINE uae_u32 get_ibyte_prefetch (uae_s32 o) +STATIC_INLINE void m68k_setpc (uaecptr newpc) { - if (o > 3 || o < 0) - return do_get_mem_byte((uae_u8 *)(regs.pc_p + o + 1)); - - return do_get_mem_byte((uae_u8 *)(((uae_u8 *)®s.prefetch) + o + 1)); + regs.pc_p = regs.pc_oldp = get_real_address (newpc); + regs.pc = newpc; } -STATIC_INLINE uae_u32 get_iword_prefetch (uae_s32 o) -{ - if (o > 3 || o < 0) - return do_get_mem_word((uae_u16 *)(regs.pc_p + o)); - return do_get_mem_word((uae_u16 *)(((uae_u8 *)®s.prefetch) + o)); +STATIC_INLINE uaecptr m68k_getpc (void) +{ + return regs.pc + ((char *)regs.pc_p - (char *)regs.pc_oldp); } -STATIC_INLINE uae_u32 get_ilong_prefetch (uae_s32 o) + +STATIC_INLINE uaecptr m68k_getpc_p (uae_u8 *p) { - if (o > 3 || o < 0) - return do_get_mem_long((uae_u32 *)(regs.pc_p + o)); - if (o == 0) - return do_get_mem_long(®s.prefetch); - return (do_get_mem_word (((uae_u16 *)®s.prefetch) + 1) << 16) | do_get_mem_word ((uae_u16 *)(regs.pc_p + 4)); + return regs.pc + ((char *)p - (char *)regs.pc_oldp); } -#define m68k_incpc(o) (regs.pc_p += (o)) +#define M68K_GETPC m68k_getpc() -STATIC_INLINE void fill_prefetch_0 (void) +#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; + +//fprintf ( stderr , "refill pc %x o %d old %x\n" , currpc,offs,regs.prefetch_pc ); #ifdef UNALIGNED_PROFITABLE - r = *(uae_u32 *)regs.pc_p; + 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 - r = do_get_mem_long ((uae_u32 *)regs.pc_p); + 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; } -#if 0 -STATIC_INLINE void fill_prefetch_2 (void) +STATIC_INLINE uae_u32 get_ibyte_prefetch (uae_s32 o) { - uae_u32 r = do_get_mem_long (®s.prefetch) << 16; - uae_u32 r2 = do_get_mem_word (((uae_u16 *)regs.pc_p) + 1); - r |= r2; - do_put_mem_long (®s.prefetch, r); + 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; } -#else +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 -#endif /* These are only used by the 68020/68881 code, and therefore don't * need to handle prefetch. */ @@ -198,43 +293,42 @@ STATIC_INLINE uae_u32 next_ilong (void) return r; } -#if !defined USE_COMPILER -STATIC_INLINE void m68k_setpc (uaecptr newpc) +#define m68k_setpc_bcc m68k_setpc +#define m68k_setpc_rte m68k_setpc + +STATIC_INLINE void m68k_setstopped (int stop) { - regs.pc_p = regs.pc_oldp = (uae_u8 *)get_real_address(newpc); - regs.pc = newpc; + regs.stopped = stop; + /* A traced STOP instruction drops through immediately without + actually stopping. */ + if (stop && (regs.spcflags & SPCFLAG_DOTRACE) == 0) + regs.spcflags |= SPCFLAG_STOP; } -#else -extern void m68k_setpc (uaecptr newpc); -#endif -STATIC_INLINE uaecptr m68k_getpc (void) +/* 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) { - return regs.pc + ((char *)regs.pc_p - (char *)regs.pc_oldp); + m68k_setpc(get_long(m68k_areg(regs, 7))); + m68k_areg(regs, 7) += 4; } -STATIC_INLINE uaecptr m68k_getpc_p (uae_u8 *p) +STATIC_INLINE void m68k_do_bsr(uaecptr oldpc, uae_s32 offset) { - return regs.pc + ((char *)p - (char *)regs.pc_oldp); + m68k_areg(regs, 7) -= 4; + put_long(m68k_areg(regs, 7), oldpc); + m68k_incpc(offset); } -#ifdef USE_COMPILER -extern void m68k_setpc_fast (uaecptr newpc); -extern void m68k_setpc_bcc (uaecptr newpc); -extern void m68k_setpc_rte (uaecptr newpc); -#else -#define m68k_setpc_fast m68k_setpc -#define m68k_setpc_bcc m68k_setpc -#define m68k_setpc_rte m68k_setpc -#endif - -STATIC_INLINE void m68k_setstopped (int stop) +STATIC_INLINE void m68k_do_jsr(uaecptr oldpc, uaecptr dest) { - regs.stopped = stop; - if (stop) - regs.spcflags |= SPCFLAG_STOP; + 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); @@ -242,12 +336,13 @@ extern uae_s32 ShowEA (FILE *, int reg, extern void MakeSR (void); extern void MakeFromSR (void); -extern void Exception (int, uaecptr); +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 *); @@ -264,28 +359,43 @@ extern void fbcc_opp (uae_u32, uaecptr, 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 struct cputbl op_smalltbl_0_ff[]; +extern const struct cputbl op_smalltbl_0_ff[]; /* 68020 + 68881 */ -extern struct cputbl op_smalltbl_1_ff[]; +extern const struct cputbl op_smalltbl_1_ff[]; /* 68020 */ -extern struct cputbl op_smalltbl_2_ff[]; +extern const struct cputbl op_smalltbl_2_ff[]; /* 68010 */ -extern struct cputbl op_smalltbl_3_ff[]; +extern const struct cputbl op_smalltbl_3_ff[]; /* 68000 */ -extern struct cputbl op_smalltbl_4_ff[]; +extern const struct cputbl op_smalltbl_4_ff[]; /* 68000 slow but compatible. */ -extern struct cputbl op_smalltbl_5_ff[]; +extern const struct cputbl op_smalltbl_5_ff[]; + +extern cpuop_func *cpufunctbl[65536]; + + +/* Family of the latest instruction executed (to check for pairing) */ +extern int OpcodeFamily; /* see instrmnem in readcpu.h */ -extern cpuop_func *cpufunctbl[65536] ASM_SYM_FOR_FUNC ("cpufunctbl"); +/* How many cycles to add to the current instruction in case a "misaligned" bus access is made */ +/* (used when addressing mode is d8(an,ix)) */ +extern int BusCyclePenalty; -#endif /* ifndef UAENEWCPU */ +#endif /* UAE_NEWCPU_H */