#include <endian.h>
#include <setjmp.h>
+#include <stdio.h>
/* ======================================================================== */
/* ==================== ARCHITECTURE-DEPENDANT DEFINES ==================== */
longjmp(m68ki_aerr_trap, 1); \
}
#endif
+ #define m68ki_bus_error(ADDR,WRITE_MODE) m68ki_aerr_address=ADDR;m68ki_aerr_write_mode=WRITE_MODE;m68ki_exception_bus_error()
#define m68ki_check_address_error_010_less(ADDR, WRITE_MODE, FC) \
if (CPU_TYPE_IS_010_LESS(CPU_TYPE)) \
/* Logging */
#if M68K_LOG_ENABLE
#include <stdio.h>
- extern FILE* M68K_LOG_FILEHANDLE
+// extern FILE* M68K_LOG_FILEHANDLE;
extern const char *const m68ki_cpu_names[];
- #define M68K_DO_LOG(A) if(M68K_LOG_FILEHANDLE) fprintf A
+ #define M68K_DO_LOG(A) do{printf("*************");printf A;}while(0) //if(M68K_LOG_FILEHANDLE) fprintf A
#if M68K_LOG_1010_1111
- #define M68K_DO_LOG_EMU(A) if(M68K_LOG_FILEHANDLE) fprintf A
+ #define M68K_DO_LOG_EMU(A) printf A //if(M68K_LOG_FILEHANDLE) fprintf A
#else
#define M68K_DO_LOG_EMU(A)
#endif
} fp_reg;
typedef struct
+{
+ unsigned int lower;
+ unsigned int upper;
+ unsigned char *offset;
+} address_translation_cache;
+
+
+
+typedef struct m68ki_cpu_core
{
uint cpu_type; /* CPU Type: 68000, 68008, 68010, 68EC020, 68020, 68EC030, 68030, 68EC040, or 68040 */
uint dar[16]; /* Data and Address Registers */
void (*set_fc_callback)(unsigned int new_fc); /* Called when the CPU function code changes */
void (*instr_hook_callback)(unsigned int pc); /* Called every instruction cycle prior to execution */
+ /* address translation caches */
+
+ unsigned char read_ranges;
+ unsigned int read_addr[8];
+ unsigned int read_upper[8];
+ unsigned char *read_data[8];
+ unsigned char write_ranges;
+ unsigned int write_addr[8];
+ unsigned int write_upper[8];
+ unsigned char *write_data[8];
+ address_translation_cache code_translation_cache;
+
+
} m68ki_cpu_core;
/* ---------------------------- Read Immediate ---------------------------- */
-extern unsigned char read_ranges;
-extern unsigned int read_addr[8];
-extern unsigned int read_upper[8];
-extern unsigned char *read_data[8];
-extern unsigned char write_ranges;
-extern unsigned int write_addr[8];
-extern unsigned int write_upper[8];
-extern unsigned char *write_data[8];
-
// clear the instruction cache
-inline void m68ki_ic_clear()
+inline void m68ki_ic_clear(m68ki_cpu_core *state)
{
int i;
for (i=0; i< M68K_IC_SIZE; i++) {
/* Handles all immediate reads, does address error check, function code setting,
* and prefetching if they are enabled in m68kconf.h
*/
+uint m68ki_read_imm6_addr_slowpath(uint32_t pc, address_translation_cache *cache);
+
+
+
static inline uint m68ki_read_imm_16(void)
{
- m68ki_set_fc(FLAG_S | FUNCTION_CODE_USER_PROGRAM); /* auto-disable (see m68kcpu.h) */
- m68ki_cpu.mmu_tmp_fc = FLAG_S | FUNCTION_CODE_USER_PROGRAM;
- m68ki_cpu.mmu_tmp_rw = 1;
- m68ki_cpu.mmu_tmp_sz = M68K_SZ_WORD;
- m68ki_check_address_error(REG_PC, MODE_READ, FLAG_S | FUNCTION_CODE_USER_PROGRAM); /* auto-disable (see m68kcpu.h) */
+ uint32_t pc = REG_PC;
-#if M68K_EMULATE_PREFETCH
-{
- uint result;
- if(REG_PC != CPU_PREF_ADDR)
+ address_translation_cache *cache = &m68ki_cpu.code_translation_cache;
+ if(pc >= cache->lower && pc < cache->upper)
{
- CPU_PREF_DATA = m68ki_ic_readimm16(REG_PC);
- CPU_PREF_ADDR = m68ki_cpu.mmu_tmp_buserror_occurred ? ((uint32)~0) : REG_PC;
- }
- result = MASK_OUT_ABOVE_16(CPU_PREF_DATA);
- REG_PC += 2;
- if (!m68ki_cpu.mmu_tmp_buserror_occurred) {
- // prefetch only if no bus error occurred in opcode fetch
- CPU_PREF_DATA = m68ki_ic_readimm16(REG_PC);
- CPU_PREF_ADDR = m68ki_cpu.mmu_tmp_buserror_occurred ? ((uint32)~0) : REG_PC;
- // ignore bus error on prefetch
- m68ki_cpu.mmu_tmp_buserror_occurred = 0;
- }
- return result;
-}
-#else
-
- uint32_t address = ADDRESS_68K(REG_PC);
- REG_PC += 2;
-
- for (int i = 0; i < read_ranges; i++) {
- if(address >= read_addr[i] && address < read_upper[i]) {
- return be16toh(((unsigned short *)(read_data[i] + (address - read_addr[i])))[0]);
- }
+ REG_PC += 2;
+ return be16toh(((unsigned short *)(cache->offset + pc))[0]);
}
-
- return m68k_read_immediate_16(address);
-#endif /* M68K_EMULATE_PREFETCH */
+ return m68ki_read_imm6_addr_slowpath(pc, cache);
}
static inline uint m68ki_read_imm_8(void)
// address = pmmu_translate_addr(address,1);
#endif
#endif
+ uint32_t address = ADDRESS_68K(REG_PC);
+ for (int i = 0; i < m68ki_cpu.read_ranges; i++) {
+ if(address >= m68ki_cpu.read_addr[i] && address < m68ki_cpu.read_upper[i]) {
+ REG_PC += 4;
+ return be32toh(((unsigned int *)(m68ki_cpu.read_data[i] + (address - m68ki_cpu.read_addr[i])))[0]);
+ }
+ }
#if M68K_EMULATE_PREFETCH
uint temp_val;
return temp_val;
#else
- m68ki_set_fc(FLAG_S | FUNCTION_CODE_USER_PROGRAM); /* auto-disable (see m68kcpu.h) */
- m68ki_check_address_error(REG_PC, MODE_READ, FLAG_S | FUNCTION_CODE_USER_PROGRAM); /* auto-disable (see m68kcpu.h) */
- uint32_t address = ADDRESS_68K(REG_PC);
REG_PC += 4;
- for (int i = 0; i < read_ranges; i++) {
- if(address >= read_addr[i] && address < read_upper[i]) {
- return be32toh(((unsigned int *)(read_data[i] + (address - read_addr[i])))[0]);
- }
- }
return m68k_read_immediate_32(address);
#endif /* M68K_EMULATE_PREFETCH */
address = pmmu_translate_addr(address,1);
#endif
- for (int i = 0; i < read_ranges; i++) {
- if(address >= read_addr[i] && address < read_upper[i]) {
- return read_data[i][address - read_addr[i]];
+ for (int i = 0; i < m68ki_cpu.read_ranges; i++) {
+ if(address >= m68ki_cpu.read_addr[i] && address < m68ki_cpu.read_upper[i]) {
+ return m68ki_cpu.read_data[i][address - m68ki_cpu.read_addr[i]];
}
}
address = pmmu_translate_addr(address,1);
#endif
- for (int i = 0; i < read_ranges; i++) {
- if(address >= read_addr[i] && address < read_upper[i]) {
- return be16toh(((unsigned short *)(read_data[i] + (address - read_addr[i])))[0]);
+ for (int i = 0; i < m68ki_cpu.read_ranges; i++) {
+ if(address >= m68ki_cpu.read_addr[i] && address < m68ki_cpu.read_upper[i]) {
+ return be16toh(((unsigned short *)(m68ki_cpu.read_data[i] + (address - m68ki_cpu.read_addr[i])))[0]);
}
}
address = pmmu_translate_addr(address,1);
#endif
- for (int i = 0; i < read_ranges; i++) {
- if(address >= read_addr[i] && address < read_upper[i]) {
- return be32toh(((unsigned int *)(read_data[i] + (address - read_addr[i])))[0]);
+ for (int i = 0; i < m68ki_cpu.read_ranges; i++) {
+ if(address >= m68ki_cpu.read_addr[i] && address < m68ki_cpu.read_upper[i]) {
+ return be32toh(((unsigned int *)(m68ki_cpu.read_data[i] + (address - m68ki_cpu.read_addr[i])))[0]);
}
}
address = pmmu_translate_addr(address,0);
#endif
- for (int i = 0; i < write_ranges; i++) {
- if(address >= write_addr[i] && address < write_upper[i]) {
- write_data[i][address - write_addr[i]] = (unsigned char)value;
+ for (int i = 0; i < m68ki_cpu.write_ranges; i++) {
+ if(address >= m68ki_cpu.write_addr[i] && address < m68ki_cpu.write_upper[i]) {
+ m68ki_cpu.write_data[i][address - m68ki_cpu.write_addr[i]] = (unsigned char)value;
return;
}
}
address = pmmu_translate_addr(address,0);
#endif
- for (int i = 0; i < write_ranges; i++) {
- if(address >= write_addr[i] && address < write_upper[i]) {
- ((short *)(write_data[i] + (address - write_addr[i])))[0] = htobe16(value);
+ for (int i = 0; i < m68ki_cpu.write_ranges; i++) {
+ if(address >= m68ki_cpu.write_addr[i] && address < m68ki_cpu.write_upper[i]) {
+ ((short *)(m68ki_cpu.write_data[i] + (address - m68ki_cpu.write_addr[i])))[0] = htobe16(value);
return;
}
}
address = pmmu_translate_addr(address,0);
#endif
- for (int i = 0; i < write_ranges; i++) {
- if(address >= write_addr[i] && address < write_upper[i]) {
- ((int *)(write_data[i] + (address - write_addr[i])))[0] = htobe32(value);
+ for (int i = 0; i < m68ki_cpu.write_ranges; i++) {
+ if(address >= m68ki_cpu.write_addr[i] && address < m68ki_cpu.write_upper[i]) {
+ ((int *)(m68ki_cpu.write_data[i] + (address - m68ki_cpu.write_addr[i])))[0] = htobe32(value);
return;
}
}
CPU_STOPPED = STOP_LEVEL_HALT;
return;
}
- CPU_RUN_MODE = RUN_MODE_BERR_AERR_RESET;
- /* Note: This is implemented for 68000 only! */
- m68ki_stack_frame_buserr(sr);
+ CPU_RUN_MODE = RUN_MODE_BERR_AERR_RESET_WSF;
+
+ if (CPU_TYPE_IS_000(CPU_TYPE))
+ {
+ /* Note: This is implemented for 68000 only! */
+ m68ki_stack_frame_buserr(sr);
+ }
+ else if (CPU_TYPE_IS_010(CPU_TYPE))
+ {
+ /* only the 68010 throws this unique type-1000 frame */
+ m68ki_stack_frame_1000(REG_PPC, sr, EXCEPTION_BUS_ERROR);
+ }
+ else if (m68ki_cpu.mmu_tmp_buserror_address == REG_PPC)
+ {
+ m68ki_stack_frame_1010(sr, EXCEPTION_BUS_ERROR, REG_PPC, m68ki_cpu.mmu_tmp_buserror_address);
+ }
+ else
+ {
+ m68ki_stack_frame_1011(sr, EXCEPTION_BUS_ERROR, REG_PPC, m68ki_cpu.mmu_tmp_buserror_address);
+ }
m68ki_jump_vector(EXCEPTION_ADDRESS_ERROR);
+ m68ki_cpu.run_mode = RUN_MODE_BERR_AERR_RESET;
+
/* Use up some clock cycles. Note that we don't need to undo the
instruction's cycles here as we've longjmp:ed directly from the
instruction handler without passing the part of the excecute loop