Crc循环冗余程序及波形.doc

LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;USE IEEE.STD_LOGIC_ARITH.ALL;ENTITY CRCTR IS PORT( RST,CLK,ENLOAD:IN STD_LOGIC; INFOR :IN STD_LOGIC_VECTOR(3 DOWNTO 0); GENER:OUT STD_LOGIC_VECTOR(6 DOWNTO 0); FSEND:OUT STD_LOGIC); END CRCTR;ARCHITECTURE BEHAV OF CRCTR IS CONSTANT CRCGENER :STD_LOGIC_VECTOR(3 DOWNTO 0):=1011; SIGNAL Q:STD_LOGIC_VECTOR(6 DOWNTO 0); SIGNAL STOR :STD_LOGIC_VECTOR(3 DOWNTO 0) ; SIGNAL CDATA:STD_LOGIC_VECTOR(3 DOWNTO 0) ; SIGNAL COUNT :STD_LOGIC_VECTOR(3 DOWNTO 0) ; SIGNAL CT,flag,able:STD_LOGIC ;BEGINPROCESS(RST,CLK,ENLOAD,INFOR) VARIABLE X:STD_LOGIC_VECTOR(3 DOWNTO 0) ;BEGINIF RST=1 THEN Q=0000000;CT=0; ELSE IF (CLKEVENT AND CLK=1)THEN IF(CT=0 AND ENLOAD=1) THEN STOR=INFOR;CDATA=INFOR ;CT=1;FSEND=0; ELSIF (CT=1 AND COUNT8) THEN COUNT=COUNT+1;flag=1;able=1; IF(CDATA(3)=1 and flag=1) THEN X:=CDATA XOR CRCGENER; CDATA=X ;flag=0;END IF; IF(CDATA(3)=0 and able=1)THEN CDATA=CDATA(2 DOWNTO 0) & 0;able=0; END IF; ELSIF(CT=1 AND COUNT=8) THEN Q=STOR&CDATA( 2 DOWNTO 0); COUNT=COUNT+1; FSEND=1; ELSIF(CT=1 AND COUNT=9) THEN FSEND=0;CT=0; END IF; END IF;END IF;GENER=Q;END PROCESS;END BEHAV; LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;USE IEEE.STD_LOGIC_ARITH.ALL;ENTITY CRCRE IS PORT( RST,CLK,ENLOAD:IN STD_LOGIC; DATARE:IN STD_LOGIC_VECTOR(6 DOWNTO 0); RESULT:OUT STD_LOGIC_VECTOR(3 DOWNTO 0); RFSEND,RESERROR:OUT STD_LOGIC); END CRCRE;ARCHITECTURE BEHAV OF CRCRE IS CONSTANT CRCGENER :STD_LOGIC_VECTOR(3 DOWNTO 0):=1011; SIGNAL Q:STD_LOGIC_VECTOR(2 DOWNTO 0); SIGNAL STOR :STD_LOGIC_VECTOR(3 DOWNTO 0) ; SIGNAL CDATA:STD_LOGIC_VECTOR(3 DOWNTO 0) ; SIGNAL COUNT :STD_LOGIC_VECTOR(3 DOWNTO 0) ; SIGNAL CT,flag,able:STD_LOGIC ;BEGINPROCESS(RST,CLK,ENLOAD,DATARE) VARIABLE X:STD_LOGIC_VECTOR(3 DOWNTO 0) ;BEGINIF RST=1 THEN Q=000;CT=0; ELSE IF (CLKEVENT AND CLK=1)THEN IF(CT=0 AND ENLOAD=1) THEN STOR=DATARE(6 DOWNTO 3);CDATA=DATARE(6 DOWNTO 3) ; CT=1;RFSEND=0; RESERROR=0 ; ELSIF (CT=1 AND COUNT8) THEN COUNT=COUNT+1;flag=1;able=1; IF(CDATA(3)=1 and flag=1) THEN X:=CDATA XOR CRCGENER; CDATA=X ;flag=0;END IF; IF(CDATA(3)=0 and able=1)THEN CDATA=CDATA(2 DOWNTO 0) & 0;able=0; END IF; ELSIF(CT=1 AND COUNT=8) THEN Q= CDATA(2 DOWNTO 0) ; COUNT=COUNT+1; RFSEND=1; ELSIF(CT=1 AND COUNT=9) THEN RFSEND=0;CT=0; IF(Q =DATARE(2 DOWNTO 0) THEN RESERROR=0;RESULT=STOR; ELSE RESERROR=1;RESULTCCLK,RST=CRST,ENLOAD=EN,INFOR=DATAIN,FSEND=CFSEND,GENER=CGENER); LAB1: CRCTR PORT MAP(CLK=CCLK,RST=CRST,ENLOAD=EN,INFOR=DATAIN,FSEND=B,GENER=