/* * UAE - The Un*x Amiga Emulator * * MC68000 emulation * * Copyright 1995 Bernd Schmidt */ #include void m68k_run_1 (void); #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; 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; 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_u32 vbr,sfc,dfc; double fp[8]; uae_u32 fpcr,fpsr,fpiar; 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; } regs, lastint_regs; #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))) #ifdef HAVE_GET_WORD_UNSWAPPED #define GET_OPCODE (do_get_mem_word_unswapped (regs.pc_p)) #else #define GET_OPCODE (get_iword (0)) #endif static inline uae_u32 get_ibyte_prefetch (uae_s32 o) { 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)); } 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 uae_u32 get_ilong_prefetch (uae_s32 o) { union { uae_u32 *u32; uae_u16 *u16; } prefetch_u; 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); prefetch_u.u32 = ®s.prefetch; return (do_get_mem_word (prefetch_u.u16 + 1) << 16) | do_get_mem_word ((uae_u16 *)(regs.pc_p + 4)); } #define m68k_incpc(o) (regs.pc_p += (o)) static inline void fill_prefetch_0 (void) { uae_u32 r; #ifdef UNALIGNED_PROFITABLE r = *(uae_u32 *)regs.pc_p; regs.prefetch = r; #else r = do_get_mem_long ((uae_u32 *)regs.pc_p); do_put_mem_long (®s.prefetch, r); #endif } #if 0 static inline void fill_prefetch_2 (void) { 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); } #else #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. */ 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; } #if !defined USE_COMPILER static inline void m68k_setpc (uaecptr newpc) { regs.pc_p = regs.pc_oldp = get_real_address(newpc); regs.pc = newpc; } #else extern void m68k_setpc (uaecptr newpc); #endif 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); } #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) { regs.stopped = stop; if (stop) regs.spcflags |= SPCFLAG_STOP; } 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 (int reg, amodes mode, wordsizes size, char *buf); extern void MakeSR (void); extern void MakeFromSR (void); extern void Exception (int, uaecptr); extern void dump_counts (void); extern void m68k_move2c (int, uae_u32 *); extern void 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 init_m68k (void); extern void m68k_go (void); extern void m68k_dumpstate (uaecptr *); extern void m68k_disasm (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); /* 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; #define CPU_OP_NAME(a) op ## a /* 68020 + 68881 */ extern struct cputbl op_smalltbl_0[]; /* 68020 */ extern struct cputbl op_smalltbl_1[]; /* 68010 */ extern struct cputbl op_smalltbl_2[]; /* 68000 */ extern struct cputbl op_smalltbl_3[]; /* 68000 slow but compatible. */ extern struct cputbl op_smalltbl_4[]; extern cpuop_func *cpufunctbl[65536];