Archipelago » qemu

/*

 *  PowerPC emulation micro-operations for qemu.

 *

 *  Copyright (c) 2003-2007 Jocelyn Mayer

 *

 * 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

 */

//#define DEBUG_OP

#include "config.h"

#include "exec.h"

#include "host-utils.h"

#include "helper_regs.h"

#include "op_helper.h"

#if !defined(CONFIG_USER_ONLY)

void OPPROTO op_load_sdr1 (void)

{

    T0 = env->sdr1;

    RETURN();

}

void OPPROTO op_store_sdr1 (void)

{

    do_store_sdr1(env, T0);

    RETURN();

}

#if defined (TARGET_PPC64)

void OPPROTO op_load_asr (void)

{

    T0 = env->asr;

    RETURN();

}

void OPPROTO op_store_asr (void)

{

    ppc_store_asr(env, T0);

    RETURN();

}

#endif

#endif

/* SPR */

void OPPROTO op_load_spr (void)

{

    T0 = env->spr[PARAM1];

    RETURN();

}

void OPPROTO op_store_spr (void)

{

    env->spr[PARAM1] = T0;

    RETURN();

}

void OPPROTO op_load_dump_spr (void)

{

    T0 = ppc_load_dump_spr(PARAM1);

    RETURN();

}

void OPPROTO op_store_dump_spr (void)

{

    ppc_store_dump_spr(PARAM1, T0);

    RETURN();

}

void OPPROTO op_mask_spr (void)

{

    env->spr[PARAM1] &= ~T0;

    RETURN();

}

void OPPROTO op_load_tbl (void)

{

    T0 = cpu_ppc_load_tbl(env);

    RETURN();

}

void OPPROTO op_load_tbu (void)

{

    T0 = cpu_ppc_load_tbu(env);

    RETURN();

}

void OPPROTO op_load_atbl (void)

{

    T0 = cpu_ppc_load_atbl(env);

    RETURN();

}

void OPPROTO op_load_atbu (void)

{

    T0 = cpu_ppc_load_atbu(env);

    RETURN();

}

#if !defined(CONFIG_USER_ONLY)

void OPPROTO op_store_tbl (void)

{

    cpu_ppc_store_tbl(env, T0);

    RETURN();

}

void OPPROTO op_store_tbu (void)

{

    cpu_ppc_store_tbu(env, T0);

    RETURN();

}

void OPPROTO op_store_atbl (void)

{

    cpu_ppc_store_atbl(env, T0);

    RETURN();

}

void OPPROTO op_store_atbu (void)

{

    cpu_ppc_store_atbu(env, T0);

    RETURN();

}

void OPPROTO op_load_decr (void)

{

    T0 = cpu_ppc_load_decr(env);

    RETURN();

}

void OPPROTO op_store_decr (void)

{

    cpu_ppc_store_decr(env, T0);

    RETURN();

}

void OPPROTO op_load_ibat (void)

{

    T0 = env->IBAT[PARAM1][PARAM2];

    RETURN();

}

void OPPROTO op_store_ibatu (void)

{

    do_store_ibatu(env, PARAM1, T0);

    RETURN();

}

void OPPROTO op_store_ibatl (void)

{

#if 1

    env->IBAT[1][PARAM1] = T0;

#else

    do_store_ibatl(env, PARAM1, T0);

#endif

    RETURN();

}

void OPPROTO op_load_dbat (void)

{

    T0 = env->DBAT[PARAM1][PARAM2];

    RETURN();

}

void OPPROTO op_store_dbatu (void)

{

    do_store_dbatu(env, PARAM1, T0);

    RETURN();

}

void OPPROTO op_store_dbatl (void)

{

#if 1

    env->DBAT[1][PARAM1] = T0;

#else

    do_store_dbatl(env, PARAM1, T0);

#endif

    RETURN();

}

#endif /* !defined(CONFIG_USER_ONLY) */

/* Return from interrupt */

#if !defined(CONFIG_USER_ONLY)

/* Exception vectors */

void OPPROTO op_store_excp_prefix (void)

{

    T0 &= env->ivpr_mask;

    env->excp_prefix = T0;

    RETURN();

}

void OPPROTO op_store_excp_vector (void)

{

    T0 &= env->ivor_mask;

    env->excp_vectors[PARAM1] = T0;

    RETURN();

}

#endif

/* 601 specific */

void OPPROTO op_load_601_rtcl (void)

{

    T0 = cpu_ppc601_load_rtcl(env);

    RETURN();

}

void OPPROTO op_load_601_rtcu (void)

{

    T0 = cpu_ppc601_load_rtcu(env);

    RETURN();

}

#if !defined(CONFIG_USER_ONLY)

void OPPROTO op_store_601_rtcl (void)

{

    cpu_ppc601_store_rtcl(env, T0);

    RETURN();

}

void OPPROTO op_store_601_rtcu (void)

{

    cpu_ppc601_store_rtcu(env, T0);

    RETURN();

}

void OPPROTO op_store_hid0_601 (void)

{

    do_store_hid0_601();

    RETURN();

}

void OPPROTO op_load_601_bat (void)

{

    T0 = env->IBAT[PARAM1][PARAM2];

    RETURN();

}

void OPPROTO op_store_601_batl (void)

{

    do_store_ibatl_601(env, PARAM1, T0);

    RETURN();

}

void OPPROTO op_store_601_batu (void)

{

    do_store_ibatu_601(env, PARAM1, T0);

    RETURN();

}

#endif /* !defined(CONFIG_USER_ONLY) */

/* SPR micro-ops */

/* 440 specific */

#if !defined(CONFIG_USER_ONLY)

void OPPROTO op_store_pir (void)

{

    env->spr[SPR_PIR] = T0 & 0x0000000FUL;

    RETURN();

}

void OPPROTO op_load_403_pb (void)

{

    do_load_403_pb(PARAM1);

    RETURN();

}

void OPPROTO op_store_403_pb (void)

{

    do_store_403_pb(PARAM1);

    RETURN();

}

void OPPROTO op_load_40x_pit (void)

{

    T0 = load_40x_pit(env);

    RETURN();

}

void OPPROTO op_store_40x_pit (void)

{

    store_40x_pit(env, T0);

    RETURN();

}

void OPPROTO op_store_40x_dbcr0 (void)

{

    store_40x_dbcr0(env, T0);

    RETURN();

}

void OPPROTO op_store_40x_sler (void)

{

    store_40x_sler(env, T0);

    RETURN();

}

void OPPROTO op_store_booke_tcr (void)

{

    store_booke_tcr(env, T0);

    RETURN();

}

void OPPROTO op_store_booke_tsr (void)

{

    store_booke_tsr(env, T0);

    RETURN();

}

#endif /* !defined(CONFIG_USER_ONLY) */