unsigned packrad50word(char *cp, int len) {
  unsigned long acc = 0;
  if (len >= 1) {
    acc += (cp[0] % 050) * 050 * 050;
  }
  if (len >= 2) {
    acc += (cp[1] % 050) * 050;
  }
  if (len >= 3) {
    acc += cp[2] % 050;
  }
  return acc;
}


x86 assembly (clang, -O0):
<packrad50word>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movq   $0x0,-0x18(%rbp)
cmpl   $0x1,-0xc(%rbp)
jl     113c <packrad50word+0x3c>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
mov    $0x28,%ecx
cltd
idiv   %ecx
imul   $0x28,%edx,%eax
imul   $0x28,%eax,%eax
cltq
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
cmpl   $0x2,-0xc(%rbp)
jl     1163 <packrad50word+0x63>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
mov    $0x28,%ecx
cltd
idiv   %ecx
imul   $0x28,%edx,%eax
cltq
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
cmpl   $0x3,-0xc(%rbp)
jl     1188 <packrad50word+0x88>
mov    -0x8(%rbp),%rax
movsbl 0x2(%rax),%eax
mov    $0x28,%ecx
cltd
idiv   %ecx
movslq %edx,%rax
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<packrad50word>:
test   %esi,%esi
jle    118d <packrad50word+0x8d>
movsbl (%rdi),%eax
imul   $0x67,%eax,%ecx
movzwl %cx,%edx
shr    $0xc,%ecx
shr    $0xf,%edx
add    %cl,%dl
movzbl %dl,%ecx
shl    $0x3,%ecx
lea    (%rcx,%rcx,4),%ecx
sub    %cl,%al
movsbq %al,%rax
imul   $0x640,%rax,%rax
cmp    $0x1,%esi
je     118c <packrad50word+0x8c>
movsbl 0x1(%rdi),%ecx
imul   $0x67,%ecx,%r8d
movzwl %r8w,%edx
shr    $0xc,%r8d
shr    $0xf,%edx
add    %r8b,%dl
movzbl %dl,%edx
shl    $0x3,%edx
lea    (%rdx,%rdx,4),%edx
sub    %dl,%cl
movsbq %cl,%rcx
lea    (%rcx,%rcx,4),%rcx
lea    (%rax,%rcx,8),%rax
cmp    $0x3,%esi
jb     118c <packrad50word+0x8c>
movsbl 0x2(%rdi),%ecx
imul   $0x67,%ecx,%edx
movzwl %dx,%esi
shr    $0xc,%edx
shr    $0xf,%esi
add    %dl,%sil
movzbl %sil,%edx
shl    $0x3,%edx
lea    (%rdx,%rdx,4),%edx
sub    %dl,%cl
movsbq %cl,%rcx
add    %rcx,%rax
ret
xor    %eax,%eax
ret

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

LLVM IR (-O2):
define i32 @packrad50word(i8* nocapture %0, i32 %1) {
%3 = icmp sgt i32 %1, 0
br i1 %3, label %4, label %24
4: ; preds = %2
%5 = load i8, i8* %0
%6 = srem i8 %5, 40
%7 = sext i8 %6 to i64
%8 = mul nsw i64 %7, 1600
%9 = icmp eq i32 %1, 1
br i1 %9, label %24, label %10
10: ; preds = %4
%11 = getelementptr inbounds i8, i8* %0, i64 1
%12 = load i8, i8* %11
%13 = srem i8 %12, 40
%14 = sext i8 %13 to i64
%15 = mul nsw i64 %14, 40
%16 = add nsw i64 %15, %8
%17 = icmp ugt i32 %1, 2
br i1 %17, label %18, label %24
18: ; preds = %10
%19 = getelementptr inbounds i8, i8* %0, i64 2
%20 = load i8, i8* %19
%21 = srem i8 %20, 40
%22 = sext i8 %21 to i64
%23 = add nsw i64 %16, %22
br label %24
24: ; preds = %2, %4, %18, %10
%25 = phi i64 [ %23, %18 ], [ %16, %10 ], [ %8, %4 ], [ 0, %2 ]
%26 = trunc i64 %25 to i32
ret i32 %26
}