int bcd2_add(long *bcd_low, long *bcd_high, long addend) {
  long tmp_lo, tmp_hi, carry, res;
  int digit;
  bin_bcd2(addend, &tmp_lo, &tmp_hi);
  carry = 0;
  for (digit = 0; digit < 14; digit++) {
    res = ((digit) >= 7)
              ? (*bcd_high & (0xF << (4 * ((digit)-7)))) >> (((digit)-7) * 4)
              : (*bcd_low & (0xF << (4 * (digit)))) >> ((digit)*4);
    res += ((digit) >= 7)
               ? (tmp_hi & (0xF << (4 * ((digit)-7)))) >> (((digit)-7) * 4)
               : (tmp_lo & (0xF << (4 * (digit)))) >> ((digit)*4);
    res += carry;
    carry = res / 10;
    res %= 10;
    if ((digit) >= 7) {
      *bcd_high &= (0xFFFFFFF ^ (0xF << (4 * ((digit)-7))));
      *bcd_high |= (res << (4 * ((digit)-7)));
    } else {
      *bcd_low = (*bcd_low & (0xFFFFFFF ^ (0xF << (4 * (digit)))));
      *bcd_low |= (res << (4 * (digit)));
    };
  }
  return (carry);
}


x86 assembly (clang, -O0):
<bcd2_add>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x18(%rbp),%rdi
lea    -0x20(%rbp),%rsi
lea    -0x28(%rbp),%rdx
mov    $0x0,%al
call   1030 <bin_bcd2@plt>
movq   $0x0,-0x30(%rbp)
movl   $0x0,-0x3c(%rbp)
cmpl   $0xe,-0x3c(%rbp)
jge    1310 <bcd2_add+0x200>
cmpl   $0x7,-0x3c(%rbp)
jl     1190 <bcd2_add+0x80>
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    -0x3c(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x3c(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x48(%rbp)
jmp    11bb <bcd2_add+0xab>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    -0x3c(%rbp),%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x3c(%rbp),%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x48(%rbp)
mov    -0x48(%rbp),%rax
mov    %rax,-0x38(%rbp)
cmpl   $0x7,-0x3c(%rbp)
jl     1200 <bcd2_add+0xf0>
mov    -0x28(%rbp),%rax
mov    -0x3c(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x3c(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x50(%rbp)
jmp    1228 <bcd2_add+0x118>
mov    -0x20(%rbp),%rax
mov    -0x3c(%rbp),%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x3c(%rbp),%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x50(%rbp)
mov    -0x50(%rbp),%rax
add    -0x38(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x30(%rbp),%rax
add    -0x38(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
mov    $0xa,%ecx
cqto
idiv   %rcx
mov    %rax,-0x30(%rbp)
mov    -0x38(%rbp),%rax
mov    $0xa,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x38(%rbp)
cmpl   $0x7,-0x3c(%rbp)
jl     12b4 <bcd2_add+0x1a4>
mov    -0x3c(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    $0xf,%eax
shl    %cl,%eax
xor    $0xfffffff,%eax
movslq %eax,%rcx
mov    -0x10(%rbp),%rax
and    (%rax),%rcx
mov    %rcx,(%rax)
mov    -0x38(%rbp),%rax
mov    -0x3c(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
shl    %cl,%rax
mov    %rax,%rcx
mov    -0x10(%rbp),%rax
or     (%rax),%rcx
mov    %rcx,(%rax)
jmp    12fd <bcd2_add+0x1ed>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x58(%rbp)
mov    -0x3c(%rbp),%ecx
shl    $0x2,%ecx
mov    $0xf,%eax
shl    %cl,%eax
mov    -0x58(%rbp),%rcx
xor    $0xfffffff,%eax
cltq
and    %rax,%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x38(%rbp),%rax
mov    -0x3c(%rbp),%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
shl    %cl,%rax
mov    %rax,%rcx
mov    -0x8(%rbp),%rax
or     (%rax),%rcx
mov    %rcx,(%rax)
jmp    1302 <bcd2_add+0x1f2>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1146 <bcd2_add+0x36>
mov    -0x30(%rbp),%rax
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<bcd2_add>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rdx,%rax
mov    %rsi,%r14
mov    %rdi,%r15
xor    %ebx,%ebx
lea    0x10(%rsp),%rsi
lea    0x8(%rsp),%rdx
mov    %rax,%rdi
xor    %eax,%eax
call   1030 <bin_bcd2@plt>
mov    0x10(%rsp),%r8
mov    0x8(%rsp),%r9
movabs $0x6666666666666667,%r10
66 66 66
xor    %edi,%edi
xor    %edx,%edx
jmp    11ce <bcd2_add+0xbe>
nopw   0x0(%rax,%rax,1)
mov    (%r15),%r13
mov    $0xf,%ebp
mov    %ebx,%ecx
shl    %cl,%ebp
mov    %r13d,%esi
and    %ebp,%esi
shr    %cl,%rsi
mov    %r8d,%eax
and    %ebp,%eax
shr    %cl,%rax
mov    %rbx,%r11
mov    %r15,%r12
add    %rdx,%rsi
add    %rax,%rsi
xor    $0xfffffff,%ebp
movslq %ebp,%rbp
and    %r13,%rbp
mov    %rsi,%rax
imul   %r10
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x2,%rdx
add    %rax,%rdx
lea    (%rdx,%rdx,1),%rax
lea    (%rax,%rax,4),%rax
sub    %rax,%rsi
mov    %r11d,%ecx
shl    %cl,%rsi
or     %rbp,%rsi
mov    %rsi,(%r12)
add    $0x1,%rdi
add    $0x4,%rbx
cmp    $0xe,%rdi
je     11fa <bcd2_add+0xea>
cmp    $0x7,%rdi
jb     1160 <bcd2_add+0x50>
mov    (%r14),%r13
lea    -0x1c(%rbx),%rcx
mov    $0xf,%ebp
shl    %cl,%ebp
mov    %r13d,%esi
and    %ebp,%esi
mov    %ecx,%r11d
shr    %cl,%rsi
mov    %r9d,%eax
and    %ebp,%eax
shr    %cl,%rax
mov    %r14,%r12
jmp    1182 <bcd2_add+0x72>
mov    %edx,%eax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @bcd2_add(i64* %0, i64* %1, i64 %2) {
%4 = alloca i64*
%5 = alloca i64*
%6 = alloca i64
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i32
store i64* %0, i64** %4
store i64* %1, i64** %5
store i64 %2, i64* %6
%12 = load i64, i64* %6
%13 = call i32 (i64, i64*, i64*, ...) bitcast (i32 (...)* @bin_bcd2 to i32 (i64, i64*, i64*, ...)*)(i64 %12, i64* %7, i64* %8)
store i64 0, i64* %9
store i32 0, i32* %11
br label %14
14: ; preds = %125, %3
%15 = load i32, i32* %11
%16 = icmp slt i32 %15, 14
br i1 %16, label %17, label %128
17: ; preds = %14
%18 = load i32, i32* %11
%19 = icmp sge i32 %18, 7
br i1 %19, label %20, label %34
20: ; preds = %17
%21 = load i64*, i64** %5
%22 = load i64, i64* %21
%23 = load i32, i32* %11
%24 = sub nsw i32 %23, 7
%25 = mul nsw i32 4, %24
%26 = shl i32 15, %25
%27 = sext i32 %26 to i64
%28 = and i64 %22, %27
%29 = load i32, i32* %11
%30 = sub nsw i32 %29, 7
%31 = mul nsw i32 %30, 4
%32 = zext i32 %31 to i64
%33 = ashr i64 %28, %32
br label %46
34: ; preds = %17
%35 = load i64*, i64** %4
%36 = load i64, i64* %35
%37 = load i32, i32* %11
%38 = mul nsw i32 4, %37
%39 = shl i32 15, %38
%40 = sext i32 %39 to i64
%41 = and i64 %36, %40
%42 = load i32, i32* %11
%43 = mul nsw i32 %42, 4
%44 = zext i32 %43 to i64
%45 = ashr i64 %41, %44
br label %46
46: ; preds = %34, %20
%47 = phi i64 [ %33, %20 ], [ %45, %34 ]
store i64 %47, i64* %10
%48 = load i32, i32* %11
%49 = icmp sge i32 %48, 7
br i1 %49, label %50, label %63
50: ; preds = %46
%51 = load i64, i64* %8
%52 = load i32, i32* %11
%53 = sub nsw i32 %52, 7
%54 = mul nsw i32 4, %53
%55 = shl i32 15, %54
%56 = sext i32 %55 to i64
%57 = and i64 %51, %56
%58 = load i32, i32* %11
%59 = sub nsw i32 %58, 7
%60 = mul nsw i32 %59, 4
%61 = zext i32 %60 to i64
%62 = ashr i64 %57, %61
br label %74
63: ; preds = %46
%64 = load i64, i64* %7
%65 = load i32, i32* %11
%66 = mul nsw i32 4, %65
%67 = shl i32 15, %66
%68 = sext i32 %67 to i64
%69 = and i64 %64, %68
%70 = load i32, i32* %11
%71 = mul nsw i32 %70, 4
%72 = zext i32 %71 to i64
%73 = ashr i64 %69, %72
br label %74
74: ; preds = %63, %50
%75 = phi i64 [ %62, %50 ], [ %73, %63 ]
%76 = load i64, i64* %10
%77 = add nsw i64 %76, %75
store i64 %77, i64* %10
%78 = load i64, i64* %9
%79 = load i64, i64* %10
%80 = add nsw i64 %79, %78
store i64 %80, i64* %10
%81 = load i64, i64* %10
%82 = sdiv i64 %81, 10
store i64 %82, i64* %9
%83 = load i64, i64* %10
%84 = srem i64 %83, 10
store i64 %84, i64* %10
%85 = load i32, i32* %11
%86 = icmp sge i32 %85, 7
br i1 %86, label %87, label %106
87: ; preds = %74
%88 = load i32, i32* %11
%89 = sub nsw i32 %88, 7
%90 = mul nsw i32 4, %89
%91 = shl i32 15, %90
%92 = xor i32 268435455, %91
%93 = sext i32 %92 to i64
%94 = load i64*, i64** %5
%95 = load i64, i64* %94
%96 = and i64 %95, %93
store i64 %96, i64* %94
%97 = load i64, i64* %10
%98 = load i32, i32* %11
%99 = sub nsw i32 %98, 7
%100 = mul nsw i32 4, %99
%101 = zext i32 %100 to i64
%102 = shl i64 %97, %101
%103 = load i64*, i64** %5
%104 = load i64, i64* %103
%105 = or i64 %104, %102
store i64 %105, i64* %103
br label %124
106: ; preds = %74
%107 = load i64*, i64** %4
%108 = load i64, i64* %107
%109 = load i32, i32* %11
%110 = mul nsw i32 4, %109
%111 = shl i32 15, %110
%112 = xor i32 268435455, %111
%113 = sext i32 %112 to i64
%114 = and i64 %108, %113
%115 = load i64*, i64** %4
store i64 %114, i64* %115
%116 = load i64, i64* %10
%117 = load i32, i32* %11
%118 = mul nsw i32 4, %117
%119 = zext i32 %118 to i64
%120 = shl i64 %116, %119
%121 = load i64*, i64** %4
%122 = load i64, i64* %121
%123 = or i64 %122, %120
store i64 %123, i64* %121
br label %124
124: ; preds = %106, %87
br label %125
125: ; preds = %124
%126 = load i32, i32* %11
%127 = add nsw i32 %126, 1
store i32 %127, i32* %11
br label %14
128: ; preds = %14
%129 = load i64, i64* %9
%130 = trunc i64 %129 to i32
ret i32 %130
}

LLVM IR (-O2):
define i32 @bcd2_add(i64* nocapture %0, i64* nocapture %1, i64 %2) {
%4 = alloca i64
%5 = alloca i64
%6 = bitcast i64* %4 to i8*
%7 = bitcast i64* %5 to i8*
%8 = call i32 (i64, i64*, i64*, ...) bitcast (i32 (...)* @bin_bcd2 to i32 (i64, i64*, i64*, ...)*)(i64 %2, i64* %4, i64* %5)
%9 = load i64, i64* %4
%10 = load i64, i64* %5
br label %11
11: ; preds = %3, %37
%12 = phi i64 [ 0, %3 ], [ %53, %37 ]
%13 = phi i64 [ 0, %3 ], [ %52, %37 ]
%14 = icmp ugt i64 %12, 6
br i1 %14, label %15, label %27
15: ; preds = %11
%16 = load i64, i64* %1
%17 = trunc i64 %12 to i32
%18 = shl i32 %17, 2
%19 = add i32 %18, -28
%20 = shl nuw nsw i32 15, %19
%21 = zext i32 %20 to i64
%22 = and i64 %16, %21
%23 = zext i32 %19 to i64
%24 = lshr i64 %22, %23
%25 = and i64 %10, %21
%26 = lshr i64 %25, %23
br label %37
27: ; preds = %11
%28 = load i64, i64* %0
%29 = shl nuw nsw i64 %12, 2
%30 = trunc i64 %29 to i32
%31 = shl nuw nsw i32 15, %30
%32 = zext i32 %31 to i64
%33 = and i64 %28, %32
%34 = lshr i64 %33, %29
%35 = and i64 %9, %32
%36 = lshr i64 %35, %29
br label %37
37: ; preds = %15, %27
%38 = phi i64 [ %24, %15 ], [ %34, %27 ]
%39 = phi i64 [ %26, %15 ], [ %36, %27 ]
%40 = phi i32 [ %20, %15 ], [ %31, %27 ]
%41 = phi i64 [ %16, %15 ], [ %28, %27 ]
%42 = phi i64 [ %23, %15 ], [ %29, %27 ]
%43 = phi i64* [ %1, %15 ], [ %0, %27 ]
%44 = add i64 %38, %13
%45 = add i64 %44, %39
%46 = srem i64 %45, 10
%47 = xor i32 %40, 268435455
%48 = sext i32 %47 to i64
%49 = and i64 %41, %48
%50 = shl nsw i64 %46, %42
%51 = or i64 %50, %49
store i64 %51, i64* %43
%52 = sdiv i64 %45, 10
%53 = add nuw nsw i64 %12, 1
%54 = icmp eq i64 %53, 14
br i1 %54, label %55, label %11
55: ; preds = %37
%56 = trunc i64 %52 to i32
ret i32 %56
}