int BCD2ASCII(const unsigned char *bcd, int bcdLen, unsigned char *ascii) {
  const unsigned char *pbcd;
  unsigned char *pascii;
  int i;
  unsigned char c;
  pbcd = bcd;
  pascii = ascii;
  for (i = 0; i < bcdLen; i++) {
    c = ((*pbcd) & 0xF0) >> 4;
    if (c <= 0x09) {
      *pascii++ = c + '0';
    } else {
      *pascii++ = c - 0x0a + 'A';
    }
    c = (*pbcd) & 0x0F;
    if (c <= 0x09) {
      *pascii++ = c + '0';
    } else {
      *pascii++ = c - 0x0a + 'A';
    }
    pbcd++;
  }
  *pascii = '\0';
  return 0;
}


x86 assembly (clang, -O0):
<BCD2ASCII>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11fd <BCD2ASCII+0xfd>
mov    -0x20(%rbp),%rax
movzbl (%rax),%eax
and    $0xf0,%eax
sar    $0x4,%eax
mov    %al,-0x2d(%rbp)
movzbl -0x2d(%rbp),%eax
cmp    $0x9,%eax
jg     1170 <BCD2ASCII+0x70>
movzbl -0x2d(%rbp),%eax
add    $0x30,%eax
mov    %al,%cl
mov    -0x28(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x28(%rbp)
mov    %cl,(%rax)
jmp    118d <BCD2ASCII+0x8d>
movzbl -0x2d(%rbp),%eax
sub    $0xa,%eax
add    $0x41,%eax
mov    %al,%cl
mov    -0x28(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x28(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
movzbl (%rax),%eax
and    $0xf,%eax
mov    %al,-0x2d(%rbp)
movzbl -0x2d(%rbp),%eax
cmp    $0x9,%eax
jg     11c6 <BCD2ASCII+0xc6>
movzbl -0x2d(%rbp),%eax
add    $0x30,%eax
mov    %al,%cl
mov    -0x28(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x28(%rbp)
mov    %cl,(%rax)
jmp    11e3 <BCD2ASCII+0xe3>
movzbl -0x2d(%rbp),%eax
sub    $0xa,%eax
add    $0x41,%eax
mov    %al,%cl
mov    -0x28(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x28(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1126 <BCD2ASCII+0x26>
mov    -0x28(%rbp),%rax
movb   $0x0,(%rax)
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<BCD2ASCII>:
test   %esi,%esi
jle    119b <BCD2ASCII+0x9b>
lea    -0x1(%rsi),%r9d
xor    %r8d,%r8d
cmp    $0x7,%r9d
jb     1133 <BCD2ASCII+0x33>
lea    (%r9,%rdi,1),%rax
add    $0x1,%rax
cmp    %rdx,%rax
jbe    11a3 <BCD2ASCII+0xa3>
lea    (%rdx,%r9,2),%rax
add    $0x2,%rax
cmp    %rdi,%rax
jbe    11a3 <BCD2ASCII+0xa3>
mov    %rdx,%r10
mov    %rdi,%r11
sub    %r8d,%esi
xor    %eax,%eax
xor    %edx,%edx
movzbl (%r11,%rdx,1),%ecx
mov    %ecx,%edi
shr    $0x4,%dil
lea    0x37(%rdi),%r8d
or     $0x30,%dil
cmp    $0xa0,%cl
movzbl %dil,%ecx
movzbl %r8b,%edi
cmovb  %ecx,%edi
mov    %dil,(%r10,%rdx,2)
movzbl (%r11,%rdx,1),%ecx
and    $0xf,%cl
lea    0x37(%rcx),%r8d
lea    0x30(%rcx),%edi
cmp    $0xa,%cl
movzbl %dil,%ecx
movzbl %r8b,%edi
cmovb  %ecx,%edi
mov    %dil,0x1(%r10,%rdx,2)
add    $0x1,%rdx
add    $0xfffffffffffffffe,%rax
cmp    %edx,%esi
jne    1140 <BCD2ASCII+0x40>
sub    %rax,%r10
jmp    126b <BCD2ASCII+0x16b>
mov    %rdx,%r10
jmp    126b <BCD2ASCII+0x16b>
add    $0x1,%r9
mov    %r9,%r8
and    $0xfffffffffffffff8,%r8
lea    (%rdx,%r8,2),%r10
lea    (%rdi,%r8,1),%r11
xor    %eax,%eax
movdqa 0xe3f(%rip),%xmm8
movdqa 0xe46(%rip),%xmm9
movdqa 0xe4e(%rip),%xmm2
movdqa 0xe56(%rip),%xmm3
movdqa 0xe5e(%rip),%xmm4
movdqa 0xe66(%rip),%xmm5
nopw   0x0(%rax,%rax,1)
movq   (%rdi,%rax,1),%xmm0
movdqa %xmm0,%xmm7
psrlw  $0x4,%xmm7
pand   %xmm8,%xmm7
movdqa %xmm0,%xmm6
pmaxub %xmm9,%xmm6
pcmpeqb %xmm0,%xmm6
movdqa %xmm7,%xmm1
paddb  %xmm2,%xmm1
por    %xmm3,%xmm7
pand   %xmm6,%xmm1
pandn  %xmm7,%xmm6
por    %xmm1,%xmm6
pand   %xmm4,%xmm0
movdqa %xmm0,%xmm1
pmaxub %xmm5,%xmm1
pcmpeqb %xmm0,%xmm1
movdqa %xmm0,%xmm7
paddb  %xmm2,%xmm7
por    %xmm3,%xmm0
pand   %xmm1,%xmm7
pandn  %xmm0,%xmm1
por    %xmm7,%xmm1
punpcklbw %xmm1,%xmm6
movdqu %xmm6,(%rdx,%rax,2)
add    $0x8,%rax
cmp    %rax,%r8
jne    11f0 <BCD2ASCII+0xf0>
cmp    %r8,%r9
jne    1139 <BCD2ASCII+0x39>
movb   $0x0,(%r10)
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @BCD2ASCII(i8* %0, i32 %1, i8* %2) {
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i8*
%7 = alloca i8*
%8 = alloca i8*
%9 = alloca i32
%10 = alloca i8
store i8* %0, i8** %4
store i32 %1, i32* %5
store i8* %2, i8** %6
%11 = load i8*, i8** %4
store i8* %11, i8** %7
%12 = load i8*, i8** %6
store i8* %12, i8** %8
store i32 0, i32* %9
br label %13
13: ; preds = %69, %3
%14 = load i32, i32* %9
%15 = load i32, i32* %5
%16 = icmp slt i32 %14, %15
br i1 %16, label %17, label %72
17: ; preds = %13
%18 = load i8*, i8** %7
%19 = load i8, i8* %18
%20 = zext i8 %19 to i32
%21 = and i32 %20, 240
%22 = ashr i32 %21, 4
%23 = trunc i32 %22 to i8
store i8 %23, i8* %10
%24 = load i8, i8* %10
%25 = zext i8 %24 to i32
%26 = icmp sle i32 %25, 9
br i1 %26, label %27, label %34
27: ; preds = %17
%28 = load i8, i8* %10
%29 = zext i8 %28 to i32
%30 = add nsw i32 %29, 48
%31 = trunc i32 %30 to i8
%32 = load i8*, i8** %8
%33 = getelementptr inbounds i8, i8* %32, i32 1
store i8* %33, i8** %8
store i8 %31, i8* %32
br label %42
34: ; preds = %17
%35 = load i8, i8* %10
%36 = zext i8 %35 to i32
%37 = sub nsw i32 %36, 10
%38 = add nsw i32 %37, 65
%39 = trunc i32 %38 to i8
%40 = load i8*, i8** %8
%41 = getelementptr inbounds i8, i8* %40, i32 1
store i8* %41, i8** %8
store i8 %39, i8* %40
br label %42
42: ; preds = %34, %27
%43 = load i8*, i8** %7
%44 = load i8, i8* %43
%45 = zext i8 %44 to i32
%46 = and i32 %45, 15
%47 = trunc i32 %46 to i8
store i8 %47, i8* %10
%48 = load i8, i8* %10
%49 = zext i8 %48 to i32
%50 = icmp sle i32 %49, 9
br i1 %50, label %51, label %58
51: ; preds = %42
%52 = load i8, i8* %10
%53 = zext i8 %52 to i32
%54 = add nsw i32 %53, 48
%55 = trunc i32 %54 to i8
%56 = load i8*, i8** %8
%57 = getelementptr inbounds i8, i8* %56, i32 1
store i8* %57, i8** %8
store i8 %55, i8* %56
br label %66
58: ; preds = %42
%59 = load i8, i8* %10
%60 = zext i8 %59 to i32
%61 = sub nsw i32 %60, 10
%62 = add nsw i32 %61, 65
%63 = trunc i32 %62 to i8
%64 = load i8*, i8** %8
%65 = getelementptr inbounds i8, i8* %64, i32 1
store i8* %65, i8** %8
store i8 %63, i8* %64
br label %66
66: ; preds = %58, %51
%67 = load i8*, i8** %7
%68 = getelementptr inbounds i8, i8* %67, i32 1
store i8* %68, i8** %7
br label %69
69: ; preds = %66
%70 = load i32, i32* %9
%71 = add nsw i32 %70, 1
store i32 %71, i32* %9
br label %13
72: ; preds = %13
%73 = load i8*, i8** %8
store i8 0, i8* %73
ret i32 0
}

LLVM IR (-O2):
define i32 @BCD2ASCII(i8* nocapture %0, i32 %1, i8* nocapture writeonly %2) {
%4 = icmp sgt i32 %1, 0
br i1 %4, label %5, label %77
5: ; preds = %3
%6 = add i32 %1, -1
%7 = zext i32 %6 to i64
%8 = add nuw nsw i64 %7, 1
%9 = icmp ult i32 %6, 7
br i1 %9, label %52, label %10
10: ; preds = %5
%11 = add i32 %1, -1
%12 = zext i32 %11 to i64
%13 = shl nuw nsw i64 %12, 1
%14 = add nuw nsw i64 %13, 2
%15 = getelementptr i8, i8* %2, i64 %14
%16 = add nuw nsw i64 %12, 1
%17 = getelementptr i8, i8* %0, i64 %16
%18 = icmp ugt i8* %17, %2
%19 = icmp ugt i8* %15, %0
%20 = and i1 %18, %19
br i1 %20, label %52, label %21
21: ; preds = %10
%22 = and i64 %8, 8589934584
%23 = trunc i64 %22 to i32
%24 = shl nuw nsw i64 %22, 1
%25 = getelementptr i8, i8* %2, i64 %24
%26 = getelementptr i8, i8* %0, i64 %22
br label %27
27: ; preds = %27, %21
%28 = phi i64 [ 0, %21 ], [ %48, %27 ]
%29 = shl i64 %28, 1
%30 = getelementptr i8, i8* %0, i64 %28
%31 = bitcast i8* %30 to <8 x i8>*
%32 = load <8 x i8>, <8 x i8>* %31
%33 = lshr <8 x i8> %32, <i8 4, i8 4, i8 4, i8 4, i8 4, i8 4, i8 4, i8 4>
%34 = icmp ult <8 x i8> %32, <i8 -96, i8 -96, i8 -96, i8 -96, i8 -96, i8 -96, i8 -96, i8 -96>
%35 = add nuw nsw <8 x i8> %33, <i8 55, i8 55, i8 55, i8 55, i8 55, i8 55, i8 55, i8 55>
%36 = or <8 x i8> %33, <i8 48, i8 48, i8 48, i8 48, i8 48, i8 48, i8 48, i8 48>
%37 = select <8 x i1> %34, <8 x i8> %36, <8 x i8> %35
%38 = bitcast i8* %30 to <8 x i8>*
%39 = load <8 x i8>, <8 x i8>* %38
%40 = and <8 x i8> %39, <i8 15, i8 15, i8 15, i8 15, i8 15, i8 15, i8 15, i8 15>
%41 = icmp ult <8 x i8> %40, <i8 10, i8 10, i8 10, i8 10, i8 10, i8 10, i8 10, i8 10>
%42 = add nuw nsw <8 x i8> %40, <i8 55, i8 55, i8 55, i8 55, i8 55, i8 55, i8 55, i8 55>
%43 = or <8 x i8> %40, <i8 48, i8 48, i8 48, i8 48, i8 48, i8 48, i8 48, i8 48>
%44 = select <8 x i1> %41, <8 x i8> %43, <8 x i8> %42
%45 = getelementptr inbounds i8, i8* %2, i64 %29
%46 = bitcast i8* %45 to <16 x i8>*
%47 = shufflevector <8 x i8> %37, <8 x i8> %44, <16 x i32> <i32 0, i32 8, i32 1, i32 9, i32 2, i32 10, i32 3, i32 11, i32 4, i32 12, i32 5, i32 13, i32 6, i32 14, i32 7, i32 15>
store <16 x i8> %47, <16 x i8>* %46
%48 = add nuw i64 %28, 8
%49 = icmp eq i64 %48, %22
br i1 %49, label %50, label %27
50: ; preds = %27
%51 = icmp eq i64 %8, %22
br i1 %51, label %77, label %52
52: ; preds = %10, %5, %50
%53 = phi i32 [ 0, %10 ], [ 0, %5 ], [ %23, %50 ]
%54 = phi i8* [ %2, %10 ], [ %2, %5 ], [ %25, %50 ]
%55 = phi i8* [ %0, %10 ], [ %0, %5 ], [ %26, %50 ]
br label %56
56: ; preds = %52, %56
%57 = phi i32 [ %75, %56 ], [ %53, %52 ]
%58 = phi i8* [ %73, %56 ], [ %54, %52 ]
%59 = phi i8* [ %74, %56 ], [ %55, %52 ]
%60 = load i8, i8* %59
%61 = lshr i8 %60, 4
%62 = icmp ult i8 %60, -96
%63 = add nuw nsw i8 %61, 55
%64 = or i8 %61, 48
%65 = select i1 %62, i8 %64, i8 %63
%66 = getelementptr inbounds i8, i8* %58, i64 1
store i8 %65, i8* %58
%67 = load i8, i8* %59
%68 = and i8 %67, 15
%69 = icmp ult i8 %68, 10
%70 = add nuw nsw i8 %68, 55
%71 = or i8 %68, 48
%72 = select i1 %69, i8 %71, i8 %70
%73 = getelementptr inbounds i8, i8* %58, i64 2
store i8 %72, i8* %66
%74 = getelementptr inbounds i8, i8* %59, i64 1
%75 = add nuw nsw i32 %57, 1
%76 = icmp eq i32 %75, %1
br i1 %76, label %77, label %56
77: ; preds = %56, %50, %3
%78 = phi i8* [ %2, %3 ], [ %25, %50 ], [ %73, %56 ]
store i8 0, i8* %78
ret i32 0
}