src/bit_ops.ads


1
2
3
4
5
6
7
8
9

with ISA;

package Bit_Ops is
   use ISA;

   function Bitwise_Or  (X, Y : Byte) return Byte;
   function Bitwise_And (X, Y : Byte) return Byte;
   function Bitwise_Xor (X, Y : Byte) return Byte;
end Bit_Ops;