16位超前进位加法器

result = result << 1;
bin = bin << 1;
end
result[0] = bin[B_SIZE-1];
bcd <= result;
end
end
endmodule
/******************************4位二进制超前进位加法模块************************************/
module B_BCD ( binary, bcd );
parameter B_SIZE = 16; //B_SIZE为二进制数所占的位数，可根据需要进行扩展
input binary; //binary为待转换的二进制数，bcd为转换后的BCD码
output bcd;
assign s[0]=a[0]^b[0]^cp0;
assign s[1]=a[1]^b[1]^(g[0]|p[0]&cp0);
assign s[2]=a[2]^b[2]^(g[1]|p[1]&(g[0]|p[0]&cp0));
assign s[3]=a[3]^b[3]^(g[2]|p[2]&(g[1]|p[1]&(g[0]|p[0]&cp0)));
wire[3:0] S0,S1,S2,S3; //每四位的二进制和
assign A3=A[15:12];
assign A2=A[11:8];
assign A1=A[7:4];
assign A0=A[3:0];
assign B3=B[15:12];
assign B2=B[11:8];
assign g=a&b;
assign cp[1]=g[0]|p[0]&cp0;
assign cp[2]=g[1]|p[1]&(g[0]|p[0]&cp0);
assign cp[3]=g[2]|p[2]&(g[1]|p[1]&(g[0]|p[0]&cp0));
assign c_out=g[3]|p[3]&(g[2]|p[2]&(g[1]|p[1]&(g[0]|p[0]&cp0)));
always@( binary )
begin
bin = binary;
result = 0;
begin
repeat ( B_SIZE-1 ) //使用repeat语句进行循环计算
begin
result[0] = bin[B_SIZE-1];
output c_out;
output[3:0] s;
wire [3:0]p,g; //si=ai^bi^ci; ci=g[i-1]|p[i-1]&c[i-1](与&的优先级高于或|)
wire[3:1] cp; //进位产生函数 g[i-1]=a[i-1]&b[i-1],
assign p=a|b; //进位传递函数 p[i-1]=a[i-1]|b[i-1]
module BCD_16(clk,A,B,Y); //A,B--16位输入 ，S—20位的BCD和输出
input[15:0] A,B;
input clk;
output wire[19:0] Y;
wire[3:0] A0,A1,A2,A3,B0,B1,B2,B3;
wire C_1,C_2,C_3,C_4; //16位二进制加法中每四位的一个进位
assign B1=B[7:4];
assign B0=B[3:0];
sum_1 f0(A0,B0,1'b0,C_1,S0); //----------------调用4位二进制加法器模块，实现十六位二进制加法器
sum_1 f1(A1,B1,C_1,C_2,S1);
sum_1 f2(A2,B2,Cቤተ መጻሕፍቲ ባይዱ2,C_3,S2);
if ( result[3:0] > 4 )
result[3:0] = result[3:0]+4'd3;
if ( result[7:4] > 4 )
result[7:4] = result[7:4]+4'd3;
if ( result[11:8] > 4 )
endmodule
result[11:8] = result[11:8]+4'd3;
if ( result[15:12] > 4 )
result[15:12] = result[15:12]+4'd3;
if ( result[19:16] > 4 )
result[19:16] = result[19:16]+4'd3; //扩展时应参照此6条if语句续写
module sum_1(a,b,cp0,c_out,s); //(a[3],a[2],a[1],a[0],b[3],b[2],b[1],b[0],c0,cp,s[3],s[2],s[1],s[0]);
input[3:0]a,b; //!!注意，上述表达方式是错误的
input cp0;
//16位二进制超前进位加法器---BCD码显示
//加法模块采用超前进位法
//B——BCD转换模块采用加三移位法实现
/********************************************\
Filename : BCD_16.v
Description : a 16-bit binary-to-bcd module
Revision : 2012/12/3
\********************************************/
/**************************top模块***********************************************/
sum_1 f3(A3,B3,C_3,C_4,S3);
B_BCD b1(.binary({S3,S2,S1,S0}),.bcd(Y));//------------------------------调用二进制转BCD模块
endmodule
/********************二进制转BCD模块，实现十六位二进制转换成20位的BCD码********************/
wire [B_SIZE-1 : 0] binary;
reg [B_SIZE-1 : 0] bin;
reg [B_SIZE+3 : 0] bcd; // bcd的长度应根据实际情况进行修改
reg [B_SIZE+3 : 0] result; //result的长度=bcd的长度