IF POINTS_D0="1001" THEN
POINTS_D0:="0000";
IF POINTS_D1="1001" THEN
POINTS_D1:="0000";
IF POINTS_D2="1001" THEN
POINTS_D2:="0000";
ELSE
POINTS_D2:=POINTS_D2+'1';
END IF;
ELSE
POINTS_D1:=POINTS_D1+'1';
END IF;
ELSE
POINTS_D0:=POINTS_D0+'1';
END IF;
END IF;
END IF;
AA2<=POINTS_A2; AA1<=POINTS_A1; AA0<= POINTS_A0;
BB2<=POINTS_B2; BB1<=POINTS_B1; BB0<= POINTS_B0;
CC2<=POINTS_C2; CC1<=POINTS_C1; CC0<= POINTS_C0;
DD2<=POINTS_D2; DD1<=POINTS_D1; DD0<= POINTS_D0;
END PROCESS;
---------------------------------------------------------------------
PROCESS(AIN4)
BEGIN --------YMQ
CASE AIN4 IS
WHEN "0000"=>DOUT7<="0111111"; --0
WHEN "0001"=>DOUT7<="0000110"; --1
WHEN "0010"=>DOUT7<="1011011"; --2
WHEN "0011"=>DOUT7<="1001111"; --3
WHEN "0100"=>DOUT7<="1100110"; --4
WHEN "0101"=>DOUT7<="1101101"; --5
WHEN "0110"=>DOUT7<="1111101"; --6
WHEN "0111"=>DOUT7<="0000111"; --7
WHEN "1000"=>DOUT7<="1111111"; --8
WHEN "1001"=>DOUT7<="1101111"; --9
WHEN OTHERS=>DOUT7<="0000000";
END CASE;
END PROCESS;
end one;