LIBRARY IEEE;

USE IEEE.STD_LOGIC_1164.ALL;

USE IEEE.STD_LOGIC_unsigned.ALL;

USE IEEE.STD_LOGIC_arith.ALL;

ENTITY crcsend IS

    PORT(   sdata:IN STD_LOGIC_VECTOR(11 DOWNTO 0);

            CLK,datald: IN STD_LOGIC;

           datacrco:out STD_LOGIC_VECTOR(16 DOWNTO 0);

             hsend:out std_logic);

END crcsend;

ARCHITECTURE comm OF crcsend IS

    constant multi_coef : std_logic_vector(5 downto 0) := "110101";

            signal cnt :std_logic_vector(4 downto 0);

            signal dtemp,sdatam :std_logic_vector(11 downto 0);

            signal rdatacrc:std_logic_vector(16 downto 0);

         signal st :std_logic;

begin   process(clk)

  variable crcvar : std_logic_vector(5 downto 0);

begin  if(clk'event and clk = '1')then

       if(st='0'and datald='1')then dtemp<=sdata;

       sdatam<=sdata;cnt<=(others=>'0');hsend<='0';st<='1';

      elsif(st='1' and cnt<7)then cnt<=cnt+1;

      if(dtemp(11)='1')then crcvar:=dtemp(11 downto 6)xor multi_coef;

      dtemp<=crcvar(4 downto 0)& dtemp(5 downto 0) & '0';

      else dtemp<=dtemp(10 downto 0) & '0';

 end if;

 elsif(st='1' and cnt=7)then datacrco<=sdatam & dtemp(11 downto 7);

 hsend<='1';cnt<=cnt+1;

     elsif(st='1' and cnt=8) then hsend<='0'; st<='0';

end if;

end if;

end process;

end comm;

-------【CRC  crcrec模塊】

LIBRARY IEEE;

USE IEEE.STD_LOGIC_1164.ALL;

USE IEEE.STD_LOGIC_unsigned.ALL;

USE IEEE.STD_LOGIC_arith.ALL;

ENTITY crcrec IS

    PORT(  datacrci:IN STD_LOGIC_VECTOR(16 DOWNTO 0);

           CLK,hrecv: IN STD_LOGIC;

           rdata:out STD_LOGIC_VECTOR(11 DOWNTO 0);

           error1,datafini:out std_logic);

END crcrec;

ARCHITECTURE comm OF crcrec IS

      constant multi_coef:std_logic_vector(5 downto 0) := "110101";

      signal rcnt:std_logic_vector(4 downto 0);

      signal rdtemp:std_logic_vector(11 downto 0);

      signal rdatacrc:std_logic_vector(16 downto 0);

      signal rt:std_logic;

begin

process(clk,hrecv)

    variable rcrcvar : std_logic_vector(5 downto 0);

begin

   if(clk'event and clk = '1')then

    if(rt='0'and hrecv='1')then rdtemp<=datacrci(16 DOWNTO 5);

     rdatacrc<=datacrci;rcnt<=(others=>'0');error1<='0';rt<='1';

    elsif(rt='1'and rcnt<7)then datafini<='0';rcnt<=rcnt+1;rcrcvar:=rdtemp(11downto6)xor multi_coef;

     if(rdtemp(11)='1')then rdtemp<=rcrcvar(4 downto 0)& rdtemp(5 downto 0)& '0';

     else rdtemp<=rdtemp(10 downto 0) & '0';

 end if;

 elsif(rt='1' and rcnt=7)then datafini<='1';

 rdata<=rdatacrc(16 downto 5);rt<='0';

    if(rdatacrc(4 downto 0) /=rdtemp(11 downto 7)) then error1<='1';

end if;  end if;  end if;

end process;

end comm;