Subversion Repositories vtach

`timescale 1ns / 1ps

/* Unsigned BCD sum */

module usum(input [16:0] a, input [12:0] b, output [16:0] z);

  wire c0, c1, c2, c3;

  digitadd add1(a[3:0],b[3:0],1'b0,z[3:0],c0);

  digitadd add2(a[7:4],b[7:4],c0,z[7:4],c1);

  digitadd add3(a[11:8],b[11:8],c1,z[11:8],c2);

  digitadd add4(a[15:12],b[12]?4'h9:4'h0,c2,z[15:12],c3);

  assign z[16]=a[16]+b[12]+c3;

endmodule