int bcd2_mul(long *bcd_low, long *bcd_high, long multiplier) {
  long tmp_lo, tmp_hi, carry, m_lo, m_hi, m1, m2;
  int udigit, ldigit, res;
  tmp_lo = *bcd_low;
  tmp_hi = *bcd_high;
  bin_bcd2(multiplier, &m_lo, &m_hi);
  *bcd_low = 0;
  *bcd_high = 0;
  carry = 0;
  for (ldigit = 0; ldigit < 14; ldigit++) {
    m1 = ((ldigit) >= 7)
             ? (m_hi & (0xF << (4 * ((ldigit)-7)))) >> (((ldigit)-7) * 4)
             : (m_lo & (0xF << (4 * (ldigit)))) >> ((ldigit)*4);
    carry = 0;
    for (udigit = 0; udigit < 14; udigit++) {
      m2 = ((udigit) >= 7)
               ? (tmp_hi & (0xF << (4 * ((udigit)-7)))) >> (((udigit)-7) * 4)
               : (tmp_lo & (0xF << (4 * (udigit)))) >> ((udigit)*4);
      res = m1 * m2;
      res += carry;
      if (udigit + ldigit < 14) {
        carry = ((udigit + ldigit) >= 7)
                    ? (*bcd_high & (0xF << (4 * ((udigit + ldigit) - 7)))) >>
                          (((udigit + ldigit) - 7) * 4)
                    : (*bcd_low & (0xF << (4 * (udigit + ldigit)))) >>
                          ((udigit + ldigit) * 4);
        res += carry;
      }
      carry = res / 10;
      res %= 10;
      if (udigit + ldigit < 14)
        if ((udigit + ldigit) >= 7) {
          *bcd_high &= (0xFFFFFFF ^ (0xF << (4 * ((udigit + ldigit) - 7))));
          *bcd_high |= (res << (4 * ((udigit + ldigit) - 7)));
        } else {
          *bcd_low =
              (*bcd_low & (0xFFFFFFF ^ (0xF << (4 * (udigit + ldigit)))));
          *bcd_low |= (res << (4 * (udigit + ldigit)));
        };
    }
  }
  return (carry);
}


