int datum_c(const unsigned char source[], int position, int length) {
  int retval = 0;
  if (position <= length - 2) {
    if (((source[position] >= '0') && (source[position] <= '9')) &&
        ((source[position + 1] >= '0') && (source[position + 1] <= '9')))
      retval = 1;
  }
  return retval;
}


x86 assembly (clang, -O0):
<datum_c>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0xc(%rbp),%eax
mov    -0x10(%rbp),%ecx
sub    $0x2,%ecx
cmp    %ecx,%eax
jg     1190 <datum_c+0x90>
mov    -0x8(%rbp),%rax
movslq -0xc(%rbp),%rcx
movzbl (%rax,%rcx,1),%eax
cmp    $0x30,%eax
jl     118b <datum_c+0x8b>
mov    -0x8(%rbp),%rax
movslq -0xc(%rbp),%rcx
movzbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jg     118b <datum_c+0x8b>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%eax
cmp    $0x30,%eax
jl     118b <datum_c+0x8b>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jg     118b <datum_c+0x8b>
movl   $0x1,-0x14(%rbp)
jmp    1190 <datum_c+0x90>
mov    -0x14(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<datum_c>:
add    $0xfffffffe,%edx
xor    %eax,%eax
cmp    %esi,%edx
jl     1126 <datum_c+0x26>
movslq %esi,%rcx
mov    (%rdi,%rcx,1),%dl
add    $0xd0,%dl
cmp    $0x9,%dl
ja     1126 <datum_c+0x26>
mov    0x1(%rcx,%rdi,1),%cl
add    $0xd0,%cl
xor    %eax,%eax
cmp    $0xa,%cl
setb   %al
ret

LLVM IR (-O0):
define i32 @datum_c(i8* %0, i32 %1, i32 %2) {
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
store i8* %0, i8** %4
store i32 %1, i32* %5
store i32 %2, i32* %6
store i32 0, i32* %7
%8 = load i32, i32* %5
%9 = load i32, i32* %6
%10 = sub nsw i32 %9, 2
%11 = icmp sle i32 %8, %10
br i1 %11, label %12, label %48
12: ; preds = %3
%13 = load i8*, i8** %4
%14 = load i32, i32* %5
%15 = sext i32 %14 to i64
%16 = getelementptr inbounds i8, i8* %13, i64 %15
%17 = load i8, i8* %16
%18 = zext i8 %17 to i32
%19 = icmp sge i32 %18, 48
br i1 %19, label %20, label %47
20: ; preds = %12
%21 = load i8*, i8** %4
%22 = load i32, i32* %5
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds i8, i8* %21, i64 %23
%25 = load i8, i8* %24
%26 = zext i8 %25 to i32
%27 = icmp sle i32 %26, 57
br i1 %27, label %28, label %47
28: ; preds = %20
%29 = load i8*, i8** %4
%30 = load i32, i32* %5
%31 = add nsw i32 %30, 1
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %29, i64 %32
%34 = load i8, i8* %33
%35 = zext i8 %34 to i32
%36 = icmp sge i32 %35, 48
br i1 %36, label %37, label %47
37: ; preds = %28
%38 = load i8*, i8** %4
%39 = load i32, i32* %5
%40 = add nsw i32 %39, 1
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds i8, i8* %38, i64 %41
%43 = load i8, i8* %42
%44 = zext i8 %43 to i32
%45 = icmp sle i32 %44, 57
br i1 %45, label %46, label %47
46: ; preds = %37
store i32 1, i32* %7
br label %47
47: ; preds = %46, %37, %28, %20, %12
br label %48
48: ; preds = %47, %3
%49 = load i32, i32* %7
ret i32 %49
}

LLVM IR (-O2):
define i32 @datum_c(i8* nocapture %0, i32 %1, i32 %2) {
%4 = add nsw i32 %2, -2
%5 = icmp slt i32 %4, %1
br i1 %5, label %20, label %6
6: ; preds = %3
%7 = sext i32 %1 to i64
%8 = getelementptr inbounds i8, i8* %0, i64 %7
%9 = load i8, i8* %8
%10 = add i8 %9, -48
%11 = icmp ult i8 %10, 10
br i1 %11, label %12, label %20
12: ; preds = %6
%13 = add nsw i32 %1, 1
%14 = sext i32 %13 to i64
%15 = getelementptr inbounds i8, i8* %0, i64 %14
%16 = load i8, i8* %15
%17 = add i8 %16, -48
%18 = icmp ult i8 %17, 10
%19 = zext i1 %18 to i32
br label %20
20: ; preds = %12, %6, %3
%21 = phi i32 [ 0, %6 ], [ 0, %3 ], [ %19, %12 ]
ret i32 %21
}