--
-- Component : addr_mux
--
-- Generated by System Architect version v8.5_2.2 by w-hong on May 06, 97
--
-- sensitivity_attr :: 'transaction
-- Source views :-
-- $ECE_312_MP3/mips_types/types
--

ARCHITECTURE spec OF addr_mux IS
BEGIN

   -------------------------------------------------------------------
   vhdl_addr_mux : PROCESS (AddSel, CacheTag, memaddr, Set_Index)
   -------------------------------------------------------------------
	variable isel : integer range 0 to 1;
	variable state : mips_word;
   BEGIN

        isel := to_integer(AddSel);

        case isel is
                when 0 => state := memaddr(31 downto 4) & "0000";
                when 1 => state := CacheTag & Set_Index & "0000";
                when others => state := (OTHERS => 'X');
        end case;

        Address <= state;

   END PROCESS vhdl_addr_mux ;
END spec ;