use WORK.PAC_TEST.all ;

entity TEST_ARRAY is
   port(DATe   : in    INTEGER_32      ;
        DATs   : out   INTEGER_32      ;
        ADD    : in    NATURAL         ;
        READ   : in    BIT             ;
        WRITE  : in    BIT             ) ; 
end TEST_ARRAY ;

architecture STRUCTURE of TEST_ARRAY  is

   type MEMORY_ARRAY is array(0 to 70000) of INTEGER_32 ;

   begin
   process
      variable MEM : MEMORY_ARRAY ;
      begin
         wait until (READ='1') or (WRITE='1') ;
         if READ = '1' then 
            DATs <= MEM(ADD) ;
            wait until READ = '0' ;
         else
            MEM(ADD) := DATe ;
            wait until WRITE = '0' ;
         end if ;
   end process ;
end STRUCTURE ;