void ctospf(in, out, n) unsigned char in[], out[];
int *n;
{
  register int i, j, joff;
  unsigned char *p, sign, *expp, *manp[3];
  long exp;
  static unsigned char maxman = 0xff, minman = 0;
  for (i = 0; i < *n; i++) {
    p = in + i * 8;
    joff = i * 4;
    sign = *(p)&0200;
    manp[0] = p + 2;
    manp[1] = p + 3;
    manp[2] = p + 4;
    exp = (*(p + 1)) | ((*p & 0x7f) << 8);
    if (exp != 0)
      exp = exp - 040000 + 126;
    if (exp > 254) {
      exp = 254;
      for (j = 0; j < 3; j++)
        manp[j] = &maxman;
    } else if (exp < 0) {
      exp = 1;
      for (j = 0; j < 3; j++)
        manp[j] = &minman;
    }
    expp = ((unsigned char *)(&exp)) + (sizeof(long) - sizeof(char));
    out[joff + 0] = sign | (*expp >> 1);
    out[joff + 1] = (*manp[0] & (~0200)) | ((*expp & 1) << 7);
    out[joff + 2] = *manp[1];
    out[joff + 3] = *manp[2];
  }
}


x86 assembly (clang, -O0):
<ctospf>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
mov    -0x18(%rbp),%rcx
cmp    (%rcx),%eax
jge    12db <ctospf+0x1db>
mov    -0x8(%rbp),%rax
mov    -0x1c(%rbp),%ecx
shl    $0x3,%ecx
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x1c(%rbp),%eax
shl    $0x2,%eax
mov    %eax,-0x24(%rbp)
mov    -0x30(%rbp),%rax
movzbl (%rax),%eax
and    $0x80,%eax
mov    %al,-0x31(%rbp)
mov    -0x30(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x60(%rbp)
mov    -0x30(%rbp),%rax
add    $0x3,%rax
mov    %rax,-0x58(%rbp)
mov    -0x30(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x50(%rbp)
mov    -0x30(%rbp),%rax
movzbl 0x1(%rax),%eax
mov    -0x30(%rbp),%rcx
movzbl (%rcx),%ecx
and    $0x7f,%ecx
shl    $0x8,%ecx
or     %ecx,%eax
cltq
mov    %rax,-0x68(%rbp)
cmpq   $0x0,-0x68(%rbp)
je     11b0 <ctospf+0xb0>
mov    -0x68(%rbp),%rax
sub    $0x4000,%rax
add    $0x7e,%rax
mov    %rax,-0x68(%rbp)
cmpq   $0xfe,-0x68(%rbp)
jle    11fa <ctospf+0xfa>
movq   $0xfe,-0x68(%rbp)
movl   $0x0,-0x20(%rbp)
cmpl   $0x3,-0x20(%rbp)
jge    11f5 <ctospf+0xf5>
movslq -0x20(%rbp),%rax
lea    0x2e3e(%rip),%rcx
mov    %rcx,-0x60(%rbp,%rax,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    11cd <ctospf+0xcd>
jmp    1246 <ctospf+0x146>
cmpq   $0x0,-0x68(%rbp)
jge    1241 <ctospf+0x141>
movq   $0x1,-0x68(%rbp)
movl   $0x0,-0x20(%rbp)
cmpl   $0x3,-0x20(%rbp)
jge    123c <ctospf+0x13c>
movslq -0x20(%rbp),%rax
lea    0x2df9(%rip),%rcx
mov    %rcx,-0x60(%rbp,%rax,8)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1214 <ctospf+0x114>
jmp    1241 <ctospf+0x141>
jmp    1246 <ctospf+0x146>
lea    -0x68(%rbp),%rax
add    $0x7,%rax
mov    %rax,-0x40(%rbp)
movzbl -0x31(%rbp),%eax
mov    -0x40(%rbp),%rcx
movzbl (%rcx),%ecx
sar    $0x1,%ecx
or     %ecx,%eax
mov    %al,%dl
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x0,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x60(%rbp),%rax
movzbl (%rax),%eax
and    $0xffffff7f,%eax
mov    -0x40(%rbp),%rcx
movzbl (%rcx),%ecx
and    $0x1,%ecx
shl    $0x7,%ecx
or     %ecx,%eax
mov    %al,%dl
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x58(%rbp),%rax
mov    (%rax),%dl
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x2,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x50(%rbp),%rax
mov    (%rax),%dl
mov    -0x10(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    $0x3,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1117 <ctospf+0x17>
pop    %rbp
ret

x86 assembly (clang, -O2):
<ctospf>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rdi,-0x10(%rsp)
mov    %rdx,-0x8(%rsp)
cmpl   $0x0,(%rdx)
jle    1243 <ctospf+0x143>
mov    $0x2,%r8d
mov    $0x3,%r15d
mov    $0x4,%r12d
xor    %ebx,%ebx
xor    %ecx,%ecx
jmp    11a9 <ctospf+0xa9>
xor    %r9d,%r9d
lea    0xec2(%rip),%r11
mov    %r11,%rdi
mov    %r11,%rbp
cs nopw 0x0(%rax,%rax,1)
nop
mov    %r9d,%edx
shr    %dl
or     %r13b,%dl
mov    %ebx,%eax
mov    %dl,(%rsi,%rax,1)
movzbl (%r11),%eax
and    $0x7f,%al
shl    $0x7,%r9b
or     %al,%r9b
lea    0x1(%rbx),%eax
mov    %r9b,(%rsi,%rax,1)
movzbl 0x0(%rbp),%eax
lea    0x2(%rbx),%edx
mov    %al,(%rsi,%rdx,1)
movzbl (%rdi),%eax
lea    0x3(%rbx),%edx
mov    %al,(%rsi,%rdx,1)
add    $0x1,%rcx
mov    -0x8(%rsp),%rax
movslq (%rax),%rax
add    $0x4,%rbx
add    $0x8,%r8
add    $0x8,%r15
add    $0x8,%r12
cmp    %rax,%rcx
jge    1243 <ctospf+0x143>
mov    -0x10(%rsp),%rax
movzbl (%rax,%rbx,2),%ebp
mov    %ebp,%r13d
and    $0x80,%r13b
movzbl 0x1(%rax,%rbx,2),%edx
and    $0x7f,%ebp
shl    $0x8,%rbp
lea    (%rdx,%rbp,1),%rax
add    %rbp,%rdx
add    $0xffffffffffffc07e,%rdx
mov    %rdx,%r10
shr    $0x38,%r10
movabs $0xffffffffffffff,%rdi
and    %rdi,%rdx
test   %rax,%rax
mov    $0x0,%edi
cmove  %edi,%r10d
cmove  %rax,%rdx
mov    %r10,%r14
shl    $0x38,%r14
or     %rdx,%r14
lea    0xdf8(%rip),%r11
mov    %r11,%rdi
mov    %r11,%rbp
mov    $0x0,%r9d
cmp    $0xfe,%r14
jg     1150 <ctospf+0x50>
test   %r14,%r14
js     1135 <ctospf+0x35>
mov    -0x10(%rsp),%rax
lea    (%rax,%r12,1),%rdi
lea    (%rax,%r15,1),%rbp
lea    (%rax,%r8,1),%r11
mov    %r10d,%r9d
jmp    1150 <ctospf+0x50>
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@ctospf.maxman = internal unnamed_addr constant i8 -1
@ctospf.minman = internal unnamed_addr constant i8 0
define void @ctospf(i8* %0, i8* nocapture writeonly %1, i32* nocapture %2) {
%4 = load i32, i32* %2
%5 = icmp sgt i32 %4, 0
br i1 %5, label %6, label %66
6: ; preds = %3, %38
%7 = phi i64 [ %62, %38 ], [ 0, %3 ]
%8 = shl nsw i64 %7, 3
%9 = getelementptr inbounds i8, i8* %0, i64 %8
%10 = trunc i64 %7 to i32
%11 = shl nsw i32 %10, 2
%12 = load i8, i8* %9
%13 = and i8 %12, -128
%14 = getelementptr inbounds i8, i8* %9, i64 1
%15 = load i8, i8* %14
%16 = zext i8 %15 to i64
%17 = and i8 %12, 127
%18 = zext i8 %17 to i64
%19 = shl nuw nsw i64 %18, 8
%20 = or i64 %19, %16
%21 = icmp eq i64 %20, 0
%22 = add nsw i64 %20, -16258
%23 = lshr i64 %22, 56
%24 = trunc i64 %23 to i8
%25 = select i1 %21, i8 0, i8 %24
%26 = zext i8 %25 to i64
%27 = shl nuw i64 %26, 56
%28 = and i64 %22, 72057594037927935
%29 = select i1 %21, i64 0, i64 %28
%30 = or i64 %27, %29
%31 = icmp sgt i64 %30, 254
br i1 %31, label %38, label %32
32: ; preds = %6
%33 = getelementptr inbounds i8, i8* %9, i64 4
%34 = getelementptr inbounds i8, i8* %9, i64 3
%35 = getelementptr inbounds i8, i8* %9, i64 2
%36 = icmp slt i64 %30, 0
br i1 %36, label %37, label %38
37: ; preds = %32
br label %38
38: ; preds = %6, %37, %32
%39 = phi i8* [ @ctospf.minman, %37 ], [ %33, %32 ], [ @ctospf.maxman, %6 ]
%40 = phi i8* [ @ctospf.minman, %37 ], [ %34, %32 ], [ @ctospf.maxman, %6 ]
%41 = phi i8* [ @ctospf.minman, %37 ], [ %35, %32 ], [ @ctospf.maxman, %6 ]
%42 = phi i8 [ 0, %37 ], [ %25, %32 ], [ 0, %6 ]
%43 = lshr i8 %42, 1
%44 = or i8 %43, %13
%45 = zext i32 %11 to i64
%46 = getelementptr inbounds i8, i8* %1, i64 %45
store i8 %44, i8* %46
%47 = load i8, i8* %41
%48 = and i8 %47, 127
%49 = shl i8 %42, 7
%50 = or i8 %48, %49
%51 = or i32 %11, 1
%52 = zext i32 %51 to i64
%53 = getelementptr inbounds i8, i8* %1, i64 %52
store i8 %50, i8* %53
%54 = load i8, i8* %40
%55 = or i32 %11, 2
%56 = zext i32 %55 to i64
%57 = getelementptr inbounds i8, i8* %1, i64 %56
store i8 %54, i8* %57
%58 = load i8, i8* %39
%59 = or i32 %11, 3
%60 = zext i32 %59 to i64
%61 = getelementptr inbounds i8, i8* %1, i64 %60
store i8 %58, i8* %61
%62 = add nuw nsw i64 %7, 1
%63 = load i32, i32* %2
%64 = sext i32 %63 to i64
%65 = icmp slt i64 %62, %64
br i1 %65, label %6, label %66
66: ; preds = %38, %3
ret void
}