bprom.vhd

sparc org, vhdl rtl code

    when "0001100111" => d <= "10010000000100000010001101111101";
    when "0001101000" => d <= "10000000100010101010000001000000";
    when "0001101001" => d <= "00000010100000000000000000000100";
    when "0001101010" => d <= "00000001000000000000000000000000";
    when "0001101011" => d <= "01000000000000000000000000000110";
    when "0001101100" => d <= "10010000000100000010001110001000";
    when "0001101101" => d <= "01000000000000000000000000000100";
    when "0001101110" => d <= "10010000000100000010001110001110";
    when "0001101111" => d <= "01000000000000000000000000100101";
    when "0001110000" => d <= "00000001000000000000000000000000";
    when "0001110001" => d <= "11000100000010100000000000000000";
    when "0001110010" => d <= "10000000101000001010000000000000";
    when "0001110011" => d <= "00000010100000000000000000001101";
    when "0001110100" => d <= "00010011001000000000000000000000";
    when "0001110101" => d <= "11000110000010100000000000000000";
    when "0001110110" => d <= "10010000000000100010000000000001";
    when "0001110111" => d <= "11000100000000100110000001110100";
    when "0001111000" => d <= "10000000100010001010000000000100";
    when "0001111001" => d <= "00000010101111111111111111111110";
    when "0001111010" => d <= "10000100000010001110000011111111";
    when "0001111011" => d <= "11000100001000100110000001110000";
    when "0001111100" => d <= "11000100000010100000000000000000";
    when "0001111101" => d <= "10000000101000001010000000000000";
    when "0001111110" => d <= "00110010101111111111111111111000";
    when "0001111111" => d <= "11000110000010100000000000000000";
    when "0010000000" => d <= "10000001110000111110000000001000";
    when "0010000001" => d <= "00000001000000000000000000000000";
    when "0010000010" => d <= "10010110000100000000000000001000";
    when "0010000011" => d <= "10010000000100000010000000000000";
    when "0010000100" => d <= "10000000101000100000000000001011";
    when "0010000101" => d <= "00011010100000000000000000001101";
    when "0010000110" => d <= "10010100000100000010000000000000";
    when "0010000111" => d <= "11000100000010100100000000001010";
    when "0010001000" => d <= "10000000101000001010000001000000";
    when "0010001001" => d <= "00101000100000000000000000000011";
    when "0010001010" => d <= "10000100000000001011111111010000";
    when "0010001011" => d <= "10000100000000001011111111001001";
    when "0010001100" => d <= "10000111001010100010000000000100";
    when "0010001101" => d <= "10000100000010001010000011111111";
    when "0010001110" => d <= "10010100000000101010000000000001";
    when "0010001111" => d <= "10000000101000101000000000001011";
    when "0010010000" => d <= "00001010101111111111111111110111";
    when "0010010001" => d <= "10010000000100001100000000000010";
    when "0010010010" => d <= "10000001110000111110000000001000";
    when "0010010011" => d <= "00000001000000000000000000000000";
    when "0010010100" => d <= "10011101111000111011111010011000";
    when "0010010101" => d <= "00101001001000000000000000000000";
    when "0010010110" => d <= "10101100000001111011111011111100";
    when "0010010111" => d <= "10101010000001111011111100000100";
    when "0010011000" => d <= "10010100000001111011111011111000";
    when "0010011001" => d <= "11010000000001010010000001110100";
    when "0010011010" => d <= "10000000100010100010000000000001";
    when "0010011011" => d <= "00000010101111111111111111111110";
    when "0010011100" => d <= "00000001000000000000000000000000";
    when "0010011101" => d <= "11010000000001010010000001110000";
    when "0010011110" => d <= "10010010000010100010000011111111";
    when "0010011111" => d <= "10000000101000100110000000001101";
    when "0010100000" => d <= "00000010100000000000000000000101";
    when "0010100001" => d <= "11010000001010101000000000000000";
    when "0010100010" => d <= "10000000101000100110000000001010";
    when "0010100011" => d <= "00010010101111111111111111110110";
    when "0010100100" => d <= "10010100000000101010000000000001";
    when "0010100101" => d <= "11010000000011111011111011111000";
    when "0010100110" => d <= "10000000101000100010000001010011";
    when "0010100111" => d <= "00010010101111111111111111110010";
    when "0010101000" => d <= "10010100000001111011111011111000";
    when "0010101001" => d <= "10010000000100000010000000001000";
    when "0010101010" => d <= "01111111111111111111111111011000";
    when "0010101011" => d <= "10010010000100000000000000010110";
    when "0010101100" => d <= "10100110000100000000000000001000";
    when "0010101101" => d <= "11010000000011111011111011111001";
    when "0010101110" => d <= "10000000101000100010000000110011";
    when "0010101111" => d <= "00010010100000000000000000010111";
    when "0010110000" => d <= "10000000101000100010000000110111";
    when "0010110001" => d <= "10010000000100000010000000000010";
    when "0010110010" => d <= "01111111111111111111111111010000";
    when "0010110011" => d <= "10010010000001111011111011111010";
    when "0010110100" => d <= "10010001001010100010000000000001";
    when "0010110101" => d <= "10010000000000100011111111110110";
    when "0010110110" => d <= "10100101001100100010000000000001";
    when "0010110111" => d <= "10100010000100000010000000000000";
    when "0010111000" => d <= "10000000101001000100000000010010";
    when "0010111001" => d <= "00010110101111111111111111100000";
    when "0010111010" => d <= "10010100000001111011111011111000";
    when "0010111011" => d <= "10100000000100000000000000010101";
    when "0010111100" => d <= "10010010000100000000000000010000";
    when "0010111101" => d <= "01111111111111111111111111000101";
    when "0010111110" => d <= "10010000000100000010000000000010";
    when "0010111111" => d <= "11010000001011001100000000010001";
    when "0011000000" => d <= "10100010000001000110000000000001";
    when "0011000001" => d <= "10000000101001000100000000010010";
    when "0011000010" => d <= "00000110101111111111111111111010";
    when "0011000011" => d <= "10100000000001000010000000000010";
    when "0011000100" => d <= "00010000101111111111111111010101";
    when "0011000101" => d <= "10010100000001111011111011111000";
    when "0011000110" => d <= "00010010101111111111111111010011";
    when "0011000111" => d <= "10010100000001111011111011111000";
    when "0011001000" => d <= "10011111110001001100000000000000";
    when "0011001001" => d <= "00000001000000000000000000000000";
    when "0011001010" => d <= "00010000101111111111111111001111";
    when "0011001011" => d <= "10010100000001111011111011111000";
    when "0011001100" => d <= "00100000001110000010110100000000";
    when "0011001101" => d <= "00110001001101100010110100000000";
    when "0011001110" => d <= "00110011001100100010110100000000";
    when "0011001111" => d <= "00101010001100010011001000111000";
    when "0011010000" => d <= "01001011001000000000000000000000";
    when "0011010001" => d <= "00101010001100100011010100110110";
    when "0011010010" => d <= "01001011001000000000000000000000";
    when "0011010011" => d <= "00101010001101010011000100110010";
    when "0011010100" => d <= "01001011001000000000000000000000";
    when "0011010101" => d <= "00101010001100010011000000110010";
    when "0011010110" => d <= "00110100010010110010000000000000";
    when "0011010111" => d <= "00101010001100100011000000110100";
    when "0011011000" => d <= "00111000010010110010000000000000";
    when "0011011001" => d <= "00101010001101000011000000111001";
    when "0011011010" => d <= "00110110010010110010000000000000";
    when "0011011011" => d <= "00110001000000000011001000000000";
    when "0011011100" => d <= "00110011000000000011010000000000";
    when "0011011101" => d <= "01001100010001010100111101001110";
    when "0011011110" => d <= "00101101001100010011101000100000";
    when "0011011111" => d <= "00000000011000100110100101110100";
    when "0011100000" => d <= "00100000011011010110010101101101";
    when "0011100001" => d <= "01101111011100100111100100000000";
    when "0011100010" => d <= "00101100001000000111001001101101";
    when "0011100011" => d <= "01110111000000000000101000001010";
    when "0011100100" => d <= "00001101001111100010000000000000";
    when "0011100101" => d <= "00000000000000000000000000000000";

    when others => d <= (others => '-');
    end case;
  end process;

  r : process (clk)
  begin
    if rising_edge(clk) then
      if csn = '0' then raddr <= addr(9 downto 0); end if;
    end if;
  end process;

  data <= d;
end rtl;