void _ITSC128I(unsigned long datum, long *lp) {
  unsigned long exp1, exp2, man1, man2, nbit, sign1, sign2;
  nbit = 1 << 47;
  sign1 = (datum >> 63) << 63;
  sign2 = (datum >> 31) << 63;
  man1 = nbit | (((datum << 9) >> 49) << 25);
  man2 = nbit | ((datum << 41) >> 17);
  exp1 = (datum << 1) >> 56;
  exp2 = (datum << 33) >> 56;
  if (exp1 == 255) {
    exp1 = 24576;
    if (man1 != nbit)
      man1 = nbit | 0x3C4E614E3E;
  } else if (exp1 == 0) {
    man1 = 0;
    sign1 = 0;
  } else
    exp1 = exp1 + (16384 - 127 + 1);
  if (exp2 == 255) {
    exp2 = 24576;
    if (man2 != nbit)
      man2 = nbit | 0x3C4E614E3E;
  } else if (exp2 == 0) {
    man2 = 0;
    sign2 = 0;
  } else
    exp2 = exp2 + (16384 - 127 + 1);
  exp1 = exp1 << 48;
  exp2 = exp2 << 48;
  *lp = sign1 | (exp1 + man1);
  *(lp + 1) = sign2 | (exp2 + man2);
  return;
}


