kvisc/vm/in/logic.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_COND(not);
IMPL_COND(and);
IMPL_COND(or);
IMPL_COND(xor);
IMPL_COND(shl);
IMPL_COND(shr);

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

IMPL_START_2(test)
{
    flg &= ~OF;
    flg &= ~CF;
    SET_ZSF(v1 & v2);
}
IMPL_END;

IMPL_START_2(and)
{
    flg &= ~OF;
    flg &= ~CF;
    v1 &= v2;
    
}
IMPL_OUT_ZSF;

IMPL_START_2(or)
{
    flg &= ~OF;
    flg &= ~CF;
    v1 |= v2;
}
IMPL_OUT_ZSF;

IMPL_START_2(xor)
{
    flg &= ~OF;
    flg &= ~CF;
    v1 ^= v2;
}
IMPL_OUT_ZSF;

IMPL_START_2(shl)
{
    v1 <<= v2;
}
IMPL_OUT_ZSF;

IMPL_START_2(shr)
{
    v1 >>= v2;
}
IMPL_OUT_ZSF;

IMPL_START_1(not)
{
    v1 = ~v1;
}
IMPL_OUT;