Archipelago » qemu

/*

 *  SH4 translation

 * 

 *  Copyright (c) 2005 Samuel Tardieu

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * This library 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

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

 */

#include <stdarg.h>

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <inttypes.h>

#include <assert.h>

#define DEBUG_DISAS

#define SH4_DEBUG_DISAS

//#define SH4_SINGLE_STEP

#include "cpu.h"

#include "exec-all.h"

#include "disas.h"

enum {

#define DEF(s, n, copy_size) INDEX_op_ ## s,

#include "opc.h"

#undef DEF

    NB_OPS,

};

#ifdef USE_DIRECT_JUMP

#define TBPARAM(x)

#else

#define TBPARAM(x) ((long)(x))

#endif

static uint16_t *gen_opc_ptr;

static uint32_t *gen_opparam_ptr;

#include "gen-op.h"

typedef struct DisasContext {

    struct TranslationBlock *tb;

    target_ulong pc;

    uint32_t sr;

    uint32_t fpscr;

    uint16_t opcode;

    uint32_t flags;

    int memidx;

    uint32_t delayed_pc;

    int singlestep_enabled;

} DisasContext;

#ifdef CONFIG_USER_ONLY

#define GEN_OP_LD(width, reg) \

  void gen_op_ld##width##_T0_##reg (DisasContext *ctx) { \

    gen_op_ld##width##_T0_##reg##_raw(); \

  }

#define GEN_OP_ST(width, reg) \

  void gen_op_st##width##_##reg##_T1 (DisasContext *ctx) { \

    gen_op_st##width##_##reg##_T1_raw(); \

  }

#else

#define GEN_OP_LD(width, reg) \

  void gen_op_ld##width##_T0_##reg (DisasContext *ctx) { \

    if (ctx->memidx) gen_op_ld##width##_T0_##reg##_kernel(); \

    else gen_op_ld##width##_T0_##reg##_user();\

  }

#define GEN_OP_ST(width, reg) \

  void gen_op_st##width##_##reg##_T1 (DisasContext *ctx) { \

    if (ctx->memidx) gen_op_st##width##_##reg##_T1_kernel(); \

    else gen_op_st##width##_##reg##_T1_user();\

  }

#endif

GEN_OP_LD(ub, T0)

GEN_OP_LD(b, T0)

GEN_OP_ST(b, T0)

GEN_OP_LD(uw, T0)

GEN_OP_LD(w, T0)

GEN_OP_ST(w, T0)

GEN_OP_LD(l, T0)

GEN_OP_ST(l, T0)

GEN_OP_LD(fl, FT0)

GEN_OP_ST(fl, FT0)

GEN_OP_LD(fq, DT0)

GEN_OP_ST(fq, DT0)

void cpu_dump_state(CPUState * env, FILE * f,

                    int (*cpu_fprintf) (FILE * f, const char *fmt, ...),

                    int flags)

{

    int i;

    cpu_fprintf(f, "pc=0x%08x sr=0x%08x pr=0x%08x fpscr=0x%08x\n",

                env->pc, env->sr, env->pr, env->fpscr);

    for (i = 0; i < 24; i += 4) {

        cpu_fprintf(f, "r%d=0x%08x r%d=0x%08x r%d=0x%08x r%d=0x%08x\n",

                    i, env->gregs[i], i + 1, env->gregs[i + 1],

                    i + 2, env->gregs[i + 2], i + 3, env->gregs[i + 3]);

    }

    if (env->flags & DELAY_SLOT) {

        cpu_fprintf(f, "in delay slot (delayed_pc=0x%08x)\n",

                    env->delayed_pc);

    } else if (env->flags & DELAY_SLOT_CONDITIONAL) {

        cpu_fprintf(f, "in conditional delay slot (delayed_pc=0x%08x)\n",

                    env->delayed_pc);

    }

}

void cpu_sh4_reset(CPUSH4State * env)