x86 assembly (clang, -O0):
<bcd2_mul>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x28(%rbp)
mov    -0x18(%rbp),%rdi
lea    -0x38(%rbp),%rsi
lea    -0x40(%rbp),%rdx
mov    $0x0,%al
call   1030 <bin_bcd2@plt>
mov    -0x8(%rbp),%rax
movq   $0x0,(%rax)
mov    -0x10(%rbp),%rax
movq   $0x0,(%rax)
movq   $0x0,-0x30(%rbp)
movl   $0x0,-0x58(%rbp)
cmpl   $0xe,-0x58(%rbp)
jge    1428 <bcd2_mul+0x318>
cmpl   $0x7,-0x58(%rbp)
jl     11bc <bcd2_mul+0xac>
mov    -0x40(%rbp),%rax
mov    -0x58(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x58(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x68(%rbp)
jmp    11e4 <bcd2_mul+0xd4>
mov    -0x38(%rbp),%rax
mov    -0x58(%rbp),%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x58(%rbp),%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x68(%rbp)
mov    -0x68(%rbp),%rax
mov    %rax,-0x48(%rbp)
movq   $0x0,-0x30(%rbp)
movl   $0x0,-0x54(%rbp)
cmpl   $0xe,-0x54(%rbp)
jge    1415 <bcd2_mul+0x305>
cmpl   $0x7,-0x54(%rbp)
jl     1242 <bcd2_mul+0x132>
mov    -0x28(%rbp),%rax
mov    -0x54(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x54(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x70(%rbp)
jmp    126a <bcd2_mul+0x15a>
mov    -0x20(%rbp),%rax
mov    -0x54(%rbp),%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x54(%rbp),%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x70(%rbp)
mov    -0x70(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x48(%rbp),%rax
imul   -0x50(%rbp),%rax
mov    %eax,-0x5c(%rbp)
mov    -0x30(%rbp),%rcx
movslq -0x5c(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x5c(%rbp)
mov    -0x54(%rbp),%eax
add    -0x58(%rbp),%eax
cmp    $0xe,%eax
jge    132d <bcd2_mul+0x21d>
mov    -0x54(%rbp),%eax
add    -0x58(%rbp),%eax
cmp    $0x7,%eax
jl     12e6 <bcd2_mul+0x1d6>
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    -0x54(%rbp),%ecx
add    -0x58(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x54(%rbp),%ecx
add    -0x58(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x78(%rbp)
jmp    1317 <bcd2_mul+0x207>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    -0x54(%rbp),%ecx
add    -0x58(%rbp),%ecx
shl    $0x2,%ecx
mov    $0xf,%edx
shl    %cl,%edx
mov    %edx,%ecx
movslq %ecx,%rcx
and    %rcx,%rax
mov    -0x54(%rbp),%ecx
add    -0x58(%rbp),%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,-0x78(%rbp)
mov    -0x78(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rcx
movslq -0x5c(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x5c(%rbp)
mov    -0x5c(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
cltq
mov    %rax,-0x30(%rbp)
mov    -0x5c(%rbp),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %edx,-0x5c(%rbp)
mov    -0x54(%rbp),%eax
add    -0x58(%rbp),%eax
cmp    $0xe,%eax
jge    1402 <bcd2_mul+0x2f2>
mov    -0x54(%rbp),%eax
add    -0x58(%rbp),%eax
cmp    $0x7,%eax
jl     13b2 <bcd2_mul+0x2a2>
mov    -0x54(%rbp),%ecx
add    -0x58(%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    -0x5c(%rbp),%eax
mov    -0x54(%rbp),%ecx
add    -0x58(%rbp),%ecx
sub    $0x7,%ecx
shl    $0x2,%ecx
shl    %cl,%eax
movslq %eax,%rcx
mov    -0x10(%rbp),%rax
or     (%rax),%rcx
mov    %rcx,(%rax)
jmp    13fd <bcd2_mul+0x2ed>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x80(%rbp)
mov    -0x54(%rbp),%ecx
add    -0x58(%rbp),%ecx
shl    $0x2,%ecx
mov    $0xf,%eax
shl    %cl,%eax
mov    -0x80(%rbp),%rcx
xor    $0xfffffff,%eax
cltq
and    %rax,%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x5c(%rbp),%eax
mov    -0x54(%rbp),%ecx
add    -0x58(%rbp),%ecx
shl    $0x2,%ecx
shl    %cl,%eax
movslq %eax,%rcx
mov    -0x8(%rbp),%rax
or     (%rax),%rcx
mov    %rcx,(%rax)
jmp    1402 <bcd2_mul+0x2f2>
jmp    1407 <bcd2_mul+0x2f7>
mov    -0x54(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x54(%rbp)
jmp    11fb <bcd2_mul+0xeb>
jmp    141a <bcd2_mul+0x30a>
mov    -0x58(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x58(%rbp)
jmp    1175 <bcd2_mul+0x65>
mov    -0x30(%rbp),%rax
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<bcd2_mul>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rdx,%rax
mov    %rsi,%r14
mov    %rdi,%r13
mov    (%rdi),%r15
mov    (%rsi),%r12
xor    %ecx,%ecx
mov    %rcx,0x10(%rsp)
lea    0x30(%rsp),%rsi
lea    0x28(%rsp),%rdx
mov    %rax,%rdi
xor    %eax,%eax
call   1030 <bin_bcd2@plt>
movq   $0x0,0x0(%r13)
movq   $0x0,(%r14)
mov    0x30(%rsp),%rax
mov    %rax,0x20(%rsp)
movq   $0xffffffffffffffe4,0x8(%rsp)
ff ff
mov    0x28(%rsp),%rax
mov    %rax,0x18(%rsp)
xor    %r11d,%r11d
jmp    119a <bcd2_mul+0x8a>
nopl   0x0(%rax)
add    $0x1,%r11
addq   $0x4,0x8(%rsp)
addq   $0x4,0x10(%rsp)
cmp    $0xe,%r11
je     1304 <bcd2_mul+0x1f4>
lea    0x0(,%r11,4),%ecx
cmp    $0x7,%r11
jb     11c0 <bcd2_mul+0xb0>
add    $0xe4,%cl
mov    $0xf,%r9d
shl    %cl,%r9d
and    0x18(%rsp),%r9d
jmp    11ce <bcd2_mul+0xbe>
nopl   0x0(%rax,%rax,1)
mov    $0xf,%r9d
shl    %cl,%r9d
and    0x20(%rsp),%r9d
shr    %cl,%r9
xor    %edx,%edx
xor    %ebx,%ebx
xor    %eax,%eax
jmp    1264 <bcd2_mul+0x154>
nopl   0x0(%rax)
mov    0x0(%r13),%r10
mov    0x10(%rsp),%rax
lea    (%rax,%rdx,1),%ecx
mov    $0xf,%r8d
shl    %cl,%r8d
mov    %r10d,%eax
and    %r8d,%eax
shr    %cl,%rax
add    %rbp,%rax
movslq %eax,%rdi
imul   $0x66666667,%rdi,%rbp
mov    %rbp,%rsi
shr    $0x3f,%rsi
sar    $0x22,%rbp
add    %esi,%ebp
add    %ebp,%ebp
lea    0x0(%rbp,%rbp,4),%esi
sub    %esi,%edi
xor    $0xfffffff,%r8d
movslq %r8d,%rsi
shl    %cl,%edi
and    %r10,%rsi
movslq %edi,%rcx
or     %rsi,%rcx
mov    %rcx,0x0(%r13)
mov    %eax,%ebp
movslq %ebp,%rax
imul   $0x66666667,%rax,%rax
mov    %rax,%rcx
shr    $0x3f,%rcx
sar    $0x22,%rax
add    %ecx,%eax
add    $0x1,%rbx
add    $0x4,%rdx
cmp    $0x38,%rdx
je     1180 <bcd2_mul+0x70>
cmp    $0x7,%rbx
jb     1280 <bcd2_mul+0x170>
lea    -0x1c(%rdx),%ecx
mov    $0xf,%ebp
shl    %cl,%ebp
and    %r12d,%ebp
jmp    128c <bcd2_mul+0x17c>
nopl   0x0(%rax)
mov    $0xf,%ebp
mov    %edx,%ecx
shl    %cl,%ebp
and    %r15d,%ebp
shr    %cl,%rbp
imul   %r9,%rbp
add    %rax,%rbp
lea    (%r11,%rbx,1),%rax
cmp    $0xd,%rax
ja     123b <bcd2_mul+0x12b>
cmp    $0x6,%rax
jbe    11e0 <bcd2_mul+0xd0>
mov    (%r14),%r8
mov    0x8(%rsp),%rax
lea    (%rax,%rdx,1),%ecx
mov    $0xf,%edi
shl    %cl,%edi
mov    %r8d,%esi
and    %edi,%esi
shr    %cl,%rsi
add    %rbp,%rsi
movslq %esi,%rbp
imul   $0x66666667,%rbp,%rax
mov    %rax,%r10
shr    $0x3f,%r10
sar    $0x22,%rax
add    %r10d,%eax
add    %eax,%eax
lea    (%rax,%rax,4),%eax
sub    %eax,%ebp
xor    $0xfffffff,%edi
movslq %edi,%rax
shl    %cl,%ebp
and    %r8,%rax
movslq %ebp,%rcx
or     %rax,%rcx
mov    %rcx,(%r14)
mov    %esi,%ebp
jmp    123b <bcd2_mul+0x12b>
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @bcd2_mul(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 i64
%12 = alloca i64
%13 = alloca i64
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
store i64* %0, i64** %4
store i64* %1, i64** %5
store i64 %2, i64* %6
%17 = load i64*, i64** %4
%18 = load i64, i64* %17
store i64 %18, i64* %7
%19 = load i64*, i64** %5
%20 = load i64, i64* %19
store i64 %20, i64* %8
%21 = load i64, i64* %6
%22 = call i32 (i64, i64*, i64*, ...) bitcast (i32 (...)* @bin_bcd2 to i32 (i64, i64*, i64*, ...)*)(i64 %21, i64* %10, i64* %11)
%23 = load i64*, i64** %4
store i64 0, i64* %23
%24 = load i64*, i64** %5
store i64 0, i64* %24
store i64 0, i64* %9
store i32 0, i32* %15
br label %25
25: ; preds = %214, %3
%26 = load i32, i32* %15
%27 = icmp slt i32 %26, 14
br i1 %27, label %28, label %217
28: ; preds = %25
%29 = load i32, i32* %15
%30 = icmp sge i32 %29, 7
br i1 %30, label %31, label %44
31: ; preds = %28
%32 = load i64, i64* %11
%33 = load i32, i32* %15
%34 = sub nsw i32 %33, 7
%35 = mul nsw i32 4, %34
%36 = shl i32 15, %35
%37 = sext i32 %36 to i64
%38 = and i64 %32, %37
%39 = load i32, i32* %15
%40 = sub nsw i32 %39, 7
%41 = mul nsw i32 %40, 4
%42 = zext i32 %41 to i64
%43 = ashr i64 %38, %42
br label %55
44: ; preds = %28
%45 = load i64, i64* %10
%46 = load i32, i32* %15
%47 = mul nsw i32 4, %46
%48 = shl i32 15, %47
%49 = sext i32 %48 to i64
%50 = and i64 %45, %49
%51 = load i32, i32* %15
%52 = mul nsw i32 %51, 4
%53 = zext i32 %52 to i64
%54 = ashr i64 %50, %53
br label %55
55: ; preds = %44, %31
%56 = phi i64 [ %43, %31 ], [ %54, %44 ]
store i64 %56, i64* %12
store i64 0, i64* %9
store i32 0, i32* %14
br label %57
57: ; preds = %210, %55
%58 = load i32, i32* %14
%59 = icmp slt i32 %58, 14
br i1 %59, label %60, label %213
60: ; preds = %57
%61 = load i32, i32* %14
%62 = icmp sge i32 %61, 7
br i1 %62, label %63, label %76
63: ; preds = %60
%64 = load i64, i64* %8
%65 = load i32, i32* %14
%66 = sub nsw i32 %65, 7
%67 = mul nsw i32 4, %66
%68 = shl i32 15, %67
%69 = sext i32 %68 to i64
%70 = and i64 %64, %69
%71 = load i32, i32* %14
%72 = sub nsw i32 %71, 7
%73 = mul nsw i32 %72, 4
%74 = zext i32 %73 to i64
%75 = ashr i64 %70, %74
br label %87
76: ; preds = %60
%77 = load i64, i64* %7
%78 = load i32, i32* %14
%79 = mul nsw i32 4, %78
%80 = shl i32 15, %79
%81 = sext i32 %80 to i64
%82 = and i64 %77, %81
%83 = load i32, i32* %14
%84 = mul nsw i32 %83, 4
%85 = zext i32 %84 to i64
%86 = ashr i64 %82, %85
br label %87
87: ; preds = %76, %63
%88 = phi i64 [ %75, %63 ], [ %86, %76 ]
store i64 %88, i64* %13
%89 = load i64, i64* %12
%90 = load i64, i64* %13
%91 = mul nsw i64 %89, %90
%92 = trunc i64 %91 to i32
store i32 %92, i32* %16
%93 = load i64, i64* %9
%94 = load i32, i32* %16
%95 = sext i32 %94 to i64
%96 = add nsw i64 %95, %93
%97 = trunc i64 %96 to i32
store i32 %97, i32* %16
%98 = load i32, i32* %14
%99 = load i32, i32* %15
%100 = add nsw i32 %98, %99
%101 = icmp slt i32 %100, 14
br i1 %101, label %102, label %148
102: ; preds = %87
%103 = load i32, i32* %14
%104 = load i32, i32* %15
%105 = add nsw i32 %103, %104
%106 = icmp sge i32 %105, 7
br i1 %106, label %107, label %125
107: ; preds = %102
%108 = load i64*, i64** %5
%109 = load i64, i64* %108
%110 = load i32, i32* %14
%111 = load i32, i32* %15
%112 = add nsw i32 %110, %111
%113 = sub nsw i32 %112, 7
%114 = mul nsw i32 4, %113
%115 = shl i32 15, %114
%116 = sext i32 %115 to i64
%117 = and i64 %109, %116
%118 = load i32, i32* %14
%119 = load i32, i32* %15
%120 = add nsw i32 %118, %119
%121 = sub nsw i32 %120, 7
%122 = mul nsw i32 %121, 4
%123 = zext i32 %122 to i64
%124 = ashr i64 %117, %123
br label %141
125: ; preds = %102
%126 = load i64*, i64** %4
%127 = load i64, i64* %126
%128 = load i32, i32* %14
%129 = load i32, i32* %15
%130 = add nsw i32 %128, %129
%131 = mul nsw i32 4, %130
%132 = shl i32 15, %131
%133 = sext i32 %132 to i64
%134 = and i64 %127, %133
%135 = load i32, i32* %14
%136 = load i32, i32* %15
%137 = add nsw i32 %135, %136
%138 = mul nsw i32 %137, 4
%139 = zext i32 %138 to i64
%140 = ashr i64 %134, %139
br label %141
141: ; preds = %125, %107
%142 = phi i64 [ %124, %107 ], [ %140, %125 ]
store i64 %142, i64* %9
%143 = load i64, i64* %9
%144 = load i32, i32* %16
%145 = sext i32 %144 to i64
%146 = add nsw i64 %145, %143
%147 = trunc i64 %146 to i32
store i32 %147, i32* %16
br label %148
148: ; preds = %141, %87
%149 = load i32, i32* %16
%150 = sdiv i32 %149, 10
%151 = sext i32 %150 to i64
store i64 %151, i64* %9
%152 = load i32, i32* %16
%153 = srem i32 %152, 10
store i32 %153, i32* %16
%154 = load i32, i32* %14
%155 = load i32, i32* %15
%156 = add nsw i32 %154, %155
%157 = icmp slt i32 %156, 14
br i1 %157, label %158, label %209
158: ; preds = %148
%159 = load i32, i32* %14
%160 = load i32, i32* %15
%161 = add nsw i32 %159, %160
%162 = icmp sge i32 %161, 7
br i1 %162, label %163, label %186
163: ; preds = %158
%164 = load i32, i32* %14
%165 = load i32, i32* %15
%166 = add nsw i32 %164, %165
%167 = sub nsw i32 %166, 7
%168 = mul nsw i32 4, %167
%169 = shl i32 15, %168
%170 = xor i32 268435455, %169
%171 = sext i32 %170 to i64
%172 = load i64*, i64** %5
%173 = load i64, i64* %172
%174 = and i64 %173, %171
store i64 %174, i64* %172
%175 = load i32, i32* %16
%176 = load i32, i32* %14
%177 = load i32, i32* %15
%178 = add nsw i32 %176, %177
%179 = sub nsw i32 %178, 7
%180 = mul nsw i32 4, %179
%181 = shl i32 %175, %180
%182 = sext i32 %181 to i64
%183 = load i64*, i64** %5
%184 = load i64, i64* %183
%185 = or i64 %184, %182
store i64 %185, i64* %183
br label %208
186: ; preds = %158
%187 = load i64*, i64** %4
%188 = load i64, i64* %187
%189 = load i32, i32* %14
%190 = load i32, i32* %15
%191 = add nsw i32 %189, %190
%192 = mul nsw i32 4, %191
%193 = shl i32 15, %192
%194 = xor i32 268435455, %193
%195 = sext i32 %194 to i64
%196 = and i64 %188, %195
%197 = load i64*, i64** %4
store i64 %196, i64* %197
%198 = load i32, i32* %16
%199 = load i32, i32* %14
%200 = load i32, i32* %15
%201 = add nsw i32 %199, %200
%202 = mul nsw i32 4, %201
%203 = shl i32 %198, %202
%204 = sext i32 %203 to i64
%205 = load i64*, i64** %4
%206 = load i64, i64* %205
%207 = or i64 %206, %204
store i64 %207, i64* %205
br label %208
208: ; preds = %186, %163
br label %209
209: ; preds = %208, %148
br label %210
210: ; preds = %209
%211 = load i32, i32* %14
%212 = add nsw i32 %211, 1
store i32 %212, i32* %14
br label %57
213: ; preds = %57
br label %214
214: ; preds = %213
%215 = load i32, i32* %15
%216 = add nsw i32 %215, 1
store i32 %216, i32* %15
br label %25
217: ; preds = %25
%218 = load i64, i64* %9
%219 = trunc i64 %218 to i32
ret i32 %219
}

LLVM IR (-O2):
define i32 @bcd2_mul(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 = load i64, i64* %0
%9 = load i64, i64* %1
%10 = call i32 (i64, i64*, i64*, ...) bitcast (i32 (...)* @bin_bcd2 to i32 (i64, i64*, i64*, ...)*)(i64 %2, i64* %4, i64* %5)
store i64 0, i64* %0
store i64 0, i64* %1
%11 = load i64, i64* %4
%12 = load i64, i64* %5
br label %13
13: ; preds = %3, %106
%14 = phi i64 [ 0, %3 ], [ %107, %106 ]
%15 = icmp ugt i64 %14, 6
br i1 %15, label %16, label %25
16: ; preds = %13
%17 = trunc i64 %14 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 %12, %21
%23 = zext i32 %19 to i64
%24 = lshr i64 %22, %23
br label %32
25: ; preds = %13
%26 = shl nuw nsw i64 %14, 2
%27 = trunc i64 %26 to i32
%28 = shl nuw nsw i32 15, %27
%29 = zext i32 %28 to i64
%30 = and i64 %11, %29
%31 = lshr i64 %30, %26
br label %32
32: ; preds = %25, %16
%33 = phi i64 [ %24, %16 ], [ %31, %25 ]
br label %34
34: ; preds = %32, %100
%35 = phi i64 [ 0, %32 ], [ %104, %100 ]
%36 = phi i64 [ 0, %32 ], [ %103, %100 ]
%37 = icmp ugt i64 %35, 6
br i1 %37, label %38, label %47
38: ; preds = %34
%39 = trunc i64 %35 to i32
%40 = shl i32 %39, 2
%41 = add i32 %40, -28
%42 = shl nuw nsw i32 15, %41
%43 = zext i32 %42 to i64
%44 = and i64 %9, %43
%45 = zext i32 %41 to i64
%46 = lshr i64 %44, %45
br label %54
47: ; preds = %34
%48 = shl nuw nsw i64 %35, 2
%49 = trunc i64 %48 to i32
%50 = shl nuw nsw i32 15, %49
%51 = zext i32 %50 to i64
%52 = and i64 %8, %51
%53 = lshr i64 %52, %48
br label %54
54: ; preds = %47, %38
%55 = phi i64 [ %46, %38 ], [ %53, %47 ]
%56 = mul nsw i64 %55, %33
%57 = add i64 %56, %36
%58 = add nuw nsw i64 %35, %14
%59 = icmp ult i64 %58, 14
br i1 %59, label %60, label %62
60: ; preds = %54
%61 = icmp ugt i64 %58, 6
br i1 %61, label %64, label %83
62: ; preds = %54
%63 = trunc i64 %57 to i32
br label %100
64: ; preds = %60
%65 = load i64, i64* %1
%66 = trunc i64 %58 to i32
%67 = shl nuw nsw i32 %66, 2
%68 = add nsw i32 %67, -28
%69 = shl nuw nsw i32 15, %68
%70 = zext i32 %69 to i64
%71 = and i64 %65, %70
%72 = zext i32 %68 to i64
%73 = lshr i64 %71, %72
%74 = add i64 %73, %57
%75 = trunc i64 %74 to i32
%76 = srem i32 %75, 10
%77 = xor i32 %69, 268435455
%78 = sext i32 %77 to i64
%79 = and i64 %65, %78
%80 = shl nsw i32 %76, %68
%81 = sext i32 %80 to i64
%82 = or i64 %79, %81
store i64 %82, i64* %1
br label %100
83: ; preds = %60
%84 = load i64, i64* %0
%85 = shl nuw nsw i64 %58, 2
%86 = trunc i64 %85 to i32
%87 = shl nuw nsw i32 15, %86
%88 = zext i32 %87 to i64
%89 = and i64 %84, %88
%90 = lshr i64 %89, %85
%91 = add i64 %90, %57
%92 = trunc i64 %91 to i32
%93 = srem i32 %92, 10
%94 = xor i32 %87, 268435455
%95 = sext i32 %94 to i64
%96 = and i64 %84, %95
%97 = shl nsw i32 %93, %86
%98 = sext i32 %97 to i64
%99 = or i64 %96, %98
store i64 %99, i64* %0
br label %100
100: ; preds = %62, %83, %64
%101 = phi i32 [ %63, %62 ], [ %92, %83 ], [ %75, %64 ]
%102 = sdiv i32 %101, 10
%103 = zext i32 %102 to i64
%104 = add nuw nsw i64 %35, 1
%105 = icmp eq i64 %104, 14
br i1 %105, label %106, label %34
106: ; preds = %100
%107 = add nuw nsw i64 %14, 1
%108 = icmp eq i64 %107, 14
br i1 %108, label %109, label %13
109: ; preds = %106
ret i32 %102
}