add.v

booth乘法器：&#61550 16*16有符号乘法器

module add (a,b,c,d,e,f,g,h,y1,y3,y5,y7,y9,y11,y13,y15,p);
    input [16:0]a;
    input [16:0]b;  
    input [16:0]c;
    input [16:0]d;
    input [16:0]e;
    input [16:0]f;
    input [16:0]g;
    input [16:0]h;
    input y1,y3,y5,y7,y9,y11,y13,y15;
    output [31:0] p;
    wire [31:0] p;
    wire [16:0]a;
    wire [16:0]b;  
    wire [16:0]c;
    wire [16:0]d;
    wire [16:0]e;
    wire [16:0]f;
    wire [16:0]g;
    wire [16:0]h;
        ha ha1(a[0],y1,p[0],r0);
        ha ha2(a[1],r0,p[1],r1);
        fa fa1(a[2],b[0],y3,s0,r2);
        ha ha3(a[3],b[1],s1,r4);
        fa fa2(a[4],b[2],c[0],s2,r5);
        fa fa3(a[5],b[3],c[1],s3,r6);
        fa fa4(a[6],b[4],c[2],s4,r7);
        fa fa5(a[7],b[5],c[3],s5,r8);
        fa fa6(a[8],b[6],c[4],s6,r9);
        fa fa7(a[9],b[7],c[5],s7,r10);
        fa fa8(a[10],b[8],c[6],s8,r11);
        fa fa9(a[11],b[9],c[7],s9,r12);
        fa fa10(a[12],b[10],c[8],s10,r13);
        fa fa11(a[13],b[11],c[9],s11,r14);
        fa fa12(a[14],b[12],c[10],s12,r15);
        fa fa13(a[15],b[13],c[11],s13,r16);
        fa fa14(a[16],b[14],c[12],s14,r17);
        fa fa15(a[16],b[15],c[13],s15,r18);
        fa fa16(a[16],b[16],c[14],s16,r19);
        fa fa17(a[16],b[16],c[15],s17,r20);
        fa fa18(a[16],b[16],c[16],s18,r21);
        fa fa19(a[16],b[16],c[16],s19,r22);
        fa fa20(a[16],b[16],c[16],s20,r23);
        fa fa21(a[16],b[16],c[16],s21,r24);
        fa fa22(a[16],b[16],c[16],s22,r25);
        fa fa23(a[16],b[16],c[16],s23,r26);
        fa fa24(a[16],b[16],c[16],s24,r27);
        fa fa25(a[16],b[16],c[16],s25,r28);
        fa fa26(a[16],b[16],c[16],s26,r29);
        fa fa27(a[16],b[16],c[16],s27,r30);
        fa fa28(a[16],b[16],c[16],s28,r31);
        fa fa29(a[16],b[16],c[16],s29,r32);
        ha ha4(s0,r1,p[2],r3);
        fa fa30(s1,r2,r3,p[3],r33);
        fa fa31(s2,r4,y5,s30,r34);
        ha ha5(s3,r5,s31,r35);
        fa fa32(s4,r6,d[0],s32,r36);
        fa fa33(s5,r7,d[1],s33,r37);
        fa fa34(s6,r8,d[2],s34,r38);
        fa fa35(s7,r9,d[3],s35,r39);
        fa fa36(s8,r10,d[4],s36,r40);
        fa fa37(s9,r11,d[5],s37,r41);
        fa fa38(s10,r12,d[6],s38,r42);
        fa fa39(s11,r13,d[7],s39,r43);
        fa fa40(s12,r14,d[8],s40,r44);
        fa fa41(s13,r15,d[9],s41,r45);
        fa fa42(s14,r16,d[10],s42,r46);
        fa fa43(s15,r17,d[11],s43,r47);
        fa fa44(s16,r18,d[12],s44,r48);
        fa fa45(s17,r19,d[13],s45,r49);
        fa fa46(s18,r20,d[14],s46,r50);
        fa fa47(s19,r21,d[15],s47,r51);
        fa fa48(s20,r22,d[16],s48,r52);
        fa fa49(s21,r23,d[16],s49,r53);
        fa fa50(s22,r24,d[16],s50,r54);
        fa fa51(s23,r25,d[16],s51,r55);
        fa fa52(s24,r26,d[16],s52,r56);
        fa fa53(s25,r27,d[16],s53,r57);
        fa fa54(s26,r28,d[16],s54,r58);
        fa fa55(s27,r29,d[16],s55,r59);
        fa fa56(s28,r30,d[16],s56,r60);
        fa fa57(s29,r31,d[16],s57,r61);
        ha ha6(s30,r33,p[4],r62);
        fa fa58(s31,r34,r62,p[5],r63);
        fa fa59(s32,r35,y7,s58,r64);
        ha ha7(s33,r36,s59,r65);
        fa fa60(s34,r37,e[0],s60,r66);
        fa fa61(s35,r38,e[1],s61,r67);
        fa fa62(s36,r39,e[2],s62,r68);
        fa fa63(s37,r40,e[3],s63,r69);
        fa fa64(s38,r41,e[4],s64,r70);
        fa fa65(s39,r42,e[5],s65,r71);
        fa fa66(s40,r43,e[6],s66,r72);
        fa fa67(s41,r44,e[7],s67,r73);
        fa fa68(s42,r45,e[8],s68,r74);
        fa fa69(s43,r46,e[9],s69,r75);
        fa fa70(s44,r47,e[10],s70,r76);
        fa fa71(s45,r48,e[11],s71,r77);
        fa fa72(s46,r49,e[12],s72,r78);
        fa fa73(s47,r50,e[13],s73,r79);
        fa fa74(s48,r51,e[14],s74,r80);
        fa fa75(s49,r52,e[15],s75,r81);
        fa fa76(s50,r53,e[16],s76,r82);
        fa fa77(s51,r54,e[16],s77,r83);
        fa fa78(s52,r55,e[16],s78,r84);
        fa fa79(s53,r56,e[16],s79,r85);
        fa fa80(s54,r57,e[16],s80,r86);
        fa fa81(s55,r58,e[16],s81,r87);
        fa fa82(s56,r59,e[16],s82,r88);
        fa fa83(s57,r60,e[16],s83,r89);
        ha ha8(s58,r63,p[6],r90);
        fa fa84(s59,r64,r90,p[7],r91);
        fa fa85(s60,r65,y9,s84,r92);
        ha ha9(s61,r66,s85,r93);
        fa fa86(s62,r67,f[0],s86,r94);
        fa fa87(s63,r68,f[1],s87,r95);
        fa fa88(s64,r69,f[2],s88,r96);
        fa fa89(s65,r70,f[3],s89,r97);
        fa fa90(s66,r71,f[4],s90,r98);
        fa fa91(s67,r72,f[5],s91,r99);
        fa fa92(s68,r73,f[6],s92,r100);
        fa fa93(s69,r74,f[7],s93,r101);
        fa fa94(s70,r75,f[8],s94,r102);
        fa fa95(s71,r76,f[9],s95,r103);
        fa fa96(s72,r77,f[10],s96,r104);
        fa fa97(s73,r78,f[11],s97,r105);
        fa fa98(s74,r79,f[12],s98,r106);
        fa fa99(s75,r80,f[13],s99,r107);
        fa fa100(s76,r81,f[14],s100,r108);
        fa fa101(s77,r82,f[15],s101,r109);
        fa fa102(s78,r83,f[16],s102,r110);
        fa fa103(s79,r84,f[16],s103,r111);
        fa fa104(s80,r85,f[16],s104,r112);
        fa fa105(s81,r86,f[16],s105,r113);
        fa fa106(s82,r87,f[16],s106,r114);
        fa fa107(s83,r88,f[16],s107,r115);
        ha ha10(s84,r91,p[8],r116);
        fa fa108(s85,r92,r116,p[9],r117);
        fa fa109(s86,r93,y11,s108,r118);
        ha ha11(s87,r94,s109,r119);
        fa fa110(s88,r95,g[0],s110,r120);
        fa fa111(s89,r96,g[1],s111,r121);
        fa fa112(s90,r97,g[2],s112,r122);
        fa fa113(s91,r98,g[3],s113,r123);
        fa fa114(s92,r99,g[4],s114,r124);
        fa fa115(s93,r100,g[5],s115,r125);
        fa fa116(s94,r101,g[6],s116,r126);
        fa fa117(s95,r102,g[7],s117,r127);
        fa fa118(s96,r103,g[8],s118,r128);
        fa fa119(s97,r104,g[9],s119,r129);
        fa fa120(s98,r105,g[10],s120,r130);
        fa fa121(s99,r106,g[11],s121,r131);
        fa fa122(s100,r107,g[12],s122,r132);
        fa fa123(s101,r108,g[13],s123,r133);
        fa fa124(s102,r109,g[14],s124,r134);
        fa fa125(s103,r110,g[15],s125,r135);
        fa fa126(s104,r111,g[16],s126,r136);
        fa fa127(s105,r112,g[16],s127,r137);
        fa fa128(s106,r113,g[16],s128,r138);
        fa fa129(s107,r114,g[16],s129,r139);
        ha ha12(s108,r117,p[10],r140);
        fa fa130(s109,r118,r140,p[11],r141);
        fa fa131(s110,r119,y13,s130,r142);
        ha ha13(s111,r120,s131,r143);
        fa fa132(s112,r121,h[0],s132,r144);
        fa fa133(s113,r122,h[1],s133,r145);
        fa fa134(s114,r123,h[2],s134,r146);
        fa fa135(s115,r124,h[3],s135,r147);
        fa fa136(s116,r125,h[4],s136,r148);
        fa fa137(s117,r126,h[5],s137,r149);
        fa fa138(s118,r127,h[6],s138,r150);
        fa fa139(s119,r128,h[7],s139,r151);
        fa fa140(s120,r129,h[8],s140,r152);
        fa fa141(s121,r130,h[9],s141,r153);
        fa fa142(s122,r131,h[10],s142,r154);
        fa fa143(s123,r132,h[11],s143,r155);
        fa fa144(s124,r133,h[12],s144,r156);
        fa fa145(s125,r134,h[13],s145,r157);
        fa fa146(s126,r135,h[14],s146,r158);
        fa fa147(s127,r136,h[15],s147,r159);
        fa fa148(s128,r137,h[16],s148,r160);
        fa fa149(s129,r138,h[16],s149,r161);
        ha ha14(s130,r141,p[12],r162);
        fa fa150(s131,r142,r162,p[13],r163);
        fa fa151(s132,r143,y15,s150,r164);
        ha ha15(s133,r144,s151,r165);
        ha ha16(s134,r145,s152,r166);
        ha ha17(s135,r146,s153,r167);
        ha ha18(s136,r147,s154,r168);
        ha ha19(s137,r148,s155,r169);
        ha ha20(s138,r149,s156,r170);
        ha ha21(s139,r150,s157,r171);
        ha ha22(s140,r151,s158,r172);
        ha ha23(s141,r152,s159,r173);
        ha ha24(s142,r153,s160,r174);
        ha ha25(s143,r154,s161,r175);
        ha ha26(s144,r155,s162,r176);
        ha ha27(s145,r156,s163,r177);
        ha ha28(s146,r157,s164,r178);
        ha ha29(s147,r158,s165,r179);
        ha ha30(s148,r159,s166,r180);
        ha ha31(s149,r160,s167,r181);
        ha ha32(s150,r163,p[14],r182);
        fa fa152(s151,r164,r182,p[15],r183);
        fa fa153(s152,r165,r183,p[16],r184);
        fa fa154(s153,r166,r184,p[17],r185);
        fa fa155(s154,r167,r185,p[18],r186);
        fa fa156(s155,r168,r186,p[19],r187);
        fa fa157(s156,r169,r187,p[20],r188);
        fa fa158(s157,r170,r188,p[21],r189);
        fa fa159(s158,r171,r189,p[22],r190);
        fa fa160(s159,r172,r190,p[23],r191);
        fa fa161(s160,r173,r191,p[24],r192);
        fa fa162(s161,r174,r192,p[25],r193);
        fa fa163(s162,r175,r193,p[26],r194);
        fa fa164(s163,r176,r194,p[27],r195);
        fa fa165(s164,r177,r195,p[28],r196);
        fa fa166(s165,r178,r196,p[29],r197);
        fa fa167(s166,r179,r197,p[30],r198);
        fa fa168(s167,r180,r198,p[31],r199);

endmodule


module fa(a,b,cin,s,cout);
    input a,b,cin;
    output s,cout;
    reg s;
    reg cout;
    always @(a or b or cin)
    begin
        {cout,s}=a+b+cin;
    end
endmodule

module ha(a,b,s,cout);
    input a,b;
    output s,cout;
    reg s;
    reg cout;
    always @(a or b)
    begin
        {cout,s}=a+b;
    end
endmodule