package body Bit_Szintu_Muveletek is


   procedure Bitenkent_Kiir(Mit : Tipus; Hossz_Bitekben : Natural := Tipus'Size) is
      type Bit_Tipus is new Natural range 0..1;
      for Bit_Tipus'Size use 1;

      type Vektor_Tipus is array(1 .. Mit'Size) of Bit_Tipus;
      pragma Pack(Vektor_Tipus);


      Bitkep : Vektor_Tipus;

      for Bitkep'Address use Mit'Address;

   begin
      for i in reverse 1 .. Hossz_Bitekben loop
         if i mod 8 = 0 and i /= 0 then Kiir(" |"); end if;
         Kiir(Bit_Tipus'Image(Bitkep(i)));
      end loop;
   end Bitenkent_Kiir;


end Bit_Szintu_Muveletek;