Line 1... |
Line 1... |
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
-- Light8080 simulation test bench 0 : Kelly Smith test
|
-- Light8080 simulation test bench 0 : Kelly Smith test
|
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
-- This test executes the 'Kelly Smith test' which tests most instructions
|
-- This test executes the 'Kelly Smith test' which tests most instructions
|
-- and flags. At the end of the test, A will contain 0x55 on success or 0x0aa
|
-- and flags. At the end of the test, A will contain 0x33 on success or 0x0aa
|
-- on failure, and the cpu will halt.
|
-- on failure, and the cpu will halt.
|
-- Interrupts and i/o instructions are not tested.
|
-- Interrupts and i/o instructions are not tested.
|
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
|
|
LIBRARY ieee;
|
LIBRARY ieee;
|
Line 71... |
Line 71... |
signal done : std_logic := '0';
|
signal done : std_logic := '0';
|
|
|
type t_rom is array(0 to 2047) of std_logic_vector(7 downto 0);
|
type t_rom is array(0 to 2047) of std_logic_vector(7 downto 0);
|
|
|
signal rom : t_rom := (
|
signal rom : t_rom := (
|
X"31",X"f5",X"05",X"3e",X"77",X"e6",X"00",X"ca",
|
X"31",X"ef",X"05",X"3e",X"77",X"e6",X"00",X"ca",
|
X"0d",X"00",X"cd",X"e0",X"04",X"d2",X"13",X"00",
|
X"0d",X"00",X"cd",X"e0",X"04",X"d2",X"13",X"00",
|
X"cd",X"e0",X"04",X"ea",X"19",X"00",X"cd",X"e0",
|
X"cd",X"e0",X"04",X"ea",X"19",X"00",X"cd",X"e0",
|
X"04",X"f2",X"1f",X"00",X"cd",X"e0",X"04",X"c2",
|
X"04",X"f2",X"1f",X"00",X"cd",X"e0",X"04",X"c2",
|
X"2e",X"00",X"da",X"2e",X"00",X"e2",X"2e",X"00",
|
X"2e",X"00",X"da",X"2e",X"00",X"e2",X"2e",X"00",
|
X"fa",X"2e",X"00",X"c3",X"31",X"00",X"cd",X"e0",
|
X"fa",X"2e",X"00",X"c3",X"31",X"00",X"cd",X"e0",
|
Line 149... |
Line 149... |
X"10",X"2e",X"20",X"b0",X"b1",X"b2",X"b3",X"b4",
|
X"10",X"2e",X"20",X"b0",X"b1",X"b2",X"b3",X"b4",
|
X"b5",X"b7",X"fe",X"3f",X"c4",X"e0",X"04",X"3e",
|
X"b5",X"b7",X"fe",X"3f",X"c4",X"e0",X"04",X"3e",
|
X"00",X"26",X"8f",X"2e",X"4f",X"a8",X"a9",X"aa",
|
X"00",X"26",X"8f",X"2e",X"4f",X"a8",X"a9",X"aa",
|
X"ab",X"ac",X"ad",X"fe",X"cf",X"c4",X"e0",X"04",
|
X"ab",X"ac",X"ad",X"fe",X"cf",X"c4",X"e0",X"04",
|
X"af",X"c4",X"e0",X"04",X"06",X"44",X"0e",X"45",
|
X"af",X"c4",X"e0",X"04",X"06",X"44",X"0e",X"45",
|
X"16",X"46",X"1e",X"47",X"26",X"04",X"2e",X"ee",
|
X"16",X"46",X"1e",X"47",X"26",X"04",X"2e",X"e8",
|
X"70",X"06",X"00",X"46",X"3e",X"44",X"b8",X"c4",
|
X"70",X"06",X"00",X"46",X"3e",X"44",X"b8",X"c4",
|
X"e0",X"04",X"72",X"16",X"00",X"56",X"3e",X"46",
|
X"e0",X"04",X"72",X"16",X"00",X"56",X"3e",X"46",
|
X"ba",X"c4",X"e0",X"04",X"73",X"1e",X"00",X"5e",
|
X"ba",X"c4",X"e0",X"04",X"73",X"1e",X"00",X"5e",
|
X"3e",X"47",X"bb",X"c4",X"e0",X"04",X"74",X"26",
|
X"3e",X"47",X"bb",X"c4",X"e0",X"04",X"74",X"26",
|
X"04",X"2e",X"ee",X"66",X"3e",X"04",X"bc",X"c4",
|
X"04",X"2e",X"e8",X"66",X"3e",X"04",X"bc",X"c4",
|
X"e0",X"04",X"75",X"26",X"04",X"2e",X"ee",X"6e",
|
X"e0",X"04",X"75",X"26",X"04",X"2e",X"e8",X"6e",
|
X"3e",X"ee",X"bd",X"c4",X"e0",X"04",X"26",X"04",
|
X"3e",X"e8",X"bd",X"c4",X"e0",X"04",X"26",X"04",
|
X"2e",X"ee",X"3e",X"32",X"77",X"be",X"c4",X"e0",
|
X"2e",X"e8",X"3e",X"32",X"77",X"be",X"c4",X"e0",
|
X"04",X"86",X"fe",X"64",X"c4",X"e0",X"04",X"af",
|
X"04",X"86",X"fe",X"64",X"c4",X"e0",X"04",X"af",
|
X"7e",X"fe",X"32",X"c4",X"e0",X"04",X"26",X"04",
|
X"7e",X"fe",X"32",X"c4",X"e0",X"04",X"26",X"04",
|
X"2e",X"ee",X"7e",X"96",X"c4",X"e0",X"04",X"3e",
|
X"2e",X"e8",X"7e",X"96",X"c4",X"e0",X"04",X"3e",
|
X"80",X"87",X"8e",X"fe",X"33",X"c4",X"e0",X"04",
|
X"80",X"87",X"8e",X"fe",X"33",X"c4",X"e0",X"04",
|
X"3e",X"80",X"87",X"9e",X"fe",X"cd",X"c4",X"e0",
|
X"3e",X"80",X"87",X"9e",X"fe",X"cd",X"c4",X"e0",
|
X"04",X"a6",X"c4",X"e0",X"04",X"3e",X"25",X"b6",
|
X"04",X"a6",X"c4",X"e0",X"04",X"3e",X"25",X"b6",
|
X"fe",X"37",X"c4",X"e0",X"04",X"ae",X"fe",X"05",
|
X"fe",X"37",X"c4",X"e0",X"04",X"ae",X"fe",X"05",
|
X"c4",X"e0",X"04",X"36",X"55",X"34",X"35",X"86",
|
X"c4",X"e0",X"04",X"36",X"55",X"34",X"35",X"86",
|
Line 175... |
Line 175... |
X"00",X"b9",X"c4",X"e0",X"04",X"bb",X"c4",X"e0",
|
X"00",X"b9",X"c4",X"e0",X"04",X"bb",X"c4",X"e0",
|
X"04",X"bd",X"c4",X"e0",X"04",X"0b",X"1b",X"2b",
|
X"04",X"bd",X"c4",X"e0",X"04",X"0b",X"1b",X"2b",
|
X"3e",X"12",X"b8",X"c4",X"e0",X"04",X"ba",X"c4",
|
X"3e",X"12",X"b8",X"c4",X"e0",X"04",X"ba",X"c4",
|
X"e0",X"04",X"bc",X"c4",X"e0",X"04",X"3e",X"ff",
|
X"e0",X"04",X"bc",X"c4",X"e0",X"04",X"3e",X"ff",
|
X"b9",X"c4",X"e0",X"04",X"bb",X"c4",X"e0",X"04",
|
X"b9",X"c4",X"e0",X"04",X"bb",X"c4",X"e0",X"04",
|
X"bd",X"c4",X"e0",X"04",X"32",X"ee",X"04",X"af",
|
X"bd",X"c4",X"e0",X"04",X"32",X"e8",X"04",X"af",
|
X"3a",X"ee",X"04",X"fe",X"ff",X"c4",X"e0",X"04",
|
X"3a",X"e8",X"04",X"fe",X"ff",X"c4",X"e0",X"04",
|
X"2a",X"ec",X"04",X"22",X"ee",X"04",X"3a",X"ec",
|
X"2a",X"e6",X"04",X"22",X"e8",X"04",X"3a",X"e6",
|
X"04",X"47",X"3a",X"ee",X"04",X"b8",X"c4",X"e0",
|
X"04",X"47",X"3a",X"e8",X"04",X"b8",X"c4",X"e0",
|
X"04",X"3a",X"ed",X"04",X"47",X"3a",X"ef",X"04",
|
X"04",X"3a",X"e7",X"04",X"47",X"3a",X"e9",X"04",
|
X"b8",X"c4",X"e0",X"04",X"3e",X"aa",X"32",X"ee",
|
X"b8",X"c4",X"e0",X"04",X"3e",X"aa",X"32",X"e8",
|
X"04",X"44",X"4d",X"af",X"0a",X"fe",X"aa",X"c4",
|
X"04",X"44",X"4d",X"af",X"0a",X"fe",X"aa",X"c4",
|
X"e0",X"04",X"3c",X"02",X"3a",X"ee",X"04",X"fe",
|
X"e0",X"04",X"3c",X"02",X"3a",X"e8",X"04",X"fe",
|
X"ab",X"c4",X"e0",X"04",X"3e",X"77",X"32",X"ee",
|
X"ab",X"c4",X"e0",X"04",X"3e",X"77",X"32",X"e8",
|
X"04",X"2a",X"ec",X"04",X"11",X"00",X"00",X"eb",
|
X"04",X"2a",X"e6",X"04",X"11",X"00",X"00",X"eb",
|
X"af",X"1a",X"fe",X"77",X"c4",X"e0",X"04",X"af",
|
X"af",X"1a",X"fe",X"77",X"c4",X"e0",X"04",X"af",
|
X"84",X"85",X"c4",X"e0",X"04",X"3e",X"cc",X"12",
|
X"84",X"85",X"c4",X"e0",X"04",X"3e",X"cc",X"12",
|
X"3a",X"ee",X"04",X"fe",X"cc",X"12",X"3a",X"ee",
|
X"3a",X"e8",X"04",X"fe",X"cc",X"12",X"3a",X"e8",
|
X"04",X"fe",X"cc",X"c4",X"e0",X"04",X"21",X"77",
|
X"04",X"fe",X"cc",X"c4",X"e0",X"04",X"21",X"77",
|
X"77",X"29",X"3e",X"ee",X"bc",X"c4",X"e0",X"04",
|
X"77",X"29",X"3e",X"ee",X"bc",X"c4",X"e0",X"04",
|
X"bd",X"c4",X"e0",X"04",X"21",X"55",X"55",X"01",
|
X"bd",X"c4",X"e0",X"04",X"21",X"55",X"55",X"01",
|
X"ff",X"ff",X"09",X"3e",X"55",X"d4",X"e0",X"04",
|
X"ff",X"ff",X"09",X"3e",X"55",X"d4",X"e0",X"04",
|
X"bc",X"c4",X"e0",X"04",X"3e",X"54",X"bd",X"c4",
|
X"bc",X"c4",X"e0",X"04",X"3e",X"54",X"bd",X"c4",
|
Line 217... |
Line 217... |
X"04",X"c4",X"e0",X"04",X"e4",X"e0",X"04",X"fc",
|
X"04",X"c4",X"e0",X"04",X"e4",X"e0",X"04",X"fc",
|
X"e0",X"04",X"3e",X"12",X"b8",X"c4",X"e0",X"04",
|
X"e0",X"04",X"3e",X"12",X"b8",X"c4",X"e0",X"04",
|
X"3e",X"34",X"b9",X"c4",X"e0",X"04",X"3e",X"aa",
|
X"3e",X"34",X"b9",X"c4",X"e0",X"04",X"3e",X"aa",
|
X"ba",X"c4",X"e0",X"04",X"bb",X"c4",X"e0",X"04",
|
X"ba",X"c4",X"e0",X"04",X"bb",X"c4",X"e0",X"04",
|
X"3e",X"55",X"bc",X"c4",X"e0",X"04",X"bd",X"c4",
|
X"3e",X"55",X"bc",X"c4",X"e0",X"04",X"bd",X"c4",
|
X"e0",X"04",X"21",X"00",X"00",X"39",X"22",X"f3",
|
X"e0",X"04",X"21",X"00",X"00",X"39",X"22",X"ed",
|
X"04",X"31",X"f2",X"04",X"3b",X"3b",X"33",X"3b",
|
X"04",X"31",X"ec",X"04",X"3b",X"3b",X"33",X"3b",
|
X"3e",X"55",X"32",X"f0",X"04",X"2f",X"32",X"f1",
|
X"3e",X"55",X"32",X"ea",X"04",X"2f",X"32",X"eb",
|
X"04",X"c1",X"b8",X"c4",X"e0",X"04",X"2f",X"b9",
|
X"04",X"c1",X"b8",X"c4",X"e0",X"04",X"2f",X"b9",
|
X"c4",X"e0",X"04",X"21",X"f2",X"04",X"f9",X"21",
|
X"c4",X"e0",X"04",X"21",X"ec",X"04",X"f9",X"21",
|
X"33",X"77",X"3b",X"3b",X"e3",X"3a",X"f1",X"04",
|
X"33",X"77",X"3b",X"3b",X"e3",X"3a",X"eb",X"04",
|
X"fe",X"77",X"c4",X"e0",X"04",X"3a",X"f0",X"04",
|
X"fe",X"77",X"c4",X"e0",X"04",X"3a",X"ea",X"04",
|
X"fe",X"33",X"c4",X"e0",X"04",X"3e",X"55",X"bd",
|
X"fe",X"33",X"c4",X"e0",X"04",X"3e",X"55",X"bd",
|
X"c4",X"e0",X"04",X"2f",X"bc",X"c4",X"e0",X"04",
|
X"c4",X"e0",X"04",X"2f",X"bc",X"c4",X"e0",X"04",
|
X"2a",X"f3",X"04",X"f9",X"21",X"e6",X"04",X"e9",
|
X"2a",X"ed",X"04",X"f9",X"21",X"e3",X"04",X"e9",
|
X"3e",X"aa",X"32",X"00",X"ff",X"76",X"3e",X"55",
|
X"3e",X"aa",X"76",X"3e",X"33",X"76",X"e8",X"04",
|
X"32",X"00",X"ff",X"76",X"ee",X"04",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|
X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",
|