Subversion Repositories Kolibri OS

(* ****************************************

   Дополнение к модулю 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.