library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;

--  Uncomment the following lines to use the declarations that are
--  provided for instantiating Xilinx primitive components.
--library UNISIM;
--use UNISIM.VComponents.all;

entity top is
  port( 
  		clk  : 	in std_logic;
		reset:	in std_logic;
	  	addr_SRAM:out std_logic_vector(15 downto 0);
	   	data_SRAM:out std_logic_vector(7 downto 0);
	   	WE_SRAM:	out std_logic;
    	   	OE_SRAM:	out std_logic;
	   	CE_SRAM:	out std_logic;
	   	LB_SRAM:	out std_logic;
	   	UB_SRAM:	out std_logic;
		led:		out std_logic
	   ) ;       
end top;


architecture Behavioral of top is

signal count : 	std_logic_vector(10 downto 0);
signal clk_SRAM: 		std_logic;

begin

process(clk)
begin
    	if clk'event and clk='1' then
		 count<=count+'1'; 
	end if;
end process;

clk_SRAM<=count(10);

process(clk_SRAM, reset)

variable temp_addr_SRAM: std_logic_vector(15 downto 0);	-- 地址變量
variable data_in:		std_logic_vector(7 downto 0);	    	-- 數據變量
variable state:	integer range 0 to 2;				-- 狀態變量
variable is_end:	std_logic;				    		-- 寫數據結束標志

begin

if clk_SRAM'event and clk_SRAM='1' then

	if reset='1' then	-- 復位
		OE_SRAM<='0';	-- 輸出使能
		CE_SRAM<='0';	-- 芯片使能
		LB_SRAM<='1';	-- 低位禁能
		UB_SRAM<='1';  -- 高位禁能
		WE_SRAM<='1';	-- 寫禁能
		led<='0';		-- LED 亮
		is_end:='0';	-- 寫結束標芯初始化
		temp_addr_SRAM:=(others=>'0');	-- 地址初始化
		data_in:=(others=>'0');			-- 數據初始化
		state:=0;		-- 狀態變量初始化

	else
		if is_end='0' then	-- 寫數據沒有結束
			case state is
				when 0 => 
					addr_SRAM<=temp_addr_SRAM;	-- 送地址
					data_SRAM<= data_in;  		-- 送數據
					state:=1;				     -- 轉到狀態1
				when 1 => 
					WE_SRAM<='0';	  			-- 寫使能
					LB_SRAM<='0';				-- 低位使能	 		
					state:=2;		   			-- 轉到狀態2
				when 2 => 
					WE_SRAM<='1';					-- 寫禁能
					LB_SRAM<='1';	 				-- 低位禁能
					temp_addr_SRAM:=temp_addr_SRAM+1; 	-- 地址變量加1
					data_in:=data_in+1;				-- 數據變量加1
					state:=0;						-- 轉到狀態0
					if temp_addr_SRAM="0000000000000000" then	-- 已寫滿
					  is_end:='1';					-- 寫結束標志置位
					  led<='1';					-- LED 暗
					end if;

			end case;

		end if;

	end if;
end if;

end process;
				
end 	 Behavioral;