proced_2.vhd

来自「VHDL子程序集,包括各种例程资料以及源码.」· VHDL 代码 · 共 34 行

--**************************************
--*    16 Bit Parity ODD Generator     *
--*       (PROCEDURE IN ENTITY)        *
--*        Filename : PROCED_2         *
--**************************************
 
library IEEE;
use IEEE.std_logic_1164.all;

entity proced_2 is
    port (
          I:      in STD_LOGIC_VECTOR (0 to 15);
          Parity: out STD_LOGIC
         );
procedure odd (signal I: in std_logic_vector ;
  	       signal P: out std_logic
  	      ) is
          variable PO:std_logic; 
begin 
    PO := '1';
    for K in I'range loop
        PO := PO xor I(K);
    end loop;
    P <= PO;
end odd;
   
end proced_2;

architecture proced_2_arch of proced_2 is

begin
    odd(I,Parity);
end proced_2_arch;