CONSTANT stop = B"0";
CONSTANT licz = B"1";

SUBDESIGN licznik
(
	clk: INPUT;
	mode: INPUT;
	bus[5..0]: INPUT;
	value[5..0]: OUTPUT;
)
VARIABLE
	count[5..0]: DFF;
BEGIN
	count[].clk=clk;
	CASE mode IS
		WHEN stop =>
			count[]=count[];
		WHEN licz =>
			IF count[]==20 THEN
				count[]=0;
			ELSE count[]=count[]+1;
			END IF;
	END CASE;
	value[]=count[];
END;