![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to newcpu.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [UNIX Amiga Emulator] / uae / src / include|
Return to newcpu.h CVS log | Up to [UNIX Amiga Emulator] / uae / src / include |
1.1.1.3 root 1: /*
1.1 root 2: * UAE - The Un*x Amiga Emulator
1.1.1.3 root 3: *
1.1 root 4: * MC68000 emulation
5: *
6: * Copyright 1995 Bernd Schmidt
7: */
8:
9: extern int areg_byteinc[];
10: extern int imm8_table[];
11:
12: extern int movem_index1[256];
13: extern int movem_index2[256];
14: extern int movem_next[256];
15:
16: extern int fpp_movem_index1[256];
17: extern int fpp_movem_index2[256];
18: extern int fpp_movem_next[256];
19:
20: extern int broken_in;
21:
1.1.1.4 ! root 22: typedef unsigned long cpuop_func (uae_u32) REGPARAM;
1.1 root 23:
24: struct cputbl {
25: cpuop_func *handler;
26: int specific;
1.1.1.3 root 27: uae_u16 opcode;
1.1 root 28: };
29:
1.1.1.4 ! root 30: extern unsigned long op_illg (uae_u32) REGPARAM;
1.1 root 31:
1.1.1.2 root 32: typedef char flagtype;
1.1 root 33:
1.1.1.3 root 34: extern struct regstruct
1.1 root 35: {
1.1.1.3 root 36: uae_u32 regs[16];
37: uaecptr usp,isp,msp;
38: uae_u16 sr;
1.1 root 39: flagtype t1;
40: flagtype t0;
41: flagtype s;
42: flagtype m;
43: flagtype x;
44: flagtype stopped;
45: int intmask;
1.1.1.3 root 46:
47: uae_u32 pc;
48: uae_u8 *pc_p;
49: uae_u8 *pc_oldp;
50:
51: uae_u32 vbr,sfc,dfc;
1.1 root 52:
53: double fp[8];
1.1.1.3 root 54: uae_u32 fpcr,fpsr,fpiar;
55:
56: uae_u32 spcflags;
57: uae_u32 kick_mask;
58:
59: /* Fellow sources say this is 4 longwords. That's impossible. It needs
60: * to be at least a longword. The HRM has some cryptic comment about two
61: * instructions being on the same longword boundary.
62: * The way this is implemented now seems like a good compromise.
63: */
64: uae_u32 prefetch;
1.1 root 65: } regs, lastint_regs;
66:
1.1.1.2 root 67: #define m68k_dreg(r,num) ((r).regs[(num)])
1.1.1.4 ! root 68: #define m68k_areg(r,num) (((r).regs + 8)[(num)])
1.1 root 69:
1.1.1.3 root 70: #define get_ibyte(o) do_get_mem_byte((uae_u8 *)(regs.pc_p + (o) + 1))
71: #define get_iword(o) do_get_mem_word((uae_u16 *)(regs.pc_p + (o)))
72: #define get_ilong(o) do_get_mem_long((uae_u32 *)(regs.pc_p + (o)))
73:
1.1.1.4 ! root 74: #ifdef HAVE_GET_WORD_UNSWAPPED
! 75: #define GET_OPCODE (do_get_mem_word_unswapped (regs.pc_p))
! 76: #else
! 77: #define GET_OPCODE (get_iword (0))
! 78: #endif
! 79:
! 80: static __inline__ uae_u32 get_ibyte_prefetch (uae_s32 o)
1.1 root 81: {
1.1.1.3 root 82: if (o > 3 || o < 0)
83: return do_get_mem_byte((uae_u8 *)(regs.pc_p + o + 1));
84:
85: return do_get_mem_byte((uae_u8 *)(((uae_u8 *)®s.prefetch) + o + 1));
1.1.1.2 root 86: }
1.1.1.4 ! root 87: static __inline__ uae_u32 get_iword_prefetch (uae_s32 o)
1.1.1.3 root 88: {
89: if (o > 3 || o < 0)
90: return do_get_mem_word((uae_u16 *)(regs.pc_p + o));
1.1.1.2 root 91:
1.1.1.3 root 92: return do_get_mem_word((uae_u16 *)(((uae_u8 *)®s.prefetch) + o));
93: }
1.1.1.4 ! root 94: static __inline__ uae_u32 get_ilong_prefetch (uae_s32 o)
1.1.1.2 root 95: {
1.1.1.3 root 96: if (o > 3 || o < 0)
97: return do_get_mem_long((uae_u32 *)(regs.pc_p + o));
98: if (o == 0)
99: return do_get_mem_long(®s.prefetch);
100: return (do_get_mem_word (((uae_u16 *)®s.prefetch) + 1) << 16) | do_get_mem_word ((uae_u16 *)(regs.pc_p + 4));
1.1 root 101: }
102:
1.1.1.3 root 103: #define m68k_incpc(o) (regs.pc_p += (o))
104:
1.1.1.4 ! root 105: static __inline__ void fill_prefetch_0 (void)
1.1 root 106: {
1.1.1.3 root 107: uae_u32 r;
108: #ifdef UNALIGNED_PROFITABLE
109: r = *(uae_u32 *)regs.pc_p;
110: regs.prefetch = r;
111: #else
112: r = do_get_mem_long ((uae_u32 *)regs.pc_p);
113: do_put_mem_long (®s.prefetch, r);
114: #endif
115: }
116:
117: #if 0
1.1.1.4 ! root 118: static __inline__ void fill_prefetch_2 (void)
1.1.1.3 root 119: {
120: uae_u32 r = do_get_mem_long (®s.prefetch) << 16;
121: uae_u32 r2 = do_get_mem_word (((uae_u16 *)regs.pc_p) + 1);
122: r |= r2;
123: do_put_mem_long (®s.prefetch, r);
1.1 root 124: }
125: #else
1.1.1.3 root 126: #define fill_prefetch_2 fill_prefetch_0
127: #endif
1.1 root 128:
1.1.1.3 root 129: /* These are only used by the 68020/68881 code, and therefore don't
130: * need to handle prefetch. */
1.1.1.4 ! root 131: static __inline__ uae_u32 next_ibyte (void)
1.1 root 132: {
1.1.1.4 ! root 133: uae_u32 r = get_ibyte (0);
! 134: m68k_incpc (2);
1.1.1.2 root 135: return r;
136: }
137:
1.1.1.4 ! root 138: static __inline__ uae_u32 next_iword (void)
1.1.1.2 root 139: {
1.1.1.4 ! root 140: uae_u32 r = get_iword (0);
! 141: m68k_incpc (2);
1.1 root 142: return r;
143: }
144:
1.1.1.4 ! root 145: static __inline__ uae_u32 next_ilong (void)
1.1 root 146: {
1.1.1.4 ! root 147: uae_u32 r = get_ilong (0);
! 148: m68k_incpc (4);
1.1 root 149: return r;
150: }
151:
1.1.1.4 ! root 152: #if !defined USE_COMPILER
! 153: static __inline__ void m68k_setpc (uaecptr newpc)
1.1 root 154: {
155: regs.pc_p = regs.pc_oldp = get_real_address(newpc);
1.1.1.2 root 156: regs.pc = newpc;
1.1 root 157: }
158: #else
1.1.1.4 ! root 159: extern void m68k_setpc (uaecptr newpc);
1.1 root 160: #endif
161:
1.1.1.4 ! root 162: static __inline__ uaecptr m68k_getpc (void)
1.1 root 163: {
164: return regs.pc + ((char *)regs.pc_p - (char *)regs.pc_oldp);
165: }
166:
1.1.1.4 ! root 167: static __inline__ uaecptr m68k_getpc_p (uae_u8 *p)
! 168: {
! 169: return regs.pc + ((char *)p - (char *)regs.pc_oldp);
! 170: }
! 171:
1.1 root 172: #ifdef USE_COMPILER
1.1.1.4 ! root 173: extern void m68k_setpc_fast (uaecptr newpc);
! 174: extern void m68k_setpc_bcc (uaecptr newpc);
! 175: extern void m68k_setpc_rte (uaecptr newpc);
1.1 root 176: #else
177: #define m68k_setpc_fast m68k_setpc
178: #define m68k_setpc_bcc m68k_setpc
179: #define m68k_setpc_rte m68k_setpc
180: #endif
181:
1.1.1.4 ! root 182: static __inline__ void m68k_setstopped (int stop)
1.1 root 183: {
184: regs.stopped = stop;
185: if (stop)
186: regs.spcflags |= SPCFLAG_STOP;
187: }
188:
1.1.1.3 root 189: static __inline__ uae_u32 get_disp_ea_020 (uae_u32 base, uae_u32 dp)
1.1 root 190: {
1.1.1.2 root 191: int reg = (dp >> 12) & 15;
1.1.1.3 root 192: uae_s32 regd = regs.regs[reg];
1.1 root 193: if ((dp & 0x800) == 0)
1.1.1.3 root 194: regd = (uae_s32)(uae_s16)regd;
1.1 root 195: regd <<= (dp >> 9) & 3;
196: if (dp & 0x100) {
1.1.1.3 root 197: uae_s32 outer = 0;
1.1 root 198: if (dp & 0x80) base = 0;
199: if (dp & 0x40) regd = 0;
200:
1.1.1.3 root 201: if ((dp & 0x30) == 0x20) base += (uae_s32)(uae_s16)next_iword();
202: if ((dp & 0x30) == 0x30) base += next_ilong();
203:
204: if ((dp & 0x3) == 0x2) outer = (uae_s32)(uae_s16)next_iword();
205: if ((dp & 0x3) == 0x3) outer = next_ilong();
206:
1.1 root 207: if ((dp & 0x4) == 0) base += regd;
208: if (dp & 0x3) base = get_long (base);
209: if (dp & 0x4) base += regd;
1.1.1.3 root 210:
1.1 root 211: return base + outer;
212: } else {
1.1.1.3 root 213: return base + (uae_s32)((uae_s8)dp) + regd;
1.1 root 214: }
215: }
1.1.1.3 root 216: static __inline__ uae_u32 get_disp_ea_000 (uae_u32 base, uae_u32 dp)
1.1 root 217: {
1.1.1.2 root 218: int reg = (dp >> 12) & 15;
1.1.1.3 root 219: uae_s32 regd = regs.regs[reg];
1.1.1.4 ! root 220: #if 1
1.1 root 221: if ((dp & 0x800) == 0)
1.1.1.3 root 222: regd = (uae_s32)(uae_s16)regd;
223: return base + (uae_s8)dp + regd;
1.1.1.4 ! root 224: #else
! 225: uae_s32 regd16;
! 226: uae_u32 mask;
! 227: mask = ((dp & 0x800) >> 11) - 1;
! 228: regd16 = (uae_s32)(uae_s16)regd;
! 229: regd16 &= mask;
! 230: mask = ~mask;
! 231: base += (uae_s8)dp;
! 232: regd &= mask;
! 233: regd |= regd16;
! 234: return base + regd;
! 235: #endif
1.1 root 236: }
237:
1.1.1.4 ! root 238: extern uae_s32 ShowEA (int reg, amodes mode, wordsizes size, char *buf);
1.1.1.2 root 239:
1.1.1.4 ! root 240: extern void MakeSR (void);
! 241: extern void MakeFromSR (void);
! 242: extern void Exception (int, uaecptr);
! 243: extern void dump_counts (void);
! 244: extern void m68k_move2c (int, uae_u32 *);
! 245: extern void m68k_movec2 (int, uae_u32 *);
1.1.1.3 root 246: extern void m68k_divl (uae_u32, uae_u32, uae_u16, uaecptr);
247: extern void m68k_mull (uae_u32, uae_u32, uae_u16);
1.1 root 248: extern void init_m68k (void);
1.1.1.4 ! root 249: extern void m68k_go (int);
! 250: extern void m68k_dumpstate (uaecptr *);
! 251: extern void m68k_disasm (uaecptr, uaecptr *, int);
! 252: extern void m68k_reset (void);
1.1.1.2 root 253:
1.1.1.3 root 254: extern void mmu_op (uae_u32, uae_u16);
1.1.1.2 root 255:
1.1.1.3 root 256: extern void fpp_opp (uae_u32, uae_u16);
257: extern void fdbcc_opp (uae_u32, uae_u16);
258: extern void fscc_opp (uae_u32, uae_u16);
259: extern void ftrapcc_opp (uae_u32,uaecptr);
260: extern void fbcc_opp (uae_u32, uaecptr, uae_u32);
261: extern void fsave_opp (uae_u32);
262: extern void frestore_opp (uae_u32);
263:
264: /* Opcode of faulting instruction */
265: extern uae_u16 last_op_for_exception_3;
266: /* PC at fault time */
267: extern uaecptr last_addr_for_exception_3;
268: /* Address that generated the exception */
269: extern uaecptr last_fault_for_exception_3;
1.1 root 270:
1.1.1.2 root 271: #define CPU_OP_NAME(a) op ## a
272:
1.1.1.3 root 273: /* 68020 + 68881 */
274: extern struct cputbl op_smalltbl_0[];
275: /* 68020 */
276: extern struct cputbl op_smalltbl_1[];
277: /* 68010 */
278: extern struct cputbl op_smalltbl_2[];
279: /* 68000 */
280: extern struct cputbl op_smalltbl_3[];
281: /* 68000 slow but compatible. */
282: extern struct cputbl op_smalltbl_4[];
283:
284: extern cpuop_func *cpufunctbl[65536] ASM_SYM_FOR_FUNC ("cpufunctbl");
1.1.1.2 root 285:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.