x86 assembly (clang, -O0):
<_ITSC128I>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rax,-0x38(%rbp)
mov    -0x8(%rbp),%rax
shr    $0x3f,%rax
shl    $0x3f,%rax
mov    %rax,-0x40(%rbp)
mov    -0x8(%rbp),%rax
shr    $0x1f,%rax
shl    $0x3f,%rax
mov    %rax,-0x48(%rbp)
mov    -0x38(%rbp),%rax
mov    -0x8(%rbp),%rcx
shl    $0x9,%rcx
shr    $0x31,%rcx
shl    $0x19,%rcx
or     %rcx,%rax
mov    %rax,-0x28(%rbp)
mov    -0x38(%rbp),%rax
mov    -0x8(%rbp),%rcx
shl    $0x29,%rcx
shr    $0x11,%rcx
or     %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x8(%rbp),%rax
shl    $0x1,%rax
shr    $0x38,%rax
mov    %rax,-0x18(%rbp)
mov    -0x8(%rbp),%rax
shl    $0x21,%rax
shr    $0x38,%rax
mov    %rax,-0x20(%rbp)
cmpq   $0xff,-0x18(%rbp)
jne    11bd <_ITSC128I+0xbd>
movq   $0x6000,-0x18(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x38(%rbp),%rax
je     11b8 <_ITSC128I+0xb8>
movabs $0x3c4e614e3e,%rax
or     -0x38(%rbp),%rax
mov    %rax,-0x28(%rbp)
jmp    11f0 <_ITSC128I+0xf0>
cmpq   $0x0,-0x18(%rbp)
jne    11dd <_ITSC128I+0xdd>
movq   $0x0,-0x28(%rbp)
movq   $0x0,-0x40(%rbp)
jmp    11eb <_ITSC128I+0xeb>
mov    -0x18(%rbp),%rax
add    $0x3f82,%rax
mov    %rax,-0x18(%rbp)
jmp    11f0 <_ITSC128I+0xf0>
cmpq   $0xff,-0x20(%rbp)
jne    122b <_ITSC128I+0x12b>
movq   $0x6000,-0x20(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x38(%rbp),%rax
je     1226 <_ITSC128I+0x126>
movabs $0x3c4e614e3e,%rax
or     -0x38(%rbp),%rax
mov    %rax,-0x30(%rbp)
jmp    125e <_ITSC128I+0x15e>
cmpq   $0x0,-0x20(%rbp)
jne    124b <_ITSC128I+0x14b>
movq   $0x0,-0x30(%rbp)
movq   $0x0,-0x48(%rbp)
jmp    1259 <_ITSC128I+0x159>
mov    -0x20(%rbp),%rax
add    $0x3f82,%rax
mov    %rax,-0x20(%rbp)
jmp    125e <_ITSC128I+0x15e>
mov    -0x18(%rbp),%rax
shl    $0x30,%rax
mov    %rax,-0x18(%rbp)
mov    -0x20(%rbp),%rax
shl    $0x30,%rax
mov    %rax,-0x20(%rbp)
mov    -0x40(%rbp),%rcx
mov    -0x18(%rbp),%rax
add    -0x28(%rbp),%rax
or     %rax,%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x48(%rbp),%rcx
mov    -0x20(%rbp),%rax
add    -0x30(%rbp),%rax
or     %rax,%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,0x8(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<_ITSC128I>:
movabs $0x6000000000000000,%r9
movabs $0x8000000000000000,%rax
and    %rdi,%rax
mov    %edi,%edx
and    $0x80000000,%edx
mov    %rdi,%rcx
shr    $0x37,%rcx
shr    $0x17,%rdi
cmp    $0xff,%cl
je     113a <_ITSC128I+0x3a>
test   %cl,%cl
jne    113f <_ITSC128I+0x3f>
xor    %r8d,%r8d
xor    %eax,%eax
jmp    1153 <_ITSC128I+0x53>
mov    %r9,%r8
jmp    1153 <_ITSC128I+0x53>
movzbl %cl,%ecx
shl    $0x30,%rcx
movabs $0x3f82000000000000,%r8
add    %rcx,%r8
shl    $0x20,%rdx
cmp    $0xff,%dil
je     117e <_ITSC128I+0x7e>
test   %dil,%dil
jne    1169 <_ITSC128I+0x69>
xor    %r9d,%r9d
xor    %edx,%edx
jmp    117e <_ITSC128I+0x7e>
movzbl %dil,%ecx
shl    $0x30,%rcx
movabs $0x3f82000000000000,%r9
add    %rcx,%r9
or     %rdx,%r9
or     %r8,%rax
mov    %rax,(%rsi)
mov    %r9,0x8(%rsi)
ret

LLVM IR (-O0):
define void @_ITSC128I(i64 %0, i64* %1) {
%3 = alloca i64
%4 = alloca i64*
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i64
store i64 %0, i64* %3
store i64* %1, i64** %4
store i64 poison, i64* %9
%12 = load i64, i64* %3
%13 = lshr i64 %12, 63
%14 = shl i64 %13, 63
store i64 %14, i64* %10
%15 = load i64, i64* %3
%16 = lshr i64 %15, 31
%17 = shl i64 %16, 63
store i64 %17, i64* %11
%18 = load i64, i64* %9
%19 = load i64, i64* %3
%20 = shl i64 %19, 9
%21 = lshr i64 %20, 49
%22 = shl i64 %21, 25
%23 = or i64 %18, %22
store i64 %23, i64* %7
%24 = load i64, i64* %9
%25 = load i64, i64* %3
%26 = shl i64 %25, 41
%27 = lshr i64 %26, 17
%28 = or i64 %24, %27
store i64 %28, i64* %8
%29 = load i64, i64* %3
%30 = shl i64 %29, 1
%31 = lshr i64 %30, 56
store i64 %31, i64* %5
%32 = load i64, i64* %3
%33 = shl i64 %32, 33
%34 = lshr i64 %33, 56
store i64 %34, i64* %6
%35 = load i64, i64* %5
%36 = icmp eq i64 %35, 255
br i1 %36, label %37, label %45
37: ; preds = %2
store i64 24576, i64* %5
%38 = load i64, i64* %7
%39 = load i64, i64* %9
%40 = icmp ne i64 %38, %39
br i1 %40, label %41, label %44
41: ; preds = %37
%42 = load i64, i64* %9
%43 = or i64 %42, 259013037630
store i64 %43, i64* %7
br label %44
44: ; preds = %41, %37
br label %53
45: ; preds = %2
%46 = load i64, i64* %5
%47 = icmp eq i64 %46, 0
br i1 %47, label %48, label %49
48: ; preds = %45
store i64 0, i64* %7
store i64 0, i64* %10
br label %52
49: ; preds = %45
%50 = load i64, i64* %5
%51 = add i64 %50, 16258
store i64 %51, i64* %5
br label %52
52: ; preds = %49, %48
br label %53
53: ; preds = %52, %44
%54 = load i64, i64* %6
%55 = icmp eq i64 %54, 255
br i1 %55, label %56, label %64
56: ; preds = %53
store i64 24576, i64* %6
%57 = load i64, i64* %8
%58 = load i64, i64* %9
%59 = icmp ne i64 %57, %58
br i1 %59, label %60, label %63
60: ; preds = %56
%61 = load i64, i64* %9
%62 = or i64 %61, 259013037630
store i64 %62, i64* %8
br label %63
63: ; preds = %60, %56
br label %72
64: ; preds = %53
%65 = load i64, i64* %6
%66 = icmp eq i64 %65, 0
br i1 %66, label %67, label %68
67: ; preds = %64
store i64 0, i64* %8
store i64 0, i64* %11
br label %71
68: ; preds = %64
%69 = load i64, i64* %6
%70 = add i64 %69, 16258
store i64 %70, i64* %6
br label %71
71: ; preds = %68, %67
br label %72
72: ; preds = %71, %63
%73 = load i64, i64* %5
%74 = shl i64 %73, 48
store i64 %74, i64* %5
%75 = load i64, i64* %6
%76 = shl i64 %75, 48
store i64 %76, i64* %6
%77 = load i64, i64* %10
%78 = load i64, i64* %5
%79 = load i64, i64* %7
%80 = add i64 %78, %79
%81 = or i64 %77, %80
%82 = load i64*, i64** %4
store i64 %81, i64* %82
%83 = load i64, i64* %11
%84 = load i64, i64* %6
%85 = load i64, i64* %8
%86 = add i64 %84, %85
%87 = or i64 %83, %86
%88 = load i64*, i64** %4
%89 = getelementptr inbounds i64, i64* %88, i64 1
store i64 %87, i64* %89
ret void
}

LLVM IR (-O2):
define void @_ITSC128I(i64 %0, i64* nocapture writeonly %1) {
%3 = and i64 %0, -9223372036854775808
%4 = shl i64 %0, 32
%5 = and i64 %4, -9223372036854775808
%6 = lshr i64 %0, 55
%7 = lshr i64 %0, 23
%8 = trunc i64 %6 to i8
switch i8 %8, label %10 [
i8 -1, label %14
i8 0, label %9
]
9: ; preds = %2
br label %14
10: ; preds = %2
%11 = shl nuw nsw i64 %6, 48
%12 = and i64 %11, 71776119061217280
%13 = add nuw nsw i64 %12, 4576220171361845248
br label %14
14: ; preds = %2, %9, %10
%15 = phi i64 [ 0, %9 ], [ %13, %10 ], [ 6917529027641081856, %2 ]
%16 = phi i64 [ 0, %9 ], [ %3, %10 ], [ %3, %2 ]
%17 = trunc i64 %7 to i8
switch i8 %17, label %19 [
i8 -1, label %23
i8 0, label %18
]
18: ; preds = %14
br label %23
19: ; preds = %14
%20 = shl i64 %7, 48
%21 = and i64 %20, 71776119061217280
%22 = add nuw nsw i64 %21, 4576220171361845248
br label %23
23: ; preds = %14, %18, %19
%24 = phi i64 [ 0, %18 ], [ %22, %19 ], [ 6917529027641081856, %14 ]
%25 = phi i64 [ 0, %18 ], [ %5, %19 ], [ %5, %14 ]
%26 = or i64 %16, %15
store i64 %26, i64* %1
%27 = or i64 %25, %24
%28 = getelementptr inbounds i64, i64* %1, i64 1
store i64 %27, i64* %28
ret void
}