_prtl16(num, str) long num;
char *str;
{
  int i;
  char c, temp[9];
  temp[0] = '\0';
  for (i = 1; i <= 8; i++) {
    temp[i] = "0123456789abcdef"[num & 0x0f];
    num = num >> 4;
  }
  for (i = 8; temp[i] == '0'; i--)
    ;
  if (i == 0)
    i++;
  while (i >= 0)
    *str++ = temp[i--];
}


x86 assembly (clang, -O0):
<_prtl16>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movb   $0x0,-0x26(%rbp)
movl   $0x1,-0x1c(%rbp)
cmpl   $0x8,-0x1c(%rbp)
jg     1155 <_prtl16+0x55>
mov    -0x10(%rbp),%rcx
and    $0xf,%rcx
lea    0xed0(%rip),%rax
mov    (%rax,%rcx,1),%cl
movslq -0x1c(%rbp),%rax
mov    %cl,-0x26(%rbp,%rax,1)
mov    -0x10(%rbp),%rax
sar    $0x4,%rax
mov    %rax,-0x10(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1117 <_prtl16+0x17>
movl   $0x8,-0x1c(%rbp)
movslq -0x1c(%rbp),%rax
movsbl -0x26(%rbp,%rax,1),%eax
cmp    $0x30,%eax
jne    1181 <_prtl16+0x81>
jmp    1173 <_prtl16+0x73>
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
jmp    115c <_prtl16+0x5c>
cmpl   $0x0,-0x1c(%rbp)
jne    1194 <_prtl16+0x94>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1199 <_prtl16+0x99>
cmpl   $0x0,-0x1c(%rbp)
jl     11ca <_prtl16+0xca>
mov    -0x1c(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x1c(%rbp)
cltq
mov    -0x26(%rbp,%rax,1),%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
jmp    1199 <_prtl16+0x99>
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<_prtl16>:
movb   $0x0,-0x9(%rsp)
mov    %edi,%ecx
and    $0xf,%ecx
lea    0xeef(%rip),%rax
mov    (%rcx,%rax,1),%cl
mov    %cl,-0x8(%rsp)
mov    %edi,%ecx
shr    $0x4,%ecx
and    $0xf,%ecx
mov    (%rcx,%rax,1),%cl
mov    %cl,-0x7(%rsp)
mov    %edi,%ecx
shr    $0x8,%ecx
and    $0xf,%ecx
mov    (%rcx,%rax,1),%cl
mov    %cl,-0x6(%rsp)
mov    %edi,%ecx
shr    $0xc,%ecx
and    $0xf,%ecx
mov    (%rcx,%rax,1),%cl
mov    %cl,-0x5(%rsp)
mov    %edi,%ecx
shr    $0x10,%ecx
and    $0xf,%ecx
mov    (%rcx,%rax,1),%cl
mov    %cl,-0x4(%rsp)
mov    %edi,%ecx
shr    $0x14,%ecx
and    $0xf,%ecx
mov    (%rcx,%rax,1),%cl
mov    %cl,-0x3(%rsp)
mov    %edi,%ecx
shr    $0x18,%ecx
and    $0xf,%ecx
mov    (%rcx,%rax,1),%cl
mov    %cl,-0x2(%rsp)
shr    $0x1c,%edi
mov    (%rdi,%rax,1),%al
mov    %al,-0x1(%rsp)
mov    $0x8,%eax
jne    119e <_prtl16+0x9e>
mov    $0x8,%ecx
nopl   0x0(%rax,%rax,1)
lea    -0x1(%rcx),%rax
cmpb   $0x30,-0xa(%rsp,%rcx,1)
mov    %rax,%rcx
je     1190 <_prtl16+0x90>
test   %eax,%eax
mov    $0x1,%ecx
cmovne %eax,%ecx
test   %ecx,%ecx
js     1311 <_prtl16+0x211>
mov    %ecx,%eax
cmp    $0x7,%ecx
jae    11bf <_prtl16+0xbf>
mov    %rsi,%rcx
jmp    1300 <_prtl16+0x200>
lea    0x1(%rax),%r8
movabs $0x1ffffffe0,%r9
cmp    $0x1f,%ecx
jae    11d9 <_prtl16+0xd9>
xor    %edi,%edi
jmp    1292 <_prtl16+0x192>
mov    %r8,%rdi
and    %r9,%rdi
lea    0x10(%rsi),%rcx
mov    %r8,%r10
and    $0xffffffffffffffe0,%r10
neg    %r10
lea    -0x9(%rsp),%rdx
lea    (%rax,%rdx,1),%r11
add    $0xfffffffffffffff1,%r11
xor    %edx,%edx
pxor   %xmm0,%xmm0
movdqu -0x10(%r11,%rdx,1),%xmm1
movdqu (%r11,%rdx,1),%xmm2
movdqa %xmm2,%xmm3
punpcklbw %xmm0,%xmm3
pshufd $0x4e,%xmm3,%xmm3
pshuflw $0x1b,%xmm3,%xmm3
pshufhw $0x1b,%xmm3,%xmm3
punpckhbw %xmm0,%xmm2
pshufd $0x4e,%xmm2,%xmm2
pshuflw $0x1b,%xmm2,%xmm2
pshufhw $0x1b,%xmm2,%xmm2
packuswb %xmm3,%xmm2
movdqa %xmm1,%xmm3
punpcklbw %xmm0,%xmm3
pshufd $0x4e,%xmm3,%xmm3
pshuflw $0x1b,%xmm3,%xmm3
pshufhw $0x1b,%xmm3,%xmm3
punpckhbw %xmm0,%xmm1
pshufd $0x4e,%xmm1,%xmm1
pshuflw $0x1b,%xmm1,%xmm1
pshufhw $0x1b,%xmm1,%xmm1
packuswb %xmm3,%xmm1
movdqu %xmm2,-0x10(%rcx)
movdqu %xmm1,(%rcx)
add    $0x20,%rcx
add    $0xffffffffffffffe0,%rdx
cmp    %rdx,%r10
jne    1200 <_prtl16+0x100>
cmp    %rdi,%r8
je     1311 <_prtl16+0x211>
test   $0x18,%r8b
je     1312 <_prtl16+0x212>
add    $0x18,%r9
and    %r8,%r9
lea    (%rsi,%r9,1),%rcx
add    %rdi,%rsi
mov    %r8,%r10
and    $0xfffffffffffffff8,%r10
neg    %r10
neg    %rdi
lea    -0x9(%rsp),%rdx
add    %rax,%rdx
add    $0xfffffffffffffff9,%rdx
sub    %r9,%rax
pxor   %xmm0,%xmm0
movq   (%rdx,%rdi,1),%xmm1
punpcklbw %xmm0,%xmm1
pshufd $0x4e,%xmm1,%xmm1
pshuflw $0x1b,%xmm1,%xmm1
pshufhw $0x1b,%xmm1,%xmm1
packuswb %xmm1,%xmm1
movq   %xmm1,(%rsi)
add    $0x8,%rsi
add    $0xfffffffffffffff8,%rdi
cmp    %rdi,%r10
jne    12c0 <_prtl16+0x1c0>
cmp    %r9,%r8
je     1311 <_prtl16+0x211>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movzbl -0x9(%rsp,%rax,1),%edx
mov    %dl,(%rcx)
add    $0x1,%rcx
add    $0xffffffffffffffff,%rax
jb     1300 <_prtl16+0x200>
ret
add    %rdi,%rsi
sub    %rdi,%rax
jmp    11b7 <_prtl16+0xb7>

LLVM IR (-O0):
@.str = [17 x i8] c"0123456789abcdef\00"
define i32 @_prtl16(i64 %0, i8* %1) {
%3 = alloca i32
%4 = alloca i64
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i8
%8 = alloca [9 x i8]
store i64 %0, i64* %4
store i8* %1, i8** %5
%9 = getelementptr inbounds [9 x i8], [9 x i8]* %8, i64 0, i64 0
store i8 0, i8* %9
store i32 1, i32* %6
br label %10
10: ; preds = %23, %2
%11 = load i32, i32* %6
%12 = icmp sle i32 %11, 8
br i1 %12, label %13, label %26
13: ; preds = %10
%14 = load i64, i64* %4
%15 = and i64 %14, 15
%16 = getelementptr inbounds [17 x i8], [17 x i8]* @.str, i64 0, i64 %15
%17 = load i8, i8* %16
%18 = load i32, i32* %6
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds [9 x i8], [9 x i8]* %8, i64 0, i64 %19
store i8 %17, i8* %20
%21 = load i64, i64* %4
%22 = ashr i64 %21, 4
store i64 %22, i64* %4
br label %23
23: ; preds = %13
%24 = load i32, i32* %6
%25 = add nsw i32 %24, 1
store i32 %25, i32* %6
br label %10
26: ; preds = %10
store i32 8, i32* %6
br label %27
27: ; preds = %35, %26
%28 = load i32, i32* %6
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds [9 x i8], [9 x i8]* %8, i64 0, i64 %29
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
%33 = icmp eq i32 %32, 48
br i1 %33, label %34, label %38
34: ; preds = %27
br label %35
35: ; preds = %34
%36 = load i32, i32* %6
%37 = add nsw i32 %36, -1
store i32 %37, i32* %6
br label %27
38: ; preds = %27
%39 = load i32, i32* %6
%40 = icmp eq i32 %39, 0
br i1 %40, label %41, label %44
41: ; preds = %38
%42 = load i32, i32* %6
%43 = add nsw i32 %42, 1
store i32 %43, i32* %6
br label %44
44: ; preds = %41, %38
br label %45
45: ; preds = %48, %44
%46 = load i32, i32* %6
%47 = icmp sge i32 %46, 0
br i1 %47, label %48, label %56
48: ; preds = %45
%49 = load i32, i32* %6
%50 = add nsw i32 %49, -1
store i32 %50, i32* %6
%51 = sext i32 %49 to i64
%52 = getelementptr inbounds [9 x i8], [9 x i8]* %8, i64 0, i64 %51
%53 = load i8, i8* %52
%54 = load i8*, i8** %5
%55 = getelementptr inbounds i8, i8* %54, i32 1
store i8* %55, i8** %5
store i8 %53, i8* %54
br label %45
56: ; preds = %45
%57 = load i32, i32* %3
ret i32 %57
}

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