mirror of
https://gitlab.os-k.eu/os-k-team/kvisc.git
synced 2023-08-25 14:05:46 +02:00
122 lines
1.9 KiB
C
122 lines
1.9 KiB
C
// The OS/K Team licenses this file to you under the MIT license.
|
|
// See the LICENSE file in the project root for more information.
|
|
|
|
#include <in/instrs.h>
|
|
|
|
IMPL_START_1(lea)
|
|
{
|
|
v1 = p2->addr;
|
|
}
|
|
IMPL_OUT;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_2_ONLY(mov)
|
|
{
|
|
v1 = v2;
|
|
}
|
|
IMPL_OUT;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_2_ONLY(movsxb)
|
|
{
|
|
v1 = (ulong)(long)(char)(v2 & 0xFF);
|
|
}
|
|
IMPL_OUT;
|
|
|
|
IMPL_START_2_ONLY(movsxw)
|
|
{
|
|
v1 = (ulong)(long)(short)(v2 & 0xFFFF);
|
|
}
|
|
IMPL_OUT;
|
|
|
|
IMPL_START_2_ONLY(movsxl)
|
|
{
|
|
v1 = (ulong)(long)(int)(v2 & 0xFFFFFFFF);
|
|
}
|
|
IMPL_OUT;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_1(movzx)
|
|
{
|
|
DECVZX(v2, p2);
|
|
v1 = v2;
|
|
}
|
|
IMPL_OUT;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_2(xchg)
|
|
{
|
|
ulong t = v1;
|
|
v1 = v2;
|
|
v2 = t;
|
|
}
|
|
IMPL_OUT_2;
|
|
|
|
|
|
IMPL_START_2(cmpxchg)
|
|
{
|
|
if (rax == v1) {
|
|
flg |= ZF;
|
|
v1 = v2;
|
|
}
|
|
|
|
else {
|
|
flg &= ~ZF;
|
|
rax = v1;
|
|
}
|
|
}
|
|
IMPL_OUT;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_3(rotl)
|
|
{
|
|
ulong tmp = v1;
|
|
v1 = v2;
|
|
v2 = v3;
|
|
v3 = tmp;
|
|
}
|
|
IMPL_OUT_3;
|
|
|
|
IMPL_START_3(rotr)
|
|
{
|
|
ulong tmp = v3;
|
|
v3 = v2;
|
|
v2 = v1;
|
|
v1 = tmp;
|
|
}
|
|
IMPL_OUT_3;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_2_ONLY(ldarg)
|
|
{
|
|
if (v2 < 16)
|
|
v1 = R(AX0 + v2);
|
|
|
|
else
|
|
_except(ctx, E_ILL, "ldarg: value out of range: %lu", v2);
|
|
}
|
|
IMPL_OUT;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
IMPL_START_1(gco)
|
|
{
|
|
v1 = cr1;
|
|
}
|
|
IMPL_OUT;
|
|
|
|
IMPL_START_1(gcd)
|
|
{
|
|
v1 = cr2;
|
|
}
|
|
IMPL_OUT;
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|