Subversion Repositories ft816float

module BCDMul4(a,b,o);

input [15:0] a;

input [15:0] b;

output [31:0] o;

wire [15:0] p1,p2,p3,p4;

wire [31:0] s1;

BCDMul2 u1 (a[7:0],b[7:0],p1);

BCDMul2 u2 (a[15:8],b[7:0],p2);

BCDMul2 u3 (a[7:0],b[15:8],p3);

BCDMul2 u4 (a[15:8],b[15:8],p4);

BCDAddN #(.N(8)) u5 (1'b0,{p4,p1},{8'h0,p2,8'h0},s1);

BCDAddN #(.N(8)) u6 (1'b0,s1,{8'h0,p3,8'h0},o);

endmodule

module BCDMul8(a,b,o);

input [31:0] a;

input [31:0] b;

output [63:0] o;

wire [31:0] p1,p2,p3,p4;

wire [63:0] s1;

BCDMul4 u1 (a[15:0],b[15:0],p1);

BCDMul4 u2 (a[31:16],b[15:0],p2);

BCDMul4 u3 (a[15:0],b[31:16],p3);

BCDMul4 u4 (a[31:16],b[31:16],p4);

BCDAddN #(.N(16)) u5 (1'b0,{p4,p1},{16'h0,p2,16'h0},s1);

BCDAddN #(.N(16)) u6 (1'b0,s1,{16'h0,p3,16'h0},o);

endmodule

module BCDMul16(a,b,o);

input [63:0] a;

input [63:0] b;

output [127:0] o;

wire [63:0] p1,p2,p3,p4;

wire [127:0] s1;

BCDMul8 u1 (a[31:0],b[31:0],p1);

BCDMul8 u2 (a[63:32],b[31:0],p2);

BCDMul8 u3 (a[31:0],b[63:32],p3);

BCDMul8 u4 (a[63:32],b[63:32],p4);

BCDAddN #(.N(32)) u5 (1'b0,{p4,p1},{32'h0,p2,32'h0},s1);

BCDAddN #(.N(32)) u6 (1'b0,s1,{32'h0,p3,32'h0},o);

endmodule

module BCDMul32(a,b,o);

input [127:0] a;

input [127:0] b;

output [255:0] o;

wire [127:0] p1,p2,p3,p4;

wire [255:0] s1;

BCDMul16 u1 (a[63:0],b[63:0],p1);

BCDMul16 u2 (a[127:64],b[63:0],p2);

BCDMul16 u3 (a[63:0],b[127:64],p3);

BCDMul16 u4 (a[127:64],b[127:64],p4);

BCDAddN #(.N(64)) u5 (1'b0,{p4,p1},{64'h0,p2,64'h0},s1);

BCDAddN #(.N(64)) u6 (1'b0,s1,{64'h0,p3,64'h0},o);

endmodule