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.
|
|
|
|
|
2019-06-05 12:53:09 +02:00
|
|
|
#include <in/instrs.h>
|
2019-05-30 18:31:50 +02:00
|
|
|
|
2019-06-13 15:00:48 +02:00
|
|
|
IMPL_START_1(lea)
|
2019-05-30 18:31:50 +02:00
|
|
|
{
|
2019-06-13 15:00:48 +02:00
|
|
|
v1 = p2->addr;
|
2019-05-30 18:31:50 +02:00
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
2019-06-13 15:00:48 +02:00
|
|
|
//----------------------------------------------------------------------------//
|
2019-06-03 15:16:11 +02:00
|
|
|
|
2019-06-13 15:00:48 +02:00
|
|
|
IMPL_START_2(mov)
|
2019-06-03 15:16:11 +02:00
|
|
|
{
|
2019-06-13 15:00:48 +02:00
|
|
|
v1 = v2;
|
2019-06-03 15:16:11 +02:00
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
2019-06-13 15:00:48 +02:00
|
|
|
IMPL_START_1(movzx)
|
2019-06-03 15:16:11 +02:00
|
|
|
{
|
2019-06-13 16:27:33 +02:00
|
|
|
DECVZX(v2, p2);
|
2019-06-13 15:00:48 +02:00
|
|
|
v1 = v2;
|
2019-06-03 15:16:11 +02:00
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
2019-06-13 15:00:48 +02:00
|
|
|
//----------------------------------------------------------------------------//
|
2019-06-03 15:16:11 +02:00
|
|
|
|
2019-05-30 18:31:50 +02:00
|
|
|
IMPL_START_2(xchg)
|
|
|
|
{
|
|
|
|
ulong t = v1;
|
|
|
|
v1 = v2;
|
|
|
|
v2 = t;
|
|
|
|
}
|
2019-06-05 22:59:32 +02:00
|
|
|
IMPL_OUT_2;
|
2019-05-30 18:31:50 +02:00
|
|
|
|
|
|
|
|
2019-06-02 16:33:28 +02:00
|
|
|
IMPL_START_2(cmpxchg)
|
|
|
|
{
|
|
|
|
if (rax == v1) {
|
|
|
|
flg |= ZF;
|
|
|
|
v1 = v2;
|
|
|
|
}
|
|
|
|
|
|
|
|
else {
|
|
|
|
flg &= ~ZF;
|
|
|
|
rax = v1;
|
|
|
|
}
|
2019-05-30 18:31:50 +02:00
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
2019-06-13 15:00:48 +02:00
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
2019-06-17 20:59:30 +02:00
|
|
|
IMPL_START_2(ldarg)
|
|
|
|
{
|
2019-07-01 00:45:08 +02:00
|
|
|
if (v2 < 32)
|
2019-06-17 20:59:30 +02:00
|
|
|
v1 = R(AX0 + v2);
|
|
|
|
|
|
|
|
else
|
|
|
|
_except(ctx, E_ILL, "ldarg: value out of range: %lu", v1);
|
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
|
2019-06-07 13:38:34 +02:00
|
|
|
IMPL_START_1(gco)
|
|
|
|
{
|
|
|
|
v1 = cr1;
|
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
|
|
|
IMPL_START_1(gcd)
|
|
|
|
{
|
|
|
|
v1 = cr2;
|
|
|
|
}
|
|
|
|
IMPL_OUT;
|
|
|
|
|
2019-06-17 20:59:30 +02:00
|
|
|
//----------------------------------------------------------------------------//
|
2019-06-07 13:38:34 +02:00
|
|
|
|