// 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(EIP) = p1->val; return 0; }

IMPL_START(jeaxz, 1) { if (!R(EAX)) R(EIP) = p1->val; return 0; }
IMPL_START(jecxz, 1) { if (!R(ECX)) R(EIP) = p1->val; return 0; }

IMPL_START(jeaxnz, 1) { if (R(EAX)) R(EIP) = p1->val; return 0; }
IMPL_START(jecxnz, 1) { if (R(ECX)) R(EIP) = p1->val; return 0; }

//----------------------------------------------------------------------------//

IMPL_START(loop, 1) {
    if (R(ECX) > 0) {
        R(ECX)--;
        R(EIP) = p1->val;
    }
    return 0;
}

IMPL_START(loop, 2) {
    SRCP(p1);
    if (p1->val > 0) {
        *r1 = p1->val-1;
        R(EIP) = p2->val;
    }
    return 0;
}

//----------------------------------------------------------------------------//

IMPL_START(bzr, 2) { SRCP(p1); if (p1->val == 0) R(EIP) = p2->val; return 0; }
IMPL_START(bnz, 2) { SRCP(p1); if (p1->val != 0) R(EIP) = p2->val; return 0; }
IMPL_START(bltz, 2) { SRCP(p1); if ((long)p1->val < 0) R(EIP) = p2->val; return 0; }

IMPL_START(beq, 3) { SRCP(p1); if (p1->val == p2->val) R(EIP) = p3->val; return 0; }
IMPL_START(bne, 3) { SRCP(p1); if (p1->val != p2->val) R(EIP) = p3->val; return 0; }

IMPL_START(blt, 3) { SRCP(p1); if ((long)p1->val < (long)p2->val) R(EIP) = p3->val; return 0; }
IMPL_START(bltu, 3) { SRCP(p1); if (p1->val < p2->val) R(EIP) = p3->val; return 0; }

IMPL_START(blte, 3) { SRCP(p1); if ((long)p1->val <= (long)p2->val) R(EIP) = p3->val; return 0; }
IMPL_START(blteu, 3) { SRCP(p1); if (p1->val <= p2->val) R(EIP) = p3->val; return 0; }

//----------------------------------------------------------------------------//