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

ARCHITECTURE spec OF r_mux IS
BEGIN

   -------------------------------------------------------------------
   vhdl_r_mux : PROCESS (ROut2_X, ALU_M, DOut, selr)
   -------------------------------------------------------------------
	variable result : mips_word;
   BEGIN
	case selr is
	when "00" =>
		result := ROut2_X;
	when "01" =>
		result := ALU_M;
	when "10" =>
		result := DOut;
	when others =>
		result := (OTHERS => 'X');
	end case;

	ROut_X <= result after 1 ns;

   END PROCESS vhdl_r_mux ;
END spec ;