unsigned long lib$cvt_otb(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 (isdigit(source_string[Loop])) {
      if ((source_string[Loop] == '8') || (source_string[Loop] == '9')) {
        status = 0;
      }
      answer = answer * 8 + source_string[Loop] - '0';
    } else {
      status = 0;
    }
  }
  *result = answer;
  return status;
}


x86 assembly (clang, -O0):
<lib$cvt_otb>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%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    11d2 <lib$cvt_otb+0xc2>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     11b7 <lib$cvt_otb+0xa7>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x38,%eax
je     118a <lib$cvt_otb+0x7a>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jne    1192 <lib$cvt_otb+0x82>
movq   $0x0,-0x30(%rbp)
mov    -0x28(%rbp),%rax
shl    $0x3,%rax
mov    -0x10(%rbp),%rcx
movslq -0x1c(%rbp),%rdx
movsbq (%rcx,%rdx,1),%rcx
add    %rcx,%rax
sub    $0x30,%rax
mov    %rax,-0x28(%rbp)
jmp    11bf <lib$cvt_otb+0xaf>
movq   $0x0,-0x30(%rbp)
jmp    11c4 <lib$cvt_otb+0xb4>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    113a <lib$cvt_otb+0x2a>
mov    -0x28(%rbp),%rcx
mov    -0x18(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x30(%rbp),%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<lib$cvt_otb>:
push   %rbx
test   %edi,%edi
jle    114d <lib$cvt_otb+0x4d>
mov    %edi,%r8d
cmp    $0x1,%edi
jne    115a <lib$cvt_otb+0x5a>
mov    $0x1,%eax
xor    %edi,%edi
xor    %r11d,%r11d
test   $0x1,%r8b
je     11d5 <lib$cvt_otb+0xd5>
movsbl (%rsi,%rdi,1),%ecx
lea    -0x30(%rcx),%esi
cmp    $0x9,%esi
ja     11d3 <lib$cvt_otb+0xd3>
movslq %ecx,%rcx
lea    (%rcx,%r11,8),%r11
add    $0xffffffffffffffd0,%r11
and    $0xfe,%cl
xor    %esi,%esi
cmp    $0x38,%cl
cmove  %rsi,%rax
jmp    11d5 <lib$cvt_otb+0xd5>
mov    $0x1,%eax
xor    %r11d,%r11d
jmp    11d5 <lib$cvt_otb+0xd5>
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
mov    $0x1,%eax
xor    %r10d,%r10d
xor    %edi,%edi
xor    %r11d,%r11d
jmp    118e <lib$cvt_otb+0x8e>
movslq %ecx,%rcx
lea    (%rcx,%r11,8),%r11
add    $0xffffffffffffffd0,%r11
and    $0xfe,%cl
cmp    $0x38,%cl
cmove  %r10,%rax
add    $0x2,%rdi
cmp    %rdi,%r9
je     1117 <lib$cvt_otb+0x17>
movsbl (%rsi,%rdi,1),%ecx
lea    -0x30(%rcx),%ebx
cmp    $0x9,%ebx
ja     11c0 <lib$cvt_otb+0xc0>
movslq %ecx,%rcx
lea    (%rcx,%r11,8),%r11
add    $0xffffffffffffffd0,%r11
and    $0xfe,%cl
cmp    $0x38,%cl
cmove  %r10,%rax
jmp    11c2 <lib$cvt_otb+0xc2>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
xor    %eax,%eax
movsbl 0x1(%rsi,%rdi,1),%ecx
lea    -0x30(%rcx),%ebx
cmp    $0x9,%ebx
jbe    1170 <lib$cvt_otb+0x70>
xor    %eax,%eax
jmp    1185 <lib$cvt_otb+0x85>
xor    %eax,%eax
mov    %r11,(%rdx)
pop    %rbx
ret

LLVM IR (-O0):
define i64 @"lib$cvt_otb"(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 = %53, %3
%11 = load i32, i32* %7
%12 = load i32, i32* %4
%13 = icmp slt i32 %11, %12
br i1 %13, label %14, label %56
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 @isdigit(i32 %20)
%22 = icmp ne i32 %21, 0
br i1 %22, label %23, label %51
23: ; preds = %14
%24 = load i8*, i8** %5
%25 = load i32, i32* %7
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds i8, i8* %24, i64 %26
%28 = load i8, i8* %27
%29 = sext i8 %28 to i32
%30 = icmp eq i32 %29, 56
br i1 %30, label %39, label %31
31: ; preds = %23
%32 = load i8*, i8** %5
%33 = load i32, i32* %7
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i8, i8* %32, i64 %34
%36 = load i8, i8* %35
%37 = sext i8 %36 to i32
%38 = icmp eq i32 %37, 57
br i1 %38, label %39, label %40
39: ; preds = %31, %23
store i64 0, i64* %9
br label %40
40: ; preds = %39, %31
%41 = load i64, i64* %8
%42 = mul nsw i64 %41, 8
%43 = load i8*, i8** %5
%44 = load i32, i32* %7
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds i8, i8* %43, i64 %45
%47 = load i8, i8* %46
%48 = sext i8 %47 to i64
%49 = add nsw i64 %42, %48
%50 = sub nsw i64 %49, 48
store i64 %50, i64* %8
br label %52
51: ; preds = %14
store i64 0, i64* %9
br label %52
52: ; preds = %51, %40
br label %53
53: ; preds = %52
%54 = load i32, i32* %7
%55 = add nsw i32 %54, 1
store i32 %55, i32* %7
br label %10
56: ; preds = %10
%57 = load i64, i64* %8
%58 = load i64*, i64** %6
store i64 %57, i64* %58
%59 = load i64, i64* %9
ret i64 %59
}

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