Subversion Repositories idea

--Nama file : komp1x.vbe
--Deskripsi : blok komparator 1
--Author    : Mas Adit
--Tanggal  : 29 Agustus 2001

entity komp1x is
port (
        kin : in bit_vector(15 downto 0);
        kout : out bit_vector(16 downto 0);
        vdd : in bit;
        vss : in bit
);
end komp1x;

architecture vbe of komp1x is

constant nol : bit_vector(15 downto 0) := "0000000000000000";
signal temp : bit_vector(16 downto 0);

begin

temp <= ('1' & kin(15 downto 0)) when (kin = nol)
            else ('0' & kin(15 downto 0));
kout <= temp;

assert ((vdd = '1') and (vss = '0'))
report "power supply is missing on komp1x"
severity warning;

end vbe;