Digilent DIO5 - Manual (Page 19)

DIO5 Reference Manual Digilent, Inc.
www.digilentinc.com Page 19
Copyright Digilent, Inc. All rights reserved. Other product and company names mentioned may be trademarks of their respective owners.
ssg <= "0111111" when dig = "0000" else
"0000110" when dig = "0001" else
"1011011" when dig = "0010" else
"1001111" when dig = "0011" else
"1100110" when dig = "0100" else
"1101101" when dig = "0101" else
"1111101" when dig = "0110" else
"0000111" when dig = "0111" else
"1111111" when dig = "1000" else
"1101111" when dig = "1001" else
"1110111" when dig = "1010" else
"1111100" when dig = "1011" else
"0111001" when dig = "1100" else
"1011110" when dig = "1101" else
"1111001" when dig = "1110" else
"1110001" when dig = "1111" else
"0000000";
-- Digit multiplexor. The anode for each digit in enabled
-- in succession, and the appropriate cathode data is muxed onto
-- the cathode lines while the corresponding anode is driven.
an <= "1110" when cntDig = "00" else
"1101" when cntDig = "01" else
"1011" when cntDig = "10" else
"0111" when cntDig = "11" else
"1111";
dig <= regSsg(15 downto 12) when cntDig = "00" else
regSsg(11 downto 8) when cntDig = "01" else
regSsg( 7 downto 4) when cntDig = "10" else
regSsg( 3 downto 0);
-- Map the internal signals to the pins on the CPLD.
rgbSsgAn <= an;
rgbSsgCa <= '1' & (not ssg);
kclk <= kcin;
kdat <= kdin;
end Behavioral;