int bcd2_bin(long *dest, long bcd) {
  int count;
  long mask;
  count = 7 - 1;
  mask = 0xF000000;
  *dest = 0;
  while (mask) {
    *dest *= 10;
    *dest += (bcd & mask) >> (4 * count);
    mask = mask >> 4;
    count -= 1;
  }
  return (0);
}


x86 assembly (clang, -O0):
<bcd2_bin>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movl   $0x6,-0x14(%rbp)
movq   $0xf000000,-0x20(%rbp)
0f
mov    -0x8(%rbp),%rax
movq   $0x0,(%rax)
cmpq   $0x0,-0x20(%rbp)
je     1176 <bcd2_bin+0x76>
mov    -0x8(%rbp),%rax
imul   $0xa,(%rax),%rcx
mov    %rcx,(%rax)
mov    -0x10(%rbp),%rax
and    -0x20(%rbp),%rax
mov    -0x14(%rbp),%ecx
shl    $0x2,%ecx
mov    %ecx,%ecx
sar    %cl,%rax
mov    %rax,%rcx
mov    -0x8(%rbp),%rax
add    (%rax),%rcx
mov    %rcx,(%rax)
mov    -0x20(%rbp),%rax
sar    $0x4,%rax
mov    %rax,-0x20(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1126 <bcd2_bin+0x26>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<bcd2_bin>:
mov    %esi,%eax
shr    $0x18,%eax
and    $0xf,%eax
lea    (%rax,%rax,4),%rax
mov    %esi,%ecx
shr    $0x14,%ecx
and    $0xf,%ecx
lea    (%rcx,%rax,2),%rax
lea    (%rax,%rax,4),%rax
mov    %esi,%ecx
shr    $0x10,%ecx
and    $0xf,%ecx
lea    (%rcx,%rax,2),%rax
lea    (%rax,%rax,4),%rax
mov    %esi,%ecx
shr    $0xc,%ecx
and    $0xf,%ecx
lea    (%rcx,%rax,2),%rax
lea    (%rax,%rax,4),%rax
mov    %esi,%ecx
shr    $0x8,%ecx
and    $0xf,%ecx
lea    (%rcx,%rax,2),%rax
lea    (%rax,%rax,4),%rax
mov    %esi,%ecx
shr    $0x4,%ecx
and    $0xf,%ecx
lea    (%rcx,%rax,2),%rax
lea    (%rax,%rax,4),%rax
and    $0xf,%esi
lea    (%rsi,%rax,2),%rax
mov    %rax,(%rdi)
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @bcd2_bin(i64* %0, i64 %1) {
%3 = alloca i64*
%4 = alloca i64
%5 = alloca i32
%6 = alloca i64
store i64* %0, i64** %3
store i64 %1, i64* %4
store i32 6, i32* %5
store i64 251658240, i64* %6
%7 = load i64*, i64** %3
store i64 0, i64* %7
br label %8
8: ; preds = %11, %2
%9 = load i64, i64* %6
%10 = icmp ne i64 %9, 0
br i1 %10, label %11, label %29
11: ; preds = %8
%12 = load i64*, i64** %3
%13 = load i64, i64* %12
%14 = mul nsw i64 %13, 10
store i64 %14, i64* %12
%15 = load i64, i64* %4
%16 = load i64, i64* %6
%17 = and i64 %15, %16
%18 = load i32, i32* %5
%19 = mul nsw i32 4, %18
%20 = zext i32 %19 to i64
%21 = ashr i64 %17, %20
%22 = load i64*, i64** %3
%23 = load i64, i64* %22
%24 = add nsw i64 %23, %21
store i64 %24, i64* %22
%25 = load i64, i64* %6
%26 = ashr i64 %25, 4
store i64 %26, i64* %6
%27 = load i32, i32* %5
%28 = sub nsw i32 %27, 1
store i32 %28, i32* %5
br label %8
29: ; preds = %8
ret i32 0
}

LLVM IR (-O2):
define i32 @bcd2_bin(i64* nocapture %0, i64 %1) {
%3 = lshr i64 %1, 24
%4 = and i64 %3, 15
%5 = mul nuw nsw i64 %4, 10
%6 = lshr i64 %1, 20
%7 = and i64 %6, 15
%8 = add nuw nsw i64 %5, %7
%9 = mul nuw nsw i64 %8, 10
%10 = lshr i64 %1, 16
%11 = and i64 %10, 15
%12 = add nuw nsw i64 %9, %11
%13 = mul nuw nsw i64 %12, 10
%14 = lshr i64 %1, 12
%15 = and i64 %14, 15
%16 = add nuw nsw i64 %13, %15
%17 = mul nuw nsw i64 %16, 10
%18 = lshr i64 %1, 8
%19 = and i64 %18, 15
%20 = add nuw nsw i64 %17, %19
%21 = mul nuw nsw i64 %20, 10
%22 = lshr i64 %1, 4
%23 = and i64 %22, 15
%24 = add nuw nsw i64 %21, %23
%25 = mul nuw nsw i64 %24, 10
%26 = and i64 %1, 15
%27 = add nuw nsw i64 %25, %26
store i64 %27, i64* %0
ret i32 0
}