Subversion Repositories z80soc

library IEEE;
use IEEE.std_logic_1164.all;
use ieee.numeric_std.all;
 
entity rom is
        port(
                Clk             : in std_logic;
                A               : in std_logic_vector(11 downto 0);
                D               : out std_logic_vector(7 downto 0)
        );
end rom;
 
architecture rtl of rom is
begin
 
process (Clk)
begin
 if Clk'event and Clk = '1' then
        case A is
             when x"000" => D <= x"31";
             when x"001" => D <= x"FF";
             when x"002" => D <= x"7F";
             when x"003" => D <= x"3E";
             when x"004" => D <= x"AA";
             when x"005" => D <= x"D3";
             when x"006" => D <= x"01";
             when x"007" => D <= x"21";
             when x"008" => D <= x"E0";
             when x"009" => D <= x"3F";
             when x"00A" => D <= x"11";
             when x"00B" => D <= x"21";
             when x"00C" => D <= x"02";
             when x"00D" => D <= x"CD";
             when x"00E" => D <= x"D8";
             when x"00F" => D <= x"00";
             when x"010" => D <= x"CD";
             when x"011" => D <= x"C8";
             when x"012" => D <= x"00";
             when x"013" => D <= x"21";
             when x"014" => D <= x"32";
             when x"015" => D <= x"20";
             when x"016" => D <= x"11";
             when x"017" => D <= x"0F";
             when x"018" => D <= x"01";
             when x"019" => D <= x"CD";
             when x"01A" => D <= x"D8";
             when x"01B" => D <= x"00";
             when x"01C" => D <= x"21";
             when x"01D" => D <= x"5A";
             when x"01E" => D <= x"20";
             when x"01F" => D <= x"11";
             when x"020" => D <= x"22";
             when x"021" => D <= x"01";
             when x"022" => D <= x"CD";
             when x"023" => D <= x"D8";
             when x"024" => D <= x"00";
             when x"025" => D <= x"CD";
             when x"026" => D <= x"E9";
             when x"027" => D <= x"00";
             when x"028" => D <= x"21";
             when x"029" => D <= x"46";
             when x"02A" => D <= x"21";
             when x"02B" => D <= x"11";
             when x"02C" => D <= x"35";
             when x"02D" => D <= x"01";
             when x"02E" => D <= x"CD";
             when x"02F" => D <= x"D8";
             when x"030" => D <= x"00";
             when x"031" => D <= x"21";
             when x"032" => D <= x"96";
             when x"033" => D <= x"21";
             when x"034" => D <= x"11";
             when x"035" => D <= x"51";
             when x"036" => D <= x"01";
             when x"037" => D <= x"CD";
             when x"038" => D <= x"D8";
             when x"039" => D <= x"00";
             when x"03A" => D <= x"21";
             when x"03B" => D <= x"E6";
             when x"03C" => D <= x"21";
             when x"03D" => D <= x"11";
             when x"03E" => D <= x"6E";
             when x"03F" => D <= x"01";
             when x"040" => D <= x"CD";
             when x"041" => D <= x"D8";
             when x"042" => D <= x"00";
             when x"043" => D <= x"21";
             when x"044" => D <= x"36";
             when x"045" => D <= x"02";
             when x"046" => D <= x"11";
             when x"047" => D <= x"8B";
             when x"048" => D <= x"01";
             when x"049" => D <= x"CD";
             when x"04A" => D <= x"D8";
             when x"04B" => D <= x"00";
             when x"04C" => D <= x"21";
             when x"04D" => D <= x"5E";
             when x"04E" => D <= x"22";
             when x"04F" => D <= x"11";
             when x"050" => D <= x"9F";
             when x"051" => D <= x"01";
             when x"052" => D <= x"CD";
             when x"053" => D <= x"D8";
             when x"054" => D <= x"00";
             when x"055" => D <= x"DB";
             when x"056" => D <= x"20";
             when x"057" => D <= x"32";
             when x"058" => D <= x"00";
             when x"059" => D <= x"7E";
             when x"05A" => D <= x"11";
             when x"05B" => D <= x"D6";
             when x"05C" => D <= x"22";
             when x"05D" => D <= x"06";
             when x"05E" => D <= x"1E";
             when x"05F" => D <= x"CD";
             when x"060" => D <= x"E0";
             when x"061" => D <= x"00";
             when x"062" => D <= x"FE";
             when x"063" => D <= x"41";
             when x"064" => D <= x"28";
             when x"065" => D <= x"08";
             when x"066" => D <= x"D3";
             when x"067" => D <= x"01";
             when x"068" => D <= x"12";
             when x"069" => D <= x"13";
             when x"06A" => D <= x"10";
             when x"06B" => D <= x"F3";
             when x"06C" => D <= x"18";
             when x"06D" => D <= x"EC";
             when x"06E" => D <= x"21";
             when x"06F" => D <= x"00";
             when x"070" => D <= x"40";
             when x"071" => D <= x"3E";
             when x"072" => D <= x"00";
             when x"073" => D <= x"77";
             when x"074" => D <= x"23";
             when x"075" => D <= x"3C";
             when x"076" => D <= x"20";
             when x"077" => D <= x"FB";
             when x"078" => D <= x"3E";
             when x"079" => D <= x"01";
             when x"07A" => D <= x"D3";
             when x"07B" => D <= x"01";
             when x"07C" => D <= x"CD";
             when x"07D" => D <= x"BA";
             when x"07E" => D <= x"00";
             when x"07F" => D <= x"CD";
             when x"080" => D <= x"BA";
             when x"081" => D <= x"00";
             when x"082" => D <= x"CD";
             when x"083" => D <= x"BA";
             when x"084" => D <= x"00";
             when x"085" => D <= x"CD";
             when x"086" => D <= x"A7";
             when x"087" => D <= x"00";
             when x"088" => D <= x"CD";
             when x"089" => D <= x"BA";
             when x"08A" => D <= x"00";
             when x"08B" => D <= x"CD";
             when x"08C" => D <= x"A7";
             when x"08D" => D <= x"00";
             when x"08E" => D <= x"21";
             when x"08F" => D <= x"00";
             when x"090" => D <= x"40";
             when x"091" => D <= x"7E";
             when x"092" => D <= x"D3";
             when x"093" => D <= x"01";
             when x"094" => D <= x"CD";
             when x"095" => D <= x"BA";
             when x"096" => D <= x"00";
             when x"097" => D <= x"23";
             when x"098" => D <= x"7E";
             when x"099" => D <= x"FE";
             when x"09A" => D <= x"FF";
             when x"09B" => D <= x"20";
             when x"09C" => D <= x"F4";
             when x"09D" => D <= x"3E";
             when x"09E" => D <= x"00";
             when x"09F" => D <= x"D3";
             when x"0A0" => D <= x"01";
             when x"0A1" => D <= x"CD";
             when x"0A2" => D <= x"A7";
             when x"0A3" => D <= x"00";
             when x"0A4" => D <= x"C3";
             when x"0A5" => D <= x"03";
             when x"0A6" => D <= x"00";
             when x"0A7" => D <= x"CD";
             when x"0A8" => D <= x"BA";
             when x"0A9" => D <= x"00";
             when x"0AA" => D <= x"DB";
             when x"0AB" => D <= x"30";
             when x"0AC" => D <= x"D3";
             when x"0AD" => D <= x"01";
             when x"0AE" => D <= x"FE";
             when x"0AF" => D <= x"01";
             when x"0B0" => D <= x"20";
             when x"0B1" => D <= x"F5";
             when x"0B2" => D <= x"C9";
             when x"0B3" => D <= x"3A";
             when x"0B4" => D <= x"00";
             when x"0B5" => D <= x"7E";
             when x"0B6" => D <= x"3D";
             when x"0B7" => D <= x"20";
             when x"0B8" => D <= x"FD";
             when x"0B9" => D <= x"C9";
             when x"0BA" => D <= x"3A";
             when x"0BB" => D <= x"00";
             when x"0BC" => D <= x"7E";
             when x"0BD" => D <= x"F5";
             when x"0BE" => D <= x"3E";
             when x"0BF" => D <= x"FF";
             when x"0C0" => D <= x"3D";
             when x"0C1" => D <= x"20";
             when x"0C2" => D <= x"FD";
             when x"0C3" => D <= x"F1";
             when x"0C4" => D <= x"3D";
             when x"0C5" => D <= x"20";
             when x"0C6" => D <= x"F6";
             when x"0C7" => D <= x"C9";
             when x"0C8" => D <= x"21";
             when x"0C9" => D <= x"00";
             when x"0CA" => D <= x"20";
             when x"0CB" => D <= x"11";
             when x"0CC" => D <= x"B0";
             when x"0CD" => D <= x"04";
             when x"0CE" => D <= x"3E";
             when x"0CF" => D <= x"20";
             when x"0D0" => D <= x"77";
             when x"0D1" => D <= x"23";
             when x"0D2" => D <= x"1B";
             when x"0D3" => D <= x"7A";
             when x"0D4" => D <= x"B3";
             when x"0D5" => D <= x"20";
             when x"0D6" => D <= x"F7";
             when x"0D7" => D <= x"C9";
             when x"0D8" => D <= x"1A";
             when x"0D9" => D <= x"B7";
             when x"0DA" => D <= x"C8";
             when x"0DB" => D <= x"77";
             when x"0DC" => D <= x"23";
             when x"0DD" => D <= x"13";
             when x"0DE" => D <= x"18";
             when x"0DF" => D <= x"F8";
             when x"0E0" => D <= x"CD";
             when x"0E1" => D <= x"BA";
             when x"0E2" => D <= x"00";
             when x"0E3" => D <= x"DB";
             when x"0E4" => D <= x"80";
             when x"0E5" => D <= x"B7";
             when x"0E6" => D <= x"28";
             when x"0E7" => D <= x"F8";
             when x"0E8" => D <= x"C9";
             when x"0E9" => D <= x"11";
             when x"0EA" => D <= x"BE";
             when x"0EB" => D <= x"01";
             when x"0EC" => D <= x"21";
             when x"0ED" => D <= x"F5";
             when x"0EE" => D <= x"20";
             when x"0EF" => D <= x"CD";
             when x"0F0" => D <= x"D8";
             when x"0F1" => D <= x"00";
             when x"0F2" => D <= x"21";
             when x"0F3" => D <= x"1D";
             when x"0F4" => D <= x"21";
             when x"0F5" => D <= x"3E";
             when x"0F6" => D <= x"0A";
             when x"0F7" => D <= x"11";
             when x"0F8" => D <= x"00";
             when x"0F9" => D <= x"02";
             when x"0FA" => D <= x"F5";
             when x"0FB" => D <= x"E5";
             when x"0FC" => D <= x"CD";
             when x"0FD" => D <= x"D8";
             when x"0FE" => D <= x"00";
             when x"0FF" => D <= x"E1";
             when x"100" => D <= x"F1";
             when x"101" => D <= x"01";
             when x"102" => D <= x"28";
             when x"103" => D <= x"00";
             when x"104" => D <= x"09";
             when x"105" => D <= x"3D";
             when x"106" => D <= x"20";
             when x"107" => D <= x"EF";
             when x"108" => D <= x"11";
             when x"109" => D <= x"DF";
             when x"10A" => D <= x"01";
             when x"10B" => D <= x"CD";
             when x"10C" => D <= x"D8";
             when x"10D" => D <= x"00";
             when x"10E" => D <= x"C9";
             when x"10F" => D <= x"5A";
             when x"110" => D <= x"38";
             when x"111" => D <= x"30";
             when x"112" => D <= x"20";
             when x"113" => D <= x"53";
             when x"114" => D <= x"59";
             when x"115" => D <= x"53";
             when x"116" => D <= x"54";
             when x"117" => D <= x"45";
             when x"118" => D <= x"4D";
             when x"119" => D <= x"20";
             when x"11A" => D <= x"4F";
             when x"11B" => D <= x"4E";
             when x"11C" => D <= x"20";
             when x"11D" => D <= x"43";
             when x"11E" => D <= x"48";
             when x"11F" => D <= x"49";
             when x"120" => D <= x"50";
             when x"121" => D <= x"00";
             when x"122" => D <= x"52";
             when x"123" => D <= x"4F";
             when x"124" => D <= x"4E";
             when x"125" => D <= x"49";
             when x"126" => D <= x"56";
             when x"127" => D <= x"4F";
             when x"128" => D <= x"4E";
             when x"129" => D <= x"20";
             when x"12A" => D <= x"43";
             when x"12B" => D <= x"4F";
             when x"12C" => D <= x"53";
             when x"12D" => D <= x"54";
             when x"12E" => D <= x"41";
             when x"12F" => D <= x"20";
             when x"130" => D <= x"32";
             when x"131" => D <= x"30";
             when x"132" => D <= x"30";
             when x"133" => D <= x"38";
             when x"134" => D <= x"00";
             when x"135" => D <= x"20";
             when x"136" => D <= x"20";
             when x"137" => D <= x"7C";
             when x"138" => D <= x"21";
             when x"139" => D <= x"23";
             when x"13A" => D <= x"24";
             when x"13B" => D <= x"25";
             when x"13C" => D <= x"26";
             when x"13D" => D <= x"2F";
             when x"13E" => D <= x"28";
             when x"13F" => D <= x"29";
             when x"140" => D <= x"3D";
             when x"141" => D <= x"3F";
             when x"142" => D <= x"2A";
             when x"143" => D <= x"60";
             when x"144" => D <= x"2B";
             when x"145" => D <= x"B4";
             when x"146" => D <= x"E7";
             when x"147" => D <= x"7E";
             when x"148" => D <= x"5E";
             when x"149" => D <= x"2C";
             when x"14A" => D <= x"2E";
             when x"14B" => D <= x"3B";
             when x"14C" => D <= x"3A";
             when x"14D" => D <= x"5C";
             when x"14E" => D <= x"3C";
             when x"14F" => D <= x"3E";
             when x"150" => D <= x"00";
             when x"151" => D <= x"20";
             when x"152" => D <= x"20";
             when x"153" => D <= x"41";
             when x"154" => D <= x"42";
             when x"155" => D <= x"43";
             when x"156" => D <= x"44";
             when x"157" => D <= x"45";
             when x"158" => D <= x"46";
             when x"159" => D <= x"47";
             when x"15A" => D <= x"48";
             when x"15B" => D <= x"49";
             when x"15C" => D <= x"4A";
             when x"15D" => D <= x"4B";
             when x"15E" => D <= x"4C";
             when x"15F" => D <= x"4D";
             when x"160" => D <= x"4E";
             when x"161" => D <= x"4F";
             when x"162" => D <= x"50";
             when x"163" => D <= x"51";
             when x"164" => D <= x"52";
             when x"165" => D <= x"53";
             when x"166" => D <= x"54";
             when x"167" => D <= x"55";
             when x"168" => D <= x"56";
             when x"169" => D <= x"57";
             when x"16A" => D <= x"58";
             when x"16B" => D <= x"59";
             when x"16C" => D <= x"5A";
             when x"16D" => D <= x"00";
             when x"16E" => D <= x"20";
             when x"16F" => D <= x"20";
             when x"170" => D <= x"61";
             when x"171" => D <= x"62";
             when x"172" => D <= x"63";
             when x"173" => D <= x"64";
             when x"174" => D <= x"65";
             when x"175" => D <= x"66";
             when x"176" => D <= x"67";
             when x"177" => D <= x"68";
             when x"178" => D <= x"69";
             when x"179" => D <= x"6A";
             when x"17A" => D <= x"6B";
             when x"17B" => D <= x"6C";
             when x"17C" => D <= x"6D";
             when x"17D" => D <= x"6E";
             when x"17E" => D <= x"6F";
             when x"17F" => D <= x"70";
             when x"180" => D <= x"71";
             when x"181" => D <= x"72";
             when x"182" => D <= x"73";
             when x"183" => D <= x"74";
             when x"184" => D <= x"75";
             when x"185" => D <= x"76";
             when x"186" => D <= x"77";
             when x"187" => D <= x"78";
             when x"188" => D <= x"79";
             when x"189" => D <= x"7A";
             when x"18A" => D <= x"00";
             when x"18B" => D <= x"20";
             when x"18C" => D <= x"20";
             when x"18D" => D <= x"20";
             when x"18E" => D <= x"20";
             when x"18F" => D <= x"20";
             when x"190" => D <= x"20";
             when x"191" => D <= x"20";
             when x"192" => D <= x"20";
             when x"193" => D <= x"20";
             when x"194" => D <= x"30";
             when x"195" => D <= x"31";
             when x"196" => D <= x"32";
             when x"197" => D <= x"33";
             when x"198" => D <= x"34";
             when x"199" => D <= x"35";
             when x"19A" => D <= x"36";
             when x"19B" => D <= x"37";
             when x"19C" => D <= x"38";
             when x"19D" => D <= x"39";
             when x"19E" => D <= x"00";
             when x"19F" => D <= x"02";
             when x"1A0" => D <= x"03";
             when x"1A1" => D <= x"04";
             when x"1A2" => D <= x"0B";
             when x"1A3" => D <= x"0C";
             when x"1A4" => D <= x"0D";
             when x"1A5" => D <= x"0E";
             when x"1A6" => D <= x"12";
             when x"1A7" => D <= x"18";
             when x"1A8" => D <= x"19";
             when x"1A9" => D <= x"1A";
             when x"1AA" => D <= x"1B";
             when x"1AB" => D <= x"E8";
             when x"1AC" => D <= x"E9";
             when x"1AD" => D <= x"EB";
             when x"1AE" => D <= x"BB";
             when x"1AF" => D <= x"BC";
             when x"1B0" => D <= x"8A";
             when x"1B1" => D <= x"86";
             when x"1B2" => D <= x"87";
             when x"1B3" => D <= x"81";
             when x"1B4" => D <= x"80";
             when x"1B5" => D <= x"01";
             when x"1B6" => D <= x"06";
             when x"1B7" => D <= x"07";
             when x"1B8" => D <= x"08";
             when x"1B9" => D <= x"09";
             when x"1BA" => D <= x"0A";
             when x"1BB" => D <= x"1D";
             when x"1BC" => D <= x"1F";
             when x"1BD" => D <= x"00";
             when x"1BE" => D <= x"C9";
             when x"1BF" => D <= x"CD";
             when x"1C0" => D <= x"CD";
             when x"1C1" => D <= x"CD";
             when x"1C2" => D <= x"CD";
             when x"1C3" => D <= x"CD";
             when x"1C4" => D <= x"CD";
             when x"1C5" => D <= x"CD";
             when x"1C6" => D <= x"CD";
             when x"1C7" => D <= x"CD";
             when x"1C8" => D <= x"CD";
             when x"1C9" => D <= x"CD";
             when x"1CA" => D <= x"CD";
             when x"1CB" => D <= x"CD";
             when x"1CC" => D <= x"CD";
             when x"1CD" => D <= x"CD";
             when x"1CE" => D <= x"CD";
             when x"1CF" => D <= x"CD";
             when x"1D0" => D <= x"CD";
             when x"1D1" => D <= x"CD";
             when x"1D2" => D <= x"CD";
             when x"1D3" => D <= x"CD";
             when x"1D4" => D <= x"CD";
             when x"1D5" => D <= x"CD";
             when x"1D6" => D <= x"CD";
             when x"1D7" => D <= x"CD";
             when x"1D8" => D <= x"CD";
             when x"1D9" => D <= x"CD";
             when x"1DA" => D <= x"CD";
             when x"1DB" => D <= x"CD";
             when x"1DC" => D <= x"CD";
             when x"1DD" => D <= x"BB";
             when x"1DE" => D <= x"00";
             when x"1DF" => D <= x"C8";
             when x"1E0" => D <= x"CD";
             when x"1E1" => D <= x"CD";
             when x"1E2" => D <= x"CD";
             when x"1E3" => D <= x"CD";
             when x"1E4" => D <= x"CD";
             when x"1E5" => D <= x"CD";
             when x"1E6" => D <= x"CD";
             when x"1E7" => D <= x"CD";
             when x"1E8" => D <= x"CD";
             when x"1E9" => D <= x"CD";
             when x"1EA" => D <= x"CD";
             when x"1EB" => D <= x"CD";
             when x"1EC" => D <= x"CD";
             when x"1ED" => D <= x"CD";
             when x"1EE" => D <= x"CD";
             when x"1EF" => D <= x"CD";
             when x"1F0" => D <= x"CD";
             when x"1F1" => D <= x"CD";
             when x"1F2" => D <= x"CD";
             when x"1F3" => D <= x"CD";
             when x"1F4" => D <= x"CD";
             when x"1F5" => D <= x"CD";
             when x"1F6" => D <= x"CD";
             when x"1F7" => D <= x"CD";
             when x"1F8" => D <= x"CD";
             when x"1F9" => D <= x"CD";
             when x"1FA" => D <= x"CD";
             when x"1FB" => D <= x"CD";
             when x"1FC" => D <= x"CD";
             when x"1FD" => D <= x"CD";
             when x"1FE" => D <= x"BC";
             when x"1FF" => D <= x"00";
             when x"200" => D <= x"BA";
             when x"201" => D <= x"20";
             when x"202" => D <= x"20";
             when x"203" => D <= x"20";
             when x"204" => D <= x"20";
             when x"205" => D <= x"20";
             when x"206" => D <= x"20";
             when x"207" => D <= x"20";
             when x"208" => D <= x"20";
             when x"209" => D <= x"20";
             when x"20A" => D <= x"20";
             when x"20B" => D <= x"20";
             when x"20C" => D <= x"20";
             when x"20D" => D <= x"20";
             when x"20E" => D <= x"20";
             when x"20F" => D <= x"20";
             when x"210" => D <= x"20";
             when x"211" => D <= x"20";
             when x"212" => D <= x"20";
             when x"213" => D <= x"20";
             when x"214" => D <= x"20";
             when x"215" => D <= x"20";
             when x"216" => D <= x"20";
             when x"217" => D <= x"20";
             when x"218" => D <= x"20";
             when x"219" => D <= x"20";
             when x"21A" => D <= x"20";
             when x"21B" => D <= x"20";
             when x"21C" => D <= x"20";
             when x"21D" => D <= x"20";
             when x"21E" => D <= x"20";
             when x"21F" => D <= x"BA";
             when x"220" => D <= x"00";
             when x"221" => D <= x"20";
             when x"222" => D <= x"20";
             when x"223" => D <= x"20";
             when x"224" => D <= x"5A";
             when x"225" => D <= x"38";
             when x"226" => D <= x"30";
             when x"227" => D <= x"20";
             when x"228" => D <= x"53";
             when x"229" => D <= x"59";
             when x"22A" => D <= x"53";
             when x"22B" => D <= x"54";
             when x"22C" => D <= x"45";
             when x"22D" => D <= x"4D";
             when x"22E" => D <= x"20";
             when x"22F" => D <= x"20";
             when x"230" => D <= x"20";
             when x"231" => D <= x"20";
             when x"232" => D <= x"52";
             when x"233" => D <= x"4F";
             when x"234" => D <= x"4E";
             when x"235" => D <= x"49";
             when x"236" => D <= x"56";
             when x"237" => D <= x"4F";
             when x"238" => D <= x"4E";
             when x"239" => D <= x"20";
             when x"23A" => D <= x"20";
             when x"23B" => D <= x"43";
             when x"23C" => D <= x"4F";
             when x"23D" => D <= x"53";
             when x"23E" => D <= x"54";
             when x"23F" => D <= x"41";
             when x"240" => D <= x"20";
             when x"241" => D <= x"00";
             when others => D <="ZZZZZZZZ";
        end case;
 end if;
end process;
end;