xor2.vhd

The objective of this projectis to design, model and simulate an autocorrelation generator circuit

--XOR2 MODEL
USE work.ALL;
entity XOR2 is
    generic(constant TPLH:TIME:=4 ns;
            constant TPHL:TIME:=6 ns);	
    port ( I1,I2: in BIT; O: out BIT);
end XOR2;

architecture BEH of XOR2 is
begin
P1: process(I1)
variable O_TEM:BIT;
variable O_TEM_M:BIT;
 
	BEGIN
	O_TEM_M := I1 XOR I2;
	if ( O_TEM='0' AND O_TEM_M='1') then
	   O <= I1 XOR I2 after TPLH;
	   elsif (O_TEM='1' AND O_TEM_M='0') then
	        O <= I1 XOR I2 after TPHL; 
	        else O <= I1 XOR I2;
	 end if;
	 O_TEM:= I2 XOR I2;
end process P1;
end BEH;