--------------------------------------------------------------------------------
--
--   AMD 2910 Benchmark (Functional blocks) (Algorithmic Behaviour of Funct blocks)
--
-- Source:  AMD data book
--
--------------------------------------------------------------------------------

library l2901_lib;
use l2901_lib.types.all;
use l2901_lib.MVL7_functions.all;
use l2901_lib.synthesis_types.all;

entity upc is
port (
          clk : in clock;
	   CI : in MVL7;
	clear : in MVL7;
       Y_temp : in MVL7_VECTOR(11 downto 0);
	  uPC : inout MVL7_VECTOR(11 downto 0)
      );
end upc;

architecture upc of upc is

begin

-------------------------------------------------------------------------------

PC : block ( (clk = '1') and (not clk'stable) )

begin

uPC <= guarded Y_temp + ("00000000000" & CI) WHEN (clear = '0') ELSE
          "000000000000" WHEN clear = '1' ELSE
          uPC;

end block PC;

------------------------------------------------------------------------------

end upc;