int bcd2_sub(long *bcd_low, long *bcd_high, long subend) {
  long tmp_lo, tmp_hi, carry, res;
  int digit;
  bin_bcd2(subend, &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;
    if (res < 0) {
      res += 10;
      carry = 1;
    }
    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_sub>:
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    1311 <bcd2_sub+0x201>
cmpl   $0x7,-0x3c(%rbp)
jl     1190 <bcd2_sub+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_sub+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_sub+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_sub+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),%rcx
mov    -0x38(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x30(%rbp),%rcx
mov    -0x38(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x38(%rbp)
cmpq   $0x0,-0x38(%rbp)
jge    1265 <bcd2_sub+0x155>
mov    -0x38(%rbp),%rax
add    $0xa,%rax
mov    %rax,-0x38(%rbp)
movq   $0x1,-0x30(%rbp)
cmpl   $0x7,-0x3c(%rbp)
jl     12b5 <bcd2_sub+0x1a5>
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    12fe <bcd2_sub+0x1ee>
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    1303 <bcd2_sub+0x1f3>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1146 <bcd2_sub+0x36>
mov    -0x30(%rbp),%rax
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<bcd2_sub>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x10,%rsp
mov    %rdx,%rax
mov    %rsi,%r14
mov    %rdi,%r15
xor    %r12d,%r12d
lea    0x8(%rsp),%rsi
mov    %rsp,%rdx
mov    %rax,%rdi
xor    %eax,%eax
call   1030 <bin_bcd2@plt>
mov    0x8(%rsp),%r9
mov    (%rsp),%r10
mov    $0x1,%r8d
xor    %r13d,%r13d
xor    %edx,%edx
xor    %eax,%eax
jmp    11bb <bcd2_sub+0xab>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    (%r15),%r11
mov    $0xf,%esi
mov    %r12d,%ecx
shl    %cl,%esi
mov    %r11d,%edi
and    %esi,%edi
shr    %cl,%rdi
mov    %r9d,%ebx
and    %esi,%ebx
shr    %cl,%rbx
add    %rdx,%rdi
sub    %rbx,%rdi
lea    0xa(%rdi),%rdx
test   %rdi,%rdi
cmovs  %r8,%rax
cmovns %rdi,%rdx
xor    $0xfffffff,%esi
shl    %cl,%rdx
movslq %esi,%rcx
and    %r11,%rcx
or     %rcx,%rdx
mov    %rdx,(%r15)
add    $0x1,%r13
mov    %rax,%rdx
neg    %rdx
add    $0x4,%r12
cmp    $0xe,%r13
je     120c <bcd2_sub+0xfc>
cmp    $0x7,%r13
jb     1160 <bcd2_sub+0x50>
mov    (%r14),%r11
lea    -0x1c(%r12),%ecx
mov    $0xf,%esi
shl    %cl,%esi
mov    %r11d,%ebx
and    %esi,%ebx
shr    %cl,%rbx
mov    %r10d,%edi
and    %esi,%edi
shr    %cl,%rdi
add    %rdx,%rbx
sub    %rdi,%rbx
lea    0xa(%rbx),%rdx
test   %rbx,%rbx
cmovs  %r8,%rax
cmovns %rbx,%rdx
xor    $0xfffffff,%esi
shl    %cl,%rdx
movslq %esi,%rcx
and    %r11,%rcx
or     %rcx,%rdx
mov    %rdx,(%r14)
jmp    11a7 <bcd2_sub+0x97>
add    $0x10,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define i32 @bcd2_sub(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 = %127, %3
%15 = load i32, i32* %11
%16 = icmp slt i32 %15, 14
br i1 %16, label %17, label %130
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 = sub nsw i64 %76, %75
store i64 %77, i64* %10
%78 = load i64, i64* %9
%79 = load i64, i64* %10
%80 = sub nsw i64 %79, %78
store i64 %80, i64* %10
%81 = load i64, i64* %10
%82 = icmp slt i64 %81, 0
br i1 %82, label %83, label %86
83: ; preds = %74
%84 = load i64, i64* %10
%85 = add nsw i64 %84, 10
store i64 %85, i64* %10
store i64 1, i64* %9
br label %86
86: ; preds = %83, %74
%87 = load i32, i32* %11
%88 = icmp sge i32 %87, 7
br i1 %88, label %89, label %108
89: ; preds = %86
%90 = load i32, i32* %11
%91 = sub nsw i32 %90, 7
%92 = mul nsw i32 4, %91
%93 = shl i32 15, %92
%94 = xor i32 268435455, %93
%95 = sext i32 %94 to i64
%96 = load i64*, i64** %5
%97 = load i64, i64* %96
%98 = and i64 %97, %95
store i64 %98, i64* %96
%99 = load i64, i64* %10
%100 = load i32, i32* %11
%101 = sub nsw i32 %100, 7
%102 = mul nsw i32 4, %101
%103 = zext i32 %102 to i64
%104 = shl i64 %99, %103
%105 = load i64*, i64** %5
%106 = load i64, i64* %105
%107 = or i64 %106, %104
store i64 %107, i64* %105
br label %126
108: ; preds = %86
%109 = load i64*, i64** %4
%110 = load i64, i64* %109
%111 = load i32, i32* %11
%112 = mul nsw i32 4, %111
%113 = shl i32 15, %112
%114 = xor i32 268435455, %113
%115 = sext i32 %114 to i64
%116 = and i64 %110, %115
%117 = load i64*, i64** %4
store i64 %116, i64* %117
%118 = load i64, i64* %10
%119 = load i32, i32* %11
%120 = mul nsw i32 4, %119
%121 = zext i32 %120 to i64
%122 = shl i64 %118, %121
%123 = load i64*, i64** %4
%124 = load i64, i64* %123
%125 = or i64 %124, %122
store i64 %125, i64* %123
br label %126
126: ; preds = %108, %89
br label %127
127: ; preds = %126
%128 = load i32, i32* %11
%129 = add nsw i32 %128, 1
store i32 %129, i32* %11
br label %14
130: ; preds = %14
%131 = load i64, i64* %9
%132 = trunc i64 %131 to i32
ret i32 %132
}

LLVM IR (-O2):
define i32 @bcd2_sub(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, %60
%12 = phi i64 [ 0, %3 ], [ %62, %60 ]
%13 = phi i64 [ 0, %3 ], [ %63, %60 ]
%14 = phi i64 [ 0, %3 ], [ %61, %60 ]
%15 = icmp ugt i64 %12, 6
br i1 %15, label %16, label %39
16: ; preds = %11
%17 = load i64, i64* %1
%18 = trunc i64 %12 to i32
%19 = shl i32 %18, 2
%20 = add i32 %19, -28
%21 = shl nuw nsw i32 15, %20
%22 = zext i32 %21 to i64
%23 = and i64 %17, %22
%24 = zext i32 %20 to i64
%25 = lshr i64 %23, %24
%26 = and i64 %10, %22
%27 = lshr i64 %26, %24
%28 = add i64 %25, %13
%29 = sub i64 %28, %27
%30 = icmp slt i64 %29, 0
%31 = add nsw i64 %29, 10
%32 = select i1 %30, i64 1, i64 %14
%33 = select i1 %30, i64 %31, i64 %29
%34 = xor i32 %21, 268435455
%35 = sext i32 %34 to i64
%36 = and i64 %17, %35
%37 = shl i64 %33, %24
%38 = or i64 %37, %36
store i64 %38, i64* %1
br label %60
39: ; preds = %11
%40 = load i64, i64* %0
%41 = shl nuw nsw i64 %12, 2
%42 = trunc i64 %41 to i32
%43 = shl nuw nsw i32 15, %42
%44 = zext i32 %43 to i64
%45 = and i64 %40, %44
%46 = lshr i64 %45, %41
%47 = and i64 %9, %44
%48 = lshr i64 %47, %41
%49 = add i64 %46, %13
%50 = sub i64 %49, %48
%51 = icmp slt i64 %50, 0
%52 = add nsw i64 %50, 10
%53 = select i1 %51, i64 1, i64 %14
%54 = select i1 %51, i64 %52, i64 %50
%55 = xor i32 %43, 268435455
%56 = sext i32 %55 to i64
%57 = and i64 %40, %56
%58 = shl i64 %54, %41
%59 = or i64 %58, %57
store i64 %59, i64* %0
br label %60
60: ; preds = %16, %39
%61 = phi i64 [ %32, %16 ], [ %53, %39 ]
%62 = add nuw nsw i64 %12, 1
%63 = sub i64 0, %61
%64 = icmp eq i64 %62, 14
br i1 %64, label %65, label %11
65: ; preds = %60
%66 = trunc i64 %61 to i32
ret i32 %66
}