Subversion Repositories idea

-- File Name    : comparator.vbe

-- Description  : Compare input with '0000000000000000'

-- Author       : Mas Adit

-- Date         : 29 Agustus 2001

ENTITY comparator IS

PORT(

  a     : IN BIT_VECTOR (15 DOWNTO 0);

  o     : OUT BIT_VECTOR (16 DOWNTO 0);

  vdd   : IN  BIT;

  vss   : IN  BIT

);

END comparator;

ARCHITECTURE VBE OF comparator IS

  SIGNAL q : BIT_VECTOR (16 DOWNTO 0);

BEGIN

  ASSERT ((vdd and not (vss)) = '1')

  REPORT "power supply is missing on comparator"

  SEVERITY WARNING;

  q <= ('1' & a) WHEN (a = "0000000000000000") ELSE ('0' & a);

  o <= q;

END VBE;