unsigned long unpackBCDcode(char *p, int bytes) {
  int i;
  unsigned long val = 0;
  for (i = 0; i < bytes; i++, p++) {
    val *= 10;
    val += (*p >> 4) & 0x0f;
    val *= 10;
    val += (*p) & 0x0f;
  }
  return val;
}


x86 assembly (clang, -O0):
<unpackBCDcode>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movq   $0x0,-0x18(%rbp)
movl   $0x0,-0x10(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    117d <unpackBCDcode+0x7d>
imul   $0xa,-0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
sar    $0x4,%eax
and    $0xf,%eax
cltq
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
imul   $0xa,-0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
and    $0xf,%eax
cltq
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
jmp    111a <unpackBCDcode+0x1a>
mov    -0x18(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<unpackBCDcode>:
test   %esi,%esi
jle    1113 <unpackBCDcode+0x13>
cmp    $0x1,%esi
jne    1116 <unpackBCDcode+0x16>
xor    %ecx,%ecx
test   $0x1,%sil
jne    1172 <unpackBCDcode+0x72>
jmp    118a <unpackBCDcode+0x8a>
xor    %eax,%eax
ret
mov    %esi,%ecx
and    $0xfffffffe,%ecx
xor    %eax,%eax
nopl   (%rax)
lea    (%rax,%rax,4),%r8
movzbl (%rdi),%eax
mov    %rax,%rdx
shr    $0x4,%rdx
lea    (%rdx,%r8,2),%rdx
lea    (%rdx,%rdx,4),%rdx
and    $0xf,%eax
lea    (%rax,%rdx,2),%rax
lea    (%rax,%rax,4),%r8
movzbl 0x1(%rdi),%eax
mov    %rax,%rdx
shr    $0x4,%rdx
lea    (%rdx,%r8,2),%rdx
lea    (%rdx,%rdx,4),%rdx
and    $0xf,%eax
lea    (%rax,%rdx,2),%rax
add    $0x2,%rdi
add    $0xfffffffe,%ecx
jne    1120 <unpackBCDcode+0x20>
lea    (%rax,%rax,1),%rcx
lea    (%rcx,%rcx,4),%rcx
test   $0x1,%sil
je     118a <unpackBCDcode+0x8a>
movzbl (%rdi),%eax
mov    %rax,%rdx
shr    $0x4,%rdx
add    %rdx,%rcx
lea    (%rcx,%rcx,4),%rcx
and    $0xf,%eax
lea    (%rax,%rcx,2),%rax
ret

LLVM IR (-O0):
define i64 @unpackBCDcode(i8* %0, i32 %1) {
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i32
%6 = alloca i64
store i8* %0, i8** %3
store i32 %1, i32* %4
store i64 0, i64* %6
store i32 0, i32* %5
br label %7
7: ; preds = %31, %2
%8 = load i32, i32* %5
%9 = load i32, i32* %4
%10 = icmp slt i32 %8, %9
br i1 %10, label %11, label %36
11: ; preds = %7
%12 = load i64, i64* %6
%13 = mul i64 %12, 10
store i64 %13, i64* %6
%14 = load i8*, i8** %3
%15 = load i8, i8* %14
%16 = sext i8 %15 to i32
%17 = ashr i32 %16, 4
%18 = and i32 %17, 15
%19 = sext i32 %18 to i64
%20 = load i64, i64* %6
%21 = add i64 %20, %19
store i64 %21, i64* %6
%22 = load i64, i64* %6
%23 = mul i64 %22, 10
store i64 %23, i64* %6
%24 = load i8*, i8** %3
%25 = load i8, i8* %24
%26 = sext i8 %25 to i32
%27 = and i32 %26, 15
%28 = sext i32 %27 to i64
%29 = load i64, i64* %6
%30 = add i64 %29, %28
store i64 %30, i64* %6
br label %31
31: ; preds = %11
%32 = load i32, i32* %5
%33 = add nsw i32 %32, 1
store i32 %33, i32* %5
%34 = load i8*, i8** %3
%35 = getelementptr inbounds i8, i8* %34, i32 1
store i8* %35, i8** %3
br label %7
36: ; preds = %7
%37 = load i64, i64* %6
ret i64 %37
}

LLVM IR (-O2):
define i64 @unpackBCDcode(i8* nocapture %0, i32 %1) {
%3 = icmp sgt i32 %1, 0
br i1 %3, label %4, label %54
4: ; preds = %2
%5 = and i32 %1, 1
%6 = icmp eq i32 %1, 1
br i1 %6, label %39, label %7
7: ; preds = %4
%8 = and i32 %1, -2
br label %9
9: ; preds = %9, %7
%10 = phi i64 [ 0, %7 ], [ %33, %9 ]
%11 = phi i8* [ %0, %7 ], [ %34, %9 ]
%12 = phi i32 [ 0, %7 ], [ %35, %9 ]
%13 = mul i64 %10, 10
%14 = load i8, i8* %11
%15 = zext i8 %14 to i32
%16 = lshr i32 %15, 4
%17 = zext i32 %16 to i64
%18 = add i64 %13, %17
%19 = mul i64 %18, 10
%20 = and i32 %15, 15
%21 = zext i32 %20 to i64
%22 = add i64 %19, %21
%23 = getelementptr inbounds i8, i8* %11, i64 1
%24 = mul i64 %22, 10
%25 = load i8, i8* %23
%26 = zext i8 %25 to i32
%27 = lshr i32 %26, 4
%28 = zext i32 %27 to i64
%29 = add i64 %24, %28
%30 = mul i64 %29, 10
%31 = and i32 %26, 15
%32 = zext i32 %31 to i64
%33 = add i64 %30, %32
%34 = getelementptr inbounds i8, i8* %11, i64 2
%35 = add i32 %12, 2
%36 = icmp eq i32 %35, %8
br i1 %36, label %37, label %9
37: ; preds = %9
%38 = mul i64 %33, 10
br label %39
39: ; preds = %37, %4
%40 = phi i64 [ undef, %4 ], [ %33, %37 ]
%41 = phi i64 [ 0, %4 ], [ %38, %37 ]
%42 = phi i8* [ %0, %4 ], [ %34, %37 ]
%43 = icmp eq i32 %5, 0
br i1 %43, label %54, label %44
44: ; preds = %39
%45 = load i8, i8* %42
%46 = zext i8 %45 to i32
%47 = lshr i32 %46, 4
%48 = zext i32 %47 to i64
%49 = add i64 %41, %48
%50 = mul i64 %49, 10
%51 = and i32 %46, 15
%52 = zext i32 %51 to i64
%53 = add i64 %50, %52
br label %54
54: ; preds = %44, %39, %2
%55 = phi i64 [ 0, %2 ], [ %40, %39 ], [ %53, %44 ]
ret i64 %55
}