-/* m6811_cpu.c -- 68HC11 CPU Emulation
- Copyright 1999, 2000 Free Software Foundation, Inc.
- Written by Stephane Carrez (stcarrez@worldnet.fr)
+/* m6811_cpu.c -- 68HC11&68HC12 CPU Emulation
+ Copyright 1999, 2000, 2001, 2002, 2003, 2007, 2008
+ Free Software Foundation, Inc.
+ Written by Stephane Carrez (stcarrez@nerim.fr)
This file is part of GDB, GAS, and the GNU binutils.
-GDB, GAS, and the GNU binutils are free software; you can redistribute
-them and/or modify them under the terms of the GNU General Public
-License as published by the Free Software Foundation; either version
-1, or (at your option) any later version.
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 3 of the License, or
+(at your option) any later version.
-GDB, GAS, and the GNU binutils are distributed in the hope that they
-will be useful, but WITHOUT ANY WARRANTY; without even the implied
-warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
-the GNU General Public License for more details.
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
You should have received a copy of the GNU General Public License
-along with this file; see the file COPYING. If not, write to the Free
-Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include "sim-main.h"
#include "sim-assert.h"
#include "sim-module.h"
#include "sim-options.h"
-void cpu_free_frame (sim_cpu* cpu, struct cpu_frame *frame);
-
enum {
OPTION_CPU_RESET = OPTION_START,
OPTION_EMUL_OS,
OPTION_CPU_CONFIG,
+ OPTION_CPU_BOOTSTRAP,
OPTION_CPU_MODE
};
'\0', NULL, "Specify the initial CPU configuration register",
cpu_option_handler },
+ { {"bootstrap", no_argument, NULL, OPTION_CPU_BOOTSTRAP },
+ '\0', NULL, "Start the processing in bootstrap mode",
+ cpu_option_handler },
+
{ {NULL, no_argument, NULL, 0}, '\0', NULL, NULL, NULL }
};
cpu_option_handler (SIM_DESC sd, sim_cpu *cpu,
int opt, char *arg, int is_command)
{
- sim_cpu *cpu;
int val;
cpu = STATE_CPU (sd, 0);
else
cpu->cpu_use_local_config = 0;
break;
-
+
+ case OPTION_CPU_BOOTSTRAP:
+ cpu->cpu_start_mode = "bootstrap";
+ break;
+
case OPTION_CPU_MODE:
break;
}
return SIM_RC_OK;
}
-/* Tentative to keep track of the cpu frame. */
-struct cpu_frame*
-cpu_find_frame (sim_cpu *cpu, uint16 sp)
+
+void
+cpu_call (sim_cpu *cpu, uint16 addr)
{
- struct cpu_frame_list *flist;
- flist = cpu->cpu_frames;
- while (flist)
- {
- struct cpu_frame *frame;
-
- frame = flist->frame;
- while (frame)
- {
- if (frame->sp_low <= sp && frame->sp_high >= sp)
- {
- cpu->cpu_current_frame = flist;
- return frame;
- }
-
- frame = frame->up;
- }
- flist = flist->next;
- }
- return 0;
+ cpu_set_pc (cpu, addr);
}
-struct cpu_frame_list*
-cpu_create_frame_list (sim_cpu *cpu)
+void
+cpu_return (sim_cpu *cpu)
{
- struct cpu_frame_list *flist;
-
- flist = (struct cpu_frame_list*) malloc (sizeof (struct cpu_frame_list));
- flist->frame = 0;
- flist->next = cpu->cpu_frames;
- flist->prev = 0;
- if (flist->next)
- flist->next->prev = flist;
- cpu->cpu_frames = flist;
- cpu->cpu_current_frame = flist;
- return flist;
}
+/* Set the stack pointer and re-compute the current frame. */
void
-cpu_remove_frame_list (sim_cpu *cpu, struct cpu_frame_list *flist)
-{
- struct cpu_frame *frame;
-
- if (flist->prev == 0)
- cpu->cpu_frames = flist->next;
- else
- flist->prev->next = flist->next;
- if (flist->next)
- flist->next->prev = flist->prev;
-
- frame = flist->frame;
- while (frame)
- {
- struct cpu_frame* up = frame->up;
- cpu_free_frame (cpu, frame);
- frame = up;
- }
- free (flist);
-}
-
-
-struct cpu_frame*
-cpu_create_frame (sim_cpu *cpu, uint16 pc, uint16 sp)
+cpu_set_sp (sim_cpu *cpu, uint16 val)
{
- struct cpu_frame *frame;
-
- frame = (struct cpu_frame*) malloc (sizeof(struct cpu_frame));
- frame->up = 0;
- frame->pc = pc;
- frame->sp_low = sp;
- frame->sp_high = sp;
- return frame;
+ cpu->cpu_regs.sp = val;
}
-void
-cpu_free_frame (sim_cpu *cpu, struct cpu_frame *frame)
+uint16
+cpu_get_reg (sim_cpu* cpu, uint8 reg)
{
- free (frame);
+ switch (reg)
+ {
+ case 0:
+ return cpu_get_x (cpu);
+
+ case 1:
+ return cpu_get_y (cpu);
+
+ case 2:
+ return cpu_get_sp (cpu);
+
+ case 3:
+ return cpu_get_pc (cpu);
+
+ default:
+ return 0;
+ }
}
uint16
-cpu_frame_reg (sim_cpu *cpu, uint16 rn)
+cpu_get_src_reg (sim_cpu* cpu, uint8 reg)
{
- struct cpu_frame *frame;
-
- if (cpu->cpu_current_frame == 0)
- return 0;
-
- frame = cpu->cpu_current_frame->frame;
- while (frame)
+ switch (reg)
{
- if (rn == 0)
- return frame->sp_high;
- frame = frame->up;
- rn--;
+ case 0:
+ return cpu_get_a (cpu);
+
+ case 1:
+ return cpu_get_b (cpu);
+
+ case 2:
+ return cpu_get_ccr (cpu);
+
+ case 3:
+ return cpu_get_tmp3 (cpu);
+
+ case 4:
+ return cpu_get_d (cpu);
+
+ case 5:
+ return cpu_get_x (cpu);
+
+ case 6:
+ return cpu_get_y (cpu);
+
+ case 7:
+ return cpu_get_sp (cpu);
+
+ default:
+ return 0;
}
- return 0;
}
-
+
void
-cpu_call (sim_cpu *cpu, uint16 addr)
+cpu_set_dst_reg (sim_cpu* cpu, uint8 reg, uint16 val)
{
-#if HAVE_FRAME
- uint16 pc = cpu->cpu_insn_pc;
- uint16 sp;
- struct cpu_frame_list *flist;
- struct cpu_frame* frame;
- struct cpu_frame* new_frame;
-#endif
+ switch (reg)
+ {
+ case 0:
+ cpu_set_a (cpu, val);
+ break;
- cpu_set_pc (cpu, addr);
-#if HAVE_FRAME
- sp = cpu_get_sp (cpu);
+ case 1:
+ cpu_set_b (cpu, val);
+ break;
- cpu->cpu_need_update_frame = 0;
- flist = cpu->cpu_current_frame;
- if (flist == 0)
- flist = cpu_create_frame_list (cpu);
+ case 2:
+ cpu_set_ccr (cpu, val);
+ break;
- frame = flist->frame;
- if (frame && frame->sp_low > sp)
- frame->sp_low = sp;
+ case 3:
+ cpu_set_tmp2 (cpu, val);
+ break;
- new_frame = cpu_create_frame (cpu, pc, sp);
- new_frame->up = frame;
- flist->frame = new_frame;
-#endif
+ case 4:
+ cpu_set_d (cpu, val);
+ break;
+
+ case 5:
+ cpu_set_x (cpu, val);
+ break;
+
+ case 6:
+ cpu_set_y (cpu, val);
+ break;
+
+ case 7:
+ cpu_set_sp (cpu, val);
+ break;
+
+ default:
+ break;
+ }
}
void
-cpu_update_frame (sim_cpu *cpu, int do_create)
+cpu_set_reg (sim_cpu* cpu, uint8 reg, uint16 val)
{
-#if HAVE_FRAME
- struct cpu_frame *frame;
+ switch (reg)
+ {
+ case 0:
+ cpu_set_x (cpu, val);
+ break;
+
+ case 1:
+ cpu_set_y (cpu, val);
+ break;
+
+ case 2:
+ cpu_set_sp (cpu, val);
+ break;
+
+ case 3:
+ cpu_set_pc (cpu, val);
+ break;
+
+ default:
+ break;
+ }
+}
+
+/* Returns the address of a 68HC12 indexed operand.
+ Pre and post modifications are handled on the source register. */
+uint16
+cpu_get_indexed_operand_addr (sim_cpu* cpu, int restrict)
+{
+ uint8 reg;
+ uint16 sval;
+ uint16 addr;
+ uint8 code;
+
+ code = cpu_fetch8 (cpu);
+
+ /* n,r with 5-bit signed constant. */
+ if ((code & 0x20) == 0)
+ {
+ reg = (code >> 6) & 3;
+ sval = (code & 0x1f);
+ if (code & 0x10)
+ sval |= 0xfff0;
+
+ addr = cpu_get_reg (cpu, reg);
+ addr += sval;
+ }
- frame = cpu_find_frame (cpu, cpu_get_sp (cpu));
- if (frame)
+ /* Auto pre/post increment/decrement. */
+ else if ((code & 0xc0) != 0xc0)
{
- while (frame != cpu->cpu_current_frame->frame)
+ reg = (code >> 6) & 3;
+ sval = (code & 0x0f);
+ if (sval & 0x8)
{
- struct cpu_frame* up;
-
- up = cpu->cpu_current_frame->frame->up;
- cpu_free_frame (cpu, cpu->cpu_current_frame->frame);
- cpu->cpu_current_frame->frame = up;
+ sval |= 0xfff0;
+ }
+ else
+ {
+ sval = sval + 1;
+ }
+ addr = cpu_get_reg (cpu, reg);
+ cpu_set_reg (cpu, reg, addr + sval);
+ if ((code & 0x10) == 0)
+ {
+ addr += sval;
}
- return;
}
- if (do_create)
+ /* [n,r] 16-bits offset indexed indirect. */
+ else if ((code & 0x07) == 3)
{
- cpu_create_frame_list (cpu);
- frame = cpu_create_frame (cpu, cpu_get_pc (cpu), cpu_get_sp (cpu));
- cpu->cpu_current_frame->frame = frame;
+ if (restrict)
+ {
+ return 0;
+ }
+ reg = (code >> 3) & 0x03;
+ addr = cpu_get_reg (cpu, reg);
+ addr += cpu_fetch16 (cpu);
+ addr = memory_read16 (cpu, addr);
+ cpu_add_cycles (cpu, 1);
}
-#endif
-}
-
-void
-cpu_return (sim_cpu *cpu)
-{
-#if HAVE_FRAME
- uint16 sp = cpu_get_sp (cpu);
- struct cpu_frame *frame;
- struct cpu_frame_list *flist;
-
- cpu->cpu_need_update_frame = 0;
- flist = cpu->cpu_current_frame;
- if (flist && flist->frame && flist->frame->up)
+ else if ((code & 0x4) == 0)
{
- frame = flist->frame->up;
- if (frame->sp_low <= sp && frame->sp_high >= sp)
+ if (restrict)
{
- cpu_free_frame (cpu, flist->frame);
- flist->frame = frame;
- return;
+ return 0;
}
+ reg = (code >> 3) & 0x03;
+ addr = cpu_get_reg (cpu, reg);
+ if (code & 0x2)
+ {
+ sval = cpu_fetch16 (cpu);
+ cpu_add_cycles (cpu, 1);
+ }
+ else
+ {
+ sval = cpu_fetch8 (cpu);
+ if (code & 0x1)
+ sval |= 0xff00;
+ cpu_add_cycles (cpu, 1);
+ }
+ addr += sval;
}
- cpu_update_frame (cpu, 1);
-#endif
+ else
+ {
+ reg = (code >> 3) & 0x03;
+ addr = cpu_get_reg (cpu, reg);
+ switch (code & 3)
+ {
+ case 0:
+ addr += cpu_get_a (cpu);
+ break;
+ case 1:
+ addr += cpu_get_b (cpu);
+ break;
+ case 2:
+ addr += cpu_get_d (cpu);
+ break;
+ case 3:
+ default:
+ addr += cpu_get_d (cpu);
+ addr = memory_read16 (cpu, addr);
+ cpu_add_cycles (cpu, 1);
+ break;
+ }
+ }
+
+ return addr;
+}
+
+uint8
+cpu_get_indexed_operand8 (sim_cpu* cpu, int restrict)
+{
+ uint16 addr;
+
+ addr = cpu_get_indexed_operand_addr (cpu, restrict);
+ return memory_read8 (cpu, addr);
+}
+
+uint16
+cpu_get_indexed_operand16 (sim_cpu* cpu, int restrict)
+{
+ uint16 addr;
+
+ addr = cpu_get_indexed_operand_addr (cpu, restrict);
+ return memory_read16 (cpu, addr);
}
void
-cpu_print_frame (SIM_DESC sd, sim_cpu *cpu)
+cpu_move8 (sim_cpu *cpu, uint8 code)
{
- struct cpu_frame* frame;
- int level = 0;
-
- if (cpu->cpu_current_frame == 0 || cpu->cpu_current_frame->frame == 0)
+ uint8 src;
+ uint16 addr;
+
+ switch (code)
{
- sim_io_printf (sd, "No frame.\n");
+ case 0x0b:
+ src = cpu_fetch8 (cpu);
+ addr = cpu_fetch16 (cpu);
+ break;
+
+ case 0x08:
+ addr = cpu_get_indexed_operand_addr (cpu, 1);
+ src = cpu_fetch8 (cpu);
+ break;
+
+ case 0x0c:
+ addr = cpu_fetch16 (cpu);
+ src = memory_read8 (cpu, addr);
+ addr = cpu_fetch16 (cpu);
+ break;
+
+ case 0x09:
+ addr = cpu_get_indexed_operand_addr (cpu, 1);
+ src = memory_read8 (cpu, cpu_fetch16 (cpu));
+ break;
+
+ case 0x0d:
+ src = cpu_get_indexed_operand8 (cpu, 1);
+ addr = cpu_fetch16 (cpu);
+ break;
+
+ case 0x0a:
+ src = cpu_get_indexed_operand8 (cpu, 1);
+ addr = cpu_get_indexed_operand_addr (cpu, 1);
+ break;
+
+ default:
+ sim_engine_abort (CPU_STATE (cpu), cpu, 0,
+ "Invalid code 0x%0x -- internal error?", code);
return;
}
- sim_io_printf (sd, " # PC SP-L SP-H\n");
- frame = cpu->cpu_current_frame->frame;
- while (frame)
- {
- sim_io_printf (sd, "%3d 0x%04x 0x%04x 0x%04x\n",
- level, frame->pc, frame->sp_low, frame->sp_high);
- frame = frame->up;
- level++;
- }
+ memory_write8 (cpu, addr, src);
}
-/* Set the stack pointer and re-compute the current frame. */
void
-cpu_set_sp (sim_cpu *cpu, uint16 val)
+cpu_move16 (sim_cpu *cpu, uint8 code)
{
- cpu->cpu_regs.sp = val;
- cpu_update_frame (cpu, 0);
+ uint16 src;
+ uint16 addr;
+
+ switch (code)
+ {
+ case 0x03:
+ src = cpu_fetch16 (cpu);
+ addr = cpu_fetch16 (cpu);
+ break;
+
+ case 0x00:
+ addr = cpu_get_indexed_operand_addr (cpu, 1);
+ src = cpu_fetch16 (cpu);
+ break;
+
+ case 0x04:
+ addr = cpu_fetch16 (cpu);
+ src = memory_read16 (cpu, addr);
+ addr = cpu_fetch16 (cpu);
+ break;
+
+ case 0x01:
+ addr = cpu_get_indexed_operand_addr (cpu, 1);
+ src = memory_read16 (cpu, cpu_fetch16 (cpu));
+ break;
+
+ case 0x05:
+ src = cpu_get_indexed_operand16 (cpu, 1);
+ addr = cpu_fetch16 (cpu);
+ break;
+
+ case 0x02:
+ src = cpu_get_indexed_operand16 (cpu, 1);
+ addr = cpu_get_indexed_operand_addr (cpu, 1);
+ break;
+
+ default:
+ sim_engine_abort (CPU_STATE (cpu), cpu, 0,
+ "Invalid code 0x%0x -- internal error?", code);
+ return;
+ }
+ memory_write16 (cpu, addr, src);
}
int
cpu_initialize (SIM_DESC sd, sim_cpu *cpu)
{
- int result;
-
sim_add_option_table (sd, 0, cpu_options);
memset (&cpu->cpu_regs, 0, sizeof(cpu->cpu_regs));
cpu->cpu_running = 1;
cpu->cpu_stop_on_interrupt = 0;
cpu->cpu_frequency = 8 * 1000 * 1000;
- cpu->cpu_frames = 0;
- cpu->cpu_current_frame = 0;
cpu->cpu_use_elf_start = 0;
cpu->cpu_elf_start = 0;
cpu->cpu_use_local_config = 0;
+ cpu->bank_start = 0;
+ cpu->bank_end = 0;
+ cpu->bank_shift = 0;
cpu->cpu_config = M6811_NOSEC | M6811_NOCOP | M6811_ROMON |
M6811_EEON;
- result = interrupts_initialize (cpu);
+ interrupts_initialize (sd, cpu);
cpu->cpu_is_initialized = 1;
- return result;
+ return 0;
}
int
cpu_reset (sim_cpu *cpu)
{
- cpu->cpu_need_update_frame = 0;
- cpu->cpu_current_frame = 0;
- while (cpu->cpu_frames)
- cpu_remove_frame_list (cpu, cpu->cpu_frames);
-
/* Initialize the config register.
It is only initialized at reset time. */
memset (cpu->ios, 0, sizeof (cpu->ios));
- cpu->ios[M6811_INIT] = 0x1;
+ if (cpu->cpu_configured_arch->arch == bfd_arch_m68hc11)
+ cpu->ios[M6811_INIT] = 0x1;
+ else
+ cpu->ios[M6811_INIT] = 0;
/* Output compare registers set to 0xFFFF. */
cpu->ios[M6811_TOC1_H] = 0xFF;
cpu->cpu_current_cycle = 0;
cpu->cpu_is_initialized = 0;
+ /* Reset interrupts. */
+ interrupts_reset (&cpu->cpu_interrupts);
+
/* Reinitialize the CPU operating mode. */
cpu->ios[M6811_HPRIO] = cpu->cpu_mode;
return 0;
print_io_reg_desc (sd, desc, val, 0);
}
+void
+print_io_word (SIM_DESC sd, const char *name, io_reg_desc *desc,
+ uint16 val, uint16 addr)
+{
+ sim_io_printf (sd, " %-9.9s @ 0x%04x 0x%04x ", name, addr, val);
+ if (desc)
+ print_io_reg_desc (sd, desc, val, 0);
+}
+
void
cpu_ccr_update_tst8 (sim_cpu *proc, uint8 val)
{
return addr;
}
+uint16
+cpu_fetch_relbranch16 (sim_cpu *cpu)
+{
+ uint16 addr = cpu_fetch16 (cpu);
+
+ addr += cpu->cpu_regs.pc;
+ return addr;
+}
/* Push all the CPU registers (when an interruption occurs). */
void
cpu_push_all (sim_cpu *cpu)
{
- cpu_push_uint16 (cpu, cpu->cpu_regs.pc);
- cpu_push_uint16 (cpu, cpu->cpu_regs.iy);
- cpu_push_uint16 (cpu, cpu->cpu_regs.ix);
- cpu_push_uint16 (cpu, cpu->cpu_regs.d);
- cpu_push_uint8 (cpu, cpu->cpu_regs.ccr);
+ if (cpu->cpu_configured_arch->arch == bfd_arch_m68hc11)
+ {
+ cpu_m68hc11_push_uint16 (cpu, cpu->cpu_regs.pc);
+ cpu_m68hc11_push_uint16 (cpu, cpu->cpu_regs.iy);
+ cpu_m68hc11_push_uint16 (cpu, cpu->cpu_regs.ix);
+ cpu_m68hc11_push_uint16 (cpu, cpu->cpu_regs.d);
+ cpu_m68hc11_push_uint8 (cpu, cpu->cpu_regs.ccr);
+ }
+ else
+ {
+ cpu_m68hc12_push_uint16 (cpu, cpu->cpu_regs.pc);
+ cpu_m68hc12_push_uint16 (cpu, cpu->cpu_regs.iy);
+ cpu_m68hc12_push_uint16 (cpu, cpu->cpu_regs.ix);
+ cpu_m68hc12_push_uint16 (cpu, cpu->cpu_regs.d);
+ cpu_m68hc12_push_uint8 (cpu, cpu->cpu_regs.ccr);
+ }
}
+/* Simulation of the dbcc/ibcc/tbcc 68HC12 conditional branch operations. */
+void
+cpu_dbcc (sim_cpu* cpu)
+{
+ uint8 code;
+ uint16 addr;
+ uint16 inc;
+ uint16 reg;
+
+ code = cpu_fetch8 (cpu);
+ switch (code & 0xc0)
+ {
+ case 0x80: /* ibcc */
+ inc = 1;
+ break;
+ case 0x40: /* tbcc */
+ inc = 0;
+ break;
+ case 0: /* dbcc */
+ inc = -1;
+ break;
+ default:
+ abort ();
+ break;
+ }
+
+ addr = cpu_fetch8 (cpu);
+ if (code & 0x10)
+ addr |= 0xff00;
+
+ addr += cpu_get_pc (cpu);
+ reg = cpu_get_src_reg (cpu, code & 0x07);
+ reg += inc;
+
+ /* Branch according to register value. */
+ if ((reg != 0 && (code & 0x20)) || (reg == 0 && !(code & 0x20)))
+ {
+ cpu_set_pc (cpu, addr);
+ }
+ cpu_set_dst_reg (cpu, code & 0x07, reg);
+}
+
+void
+cpu_exg (sim_cpu* cpu, uint8 code)
+{
+ uint8 r1, r2;
+ uint16 src1;
+ uint16 src2;
+
+ r1 = (code >> 4) & 0x07;
+ r2 = code & 0x07;
+ if (code & 0x80)
+ {
+ src1 = cpu_get_src_reg (cpu, r1);
+ src2 = cpu_get_src_reg (cpu, r2);
+ if (r2 == 1 || r2 == 2)
+ src2 |= 0xff00;
+
+ cpu_set_dst_reg (cpu, r2, src1);
+ cpu_set_dst_reg (cpu, r1, src2);
+ }
+ else
+ {
+ src1 = cpu_get_src_reg (cpu, r1);
+
+ /* Sign extend the 8-bit registers (A, B, CCR). */
+ if ((r1 == 0 || r1 == 1 || r1 == 2) && (src1 & 0x80))
+ src1 |= 0xff00;
+
+ cpu_set_dst_reg (cpu, r2, src1);
+ }
+}
/* Handle special instructions. */
void
{
uint8 ccr;
- ccr = cpu_pop_uint8 (cpu);
+ ccr = cpu_m68hc11_pop_uint8 (cpu);
+ cpu_set_ccr (cpu, ccr);
+ cpu_set_d (cpu, cpu_m68hc11_pop_uint16 (cpu));
+ cpu_set_x (cpu, cpu_m68hc11_pop_uint16 (cpu));
+ cpu_set_y (cpu, cpu_m68hc11_pop_uint16 (cpu));
+ cpu_set_pc (cpu, cpu_m68hc11_pop_uint16 (cpu));
+ cpu_return (cpu);
+ break;
+ }
+
+ case M6812_RTI:
+ {
+ uint8 ccr;
+
+ ccr = cpu_m68hc12_pop_uint8 (cpu);
cpu_set_ccr (cpu, ccr);
- cpu_set_d (cpu, cpu_pop_uint16 (cpu));
- cpu_set_x (cpu, cpu_pop_uint16 (cpu));
- cpu_set_y (cpu, cpu_pop_uint16 (cpu));
- cpu_set_pc (cpu, cpu_pop_uint16 (cpu));
+ cpu_set_d (cpu, cpu_m68hc12_pop_uint16 (cpu));
+ cpu_set_x (cpu, cpu_m68hc12_pop_uint16 (cpu));
+ cpu_set_y (cpu, cpu_m68hc12_pop_uint16 (cpu));
+ cpu_set_pc (cpu, cpu_m68hc12_pop_uint16 (cpu));
cpu_return (cpu);
break;
}
break;
case M6811_TEST:
+ case M6812_BGND:
{
SIM_DESC sd;
/* else this is a nop but not in test factory mode. */
break;
}
+
+ case M6812_IDIVS:
+ {
+ int32 src1 = (int16) cpu_get_d (cpu);
+ int32 src2 = (int16) cpu_get_x (cpu);
+
+ if (src2 == 0)
+ {
+ cpu_set_ccr_C (cpu, 1);
+ }
+ else
+ {
+ cpu_set_d (cpu, src1 % src2);
+ src1 = src1 / src2;
+ cpu_set_x (cpu, src1);
+ cpu_set_ccr_C (cpu, 0);
+ cpu_set_ccr_Z (cpu, src1 == 0);
+ cpu_set_ccr_N (cpu, src1 & 0x8000);
+ cpu_set_ccr_V (cpu, src1 >= 32768 || src1 < -32768);
+ }
+ }
+ break;
+
+ case M6812_EDIV:
+ {
+ uint32 src1 = (uint32) cpu_get_x (cpu);
+ uint32 src2 = (uint32) (cpu_get_y (cpu) << 16)
+ | (uint32) (cpu_get_d (cpu));
+
+ if (src1 == 0)
+ {
+ cpu_set_ccr_C (cpu, 1);
+ }
+ else
+ {
+ cpu_set_ccr_C (cpu, 0);
+ cpu_set_d (cpu, src2 % src1);
+ src2 = src2 / src1;
+ cpu_set_y (cpu, src2);
+ cpu_set_ccr_Z (cpu, src2 == 0);
+ cpu_set_ccr_N (cpu, (src2 & 0x8000) != 0);
+ cpu_set_ccr_V (cpu, (src2 & 0xffff0000) != 0);
+ }
+ }
+ break;
+
+ case M6812_EDIVS:
+ {
+ int32 src1 = (int16) cpu_get_x (cpu);
+ int32 src2 = (uint32) (cpu_get_y (cpu) << 16)
+ | (uint32) (cpu_get_d (cpu));
+
+ if (src1 == 0)
+ {
+ cpu_set_ccr_C (cpu, 1);
+ }
+ else
+ {
+ cpu_set_ccr_C (cpu, 0);
+ cpu_set_d (cpu, src2 % src1);
+ src2 = src2 / src1;
+ cpu_set_y (cpu, src2);
+ cpu_set_ccr_Z (cpu, src2 == 0);
+ cpu_set_ccr_N (cpu, (src2 & 0x8000) != 0);
+ cpu_set_ccr_V (cpu, src2 > 32767 || src2 < -32768);
+ }
+ }
+ break;
+
+ case M6812_EMULS:
+ {
+ int32 src1, src2;
+
+ src1 = (int16) cpu_get_d (cpu);
+ src2 = (int16) cpu_get_y (cpu);
+ src1 = src1 * src2;
+ cpu_set_d (cpu, src1 & 0x0ffff);
+ cpu_set_y (cpu, src1 >> 16);
+ cpu_set_ccr_Z (cpu, src1 == 0);
+ cpu_set_ccr_N (cpu, (src1 & 0x80000000) != 0);
+ cpu_set_ccr_C (cpu, (src1 & 0x00008000) != 0);
+ }
+ break;
+
+ case M6812_EMACS:
+ {
+ int32 src1, src2;
+ uint16 addr;
+
+ addr = cpu_fetch16 (cpu);
+ src1 = (int16) memory_read16 (cpu, cpu_get_x (cpu));
+ src2 = (int16) memory_read16 (cpu, cpu_get_y (cpu));
+ src1 = src1 * src2;
+ src2 = (((uint32) memory_read16 (cpu, addr)) << 16)
+ | (uint32) memory_read16 (cpu, addr + 2);
+
+ memory_write16 (cpu, addr, (src1 + src2) >> 16);
+ memory_write16 (cpu, addr + 2, (src1 + src2));
+
+
+ }
+ break;
+
+ case M6812_CALL:
+ {
+ uint8 page;
+ uint16 addr;
+
+ addr = cpu_fetch16 (cpu);
+ page = cpu_fetch8 (cpu);
+
+ cpu_m68hc12_push_uint16 (cpu, cpu_get_pc (cpu));
+ cpu_m68hc12_push_uint8 (cpu, cpu_get_page (cpu));
+
+ cpu_set_page (cpu, page);
+ cpu_set_pc (cpu, addr);
+ }
+ break;
+
+ case M6812_CALL_INDIRECT:
+ {
+ uint8 code;
+ uint16 addr;
+ uint8 page;
+
+ code = memory_read8 (cpu, cpu_get_pc (cpu));
+ /* Indirect addressing call has the page specified in the
+ memory location pointed to by the address. */
+ if ((code & 0xE3) == 0xE3)
+ {
+ addr = cpu_get_indexed_operand_addr (cpu, 0);
+ page = memory_read8 (cpu, addr + 2);
+ addr = memory_read16 (cpu, addr);
+ }
+ else
+ {
+ /* Otherwise, page is in the opcode. */
+ addr = cpu_get_indexed_operand16 (cpu, 0);
+ page = cpu_fetch8 (cpu);
+ }
+ cpu_m68hc12_push_uint16 (cpu, cpu_get_pc (cpu));
+ cpu_m68hc12_push_uint8 (cpu, cpu_get_page (cpu));
+ cpu_set_page (cpu, page);
+ cpu_set_pc (cpu, addr);
+ }
+ break;
+
+ case M6812_RTC:
+ {
+ uint8 page = cpu_m68hc12_pop_uint8 (cpu);
+ uint16 addr = cpu_m68hc12_pop_uint16 (cpu);
+
+ cpu_set_page (cpu, page);
+ cpu_set_pc (cpu, addr);
+ }
+ break;
+
+ case M6812_ETBL:
+ default:
+ sim_engine_halt (CPU_STATE (cpu), cpu, NULL,
+ cpu_get_pc (cpu), sim_stopped,
+ SIM_SIGILL);
+ break;
}
}
}
/* printf("PC = 0x%04x\n", cpu_get_pc (cpu));*/
- cpu_interp (cpu);
+ cpu->cpu_interpretor (cpu);
cpu->cpu_absolute_cycle += cpu->cpu_current_cycle;
}
vsprintf (buf, message, args);
va_end (args);
- printf("%s\n", buf);
+ sim_io_printf (CPU_STATE (cpu), "%s\n", buf);
cpu_memory_exception (cpu, excep, addr, buf);
}
cpu_info (SIM_DESC sd, sim_cpu *cpu)
{
sim_io_printf (sd, "CPU info:\n");
- sim_io_printf (sd, " Absolute cycle: %llu\n",
- cpu->cpu_absolute_cycle);
+ sim_io_printf (sd, " Absolute cycle: %s\n",
+ cycle_to_string (cpu, cpu->cpu_absolute_cycle,
+ PRINT_TIME | PRINT_CYCLE));
+
sim_io_printf (sd, " Syscall emulation: %s\n",
cpu->cpu_emul_syscall ? "yes, via 0xcd <n>" : "no");
sim_io_printf (sd, " Memory errors detection: %s\n",