beautypg.com

Kontron COMe Starterkit Eval T2 User Manual

Page 212

background image

Appendix B: Sourcecode for Port 80 Decoder

when

"0111" => seven_seg_H <= "00011111"; -- Hex 1f displays a 7

when

"1000" => seven_seg_H <= "00000001";

-- Hex 01 displays a 8

when

"1001" => seven_seg_H <= "00001001";

-- Hex 09 displays a 9

when

"1010" => seven_seg_H <= "00010001";

-- Hex 11 displays a A

when

"1011" => seven_seg_H <= "11000001";

-- Hex c1 displays a b

when

"1100" => seven_seg_H <= "01100011";

-- Hex 63 displays a C

when

"1101" => seven_seg_H <= "10000101";

-- Hex 85 displays a d

when

"1110" => seven_seg_H <= "01100001";

-- Hex 61 displays a E

when

"1111" => seven_seg_H <= "01110001"; -- Hex 71 displays a F

when

others => seven_seg_H <= "00000001";

-- Hex 01 displays a 8

end case;


case W_Data(3 downto 0) is

-- Least sig digit for display

when

"0000" => seven_seg_L <= "00000011";

-- Hex 03 displays a 0

when

"0001" => seven_seg_L <= "10011111"; -- Hex 9f displays a 1

when

"0010" => seven_seg_L <= "00100101";

-- Hex 25 displays a 2

when

"0011" => seven_seg_L <= "00001101";-- Hex 0d displays a 3

when

"0100" => seven_seg_L <= "10011001";

-- Hex 99 displays a 4

when

"0101" => seven_seg_L <= "01001001";

-- Hex 49 displays a 5

when

"0110" => seven_seg_L <= "01000001";

-- Hex 41 displays a 6

when

"0111" => seven_seg_L <= "00011111"; -- Hex 1f displays a 7

when

"1000" => seven_seg_L <= "00000001";

-- Hex 01 displays a 8

when

"1001" => seven_seg_L <= "00001001";

-- Hex 09 displays a 9

when

"1010" => seven_seg_L <= "00010001";

-- Hex 11 displays a A

when

"1011" => seven_seg_L <= "11000001";-- Hex c1 displays a b

when

"1100" => seven_seg_L <= "01100011"; -- Hex 63 displays a C

when

"1101" => seven_seg_L <= "10000101";

-- Hex 85 displays a d

when

"1110" => seven_seg_L <= "01100001"; -- Hex 61 displays a E

when

"1111" => seven_seg_L <= "01110001"; -- Hex 71 displays a F

when

others => seven_seg_L <= "00000001";-- Hex 01 displays a 8

end case;

end if;

end process;

end RTL;

PICMG

®

COM Express

®

Carrier Board Design Guide

Rev. 2.0 / December 6, 2013

212/218