2019-05-30 18:31:50 +02:00
|
|
|
// 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 "instrs.h"
|
|
|
|
#include "arch_i.h"
|
|
|
|
|
2019-05-30 20:23:27 +02:00
|
|
|
IMPL_COND(mov);
|
|
|
|
IMPL_COND(lea);
|
|
|
|
IMPL_COND(xchg);
|
|
|
|
|
2019-05-30 18:31:50 +02:00
|
|
|
//
|
|
|
|
// Movement instructions
|
|
|
|
//
|
|
|
|
|
|
|
|
IMPL_START_2(mov)
|
|
|
|
{
|
|
|
|
v1 = v2;
|
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
|
|
|
IMPL_START_2(xchg)
|
|
|
|
{
|
|
|
|
ulong t = v1;
|
|
|
|
v1 = v2;
|
|
|
|
v2 = t;
|
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
|
|
|
IMPL_START_1(lea)
|
|
|
|
{
|
|
|
|
if (!p2->mem) {
|
|
|
|
_except(ctx, E_ILL, "Bad LEA format");
|
|
|
|
}
|
|
|
|
|
|
|
|
v1 = (p2->type == A_REG ? ctx->r[p2->val].val : p2->val) + p2->off;
|
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
|
|
|
IMPL_START_1(gcs)
|
|
|
|
{
|
|
|
|
v1 = ctx->r[CR1].val;
|
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|