|
|
1.1 ! root 1: /* ! 2: * UAE - The Un*x Amiga Emulator - CPU core ! 3: * ! 4: * MC68000 emulation ! 5: * ! 6: * Copyright 1995 Bernd Schmidt ! 7: * ! 8: * Adaptation to Hatari by Thomas Huth ! 9: * ! 10: * This file is distributed under the GNU Public License, version 2 or at ! 11: * your option any later version. Read the file gpl.txt for details. ! 12: */ ! 13: ! 14: #ifndef UAE_NEWCPU_H ! 15: #define UAE_NEWCPU_H ! 16: ! 17: #include "readcpu.h" ! 18: #include "m68k.h" ! 19: #include "memory.h" ! 20: ! 21: ! 22: /* Possible exceptions sources for M68000_Exception() and Exception() */ ! 23: #define M68000_EXC_SRC_CPU 1 /* Direct CPU exception */ ! 24: #define M68000_EXC_SRC_AUTOVEC 2 /* Auto-vector exception (e.g. VBL) */ ! 25: #define M68000_EXC_SRC_INT_MFP 3 /* MFP interrupt exception */ ! 26: #define M68000_EXC_SRC_INT_DSP 4 /* DSP interrupt exception */ ! 27: ! 28: ! 29: /* Special flags */ ! 30: #define SPCFLAG_DEBUGGER 1 ! 31: #define SPCFLAG_STOP 2 ! 32: #define SPCFLAG_BUSERROR 4 ! 33: #define SPCFLAG_INT 8 ! 34: #define SPCFLAG_BRK 0x10 ! 35: #define SPCFLAG_EXTRA_CYCLES 0x20 ! 36: #define SPCFLAG_TRACE 0x40 ! 37: #define SPCFLAG_DOTRACE 0x80 ! 38: #define SPCFLAG_DOINT 0x100 ! 39: #define SPCFLAG_MFP 0x200 ! 40: #define SPCFLAG_EXEC 0x400 ! 41: #define SPCFLAG_MODE_CHANGE 0x800 ! 42: ! 43: ! 44: #ifndef SET_CFLG ! 45: ! 46: #define SET_CFLG(x) (CFLG = (x)) ! 47: #define SET_NFLG(x) (NFLG = (x)) ! 48: #define SET_VFLG(x) (VFLG = (x)) ! 49: #define SET_ZFLG(x) (ZFLG = (x)) ! 50: #define SET_XFLG(x) (XFLG = (x)) ! 51: ! 52: #define GET_CFLG CFLG ! 53: #define GET_NFLG NFLG ! 54: #define GET_VFLG VFLG ! 55: #define GET_ZFLG ZFLG ! 56: #define GET_XFLG XFLG ! 57: ! 58: #define CLEAR_CZNV do { \ ! 59: SET_CFLG (0); \ ! 60: SET_ZFLG (0); \ ! 61: SET_NFLG (0); \ ! 62: SET_VFLG (0); \ ! 63: } while (0) ! 64: ! 65: #define COPY_CARRY (SET_XFLG (GET_CFLG)) ! 66: #endif ! 67: ! 68: extern const int areg_byteinc[]; ! 69: extern const int imm8_table[]; ! 70: ! 71: extern int movem_index1[256]; ! 72: extern int movem_index2[256]; ! 73: extern int movem_next[256]; ! 74: ! 75: extern int fpp_movem_index1[256]; ! 76: extern int fpp_movem_index2[256]; ! 77: extern int fpp_movem_next[256]; ! 78: ! 79: ! 80: typedef unsigned long cpuop_func (uae_u32) REGPARAM; ! 81: ! 82: struct cputbl { ! 83: cpuop_func *handler; ! 84: int specific; ! 85: uae_u16 opcode; ! 86: }; ! 87: ! 88: extern unsigned long op_illg (uae_u32) REGPARAM; ! 89: ! 90: typedef char flagtype; ! 91: ! 92: /* You can set this to long double to be more accurate. However, the ! 93: resulting alignment issues will cost a lot of performance in some ! 94: apps */ ! 95: #define USE_LONG_DOUBLE 0 ! 96: ! 97: #if USE_LONG_DOUBLE ! 98: typedef long double fptype; ! 99: #else ! 100: typedef double fptype; ! 101: #endif ! 102: ! 103: extern struct regstruct ! 104: { ! 105: uae_u32 regs[16]; ! 106: uaecptr usp,isp,msp; ! 107: uae_u16 sr; ! 108: flagtype t1; ! 109: flagtype t0; ! 110: flagtype s; ! 111: flagtype m; ! 112: flagtype x; ! 113: flagtype stopped; ! 114: int intmask; ! 115: ! 116: uae_u32 pc; ! 117: uae_u8 *pc_p; ! 118: uae_u8 *pc_oldp; ! 119: ! 120: uae_u32 vbr,sfc,dfc; ! 121: ! 122: fptype fp[8]; ! 123: fptype fp_result; ! 124: ! 125: uae_u32 fpcr,fpsr,fpiar; ! 126: uae_u32 fpsr_highbyte; ! 127: ! 128: uae_u32 spcflags; ! 129: ! 130: uae_u32 prefetch_pc; ! 131: uae_u32 prefetch; ! 132: } regs, lastint_regs; ! 133: ! 134: STATIC_INLINE void set_special (uae_u32 x) ! 135: { ! 136: regs.spcflags |= x; ! 137: } ! 138: ! 139: STATIC_INLINE void unset_special (uae_u32 x) ! 140: { ! 141: regs.spcflags &= ~x; ! 142: } ! 143: ! 144: #define m68k_dreg(r,num) ((r).regs[(num)]) ! 145: #define m68k_areg(r,num) (((r).regs + 8)[(num)]) ! 146: ! 147: ! 148: STATIC_INLINE void m68k_setpc (uaecptr newpc) ! 149: { ! 150: regs.pc_p = regs.pc_oldp = get_real_address (newpc); ! 151: regs.pc = newpc; ! 152: } ! 153: ! 154: STATIC_INLINE uaecptr m68k_getpc (void) ! 155: { ! 156: return regs.pc + ((char *)regs.pc_p - (char *)regs.pc_oldp); ! 157: } ! 158: ! 159: STATIC_INLINE uaecptr m68k_getpc_p (uae_u8 *p) ! 160: { ! 161: return regs.pc + ((char *)p - (char *)regs.pc_oldp); ! 162: } ! 163: ! 164: #define get_ibyte(o) do_get_mem_byte(regs.pc_p + (o) + 1) ! 165: #define get_iword(o) do_get_mem_word(regs.pc_p + (o)) ! 166: #define get_ilong(o) do_get_mem_long(regs.pc_p + (o)) ! 167: ! 168: STATIC_INLINE void refill_prefetch (uae_u32 currpc, uae_u32 offs) ! 169: { ! 170: uae_u32 t = (currpc + offs) & ~1; ! 171: uae_s32 pc_p_offs = t - currpc; ! 172: uae_u8 *ptr = regs.pc_p + pc_p_offs; ! 173: uae_u32 r; ! 174: #ifdef UNALIGNED_PROFITABLE ! 175: r = *(uae_u32 *)ptr; ! 176: regs.prefetch = r; ! 177: #else ! 178: r = do_get_mem_long (ptr); ! 179: do_put_mem_long (®s.prefetch, r); ! 180: #endif ! 181: /* printf ("PC %lx T %lx PCPOFFS %d R %lx\n", currpc, t, pc_p_offs, r); */ ! 182: regs.prefetch_pc = t; ! 183: } ! 184: ! 185: STATIC_INLINE uae_u32 get_ibyte_prefetch (uae_s32 o) ! 186: { ! 187: uae_u32 currpc = m68k_getpc (); ! 188: uae_u32 addr = currpc + o + 1; ! 189: uae_u32 offs = addr - regs.prefetch_pc; ! 190: uae_u32 v; ! 191: if (offs > 3) { ! 192: refill_prefetch (currpc, o + 1); ! 193: offs = addr - regs.prefetch_pc; ! 194: } ! 195: v = do_get_mem_byte (((uae_u8 *)®s.prefetch) + offs); ! 196: if (offs >= 2) ! 197: refill_prefetch (currpc, 2); ! 198: /* printf ("get_ibyte PC %lx ADDR %lx OFFS %lx V %lx\n", currpc, addr, offs, v); */ ! 199: return v; ! 200: } ! 201: STATIC_INLINE uae_u32 get_iword_prefetch (uae_s32 o) ! 202: { ! 203: uae_u32 currpc = m68k_getpc (); ! 204: uae_u32 addr = currpc + o; ! 205: uae_u32 offs = addr - regs.prefetch_pc; ! 206: uae_u32 v; ! 207: if (offs > 3) { ! 208: refill_prefetch (currpc, o); ! 209: offs = addr - regs.prefetch_pc; ! 210: } ! 211: v = do_get_mem_word (((uae_u8 *)®s.prefetch) + offs); ! 212: if (offs >= 2) ! 213: refill_prefetch (currpc, 2); ! 214: /* printf ("get_iword PC %lx ADDR %lx OFFS %lx V %lx\n", currpc, addr, offs, v); */ ! 215: return v; ! 216: } ! 217: STATIC_INLINE uae_u32 get_ilong_prefetch (uae_s32 o) ! 218: { ! 219: uae_u32 v = get_iword_prefetch (o); ! 220: v <<= 16; ! 221: v |= get_iword_prefetch (o + 2); ! 222: return v; ! 223: } ! 224: ! 225: #define m68k_incpc(o) (regs.pc_p += (o)) ! 226: ! 227: STATIC_INLINE void fill_prefetch_0 (void) ! 228: { ! 229: } ! 230: ! 231: #define fill_prefetch_2 fill_prefetch_0 ! 232: ! 233: /* These are only used by the 68020/68881 code, and therefore don't ! 234: * need to handle prefetch. */ ! 235: STATIC_INLINE uae_u32 next_ibyte (void) ! 236: { ! 237: uae_u32 r = get_ibyte (0); ! 238: m68k_incpc (2); ! 239: return r; ! 240: } ! 241: ! 242: STATIC_INLINE uae_u32 next_iword (void) ! 243: { ! 244: uae_u32 r = get_iword (0); ! 245: m68k_incpc (2); ! 246: return r; ! 247: } ! 248: ! 249: STATIC_INLINE uae_u32 next_ilong (void) ! 250: { ! 251: uae_u32 r = get_ilong (0); ! 252: m68k_incpc (4); ! 253: return r; ! 254: } ! 255: ! 256: #define m68k_setpc_bcc m68k_setpc ! 257: #define m68k_setpc_rte m68k_setpc ! 258: ! 259: STATIC_INLINE void m68k_setstopped (int stop) ! 260: { ! 261: regs.stopped = stop; ! 262: /* A traced STOP instruction drops through immediately without ! 263: actually stopping. */ ! 264: if (stop && (regs.spcflags & SPCFLAG_DOTRACE) == 0) ! 265: regs.spcflags |= SPCFLAG_STOP; ! 266: } ! 267: ! 268: /* m68k_do_rts, m68k_do_bsr and m68k_do_jsr were originally defined in ! 269: * compiler.h, but since that header file has been removed from Hatari, ! 270: * they are now defined here: */ ! 271: STATIC_INLINE void m68k_do_rts(void) ! 272: { ! 273: m68k_setpc(get_long(m68k_areg(regs, 7))); ! 274: m68k_areg(regs, 7) += 4; ! 275: } ! 276: ! 277: STATIC_INLINE void m68k_do_bsr(uaecptr oldpc, uae_s32 offset) ! 278: { ! 279: m68k_areg(regs, 7) -= 4; ! 280: put_long(m68k_areg(regs, 7), oldpc); ! 281: m68k_incpc(offset); ! 282: } ! 283: ! 284: STATIC_INLINE void m68k_do_jsr(uaecptr oldpc, uaecptr dest) ! 285: { ! 286: m68k_areg(regs, 7) -= 4; ! 287: put_long(m68k_areg(regs, 7), oldpc); ! 288: m68k_setpc(dest); ! 289: } ! 290: ! 291: ! 292: extern uae_u32 get_disp_ea_020 (uae_u32 base, uae_u32 dp); ! 293: extern uae_u32 get_disp_ea_000 (uae_u32 base, uae_u32 dp); ! 294: ! 295: extern uae_s32 ShowEA (FILE *, int reg, amodes mode, wordsizes size, char *buf); ! 296: ! 297: extern void MakeSR (void); ! 298: extern void MakeFromSR (void); ! 299: extern void Exception (int, uaecptr, int); ! 300: extern void dump_counts (void); ! 301: extern int m68k_move2c (int, uae_u32 *); ! 302: extern int m68k_movec2 (int, uae_u32 *); ! 303: extern void m68k_divl (uae_u32, uae_u32, uae_u16, uaecptr); ! 304: extern void m68k_mull (uae_u32, uae_u32, uae_u16); ! 305: extern void build_cpufunctbl(void); ! 306: extern void init_m68k (void); ! 307: extern void m68k_go (int); ! 308: extern void m68k_dumpstate (FILE *, uaecptr *); ! 309: extern void m68k_disasm (FILE *, uaecptr, uaecptr *, int); ! 310: extern void m68k_reset (void); ! 311: ! 312: extern void mmu_op (uae_u32, uae_u16); ! 313: ! 314: extern void fpp_opp (uae_u32, uae_u16); ! 315: extern void fdbcc_opp (uae_u32, uae_u16); ! 316: extern void fscc_opp (uae_u32, uae_u16); ! 317: extern void ftrapcc_opp (uae_u32,uaecptr); ! 318: extern void fbcc_opp (uae_u32, uaecptr, uae_u32); ! 319: extern void fsave_opp (uae_u32); ! 320: extern void frestore_opp (uae_u32); ! 321: ! 322: extern int getDivu68kCycles (uae_u32 dividend, uae_u16 divisor); ! 323: extern int getDivs68kCycles (uae_s32 dividend, uae_s16 divisor); ! 324: ! 325: /* Opcode of faulting instruction */ ! 326: extern uae_u16 last_op_for_exception_3; ! 327: /* PC at fault time */ ! 328: extern uaecptr last_addr_for_exception_3; ! 329: /* Address that generated the exception */ ! 330: extern uaecptr last_fault_for_exception_3; ! 331: ! 332: #define CPU_OP_NAME(a) op ## a ! 333: ! 334: /* 68040 */ ! 335: extern const struct cputbl op_smalltbl_0_ff[]; ! 336: /* 68020 + 68881 */ ! 337: extern const struct cputbl op_smalltbl_1_ff[]; ! 338: /* 68020 */ ! 339: extern const struct cputbl op_smalltbl_2_ff[]; ! 340: /* 68010 */ ! 341: extern const struct cputbl op_smalltbl_3_ff[]; ! 342: /* 68000 */ ! 343: extern const struct cputbl op_smalltbl_4_ff[]; ! 344: /* 68000 slow but compatible. */ ! 345: extern const struct cputbl op_smalltbl_5_ff[]; ! 346: ! 347: extern cpuop_func *cpufunctbl[65536]; ! 348: ! 349: extern uae_u32 caar, cacr; ! 350: ! 351: /* Family of the latest instruction executed (to check for pairing) */ ! 352: extern int OpcodeFamily; /* see instrmnem in readcpu.h */ ! 353: ! 354: /* How many cycles to add to the current instruction in case a "misaligned" bus acces is made */ ! 355: /* (used when addressing mode is d8(an,ix)) */ ! 356: extern int BusCyclePenalty; ! 357: ! 358: #endif /* UAE_NEWCPU_H */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.