-- -- Component : time_memory -- -- THIS CODE WRITTE BY MICHAEL MAYER -- Generated with System Architect version v8.4_3.7 by mrmayer on Feb 9, 1997 -- ARCHITECTURE spec OF time_memory IS BEGIN ------------------------------------------------------------------- vhdl_time_memory : PROCESS ( pause_now ) ------------------------------------------------------------------- VARIABLE time_now : time_stamp; BEGIN if sys_rst = '0' then paused_time <= (0,0,0,0,0,0); elsif pause_now'event and pause_now='1' and pause_now'last_value = '0' then time_now := current_time; paused_time <= time_now; end if; END PROCESS vhdl_time_memory ; END spec ;