simple.tdf

来自「verilog编写实用多功能电子表」· TDF 代码 · 共 29 行

SUBDESIGN simple
(
	clk		: INPUT;
	reset		: INPUT;
	d			: INPUT;
	q			: OUTPUT;
)
VARIABLE
	ss: MACHINE WITH STATES (s0, s1);
BEGIN
	ss.clk = clk;
	ss.reset = reset;

	CASE ss IS
		WHEN s0 =>
			q = GND;

			IF d THEN
				ss = s1;
			END IF;
		WHEN s1 =>
			q = VCC;

			IF !d THEN
				ss = s0;
			END IF;
	END CASE;
END;