ruberon/lib/Math/MathBits.ob07

(* ****************************************
   Дополнение к модулю Math.
   Побитовые операции над целыми числами.
   Вадим Исаев, 2020
   Additional functions to the module Math.
   Bitwise operations on integers.
   Vadim Isaev, 2020
******************************************* *)

MODULE MathBits;


PROCEDURE iand* (x, y: INTEGER): INTEGER;
    RETURN ORD(BITS(x) * BITS(y))
END iand;


PROCEDURE ior* (x, y: INTEGER): INTEGER;
    RETURN ORD(BITS(x) + BITS(y))
END ior;


PROCEDURE ixor* (x, y: INTEGER): INTEGER;
    RETURN ORD(BITS(x) / BITS(y))
END ixor;


PROCEDURE inot* (x: INTEGER): INTEGER;
    RETURN ORD(-BITS(x))
END inot;


END MathBits.