Check this out! :laughing:
module bin2bcd(/*AUTOARG*/
// Outputs
S,
// Inputs
A
);
input [3:0] A;
output [3:0] S;
reg [3:0] S;
always @(A)
case(A)//synopsys parallel_case
0 : S=0;
1 : S=1;
2 : S=2;
3 : S=3;
4 : S=4;
5 : S=8;
6 : S=9;
7 : S=10;
8 : S=11;
9 : S=12;
default : S=4'bxxxx;
endcase
endmodule // bin2bcd
module Binary_to_BCD_8(P,B);
output [9:0] P; //BCD form of B
input [7:0] B;
wire [3:0] co1, co2, co3, co4;
wire [2:0] co6;
assign P[0]= B[0];
bin2bcd C1(.A({1'b0,B[7:5]}),
.S(co1));
bin2bcd C2(.A({co1[2:0],B[4]}),
.S(co2));
bin2bcd C3(.A({co2[2:0],B[3]}),
.S(co3));
bin2bcd C4(.A({co3[2:0],B[2]}),
.S(co4));
bin2bcd C5(.A({co4[2:0],B[1]}),
.S(P[4:1]));
bin2bcd C6(.A({1'b0,co1[3],co2[3],co3[3]}),
.S({P[9],co6}));
bin2bcd C7(.A({co6,co4[3]}),
.S(P[8:5]));
endmodule // Binary_to_BCD_8
module test();
reg [7:0] B;
wire [9:0] P;
// End of automatics
Binary_to_BCD_8 Binary_to_BCD_8(/*AUTOINST*/
// Outputs
.P (P[9:0]),
// Inputs
.B (B[7:0]));
initial begin
$monitor($time,,"Bin=%0x BCD = %0x",B,P);
B=0;
repeat(256) #10
B=B+1;
$finish;
end
endmodule // test
