--This module implements an algorithm that counts the number  
--of occurances of a certian number in an array of size 10
--starting at MEM[256] solution stored in R0	

--This program was created by
--Eric Frohnhoefer
--Ron Feliciano

library IEEE;
use IEEE.std_logic_1164.all;
use IEEE.std_logic_unsigned.all;
use IEEE.std_logic_arith.all;

entity ram_module is
   port(clk     : in std_logic;
      enable    : in std_logic;
      R_W       : in std_logic;
      addr      : in std_logic_vector (15 downto 0);  
      data_in   : in std_logic_vector (15 downto 0);	
      data_out  : out std_logic_vector (15 downto 0));

end ram_module;	


architecture BHV of ram_module is	   

type memory is array (0 to 333) of std_logic_vector(15 downto 0);


signal reg : memory := (


   "0101000000100000",		--AND R0, R0, x0000
   "0101001001100000",		--AND R1, R1, x0000
   "0010001000010001",		--LD R1, size
   "0101010010100000",		--AND R2, R2, x0000
   "0010010000010000",		--LD R2, array
   "0010011000010010",		--LD R3, num
   "1001011011111111",		--NOT R3, R3
   "0001011011100001",		--ADD R3, R3, x0001
   "0110100010000000",		--LDR R4, R2, x0000
   "0001101011000100",		--ADD R5, R3, R4
   "0000101000001100",		--BRnp SKIP
   "0001000000100001",		--ADD R0, R0, x0001
   "0001010010100001",		--ADD R2, R2, x0001
   "0001001001111111",		--ADD R1, R1, xFFFF
   "0000001000001000",		--BRp LOOP
   "1111000000100101",		--HALT
   "0000000100000000",		--array
   "0000000000001010",		--size
   "0000000000001100",		--num
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		--30
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		--45
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		--60
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		--75
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		--90
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000001",
   "0000000000000001",
   "0000000000000001",
   "0000000000000001",
   "0000000000000001",
   "0000000000000001",		--105
   "0000000000000001",
   "0000000000000001",
   "0000000000000001",
   "0000000000000001",
   "0000000000000001",
   "0000000000000001",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		--120
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",						 	
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",					
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",	  
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000001",
   "0000000000000001",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",						 	
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",					
   "0000000000000000",		
   "0000000000000000",		
   "0000000000000000",	  
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000111001000011",		--interger
   "0000000000000011",		--interger
   "0000110000000000",		--interger
   "0000000000000001",		--interger
   "0000000000001100",		--interger
   "0000000000001100",		--interger
   "0000000000001100",		--interger
   "0000011100000001",		--interger
   "0000000000000001",		--interger
   "0001111100000001",		--interger
   "0000000000001100",		--interger
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",		
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000000",
   "0000000000000001",
   "0000000000000001"
	);	 

begin
   process(clk, enable, R_W, addr)
begin
	
   if (enable = '1') then
      if (clk = '1' and clk' event) then 	
         if (R_W = '1') then
            data_out <= reg(conv_integer(addr));
         else
            reg(conv_integer(addr)) <=  data_in;
         end if;	
      else 
      end if;	
   end if;
			
end process;
end BHV;