unsigned long GCGchecksum(const char *seq, const long seqlen,
                          unsigned long *checktotal) {
  register long i, check = 0, count = 0;
  for (i = 0; i < seqlen; i++) {
    count++;
    check +=
        count * ((char)(('a' <= (seq[i]) && (seq[i]) <= 'z') ? (seq[i]) - ' '
                                                             : (seq[i])));
    if (count == 57)
      count = 0;
  }
  check %= 10000;
  *checktotal += check;
  *checktotal %= 10000;
  return check;
}


x86 assembly (clang, -O0):
<GCGchecksum>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movq   $0x0,-0x28(%rbp)
movq   $0x0,-0x30(%rbp)
movq   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    11de <GCGchecksum+0xde>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%ecx
mov    $0x61,%eax
cmp    %ecx,%eax
jg     118f <GCGchecksum+0x8f>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x7a,%eax
jg     118f <GCGchecksum+0x8f>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
sub    $0x20,%eax
mov    %eax,-0x3c(%rbp)
jmp    119e <GCGchecksum+0x9e>
mov    -0x8(%rbp),%rax
mov    -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x38(%rbp),%rax
mov    -0x3c(%rbp),%ecx
movsbq %cl,%rcx
imul   %rcx,%rax
add    -0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
cmpq   $0x39,-0x30(%rbp)
jne    11c8 <GCGchecksum+0xc8>
movq   $0x0,-0x30(%rbp)
jmp    11cd <GCGchecksum+0xcd>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1128 <GCGchecksum+0x28>
mov    -0x28(%rbp),%rax
mov    $0x2710,%ecx
cqto
idiv   %rcx
mov    %rdx,-0x28(%rbp)
mov    -0x28(%rbp),%rcx
mov    -0x18(%rbp),%rax
add    (%rax),%rcx
mov    %rcx,(%rax)
mov    -0x18(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    (%rax),%rax
mov    $0x2710,%ecx
xor    %edx,%edx
div    %rcx
mov    -0x48(%rbp),%rax
mov    %rdx,(%rax)
mov    -0x28(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<GCGchecksum>:
push   %rbp
push   %r14
push   %rbx
mov    %rdx,%r8
movabs $0x346dc5d63886594b,%r9
c5 6d 34
test   %rsi,%rsi
jle    1134 <GCGchecksum+0x34>
cmp    $0x1,%rsi
jne    113b <GCGchecksum+0x3b>
mov    $0x1,%eax
xor    %ecx,%ecx
xor    %edx,%edx
test   $0x1,%sil
jne    11c5 <GCGchecksum+0xc5>
jmp    11e5 <GCGchecksum+0xe5>
xor    %ecx,%ecx
jmp    1203 <GCGchecksum+0x103>
mov    %rsi,%r10
and    $0xfffffffffffffffe,%r10
xor    %eax,%eax
mov    $0x1,%r11d
xor    %ecx,%ecx
xor    %edx,%edx
xchg   %ax,%ax
movzbl (%rdi,%rdx,1),%ebx
lea    -0x61(%rbx),%r14d
lea    -0x20(%rbx),%ebp
cmp    $0x1a,%r14b
movzbl %bpl,%ebp
cmovae %ebx,%ebp
lea    0x1(%rax),%rbx
movsbq %bpl,%rbp
imul   %rbx,%rbp
add    %rcx,%rbp
add    $0x2,%rax
cmp    $0x39,%rbx
mov    %rax,%rbx
cmove  %r11,%rbx
movzbl 0x1(%rdi,%rdx,1),%eax
lea    -0x61(%rax),%r14d
lea    -0x20(%rax),%ecx
cmp    $0x1a,%r14b
movzbl %cl,%ecx
cmovae %eax,%ecx
movsbq %cl,%rcx
imul   %rbx,%rcx
add    %rbp,%rcx
cmp    $0x39,%rbx
mov    $0x0,%eax
cmovne %rbx,%rax
add    $0x2,%rdx
cmp    %rdx,%r10
jne    1150 <GCGchecksum+0x50>
add    $0x1,%rax
test   $0x1,%sil
je     11e5 <GCGchecksum+0xe5>
movzbl (%rdi,%rdx,1),%edx
lea    -0x61(%rdx),%esi
lea    -0x20(%rdx),%edi
cmp    $0x1a,%sil
movzbl %dil,%esi
cmovae %edx,%esi
movsbq %sil,%rdx
imul   %rdx,%rax
add    %rax,%rcx
mov    %rcx,%rax
imul   %r9
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0xb,%rdx
add    %rax,%rdx
imul   $0x2710,%rdx,%rax
sub    %rax,%rcx
mov    (%r8),%rsi
add    %rcx,%rsi
mov    %rsi,%rax
mul    %r9
shr    $0xb,%rdx
imul   $0x2710,%rdx,%rax
sub    %rax,%rsi
mov    %rsi,(%r8)
mov    %rcx,%rax
pop    %rbx
pop    %r14
pop    %rbp
ret

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

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