cnt1000.vhd

采用MaxPlusII写的一个小时钟程序

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;


ENTITY cnt1000 IS
	PORT(reset,en,clk:IN STD_ULOGIC;
		 carry1:OUT STD_ULOGIC;
		 q:OUT STD_ULOGIC_VECTOR(9 DOWNTO 0));
END cnt1000;

ARCHITECTURE rtl OF cnt1000 IS

	SIGNAL qs:STD_LOGIC_VECTOR(9 DOWNTO 0);
	SIGNAL ca:STD_ULOGIC;
		BEGIN
		PROCESS(clk)
			VARIABLE q1000:INTEGER;
			BEGIN
				IF (clk'EVENT AND clk ='1') THEN
					IF (reset='1') THEN
						q1000:=0;
					ELSIF(en='1') THEN
						IF(q1000=999) THEN
							q1000:=0;
							ca<='1';
						ELSE
								q1000:=q1000+1;
								ca<='0';
						END IF;
					END IF;
				END IF;
		qs<=CONV_STD_LOGIC_VECTOR(q1000,9);
		q<=TO_STDULOGICVECTOR(qs);
		END PROCESS;
		PROCESS(ca,en)
			BEGIN
				carry1<=ca AND en;
				
		  	END PROCESS;
END rtl;