Summation: PROCESS(A, B, Cin) BEGIN Sum <= A xor B xor Cin; END PROCESS Summation; Carry PROCESS(A, B, Cin) BEGIN Cout <= (A and B) or (A and Cin) or (B and Cin); END PROCESS Carry;