Added StopWatch example for DOM and documentation testing.

1 files changed, 46 insertions, 0 deletions

diff --git a/testsuite/pyunit/dom/examples/StopWatch/seg7_Encoder.vhdl b/testsuite/pyunit/dom/examples/StopWatch/seg7_Encoder.vhdl
new file mode 100644
index 000000000..e4c731ff9
--- /dev/null
+++ b/testsuite/pyunit/dom/examples/StopWatch/seg7_Encoder.vhdl
@@ -0,0 +1,46 @@
+-- Author:  Patrick Lehmann
+-- License: MIT
+--
+-- A generic counter module used in the StopWatch example.
+--
+library IEEE;
+use     IEEE.std_logic_1164.all;
+use     IEEE.numeric_std.all;
+
+use     work.Utilities.all;
+use     work.StopWatch_pkg.all;
+
+
+entity seg7_Encoder is
+	port (
+		BCDValue  : in  T_BCD;
+		Dot       : in  std_logic  := '0';
+
+		Seg7Code  : out std_logic_vector(7 downto 0)
+	);
+end entity;
+
+
+architecture rtl of seg7_Encoder is
+
+begin
+	process(BCDValue, Dot)
+		variable temp : std_logic_vector(6 downto 0);
+	begin
+		case BCDValue is -- segments:  GFEDCBA     -- Segment Pos.   Index Pos.
+			when x"0" =>        temp := "0111111";   --
+			when x"1" =>        temp := "0000110";   --
+			when x"2" =>        temp := "1011011";   -- 	 AAA           000
+			when x"3" =>        temp := "1001111";   -- 	F   B         5   1
+			when x"4" =>        temp := "1100110";   -- 	F   B         5   1
+			when x"5" =>        temp := "1101101";   -- 	 GGG           666
+			when x"6" =>        temp := "1111101";   -- 	E   C         4   2
+			when x"7" =>        temp := "0000111";   -- 	E   C         4   2
+			when x"8" =>        temp := "1111111";   -- 	 DDD  DOT      333  7
+			when x"9" =>        temp := "1101111";   --
+			when others =>      temp := "XXXXXXX";   --
+		end case;
+
+		Seg7Code <= Dot & temp;
+	end process;
+end architecture;