void ctospi(in, out, n, zpad) unsigned char in[], out[];
int *n;
int *zpad;
{
  register int i, joff;
  register unsigned char *pin, sign;
  unsigned char *p[4];
  for (i = 0; i < *n; i++) {
    pin = in + i * 8;
    joff = i * (*zpad + 1) * 4;
    sign = *(pin)&0200;
    p[0] = pin + 4;
    p[1] = pin + 5;
    p[2] = pin + 6;
    p[3] = pin + 7;
    checkrng(sign, pin, p);
    out[joff + 0] = sign | (*p[0] & (~0200));
    out[joff + 1] = *p[1];
    out[joff + 2] = *p[2];
    out[joff + 3] = *p[3];
    if (*zpad) {
      out[joff + 4] = out[joff + 5] = out[joff + 6] = out[joff + 7] = 0;
    }
  }
}


x86 assembly (clang, -O0):
<ctospi>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x18(%rbp),%rcx
cmp    (%rcx),%eax
jge    1284 <ctospi+0x174>
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
shl    $0x3,%ecx
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x24(%rbp),%eax
mov    -0x20(%rbp),%rcx
mov    (%rcx),%ecx
add    $0x1,%ecx
imul   %ecx,%eax
shl    $0x2,%eax
mov    %eax,-0x28(%rbp)
mov    -0x30(%rbp),%rax
movzbl (%rax),%eax
and    $0x80,%eax
mov    %al,-0x31(%rbp)
mov    -0x30(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x60(%rbp)
mov    -0x30(%rbp),%rax
add    $0x5,%rax
mov    %rax,-0x58(%rbp)
mov    -0x30(%rbp),%rax
add    $0x6,%rax
mov    %rax,-0x50(%rbp)
mov    -0x30(%rbp),%rax
add    $0x7,%rax
mov    %rax,-0x48(%rbp)
movzbl -0x31(%rbp),%edi
mov    -0x30(%rbp),%rsi
lea    -0x60(%rbp),%rdx
mov    $0x0,%al
call   1030 <checkrng@plt>
movzbl -0x31(%rbp),%eax
mov    -0x60(%rbp),%rcx
movzbl (%rcx),%ecx
and    $0xffffff7f,%ecx
or     %ecx,%eax
mov    %al,%dl
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x0,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x58(%rbp),%rax
mov    (%rax),%dl
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x50(%rbp),%rax
mov    (%rax),%dl
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x2,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x48(%rbp),%rax
mov    (%rax),%dl
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x3,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x20(%rbp),%rax
cmpl   $0x0,(%rax)
je     1271 <ctospi+0x161>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x7,%ecx
movslq %ecx,%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x6,%ecx
movslq %ecx,%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x5,%ecx
movslq %ecx,%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
add    $0x4,%ecx
movslq %ecx,%rcx
movb   $0x0,(%rax,%rcx,1)
jmp    1276 <ctospi+0x166>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    112f <ctospi+0x1f>
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ctospi>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rcx,(%rsp)
mov    %rdx,0x8(%rsp)
cmpl   $0x0,(%rdx)
jle    1216 <ctospi+0x106>
mov    %rsi,%r12
mov    %rdi,%rbx
xor    %r13d,%r13d
xor    %r14d,%r14d
jmp    115d <ctospi+0x4d>
xchg   %ax,%ax
add    $0x1,%r14
mov    0x8(%rsp),%rax
movslq (%rax),%rax
add    $0x4,%r13d
add    $0x8,%rbx
cmp    %rax,%r14
jge    1216 <ctospi+0x106>
mov    (%rsp),%rax
mov    (%rax),%r15d
add    $0x1,%r15d
imul   %r13d,%r15d
movzbl (%rbx),%ebp
and    $0xffffff80,%ebp
movq   %rbx,%xmm0
pshufd $0x44,%xmm0,%xmm0
movdqa %xmm0,%xmm1
paddq  0xe78(%rip),%xmm1
movdqa %xmm1,0x10(%rsp)
paddq  0xe7a(%rip),%xmm0
movdqa %xmm0,0x20(%rsp)
mov    %ebp,%edi
mov    %rbx,%rsi
lea    0x10(%rsp),%rdx
xor    %eax,%eax
call   1030 <checkrng@plt>
mov    0x10(%rsp),%rax
movzbl (%rax),%ecx
and    $0x7f,%cl
or     %bpl,%cl
movslq %r15d,%rax
mov    %cl,(%r12,%rax,1)
mov    0x18(%rsp),%rcx
movzbl (%rcx),%ecx
mov    %rax,%rdx
or     $0x1,%rdx
mov    %cl,(%r12,%rdx,1)
mov    0x20(%rsp),%rcx
movzbl (%rcx),%ecx
mov    %rax,%rdx
or     $0x2,%rdx
mov    %cl,(%r12,%rdx,1)
mov    0x28(%rsp),%rcx
movzbl (%rcx),%ecx
mov    %rax,%rdx
or     $0x3,%rdx
mov    %cl,(%r12,%rdx,1)
mov    (%rsp),%rcx
cmpl   $0x0,(%rcx)
je     1140 <ctospi+0x30>
movl   $0x0,0x4(%rax,%r12,1)
jmp    1140 <ctospi+0x30>
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @ctospi(i8* %0, i8* %1, i32* %2, i32* %3) {
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32*
%8 = alloca i32*
%9 = alloca i32
%10 = alloca i32
%11 = alloca i8*
%12 = alloca i8
%13 = alloca [4 x i8*]
store i8* %0, i8** %5
store i8* %1, i8** %6
store i32* %2, i32** %7
store i32* %3, i32** %8
store i32 0, i32* %9
br label %14
14: ; preds = %116, %4
%15 = load i32, i32* %9
%16 = load i32*, i32** %7
%17 = load i32, i32* %16
%18 = icmp slt i32 %15, %17
br i1 %18, label %19, label %119
19: ; preds = %14
%20 = load i8*, i8** %5
%21 = load i32, i32* %9
%22 = mul nsw i32 %21, 8
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds i8, i8* %20, i64 %23
store i8* %24, i8** %11
%25 = load i32, i32* %9
%26 = load i32*, i32** %8
%27 = load i32, i32* %26
%28 = add nsw i32 %27, 1
%29 = mul nsw i32 %25, %28
%30 = mul nsw i32 %29, 4
store i32 %30, i32* %10
%31 = load i8*, i8** %11
%32 = load i8, i8* %31
%33 = zext i8 %32 to i32
%34 = and i32 %33, 128
%35 = trunc i32 %34 to i8
store i8 %35, i8* %12
%36 = load i8*, i8** %11
%37 = getelementptr inbounds i8, i8* %36, i64 4
%38 = getelementptr inbounds [4 x i8*], [4 x i8*]* %13, i64 0, i64 0
store i8* %37, i8** %38
%39 = load i8*, i8** %11
%40 = getelementptr inbounds i8, i8* %39, i64 5
%41 = getelementptr inbounds [4 x i8*], [4 x i8*]* %13, i64 0, i64 1
store i8* %40, i8** %41
%42 = load i8*, i8** %11
%43 = getelementptr inbounds i8, i8* %42, i64 6
%44 = getelementptr inbounds [4 x i8*], [4 x i8*]* %13, i64 0, i64 2
store i8* %43, i8** %44
%45 = load i8*, i8** %11
%46 = getelementptr inbounds i8, i8* %45, i64 7
%47 = getelementptr inbounds [4 x i8*], [4 x i8*]* %13, i64 0, i64 3
store i8* %46, i8** %47
%48 = load i8, i8* %12
%49 = zext i8 %48 to i32
%50 = load i8*, i8** %11
%51 = getelementptr inbounds [4 x i8*], [4 x i8*]* %13, i64 0, i64 0
%52 = call i32 (i32, i8*, i8**, ...) bitcast (i32 (...)* @checkrng to i32 (i32, i8*, i8**, ...)*)(i32 %49, i8* %50, i8** %51)
%53 = load i8, i8* %12
%54 = zext i8 %53 to i32
%55 = getelementptr inbounds [4 x i8*], [4 x i8*]* %13, i64 0, i64 0
%56 = load i8*, i8** %55
%57 = load i8, i8* %56
%58 = zext i8 %57 to i32
%59 = and i32 %58, -129
%60 = or i32 %54, %59
%61 = trunc i32 %60 to i8
%62 = load i8*, i8** %6
%63 = load i32, i32* %10
%64 = add nsw i32 %63, 0
%65 = sext i32 %64 to i64
%66 = getelementptr inbounds i8, i8* %62, i64 %65
store i8 %61, i8* %66
%67 = getelementptr inbounds [4 x i8*], [4 x i8*]* %13, i64 0, i64 1
%68 = load i8*, i8** %67
%69 = load i8, i8* %68
%70 = load i8*, i8** %6
%71 = load i32, i32* %10
%72 = add nsw i32 %71, 1
%73 = sext i32 %72 to i64
%74 = getelementptr inbounds i8, i8* %70, i64 %73
store i8 %69, i8* %74
%75 = getelementptr inbounds [4 x i8*], [4 x i8*]* %13, i64 0, i64 2
%76 = load i8*, i8** %75
%77 = load i8, i8* %76
%78 = load i8*, i8** %6
%79 = load i32, i32* %10
%80 = add nsw i32 %79, 2
%81 = sext i32 %80 to i64
%82 = getelementptr inbounds i8, i8* %78, i64 %81
store i8 %77, i8* %82
%83 = getelementptr inbounds [4 x i8*], [4 x i8*]* %13, i64 0, i64 3
%84 = load i8*, i8** %83
%85 = load i8, i8* %84
%86 = load i8*, i8** %6
%87 = load i32, i32* %10
%88 = add nsw i32 %87, 3
%89 = sext i32 %88 to i64
%90 = getelementptr inbounds i8, i8* %86, i64 %89
store i8 %85, i8* %90
%91 = load i32*, i32** %8
%92 = load i32, i32* %91
%93 = icmp ne i32 %92, 0
br i1 %93, label %94, label %115
94: ; preds = %19
%95 = load i8*, i8** %6
%96 = load i32, i32* %10
%97 = add nsw i32 %96, 7
%98 = sext i32 %97 to i64
%99 = getelementptr inbounds i8, i8* %95, i64 %98
store i8 0, i8* %99
%100 = load i8*, i8** %6
%101 = load i32, i32* %10
%102 = add nsw i32 %101, 6
%103 = sext i32 %102 to i64
%104 = getelementptr inbounds i8, i8* %100, i64 %103
store i8 0, i8* %104
%105 = load i8*, i8** %6
%106 = load i32, i32* %10
%107 = add nsw i32 %106, 5
%108 = sext i32 %107 to i64
%109 = getelementptr inbounds i8, i8* %105, i64 %108
store i8 0, i8* %109
%110 = load i8*, i8** %6
%111 = load i32, i32* %10
%112 = add nsw i32 %111, 4
%113 = sext i32 %112 to i64
%114 = getelementptr inbounds i8, i8* %110, i64 %113
store i8 0, i8* %114
br label %115
115: ; preds = %94, %19
br label %116
116: ; preds = %115
%117 = load i32, i32* %9
%118 = add nsw i32 %117, 1
store i32 %118, i32* %9
br label %14
119: ; preds = %14
ret void
}

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