t13.vhd

Workshop vhdl code from Esperan

--
-- This file tests support for Arrays with user defined types as index.
--
entity TEST is
	port (	A, B 	: in  integer range 0 to 9;
		Z 	: out integer range 0 to 9);
end TEST;
architecture T13 of TEST is 
	type T_TIME is (MS_HR, LS_HR, MS_MIN, LS_MIN);
	type T_CLOCK is array (T_TIME) of integer range 0 to 9;
	signal MY_ARRAY_A, MY_ARRAY_B : T_CLOCK;
begin
	MY_ARRAY_B(MS_HR) <= A;
	MY_ARRAY_B(LS_HR) <= B;
	MY_ARRAY_A(LS_MIN) <= MY_ARRAY_B(MS_HR);
	MY_ARRAY_A(LS_HR to MS_MIN) <= MY_ARRAY_B(MS_HR to LS_HR);
	Z <= MY_ARRAY_A(LS_HR);
end T13;