LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;

--------------------**********************************************-----------------------
ENTITY VIDEO IS
   PORT(
        CLK:		IN STD_LOGIC;	--Clock Signal
		RCLK:       IN STD_LOGIC;   --read enable

        COMSYNC:	IN STD_LOGIC;	--Composite Sync Signal Input
        VERSYNC:	IN STD_LOGIC;	--Vertical  Sync Signal Input
		
		DETECT: 	IN STD_LOGIC;   --Detected Signal Input
		DETECTOUT:  OUT STD_LOGIC;  --DETECTED SIGNAL OUTPUT
--		VER_COUNT1:	OUT STD_LOGIC_VECTOR(9 DOWNTO 0);
--		COM_COUNT1:	OUT STD_LOGIC_VECTOR(9 DOWNTO 0);
		
		DATAOUT:  	OUT STD_LOGIC_VECTOR(9 DOWNTO 0);	
		ADDRESSA: 	IN  STD_LOGIC_VECTOR(2 DOWNTO 0)
		
        );
END VIDEO;

ARCHITECTURE Control OF VIDEO IS
-------------------------------------------------------------------------
SIGNAL VER_COUNT:  STD_LOGIC_VECTOR(9 DOWNTO 0);-------行計數(shù)器
SIGNAL COM_COUNT:  STD_LOGIC_VECTOR(9 DOWNTO 0);-------場計數(shù)器
-------------------------------------------------------------------------
SIGNAL COM_REG_A: STD_LOGIC_VECTOR(9 DOWNTO 0);--------兩個場通用寄存器
SIGNAL COM_REG_B: STD_LOGIC_VECTOR(9 DOWNTO 0);
SIGNAL VER_REG_A: STD_LOGIC_VECTOR(9 DOWNTO 0);--------兩個行通用寄存器
SIGNAL VER_REG_B: STD_LOGIC_VECTOR(9 DOWNTO 0);
-------------------------------------------------------------------------

BEGIN
------------------行計數(shù)器-----------------------------------------------
	PROCESS(CLK,VERSYNC,COMSYNC)                           
	BEGIN
		IF(VERSYNC='0' OR COMSYNC='0') THEN
			VER_COUNT<="0000000000";
		ELSIF(CLK'EVENT AND CLK='1') THEN
			VER_COUNT<=VER_COUNT+1;
		END IF;
--		VER_COUNT1<=VER_COUNT;
	END PROCESS;

------------------場計數(shù)器-----------------------------------------------
	PROCESS(VERSYNC,COMSYNC)                           
	BEGIN
		IF(COMSYNC='0') THEN
			COM_COUNT<="0000000000";
		ELSIF(VERSYNC'EVENT AND VERSYNC='1') THEN
			COM_COUNT<=COM_COUNT+1;
		END IF;
--		COM_COUNT1<=COM_COUNT;
	END PROCESS;

------行位置捕捉---------------------------------------------------------
	PROCESS(DETECT,COMSYNC,VER_REG_A,VER_REG_B,COM_REG_A,COM_REG_B,ADDRESSA,RCLK)---DETECT的上升沿的處理，                
	BEGIN
	  	IF(COMSYNC='1')THEN
			DATAOUT<="ZZZZZZZZZZ";
			IF(DETECT'EVENT AND DETECT='1')THEN
				IF(VER_REG_A="0000000000")THEN
					VER_REG_A<=VER_COUNT;
				ELSIF(VER_REG_A>=VER_COUNT)THEN
					VER_REG_A<=VER_COUNT;
				END IF;
	   		END IF;
	---------------------------
			IF(DETECT'EVENT AND DETECT='0')THEN
				IF(VER_REG_B="0000000000")THEN
					VER_REG_B<=VER_COUNT;
				ELSIF(VER_REG_B<=VER_COUNT)THEN
					VER_REG_B<=VER_COUNT;
				END IF;
			END IF;
------場位置捕捉-----------------------------------------------------------
			IF(DETECT'EVENT AND DETECT='1')THEN
				IF(COM_REG_A="0000000000")THEN
					COM_REG_A<=COM_COUNT;
					COM_REG_B<=COM_COUNT;
				ELSIF(COM_REG_B<=COM_COUNT)THEN
					COM_REG_B<=COM_COUNT;
				END IF;
	   		END IF;
	-----------------------------------------
		ELSE
		
	--------------------------------------
				IF(RCLK'EVENT AND RCLK='1')THEN    
					IF(ADDRESSA="000") THEN
			    		DATAOUT<=VER_REG_A;
					ELSIF(ADDRESSA="001")THEN
						DATAOUT<=VER_REG_B;
					ELSIF(ADDRESSA="010")THEN
						DATAOUT<=COM_REG_A;
					ELSIF(ADDRESSA="011")THEN
						DATAOUT<=COM_REG_B;
					ELSE
			    		DATAOUT<="ZZZZZZZZZZ";
					END IF;	
				END IF;
			   IF (ADDRESSA="111") THEN
					DATAOUT<="ZZZZZZZZZZ";
					COM_REG_A<="0000000000";
					COM_REG_B<="0000000000";
					VER_REG_A<="0000000000";
					VER_REG_B<="0000000000";
				END IF;	
		END IF;
	END PROCESS;
-----------------------------------------------------------------------------------	

END Control;