4.24 2位全加器

程序：

module top;
  integer ia[1:0],ib[1:0];
  integer icin;
  reg [1:0]a,b;
  reg cin;
  wire cout;
  wire [1:0]sum;

  and_behavioral add2(cout,sum,a,b,cin);

  initial
    begin
      for (ia[0]=0; ia[0]<=1; ia[0] = ia[0]+1)
        begin
          a[0]= ia[0];
          for (ia[1]=0; ia[1]<=1; ia[1] = ia[1]+ 1)
            begin
              a[1] = ia[1];
               for (ib[0]=0; ib[0]<=1; ib[0] = ib[0]+1)
                 begin
                   b[0] = ib[0];
                    for (ib[1]=0; ib[1]<=1; ib[1] = ib[1]+ 1)
                     begin
                      b[1] = ib[1];
                        for (icin=0; icin<=1; icin = icin + 1)
                       begin
                        cin = icin;
                 #1 $display("a[0]=%d a[1]=%d b[0]=%d b[1]=%d sum[0]=%d sum[1]=%d cout=%d cin=%d ",a[0],a[1],b[0],b[1],sum[0],sum[1],cout,cin);
                      end
                    end
                  end
              end
         end
    end
endmodule

module  and_behavioral (cout,sum,a,b,cin);
 output [1:0]sum;
 output cout;
 input [1:0] a,b;
 input cin;
 wire t;

add a1(t,sum[0],a[0],b[0],cin);
add a2(cout,sum[1],a[1],b[1],t);

endmodule

module add(cout,sum,a,b,cin);
  input a,b,cin;
  output cout,sum;
  wire a,b,cin;
  reg cout,sum;
  always @(a or b or cin)
   begin
    cout  = a&cin|a&b|b&cin;
    sum = ~a&b&~cin|~cin&a&~b|a&b&cin|~a&~b&cin;
   end    
endmodule