unsigned long lib$cvt_htb(int byte_count, const char *source_string,
                          long *result) {
  int Loop;
  long answer = 0;
  unsigned long status = 1;
  for (Loop = 0; Loop < byte_count; Loop++) {
    if (isxdigit(source_string[Loop])) {
      answer = answer * 10 + xtoi(source_string[Loop]);
    } else {
      status = 0;
    }
  }
  *result = answer;
  return status;
}


x86 assembly (clang, -O0):
<lib$cvt_htb>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movq   $0x0,-0x28(%rbp)
movq   $0x1,-0x30(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    11bc <lib$cvt_htb+0x9c>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1040 <isxdigit@plt>
cmp    $0x0,%eax
je     11a1 <lib$cvt_htb+0x81>
imul   $0xa,-0x28(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
mov    $0x0,%al
call   1030 <xtoi@plt>
mov    %eax,%ecx
mov    -0x38(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x28(%rbp)
jmp    11a9 <lib$cvt_htb+0x89>
movq   $0x0,-0x30(%rbp)
jmp    11ae <lib$cvt_htb+0x8e>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    114a <lib$cvt_htb+0x2a>
mov    -0x28(%rbp),%rcx
mov    -0x18(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x30(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<lib$cvt_htb>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rdx,(%rsp)
test   %edi,%edi
jle    1181 <lib$cvt_htb+0x61>
mov    %rsi,%r12
mov    %edi,%r13d
mov    $0x1,%r15d
xor    %ebx,%ebx
xor    %r14d,%r14d
jmp    116c <lib$cvt_htb+0x4c>
cs nopw 0x0(%rax,%rax,1)
lea    (%r14,%r14,4),%r14
mov    %ebp,%edi
xor    %eax,%eax
call   1030 <xtoi@plt>
cltq
lea    (%rax,%r14,2),%r14
add    $0x1,%rbx
cmp    %rbx,%r13
je     118a <lib$cvt_htb+0x6a>
movsbl (%r12,%rbx,1),%ebp
mov    %ebp,%edi
call   1040 <isxdigit@plt>
test   %eax,%eax
jne    1150 <lib$cvt_htb+0x30>
xor    %r15d,%r15d
jmp    1163 <lib$cvt_htb+0x43>
mov    $0x1,%r15d
xor    %r14d,%r14d
mov    (%rsp),%rax
mov    %r14,(%rax)
mov    %r15,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i64 @"lib$cvt_htb"(i32 %0, i8* %1, i64* %2) {
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i64*
%7 = alloca i32
%8 = alloca i64
%9 = alloca i64
store i32 %0, i32* %4
store i8* %1, i8** %5
store i64* %2, i64** %6
store i64 0, i64* %8
store i64 1, i64* %9
store i32 0, i32* %7
br label %10
10: ; preds = %37, %3
%11 = load i32, i32* %7
%12 = load i32, i32* %4
%13 = icmp slt i32 %11, %12
br i1 %13, label %14, label %40
14: ; preds = %10
%15 = load i8*, i8** %5
%16 = load i32, i32* %7
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds i8, i8* %15, i64 %17
%19 = load i8, i8* %18
%20 = sext i8 %19 to i32
%21 = call i32 @isxdigit(i32 %20)
%22 = icmp ne i32 %21, 0
br i1 %22, label %23, label %35
23: ; preds = %14
%24 = load i64, i64* %8
%25 = mul nsw i64 %24, 10
%26 = load i8*, i8** %5
%27 = load i32, i32* %7
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds i8, i8* %26, i64 %28
%30 = load i8, i8* %29
%31 = sext i8 %30 to i32
%32 = call i32 (i32, ...) bitcast (i32 (...)* @xtoi to i32 (i32, ...)*)(i32 %31)
%33 = sext i32 %32 to i64
%34 = add nsw i64 %25, %33
store i64 %34, i64* %8
br label %36
35: ; preds = %14
store i64 0, i64* %9
br label %36
36: ; preds = %35, %23
br label %37
37: ; preds = %36
%38 = load i32, i32* %7
%39 = add nsw i32 %38, 1
store i32 %39, i32* %7
br label %10
40: ; preds = %10
%41 = load i64, i64* %8
%42 = load i64*, i64** %6
store i64 %41, i64* %42
%43 = load i64, i64* %9
ret i64 %43
}

LLVM IR (-O2):
define i64 @"lib$cvt_htb"(i32 %0, i8* nocapture %1, i64* nocapture writeonly %2) {
%4 = icmp sgt i32 %0, 0
br i1 %4, label %5, label %26
5: ; preds = %3
%6 = zext i32 %0 to i64
br label %7
7: ; preds = %5, %21
%8 = phi i64 [ 0, %5 ], [ %24, %21 ]
%9 = phi i64 [ 1, %5 ], [ %23, %21 ]
%10 = phi i64 [ 0, %5 ], [ %22, %21 ]
%11 = getelementptr inbounds i8, i8* %1, i64 %8
%12 = load i8, i8* %11
%13 = sext i8 %12 to i32
%14 = tail call i32 @isxdigit(i32 %13)
%15 = icmp eq i32 %14, 0
br i1 %15, label %21, label %16
16: ; preds = %7
%17 = mul nsw i64 %10, 10
%18 = tail call i32 (i32, ...) bitcast (i32 (...)* @xtoi to i32 (i32, ...)*)(i32 %13)
%19 = sext i32 %18 to i64
%20 = add nsw i64 %17, %19
br label %21
21: ; preds = %7, %16
%22 = phi i64 [ %20, %16 ], [ %10, %7 ]
%23 = phi i64 [ %9, %16 ], [ 0, %7 ]
%24 = add nuw nsw i64 %8, 1
%25 = icmp eq i64 %24, %6
br i1 %25, label %26, label %7
26: ; preds = %21, %3
%27 = phi i64 [ 0, %3 ], [ %22, %21 ]
%28 = phi i64 [ 1, %3 ], [ %23, %21 ]
store i64 %27, i64* %2
ret i64 %28
}