// File name	: bcd7seg.v
// Written by	: Jianjian Song, 27 October 2000
// active high BCD 7 segment display
module bcd_to_seven_segment(A, SEGMENTS) ;
//
input 	[3:0] 	A; // a binary number from 0 to 9
output 	[6:0] 	SEGMENTS ; //DISPLAY = {G,F,E,D,C,B,A} of a 7-segment display
reg	[6:0]	SEGMENTS;
//
always
case (A)
0:	SEGMENTS <= 7'B0111111;
1:	SEGMENTS <= 7'B0000110;
2:	SEGMENTS <= 7'B1011011;
3:	SEGMENTS <= 7'B1001111;
4:	SEGMENTS <= 7'B1100110;
5:	SEGMENTS <= 7'B1101101;
6:	SEGMENTS <= 7'B1111101;
7:	SEGMENTS <= 7'B0000111;
8:	SEGMENTS <= 7'B1111111;
9:	SEGMENTS <= 7'B1101111;
default:	SEGMENTS <= 7'B000000;
endcase
endmodule