entity fg_07_05 is end entity fg_07_05; architecture interpreter of fg_07_05 is subtype word is bit_vector(31 downto 0); signal address_bus, data_bus_in : word := X"0000_0000"; signal mem_read, mem_request, mem_ready, reset : bit := '0'; begin -- code from book instruction_interpreter : process is -- . . . -- not in book variable mem_address_reg, mem_data_reg : word; -- end not in book procedure read_memory is begin address_bus <= mem_address_reg; mem_read <= '1'; mem_request <= '1'; wait until mem_ready = '1' or reset = '1'; if reset = '1' then return; end if; mem_data_reg := data_bus_in; mem_request <= '0'; wait until mem_ready = '0'; end procedure read_memory; begin -- . . . -- initialization -- not in book if reset = '1' then wait until reset = '0'; end if; -- end not in book loop -- . . . read_memory; exit when reset = '1'; -- . . . end loop; end process instruction_interpreter; -- end code from book memory : process is begin wait until mem_request = '1'; data_bus_in <= X"1111_1111"; mem_ready <= '1' after 10 ns; wait until mem_request = '0'; mem_ready <= '0' after 10 ns; end process memory; reset <= '1' after 85 ns; end architecture interpreter; <div align="center"><br /><script type="text/javascript"><!-- google_ad_client = "pub-7293844627074885"; //468x60, Created at 07. 11. 25 google_ad_slot = "8619794253"; google_ad_width = 468; google_ad_height = 60; //--></script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script><br /> </div>