{

#if defined(CONFIG_USER_ONLY)

    env->sr = 0x00000000;

#else

    env->sr = 0x700000F0;        /* MD, RB, BL, I3-I0 */

#endif

    env->vbr = 0;

    env->pc = 0xA0000000;

    env->fpscr = 0x00040001;

    env->mmucr = 0;

}

CPUSH4State *cpu_sh4_init(void)

{

    CPUSH4State *env;

    env = qemu_mallocz(sizeof(CPUSH4State));

    if (!env)

        return NULL;

    cpu_exec_init(env);

    cpu_sh4_reset(env);

    tlb_flush(env, 1);

    return env;

}

static void gen_goto_tb(DisasContext * ctx, int n, target_ulong dest)

{

    TranslationBlock *tb;

    tb = ctx->tb;

    if ((tb->pc & TARGET_PAGE_MASK) == (dest & TARGET_PAGE_MASK) &&

        !ctx->singlestep_enabled) {

        /* Use a direct jump if in same page and singlestep not enabled */

        if (n == 0)

            gen_op_goto_tb0(TBPARAM(tb));

        else

            gen_op_goto_tb1(TBPARAM(tb));

        gen_op_movl_imm_T0((long) tb + n);

    } else {

        gen_op_movl_imm_T0(0);

    }

    gen_op_movl_imm_PC(dest);

    if (ctx->singlestep_enabled)

        gen_op_debug();

    gen_op_exit_tb();

}

/* Jump to pc after an exception */

static void gen_jump_exception(DisasContext * ctx)

{

    gen_op_movl_imm_T0(0);

    if (ctx->singlestep_enabled)

        gen_op_debug();

    gen_op_exit_tb();

}

static void gen_jump(DisasContext * ctx)

{

    if (ctx->delayed_pc == (uint32_t) - 1) {

        /* Target is not statically known, it comes necessarily from a

           delayed jump as immediate jump are conditinal jumps */

        gen_op_movl_delayed_pc_PC();

        gen_op_movl_imm_T0(0);

        if (ctx->singlestep_enabled)

            gen_op_debug();

        gen_op_exit_tb();

    } else {

        gen_goto_tb(ctx, 0, ctx->delayed_pc);

    }

}

/* Immediate conditional jump (bt or bf) */

static void gen_conditional_jump(DisasContext * ctx,

                                 target_ulong ift, target_ulong ifnott)

{

    int l1;

    l1 = gen_new_label();

    gen_op_jT(l1);

    gen_goto_tb(ctx, 0, ifnott);

    gen_set_label(l1);

    gen_goto_tb(ctx, 1, ift);

}

/* Delayed conditional jump (bt or bf) */

static void gen_delayed_conditional_jump(DisasContext * ctx)

{

    int l1;

    l1 = gen_new_label();

    gen_op_jdelayed(l1);

    gen_goto_tb(ctx, 1, ctx->pc);

    gen_set_label(l1);

    gen_jump(ctx);

}

#define B3_0 (ctx->opcode & 0xf)

#define B6_4 ((ctx->opcode >> 4) & 0x7)

#define B7_4 ((ctx->opcode >> 4) & 0xf)

#define B7_0 (ctx->opcode & 0xff)

#define B7_0s ((int32_t) (int8_t) (ctx->opcode & 0xff))

#define B11_0s (ctx->opcode & 0x800 ? 0xfffff000 | (ctx->opcode & 0xfff) : \

  (ctx->opcode & 0xfff))

#define B11_8 ((ctx->opcode >> 8) & 0xf)

#define B15_12 ((ctx->opcode >> 12) & 0xf)

#define REG(x) ((x) < 8 && (ctx->sr & (SR_MD | SR_RB)) == (SR_MD | SR_RB) ? \

                (x) + 16 : (x))

