--cpld training fcounter
--19/5/29 5/30 6/20 6/21 9/5
--
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
library ARITHMETIC;
use ARITHMETIC.std_logic_arith.all;

entity trngfcntr1b is
PORT (
		SEGOUT:out std_logic_vector(7 downto 0);
		LEDOUT:out std_logic_vector(3 downto 0);
		CK1:in std_logic;
		CK2:in std_logic;
		SWA:in std_logic;
		PA:out std_logic_vector(7 downto 0);
		PB:out std_logic_vector(7 downto 0);
		PCL:in std_logic_vector(3 downto 0);
		PCH:in std_logic_vector(3 downto 0)
			);
end trngfcntr1b;

architecture rtl of trngfcntr1b is
	signal cntr0:std_logic_vector(13 downto 0);--4096khz/4096/4=250hz
	signal cntr1:std_logic_vector(7 downto 0);--1/250
	signal leddatabf0:std_logic_vector(3 downto 0);
	signal leddatabf1:std_logic_vector(3 downto 0);
	signal leddatabf2:std_logic_vector(3 downto 0);
	signal leddatabf3:std_logic_vector(3 downto 0);
	signal leddatawk:std_logic_vector(3 downto 0);
	signal segdata:std_logic_vector(7 downto 0);
	signal ledoutbf:std_logic_vector(3 downto 0);
	signal ledcntr:std_logic_vector(2 downto 0);
	signal ledadrs:std_logic_vector(2 downto 0);
	signal fcntr0:std_logic_vector(3 downto 0);
	signal fcntr1:std_logic_vector(3 downto 0);
	signal fcntr2:std_logic_vector(3 downto 0);
	signal fcntr3:std_logic_vector(3 downto 0);
	signal fcntr4:std_logic_vector(3 downto 0);
	signal fcntr5:std_logic_vector(3 downto 0);
	signal fcntr6:std_logic_vector(3 downto 0);
	signal fcntr7:std_logic_vector(3 downto 0);
	signal gateon:std_logic;
	signal ck2in:std_logic;
	signal fcclr:std_logic;
	signal ck13:std_logic;
	signal ck1khz:std_logic;
	signal ck1sec:std_logic;
	--
begin
PA(7 downto 4)<=fcntr3;
PA(3 downto 0)<=fcntr2;
PB(7 downto 4)<=fcntr1;
PB(3 downto 0)<=fcntr0;
--
-- 7seg drive clock 1kHz
process(CK1)
begin
	if CK1'event and CK1='1' then
		cntr0<=cntr0+"00000000000001";
	end if;
end process;
--
-- ******* fcounter ******
ck13<=cntr0(13);--250hz
--
--1sec and fcclr
process(ck13)
begin
	if cntr1(7 downto 3)="11111" and gateon='0' then
		fcclr<='1';
	else
		fcclr<='0';
	end if;
	if cntr1="11111010" then
		cntr1<="00000000";
	elsif ck13'event and ck13='0' then
		cntr1<=cntr1+"00000001";
	end if;
end process;
ck1sec<=cntr1(7);
--
process(ck1sec)
begin
	if ck1sec'event and ck1sec='0' then
		gateon<=gateon+'1';
	end if;
end process;
--
ck2in<=CK2 and gateon;
--
process(ck2in)
begin
	if fcntr0="1010" or fcclr='1' then
		fcntr0<="0000";
	elsif ck2in'event and ck2in='1' then
			fcntr0<=fcntr0+"0001";
	end if;
end process;
--
process(fcntr0(3))
begin
	if fcntr1="1010" or fcclr='1' then
		fcntr1<="0000";
	elsif fcntr0(3)'event and fcntr0(3)='0' then
		fcntr1<=fcntr1+"0001";
	end if;
end process;
--
process(fcntr1(3))
begin
	if fcntr2="1010" or fcclr='1' then
		fcntr2<="0000";
	elsif fcntr1(3)'event and fcntr1(3)='0' then
		fcntr2<=fcntr2+"0001";
	end if;
end process;
--
process(fcntr2(3))
begin
	if fcntr3="1010" or fcclr='1' then
		fcntr3<="0000";
	elsif fcntr2(3)'event and fcntr2(3)='0' then
		fcntr3<=fcntr3+"0001";
	end if;
	end process;
--
process(fcntr3(3))
begin
	if fcntr4="1010" or fcclr='1' then
		fcntr4<="0000";
	elsif fcntr3(3)'event and fcntr3(3)='0' then
		fcntr4<=fcntr4+"0001";
	end if;
end process;
--
process(fcntr4(3))
begin
	if fcntr5="1010" or fcclr='1' then
		fcntr5<="0000";
	elsif fcntr4(3)'event and fcntr4(3)='0' then
		fcntr5<=fcntr5+"0001";
	end if;
end process;
--
process(fcntr5(3))
begin
	if fcntr6="1010" or fcclr='1' then
		fcntr6<="0000";
	elsif fcntr5(3)'event and fcntr5(3)='0' then
		fcntr6<=fcntr6+"0001";
	end if;
	end process;
--
process(fcntr6(3))
begin
	if fcntr7="1010" or fcclr='1' then
		fcntr7<="0000";
	elsif fcntr6(3)'event and fcntr6(3)='0' then
		fcntr7<=fcntr7+"0001";
	end if;
	end process;
--
--7seg disp select
--H4 or L4
process(ledcntr,SWA,PCL(0))
begin
	if SWA='0' or PCL(0)='0' then
		leddatabf3<=fcntr0;
		leddatabf2<=fcntr1;
		leddatabf1<=fcntr2;
		leddatabf0<=fcntr3;
	else
		leddatabf3<=fcntr4;
		leddatabf2<=fcntr5;
		leddatabf1<=fcntr6;
		leddatabf0<=fcntr7;
	end if;
end process;
--
-- led drive,LEDOUT
ck1khz<=cntr0(11);
process(ck1khz)
begin
	if ledcntr(2)='1' then
		ledcntr<="000";
		ledoutbf<="0001";
	elsif ck1khz'event and ck1khz='0' then
		ledcntr<=ledcntr+"001";
		ledoutbf<=ledoutbf(2 downto 0) & '0';
	end if;	
end process;
--
LEDOUT<=ledoutbf;
SEGOUT<=segdata;
--
-- led data out
process(ledcntr)
begin
	if ledcntr(1 downto 0)="00" then
		leddatawk<=leddatabf0;
	elsif ledcntr(1 downto 0)="01" then
		leddatawk<=leddatabf1;
	elsif ledcntr(1 downto 0)="10" then
		leddatawk<=leddatabf2;
	elsif ledcntr(1 downto 0)="11" then
		leddatawk<=leddatabf3;
	end if;
end process;
--segment change
process(leddatawk)
begin
	if leddatawk="0000" then
		segdata<="01011100";
	elsif leddatawk="0001" then
		segdata<="00000110";
	elsif leddatawk="0010" then
		segdata<="01011011";
	elsif leddatawk="0011" then
		segdata<="01001111";
	elsif leddatawk="0100" then
		segdata<="01100110";
	elsif leddatawk="0101" then
		segdata<="01101101";
	elsif leddatawk="0110" then
		segdata<="01111101";
	elsif leddatawk="0111" then
		segdata<="00000111";
	elsif leddatawk="1000" then
		segdata<="01111111";
	elsif leddatawk="1001" then
		segdata<="01101111";
	end if;
end process;
--
end rtl;