process(ck, addr) begin if ck'event and ck = '1' then case addr is when "0000" => dat <= "01000010"; when "0001" => dat <= "01000010"; when "0010" => dat <= "01000010"; when "0011" => dat <= "00111100"; when "0100" => dat <= "00000000"; when "0101" => dat <= "01000010"; when "0110" => dat <= "01100110"; when "0111" => dat <= "01011010"; when "1000" => dat <= "01000010"; when "1001" => dat <= "00000000"; when "1010" => dat <= "01111110"; when "1011" => dat <= "01000000"; when "1100" => dat <= "01111100"; when "1101" => dat <= "01000000"; when "1110" => dat <= "01111110"; when "1111" => dat <= "00000000"; when others => null; end case; end if; end process;
when "0100" => dat <= "00000000"; when "1101" => dat <= "01000000"; when "0011" => dat <= "00111100"; when "0101" => dat <= "01000010"; when "1100" => dat <= "01111100"; when "0010" => dat <= "01000010"; when "1111" => dat <= "00000000"; when "0110" => dat <= "01100110"; when "1110" => dat <= "01111110"; when "0111" => dat <= "01011010"; when "1000" => dat <= "01000010"; when "0000" => dat <= "01000010"; when "1011" => dat <= "01000000"; when "1001" => dat <= "00000000"; when "0001" => dat <= "01000010"; when "1010" => dat <= "01111110";