#define ALTREG(x) ((x) < 8 && (ctx->sr & (SR_MD | SR_RB)) != (SR_MD | SR_RB) \

                ? (x) + 16 : (x))

#define FREG(x) (ctx->fpscr & FPSCR_FR ? (x) ^ 0x10 : (x))

#define XHACK(x) (((x) & 1 ) << 4 | ((x) & 0xe ) << 1)

#define XREG(x) (ctx->fpscr & FPSCR_FR ? XHACK(x) ^ 0x10 : XHACK(x))

#define CHECK_NOT_DELAY_SLOT \

  if (ctx->flags & (DELAY_SLOT | DELAY_SLOT_CONDITIONAL)) \

  {gen_op_raise_slot_illegal_instruction (); ctx->flags |= BRANCH_EXCEPTION; \

   return;}

void decode_opc(DisasContext * ctx)

{

#if 0

    fprintf(stderr, "Translating opcode 0x%04x\n", ctx->opcode);

#endif

    switch (ctx->opcode) {

    case 0x0019:                /* div0u */

        gen_op_div0u();

        return;

    case 0x000b:                /* rts */

        CHECK_NOT_DELAY_SLOT gen_op_rts();

        ctx->flags |= DELAY_SLOT;

        ctx->delayed_pc = (uint32_t) - 1;

        return;

    case 0x0028:                /* clrmac */

        gen_op_clrmac();

        return;

    case 0x0048:                /* clrs */

        gen_op_clrs();

        return;

    case 0x0008:                /* clrt */

        gen_op_clrt();

        return;

    case 0x0038:                /* ldtlb */

        assert(0);                /* XXXXX */

        return;

    case 0x004b:                /* rte */

        CHECK_NOT_DELAY_SLOT gen_op_rte();

        ctx->flags |= DELAY_SLOT;

        ctx->delayed_pc = (uint32_t) - 1;

        return;

    case 0x0058:                /* sets */

        gen_op_sets();

        return;

    case 0x0018:                /* sett */

        gen_op_sett();

        return;

    case 0xfbfb:                /* frchg */

        gen_op_frchg();

        ctx->flags |= MODE_CHANGE;

        return;

    case 0xf3fb:                /* fschg */

        gen_op_fschg();

        ctx->flags |= MODE_CHANGE;

        return;

    case 0x0009:                /* nop */

        return;

    case 0x001b:                /* sleep */

        assert(0);                /* XXXXX */

        return;

    }

    switch (ctx->opcode & 0xf000) {

    case 0x1000:                /* mov.l Rm,@(disp,Rn) */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_addl_imm_T1(B3_0 * 4);

        gen_op_stl_T0_T1(ctx);

        return;

    case 0x5000:                /* mov.l @(disp,Rm),Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_addl_imm_T0(B3_0 * 4);

        gen_op_ldl_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0xe000:                /* mov.l #imm,Rn */

        gen_op_movl_imm_rN(B7_0s, REG(B11_8));

        return;

    case 0x9000:                /* mov.w @(disp,PC),Rn */

        gen_op_movl_imm_T0(ctx->pc + 4 + B7_0 * 2);

        gen_op_ldw_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0xd000:                /* mov.l @(disp,PC),Rn */

        gen_op_movl_imm_T0((ctx->pc + 4 + B7_0 * 4) & ~3);

        gen_op_ldl_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x7000:                /* add.l #imm,Rn */

        gen_op_add_imm_rN(B7_0s, REG(B11_8));

        return;

    case 0xa000:                /* bra disp */

        CHECK_NOT_DELAY_SLOT

            gen_op_bra(ctx->delayed_pc = ctx->pc + 4 + B11_0s * 2);

        ctx->flags |= DELAY_SLOT;

        return;

    case 0xb000:                /* bsr disp */

        CHECK_NOT_DELAY_SLOT

            gen_op_bsr(ctx->pc + 4, ctx->delayed_pc =

                       ctx->pc + 4 + B11_0s * 2);

        ctx->flags |= DELAY_SLOT;

        return;

    }

    switch (ctx->opcode & 0xf00f) {

    case 0x6003:                /* mov Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x2000:                /* mov.b Rm,@Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_stb_T0_T1(ctx);

        return;

    case 0x2001:                /* mov.w Rm,@Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_stw_T0_T1(ctx);

        return;

    case 0x2002:                /* mov.l Rm,@Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_stl_T0_T1(ctx);

        return;

    case 0x6000:                /* mov.b @Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_ldb_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x6001:                /* mov.w @Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_ldw_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x6002:                /* mov.l @Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_ldl_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x2004:                /* mov.b Rm,@-Rn */

        gen_op_dec1_rN(REG(B11_8));

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_stb_T0_T1(ctx);

        return;

    case 0x2005:                /* mov.w Rm,@-Rn */

        gen_op_dec2_rN(REG(B11_8));

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_stw_T0_T1(ctx);

        return;

    case 0x2006:                /* mov.l Rm,@-Rn */

        gen_op_dec4_rN(REG(B11_8));

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_stl_T0_T1(ctx);

        return;

    case 0x6004:                /* mov.b @Rm+,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_ldb_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        gen_op_inc1_rN(REG(B7_4));

        return;

    case 0x6005:                /* mov.w @Rm+,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_ldw_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        gen_op_inc2_rN(REG(B7_4));

        return;

    case 0x6006:                /* mov.l @Rm+,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_ldl_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        gen_op_inc4_rN(REG(B7_4));

        return;

    case 0x0004:                /* mov.b Rm,@(R0,Rn) */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_add_rN_T1(REG(0));

        gen_op_stb_T0_T1(ctx);

        return;

    case 0x0005:                /* mov.w Rm,@(R0,Rn) */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_add_rN_T1(REG(0));

        gen_op_stw_T0_T1(ctx);

        return;

    case 0x0006:                /* mov.l Rm,@(R0,Rn) */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_add_rN_T1(REG(0));

        gen_op_stl_T0_T1(ctx);

        return;

    case 0x000c:                /* mov.b @(R0,Rm),Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_add_rN_T0(REG(0));

        gen_op_ldb_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x000d:                /* mov.w @(R0,Rm),Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_add_rN_T0(REG(0));

        gen_op_ldw_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x000e:                /* mov.l @(R0,Rm),Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_add_rN_T0(REG(0));

        gen_op_ldl_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x6008:                /* swap.b Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_swapb_T0();

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x6009:                /* swap.w Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_swapw_T0();

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x200d:                /* xtrct Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_xtrct_T0_T1();

        gen_op_movl_T1_rN(REG(B11_8));

        return;

    case 0x300c:                /* add Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_add_T0_rN(REG(B11_8));

        return;

    case 0x300e:                /* addc Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_addc_T0_T1();

        gen_op_movl_T1_rN(REG(B11_8));

        return;

    case 0x300f:                /* addv Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_addv_T0_T1();

        gen_op_movl_T1_rN(REG(B11_8));

        return;

    case 0x2009:                /* and Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_and_T0_rN(REG(B11_8));

        return;

    case 0x3000:                /* cmp/eq Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_cmp_eq_T0_T1();

        return;

    case 0x3003:                /* cmp/ge Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_cmp_ge_T0_T1();

        return;

    case 0x3007:                /* cmp/gt Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_cmp_gt_T0_T1();

        return;

    case 0x3006:                /* cmp/hi Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_cmp_hi_T0_T1();

        return;

    case 0x3002:                /* cmp/hs Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_cmp_hs_T0_T1();

        return;

    case 0x200c:                /* cmp/str Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_cmp_str_T0_T1();

        return;

    case 0x2007:                /* div0s Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_div0s_T0_T1();

        gen_op_movl_T1_rN(REG(B11_8));

        return;

    case 0x3004:                /* div1 Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_div1_T0_T1();

        gen_op_movl_T1_rN(REG(B11_8));

        return;

    case 0x300d:                /* dmuls.l Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_dmulsl_T0_T1();

        return;

    case 0x3005:                /* dmulu.l Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_dmulul_T0_T1();

        return;

    case 0x600e:                /* exts.b Rm,Rn */

        gen_op_movb_rN_T0(REG(B7_4));

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x600f:                /* exts.w Rm,Rn */

        gen_op_movw_rN_T0(REG(B7_4));

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x600c:                /* extu.b Rm,Rn */

        gen_op_movub_rN_T0(REG(B7_4));

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x600d:                /* extu.w Rm,Rn */

        gen_op_movuw_rN_T0(REG(B7_4));

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x000f:                /* mac.l @Rm+,@Rn- */

        gen_op_movl_rN_T0(REG(B11_8));

        gen_op_ldl_T0_T0(ctx);

        gen_op_movl_T0_T1();

        gen_op_movl_rN_T1(REG(B7_4));

        gen_op_ldl_T0_T0(ctx);

        gen_op_macl_T0_T1();

        gen_op_inc4_rN(REG(B7_4));

        gen_op_inc4_rN(REG(B11_8));

        return;

    case 0x400f:                /* mac.w @Rm+,@Rn+ */

        gen_op_movl_rN_T0(REG(B11_8));

        gen_op_ldl_T0_T0(ctx);

        gen_op_movl_T0_T1();

        gen_op_movl_rN_T1(REG(B7_4));

        gen_op_ldl_T0_T0(ctx);

        gen_op_macw_T0_T1();

        gen_op_inc2_rN(REG(B7_4));

        gen_op_inc2_rN(REG(B11_8));

        return;

    case 0x0007:                /* mul.l Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_mull_T0_T1();

        return;

    case 0x200f:                /* muls.w Rm,Rn */

        gen_op_movw_rN_T0(REG(B7_4));

        gen_op_movw_rN_T1(REG(B11_8));

        gen_op_mulsw_T0_T1();

        return;

    case 0x200e:                /* mulu.w Rm,Rn */

        gen_op_movuw_rN_T0(REG(B7_4));

        gen_op_movuw_rN_T1(REG(B11_8));

        gen_op_muluw_T0_T1();

        return;

    case 0x600b:                /* neg Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_neg_T0();

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x600a:                /* negc Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_negc_T0();

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x6007:                /* not Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_not_T0();

        gen_op_movl_T0_rN(REG(B11_8));

        return;

    case 0x200b:                /* or Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_or_T0_rN(REG(B11_8));

        return;

    case 0x400c:                /* shad Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_shad_T0_T1();

        gen_op_movl_T1_rN(REG(B11_8));

        return;

    case 0x400d:                /* shld Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_shld_T0_T1();

        gen_op_movl_T1_rN(REG(B11_8));

        return;

    case 0x3008:                /* sub Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_sub_T0_rN(REG(B11_8));

        return;

    case 0x300a:                /* subc Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_subc_T0_T1();

        gen_op_movl_T1_rN(REG(B11_8));

        return;

    case 0x300b:                /* subv Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_subv_T0_T1();

        gen_op_movl_T1_rN(REG(B11_8));

        return;

    case 0x2008:                /* tst Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_movl_rN_T1(REG(B11_8));

        gen_op_tst_T0_T1();

        return;

    case 0x200a:                /* xor Rm,Rn */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_xor_T0_rN(REG(B11_8));

        return;

    case 0xf00c:                /* fmov {F,D,X}Rm,{F,D,X}Rn */

        if (ctx->fpscr & FPSCR_PR) {

            gen_op_fmov_drN_DT0(XREG(B7_4));

            gen_op_fmov_DT0_drN(XREG(B11_8));

        } else if (ctx->fpscr & FPSCR_SZ) {

            if (ctx->opcode & 0x0110)

                break; /* illegal instruction */

            gen_op_fmov_drN_DT0(XREG(B7_4));

            gen_op_fmov_DT0_drN(XREG(B11_8));

        } else {

            gen_op_fmov_frN_FT0(FREG(B7_4));

            gen_op_fmov_FT0_frN(FREG(B11_8));

        }

        return;

    case 0xf00a:                /* fmov {F,D,X}Rm,@Rn */

        if (ctx->fpscr & FPSCR_PR) {

            gen_op_fmov_drN_DT0(XREG(B7_4));

            gen_op_movl_rN_T1(REG(B11_8));

            gen_op_stfq_DT0_T1(ctx);

        } else if (ctx->fpscr & FPSCR_SZ) {

            if (ctx->opcode & 0x0010)

                break; /* illegal instruction */

            gen_op_fmov_drN_DT0(XREG(B7_4));

            gen_op_movl_rN_T1(REG(B11_8));

            gen_op_stfq_DT0_T1(ctx);

        } else {

            gen_op_fmov_frN_FT0(FREG(B7_4));

            gen_op_movl_rN_T1(REG(B11_8));

            gen_op_stfl_FT0_T1(ctx);

        }

        return;

    case 0xf008:                /* fmov @Rm,{F,D,X}Rn */

        if (ctx->fpscr & FPSCR_PR) {

            gen_op_movl_rN_T0(REG(B7_4));

            gen_op_ldfq_T0_DT0(ctx);

            gen_op_fmov_DT0_drN(XREG(B11_8));

        } else if (ctx->fpscr & FPSCR_SZ) {

            if (ctx->opcode & 0x0100)

                break; /* illegal instruction */

            gen_op_movl_rN_T0(REG(B7_4));

            gen_op_ldfq_T0_DT0(ctx);

            gen_op_fmov_DT0_drN(XREG(B11_8));

        } else {

            gen_op_movl_rN_T0(REG(B7_4));

            gen_op_ldfl_T0_FT0(ctx);

            gen_op_fmov_FT0_frN(XREG(B11_8));

        }

        return;

    case 0xf009:                /* fmov @Rm+,{F,D,X}Rn */

        if (ctx->fpscr & FPSCR_PR) {

            gen_op_movl_rN_T0(REG(B7_4));

            gen_op_ldfq_T0_DT0(ctx);

            gen_op_fmov_DT0_drN(XREG(B11_8));

            gen_op_inc8_rN(REG(B7_4));

        } else if (ctx->fpscr & FPSCR_SZ) {

            if (ctx->opcode & 0x0100)

                break; /* illegal instruction */

            gen_op_movl_rN_T0(REG(B7_4));

            gen_op_ldfq_T0_DT0(ctx);

            gen_op_fmov_DT0_drN(XREG(B11_8));

            gen_op_inc8_rN(REG(B7_4));

        } else {

            gen_op_movl_rN_T0(REG(B7_4));

            gen_op_ldfl_T0_FT0(ctx);

            gen_op_fmov_FT0_frN(XREG(B11_8));

            gen_op_inc4_rN(REG(B7_4));

        }

        return;

    case 0xf00b:                /* fmov {F,D,X}Rm,@-Rn */

        if (ctx->fpscr & FPSCR_PR) {

            gen_op_dec8_rN(REG(B11_8));

            gen_op_fmov_drN_DT0(XREG(B7_4));

            gen_op_movl_rN_T1(REG(B11_8));

            gen_op_stfq_DT0_T1(ctx);

        } else if (ctx->fpscr & FPSCR_SZ) {

            if (ctx->opcode & 0x0100)

                break; /* illegal instruction */

            gen_op_dec8_rN(REG(B11_8));

            gen_op_fmov_drN_DT0(XREG(B7_4));

            gen_op_movl_rN_T1(REG(B11_8));

            gen_op_stfq_DT0_T1(ctx);

        } else {

            gen_op_dec4_rN(REG(B11_8));

            gen_op_fmov_frN_FT0(FREG(B7_4));

            gen_op_movl_rN_T1(REG(B11_8));

            gen_op_stfl_FT0_T1(ctx);

        }

        return;

    case 0xf006:                /* fmov @(R0,Rm),{F,D,X}Rm */

        if (ctx->fpscr & FPSCR_PR) {

            gen_op_movl_rN_T0(REG(B7_4));

            gen_op_add_rN_T0(REG(0));

            gen_op_ldfq_T0_DT0(ctx);

            gen_op_fmov_DT0_drN(XREG(B11_8));

        } else if (ctx->fpscr & FPSCR_SZ) {

            if (ctx->opcode & 0x0100)

                break; /* illegal instruction */

            gen_op_movl_rN_T0(REG(B7_4));

            gen_op_add_rN_T0(REG(0));

            gen_op_ldfq_T0_DT0(ctx);

            gen_op_fmov_DT0_drN(XREG(B11_8));

        } else {

            gen_op_movl_rN_T0(REG(B7_4));

            gen_op_add_rN_T0(REG(0));

            gen_op_ldfl_T0_FT0(ctx);

            gen_op_fmov_FT0_frN(XREG(B11_8));

        }

        return;

    case 0xf007:                /* fmov {F,D,X}Rn,@(R0,Rn) */

        if (ctx->fpscr & FPSCR_PR) {

            gen_op_fmov_drN_DT0(XREG(B7_4));

            gen_op_movl_rN_T1(REG(B11_8));

            gen_op_add_rN_T1(REG(0));

            gen_op_stfq_DT0_T1(ctx);

        } else if (ctx->fpscr & FPSCR_SZ) {

            if (ctx->opcode & 0x0010)

                break; /* illegal instruction */

            gen_op_fmov_drN_DT0(XREG(B7_4));

            gen_op_movl_rN_T1(REG(B11_8));

            gen_op_add_rN_T1(REG(0));

            gen_op_stfq_DT0_T1(ctx);

        } else {

            gen_op_fmov_frN_FT0(FREG(B7_4));

            gen_op_movl_rN_T1(REG(B11_8));

            gen_op_add_rN_T1(REG(0));

            gen_op_stfl_FT0_T1(ctx);

        }

        return;

    }

    switch (ctx->opcode & 0xff00) {

    case 0xc900:                /* and #imm,R0 */

        gen_op_and_imm_rN(B7_0, REG(0));

        return;

    case 0xcd00:                /* and.b #imm,@(R0+GBR) */

        gen_op_movl_rN_T0(REG(0));

        gen_op_addl_GBR_T0();

        gen_op_movl_T0_T1();

        gen_op_ldb_T0_T0(ctx);

        gen_op_and_imm_T0(B7_0);

        gen_op_stb_T0_T1(ctx);

        return;

    case 0x8b00:                /* bf label */

        CHECK_NOT_DELAY_SLOT

            gen_conditional_jump(ctx, ctx->pc + 2,

                                 ctx->pc + 4 + B7_0s * 2);

        ctx->flags |= BRANCH_CONDITIONAL;

        return;

    case 0x8f00:                /* bf/s label */

        CHECK_NOT_DELAY_SLOT

            gen_op_bf_s(ctx->delayed_pc = ctx->pc + 4 + B7_0s * 2);

        ctx->flags |= DELAY_SLOT_CONDITIONAL;

        return;

    case 0x8900:                /* bt label */

        CHECK_NOT_DELAY_SLOT

            gen_conditional_jump(ctx, ctx->pc + 4 + B7_0s * 2,

                                 ctx->pc + 2);

        ctx->flags |= BRANCH_CONDITIONAL;

        return;

    case 0x8d00:                /* bt/s label */

        CHECK_NOT_DELAY_SLOT

            gen_op_bt_s(ctx->delayed_pc = ctx->pc + 4 + B7_0s * 2);

        ctx->flags |= DELAY_SLOT_CONDITIONAL;

        return;

    case 0x8800:                /* cmp/eq #imm,R0 */

        gen_op_movl_rN_T0(REG(0));

        gen_op_cmp_eq_imm_T0(B7_0s);

        return;

    case 0xc400:                /* mov.b @(disp,GBR),R0 */

        gen_op_stc_gbr_T0();

        gen_op_addl_imm_T0(B7_0);

        gen_op_ldb_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(0));

        return;

    case 0xc500:                /* mov.w @(disp,GBR),R0 */

        gen_op_stc_gbr_T0();

        gen_op_addl_imm_T0(B7_0);

        gen_op_ldw_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(0));

        return;

    case 0xc600:                /* mov.l @(disp,GBR),R0 */

        gen_op_stc_gbr_T0();

        gen_op_addl_imm_T0(B7_0);

        gen_op_ldl_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(0));

        return;

    case 0xc000:                /* mov.b R0,@(disp,GBR) */

        gen_op_stc_gbr_T0();

        gen_op_addl_imm_T0(B7_0);

        gen_op_movl_T0_T1();

        gen_op_movl_rN_T0(REG(0));

        gen_op_stb_T0_T1(ctx);

        return;

    case 0xc100:                /* mov.w R0,@(disp,GBR) */

        gen_op_stc_gbr_T0();

        gen_op_addl_imm_T0(B7_0);

        gen_op_movl_T0_T1();

        gen_op_movl_rN_T0(REG(0));

        gen_op_stw_T0_T1(ctx);

        return;

    case 0xc200:                /* mov.l R0,@(disp,GBR) */

        gen_op_stc_gbr_T0();

        gen_op_addl_imm_T0(B7_0);

        gen_op_movl_T0_T1();

        gen_op_movl_rN_T0(REG(0));

        gen_op_stl_T0_T1(ctx);

        return;

    case 0x8000:                /* mov.b R0,@(disp,Rn) */

        gen_op_movl_rN_T0(REG(0));

        gen_op_movl_rN_T1(REG(B7_4));

        gen_op_addl_imm_T1(B3_0);

        gen_op_stb_T0_T1(ctx);

        return;

    case 0x8100:                /* mov.w R0,@(disp,Rn) */

        gen_op_movl_rN_T0(REG(0));

        gen_op_movl_rN_T1(REG(B7_4));

        gen_op_addl_imm_T1(B3_0 * 2);

        gen_op_stw_T0_T1(ctx);

        return;

    case 0x8400:                /* mov.b @(disp,Rn),R0 */

        gen_op_movl_rN_T0(REG(0));

        gen_op_movl_rN_T1(REG(B7_4));

        gen_op_addl_imm_T1(B3_0);

        gen_op_stb_T0_T1(ctx);

        return;

    case 0x8500:                /* mov.w @(disp,Rn),R0 */

        gen_op_movl_rN_T0(REG(B7_4));

        gen_op_addl_imm_T0(B3_0 * 2);

        gen_op_ldw_T0_T0(ctx);

        gen_op_movl_T0_rN(REG(0));

        return;

    case 0xc700:                /* mova @(disp,PC),R0 */

        gen_op_movl_imm_rN(((ctx->pc & 0xfffffffc) + 4 + B7_0 * 4) & ~3,

                           REG(0));

        return;

    case 0xcb00:                /* or #imm,R0 */

        gen_op_or_imm_rN(B7_0, REG(0));

        return;

    case 0xcf00:                /* or.b #imm,@(R0+GBR) */

        gen_op_movl_rN_T0(REG(0));

        gen_op_addl_GBR_T0();

        gen_op_movl_T0_T1();

        gen_op_ldb_T0_T0(ctx);

        gen_op_or_imm_T0(B7_0);

        gen_op_stb_T0_T1(ctx);