-- -- Rcsid[] = "$Id: parity1.vhd,v 2.1 1993/10/06 01:04:36 alex Exp $"; -- entity parity1 is port(A, B, C, D, E, F, G, H : in bit; EVEN: out bit); end; architecture structure of parity1 is signal L1,L2,L3,L4,L5,L6: bit; begin U1 : xor_gate generic map(2,2) port map (L1,A,B); U2 : xor_gate generic map(2,2) port map (L2,C,D); U3 : xor_gate generic map(2,2) port map (L3,E,F); U4 : xor_gate generic map(2,2) port map (L4,G,H); U5 : xor_gate generic map(2,2) port map (L5,L1,L2); U6 : xor_gate generic map(2,2) port map (L6,L3,L4); U7 : xnor_gate generic map(2,2) port map (EVEN,L5,L6); end structure;