58 lines
1.7 KiB
C
58 lines
1.7 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(jmp, 1) { R(RIP) = p1->val; return 0; }
|
||
|
|
||
|
IMPL_START(jraxz, 1) { if (!R(RAX)) R(RIP) = p1->val; return 0; }
|
||
|
IMPL_START(jrcxz, 1) { if (!R(RCX)) R(RIP) = p1->val; return 0; }
|
||
|
|
||
|
IMPL_START(jraxnz, 1) { if (R(RAX)) R(RIP) = p1->val; return 0; }
|
||
|
IMPL_START(jrcxnz, 1) { if (R(RCX)) R(RIP) = p1->val; return 0; }
|
||
|
|
||
|
IMPL_START(loop, 1) {
|
||
|
if (R(RCX) > 0) {
|
||
|
R(RCX)--;
|
||
|
R(RIP) = p1->val;
|
||
|
}
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
IMPL_START(bzr, 2) { SRCP(p1); if (p1->val == 0) R(RIP) = p2->val; return 0; }
|
||
|
IMPL_START(bnz, 2) { SRCP(p1); if (p1->val != 0) R(RIP) = p2->val; return 0; }
|
||
|
IMPL_START(bltz, 2) { SRCP(p1); if ((long)p1->val < 0) R(RIP) = p2->val; return 0; }
|
||
|
|
||
|
IMPL_START(beq, 3) { SRCP(p1); if (p1->val == p2->val) R(RIP) = p3->val; return 0; }
|
||
|
IMPL_START(bne, 3) { SRCP(p1); if (p1->val != p2->val) R(RIP) = p3->val; return 0; }
|
||
|
|
||
|
IMPL_START(blt, 3) { SRCP(p1); if ((long)p1->val < (long)p2->val) R(RIP) = p3->val; return 0; }
|
||
|
IMPL_START(bltu, 3) { SRCP(p1); if (p1->val < p2->val) R(RIP) = p3->val; return 0; }
|
||
|
|
||
|
IMPL_START(blte, 3) { SRCP(p1); if ((long)p1->val <= (long)p2->val) R(RIP) = p3->val; return 0; }
|
||
|
IMPL_START(blteu, 3) { SRCP(p1); if (p1->val <= p2->val) R(RIP) = p3->val; return 0; }
|
||
|
|
||
|
IMPL_START(bch, 3)
|
||
|
{
|
||
|
SRCP(p1);
|
||
|
SRCP(p2);
|
||
|
|
||
|
COMPARE_SUB(p1->val, p2->val);
|
||
|
|
||
|
if (eval_cond(ctx->cond))
|
||
|
R(RIP) = p3->val;
|
||
|
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
IMPL_START(cmp, 2)
|
||
|
{
|
||
|
SRCP(p1);
|
||
|
|
||
|
COMPARE_SUB(p1->val, p2->val);
|
||
|
|
||
|
return 0;
|
||
|
}
|