library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

entity blokk is
 Port(
       ROM1_Adat, ROM2_Adat:  in std_logic_vector(255 downto 0);
      Reset,Clk         :  in std_logic;
      
      ROM1_Cim,ROM2_Cim   :  out std_logic_vector(4 downto 0);
      Minta_cim         :  out std_logic_vector(4 downto 0);
      Kijelzo          :  out std_logic_vector(6 downto 0)
      
    );
end entity;


Architecture behavior of blokk is
Signal ROM1_Cim_tmp,ROM2_Cim_tmp, SRAM_Cim_tmp : std_logic_vector(4 downto 0);
Variable Hamming : std_logic_vector(255 downto 0); --A vectorban tárolt egyesek értéke adja meg a 2 vector Hamming távolságát
Variable Hamming_eredmeny     : STD_LOGIC_VECTOR (8 downto 0);
Variable Hamming_min             : STD_LOGIC_VECTOR (8 downto 0);
Signal   Minta_cim_tmp           : std_logic_vector (4 downto 0);   
Begin
  ROM1_Cim<=ROM1_Cim_tmp;
  ROM2_Cim<=ROM2_Cim_tmp;
Process(Reset,Clk)
Begin 
  if (Reset='1') then
   ROM1_Cim_tmp<="00000";
    ROM2_Cim_tmp<="00000";
   Hamming_min:="111111111";
   Hamming_eredmeny:=0;
  elsif (Clk'Event and Clk='1') then
   Hamming := ROM1_Adat xor ROM2_Adat;
   
   for i in 0 to 255 loop
      Hamming_eredmeny :=Hamming_eredmeny + conv_std_logic_vector(Hamming(i),9);
   end loop;
   
   
    if(Hamming_eredmeny < Hamming_min) then               
        Minta_cim_tmp <= Rom2_Cim_tmp;                                 
        Hamming_min := Hamming_eredmeny;
     end if;
       
   
   
    if(ROM2_Cim_tmp<20) then         --Rekeszek címzésének előállítása
      ROM2_Cim_tmp<=ROM2_Cim_tmp + 1;
      Hamming_eredmeny:=0;
    else
      ROM1_Cim_tmp<=ROM1_Cim_tmp + 1;
      ROM2_Cim_tmp<="00000";
      Minta_cim <= Minta_cim_tmp;
      
      With minta_cim_tmp select
         kimenet<= "0000001" WHEN "00000",
                   "1111001" WHEN "00001",
              "0010010" WHEN "00010",
               "0000110" WHEN "00011",
               "1101100" WHEN "00100",
                   "0100100" WHEN "00101",
                   "0100000" WHEN "00110",
                   "0001111" WHEN "00111",
              "0000100"   WHEN "01000",
                   "0000001" WHEN OTHERS;
         
      Hamming_min:="111111111";
    end if;
  end if;
End Process;
End Architecture;   

--A működés lényege a következő lenne: Van 2 ROM memóriám. Az egyikben azok a bitminták vannak, amelyeket azonosítani szeretnék. (minimum 1 darab minta).
--A másodikban 20 bitminta van tárolva.    A 2 memória tartalmát xor kapcsolatba hozom egymással. (Minden rekeszt minden rekesszel).
--Mindig az aktuális xor eredményét kiküldöm egy sram-nak, ami tárolja ezt.

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

entity blokk is
 Port(
       ROM1_Adat, ROM2_Adat:  in std_logic_vector(255 downto 0);
      Reset,Clk         :  in std_logic;
      
      ROM1_Cim,ROM2_Cim   :  out std_logic_vector(4 downto 0);
      SRAM_Cim         :  out std_logic_vector(4 downto 0);
      SRAM_WE            :  out std_logic;
      SRAM_Adat         :  out std_logic_vector(255 downto 0)
    );
end entity;


Architecture behavior of blokk is
Signal ROM1_Cim_tmp,ROM2_Cim_tmp, SRAM_Cim_tmp : std_logic_vector(4 downto 0);
Variable Hamming : std_logic_vector(255 downto 0); --A vectorban tárolt egyesek értéke adja meg a 2 vector Hamming távolságát
Begin
  ROM1_Cim<=ROM1_Cim_tmp;
  ROM2_Cim<=ROM2_Cim_tmp;
Process(Reset,Clk)
Begin 
  if (Reset='1') then
   ROM1_Cim_tmp<="00000";
    ROM2_Cim_tmp<="00000";
  elsif (Clk'Event and Clk='1') then
   Hamming := ROM1_Adat xor ROM2_Adat;
   SRAM_WE<='1';                  --Adat kiküldése az SRAM-nak
   SRAM_Cim<=ROM2_Cim_tmp;
   SRAM_ADAT<=Hamming;
    if(ROM2_Cim_tmp<20) then         --Rekeszek címzésének előállítása
      ROM2_Cim_tmp<=ROM2_Cim_tmp + 1;
    else
      ROM1_Cim_tmp<=ROM1_Cim_tmp + 1;
      ROM2_Cim_tmp<="00000";
    end if;
  end if;
End Process;
End Architecture;             

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;


entity test1 is
    PORT
    (
      ClkIn                 : in   STD_LOGIC;
      Reset                 : in   STD_LOGIC;
      RecogReq              : in   STD_LOGIC;     
     
      -- A felismerando minta
      InputPattern          : in   STD_LOGIC_VECTOR (255 downto 0);     
     
      -- A referencia ROM1 mintak cimzese
      AddressROM1           : out  STD_LOGIC_VECTOR (3 downto 0);     
           
      -- Referencia minta1 a rom1-bol
      DataFromROM1          : in   STD_LOGIC_VECTOR (255 downto 0);
     
      -- A referencia ROM2 mintak cimzese
      AddressROM2           : out  STD_LOGIC_VECTOR (3 downto 0);           
     
      -- Referencia minta2 a rom2-bol     
      DataFromROM2          : in   STD_LOGIC_VECTOR (255 downto 0);
     
      FoundRom              : out  STD_LOGIC;           
      FoundPaternIndex      : out  STD_LOGIC_VECTOR (3 downto 0);
      Done                  : out  STD_LOGIC     
    );
end test1;



architecture Behavioral of test1 is

  type    STATE_TYPE0  is     (ST0,ST1);
  signal  sm_recog           : STATE_TYPE0;
  signal  Address            : STD_LOGIC_VECTOR (3 downto 0);         
   
begin

  --
  AddressROM1 <= Address;
  AddressROM2 <= Address;

  process(Reset,ClkIn)
 
  variable  Rom1Result    : STD_LOGIC_VECTOR (255 downto 0);
  variable  Rom2Result    : STD_LOGIC_VECTOR (255 downto 0);
  variable  Ham1          : STD_LOGIC_VECTOR (8 downto 0);
  variable  Ham2          : STD_LOGIC_VECTOR (8 downto 0);
  variable  HamResult     : STD_LOGIC_VECTOR (8 downto 0);
   
  begin
    if(Reset = '1') then
      sm_recog       <= ST0; 
      Done           <= '0';
      Ham1           := (others => '1');
      Ham2           := (others => '1');
      HamResult      := (others => '1');     
      Address        <= (others => '0');   
      FoundPaternIndex  <= (others => '1');
    elsif(ClkIn'event AND ClkIn = '1') then
      if(RecogReq = '1') then   
        case sm_recog is
          when ST0 =>
            Done <= '0';
            Rom1Result := InputPattern xor DataFromROM1;
            Rom2Result := InputPattern xor DataFromROM2; 
            -- Ezek csak néhány bit összeadasa, le kell irni mind a 256-ot
            -- Ham1 := conv_std_logic_vector(Rom1Result(0),9) + .......... conv_std_logic_vector(Rom1Result(255),9);   
            -- Ham2 := conv_std_logic_vector(Rom1Result(0),9) + .......... conv_std_logic_vector(Rom1Result(255),9);
            Ham1       := conv_std_logic_vector(Rom1Result(0),9) + conv_std_logic_vector(Rom1Result(1),9) +
                          conv_std_logic_vector(Rom1Result(2),9) + conv_std_logic_vector(Rom1Result(3),9) +
                          conv_std_logic_vector(Rom1Result(4),9) + conv_std_logic_vector(Rom1Result(5),9);
                               
            Ham2       := conv_std_logic_vector(Rom2Result(0),9) + conv_std_logic_vector(Rom2Result(1),9) +
                          conv_std_logic_vector(Rom2Result(2),9) + conv_std_logic_vector(Rom2Result(3),9) +
                          conv_std_logic_vector(Rom2Result(4),9) + conv_std_logic_vector(Rom2Result(5),9);           
            sm_recog <= ST1;               
          when ST1 =>
            Done <= '0';
            if(Ham1 <= Ham2) then             
              if(Ham1 < HamResult) then
                FoundRom <= '0';
                FoundPaternIndex <= Address;                                 
                HamResult := Ham1;
              end if;
            else             
              if(Ham2 < HamResult) then
                FoundRom <= '1';
                FoundPaternIndex <= Address;
                HamResult := Ham2;               
              end if;
            end if;
            if(Address >= 9) then             
              Done <= '1';
            else
              Address <= Address+1;           
              sm_recog <= ST0;
            end if; 
          when others => null;
        end case;
      else       
        Ham1               := (others => '0');
        Ham2               := (others => '0');
        HamResult          := (others => '1');                   
        Address            <= (others => '0');
        Done               <= '0';
        FoundPaternIndex   <= (others => '1');         
        sm_recog           <= ST0;
      end if;
    end if;
  end process;       
end Behavioral;

entity c1hz is
port( clk :IN STD_LOGIC; clkout :OUT STD_LOGIC);
end c1hz;