char *pr_nsap(name)
char *name;
{
  static char buf[3 * 20 + 1];
  register char *p;
  register int n;
  register int i;
  for (i = 0; (isascii(name[i]) && isxdigit(name[i])) && name[i + 1] == '.';
       i += 2)
    continue;
  if (i == 0 || (i % 4) != 0)
    return (name);
  if (i > 4 * 20)
    return (name);
  if (!(strcasecmp(&name[i], "nsap.int") == 0))
    return (name);
  for (p = buf, n = 0; i >= 4; i -= 4, n++) {
    *p++ = name[i - 2];
    *p++ = name[i - 4];
    if ((n % 2) == 0 && (i - 4) > 0)
      *p++ = '.';
  }
  *p = '\0';
  return (buf);
}


x86 assembly (clang, -O0):
<pr_nsap>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
mov    $0x0,%al
call   1040 <isascii@plt>
mov    %eax,%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x21(%rbp)
je     11a1 <pr_nsap+0x71>
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1050 <isxdigit@plt>
mov    %eax,%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x21(%rbp)
je     11a1 <pr_nsap+0x71>
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x2e,%eax
sete   %al
mov    %al,-0x21(%rbp)
mov    -0x21(%rbp),%al
test   $0x1,%al
jne    11b1 <pr_nsap+0x81>
jmp    11c4 <pr_nsap+0x94>
jmp    11b6 <pr_nsap+0x86>
mov    -0x20(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x20(%rbp)
jmp    1143 <pr_nsap+0x13>
cmpl   $0x0,-0x20(%rbp)
je     11e2 <pr_nsap+0xb2>
mov    -0x20(%rbp),%eax
mov    $0x4,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
je     11ef <pr_nsap+0xbf>
mov    -0x10(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    12f4 <pr_nsap+0x1c4>
cmpl   $0x50,-0x20(%rbp)
jle    1206 <pr_nsap+0xd6>
mov    -0x10(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    12f4 <pr_nsap+0x1c4>
mov    -0x10(%rbp),%rdi
movslq -0x20(%rbp),%rax
add    %rax,%rdi
lea    0xde8(%rip),%rsi
call   1030 <strcasecmp@plt>
cmp    $0x0,%eax
je     1233 <pr_nsap+0x103>
mov    -0x10(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    12f4 <pr_nsap+0x1c4>
lea    0x2e16(%rip),%rax
mov    %rax,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
cmpl   $0x4,-0x20(%rbp)
jl     12e2 <pr_nsap+0x1b2>
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%ecx
sub    $0x2,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,1),%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
mov    -0x10(%rbp),%rax
mov    -0x20(%rbp),%ecx
sub    $0x4,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,1),%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
mov    -0x1c(%rbp),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
jne    12c6 <pr_nsap+0x196>
mov    -0x20(%rbp),%eax
sub    $0x4,%eax
cmp    $0x0,%eax
jle    12c6 <pr_nsap+0x196>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x2e,(%rax)
jmp    12cb <pr_nsap+0x19b>
mov    -0x20(%rbp),%eax
sub    $0x4,%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1245 <pr_nsap+0x115>
mov    -0x18(%rbp),%rax
movb   $0x0,(%rax)
lea    0x2d60(%rip),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<pr_nsap>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %rdi,%r14
movsbl (%rdi),%edi
xor    %eax,%eax
call   1040 <isascii@plt>
test   %eax,%eax
je     11b3 <pr_nsap+0x83>
xor    %ebx,%ebx
mov    %r14,%r12
xchg   %ax,%ax
movsbl (%r14,%rbx,1),%edi
call   1050 <isxdigit@plt>
test   %eax,%eax
je     118c <pr_nsap+0x5c>
cmpb   $0x2e,0x1(%r14,%rbx,1)
jne    1188 <pr_nsap+0x58>
lea    0x2(%rbx),%r15
lea    (%r14,%rbx,1),%r12
add    $0x2,%r12
movsbl 0x2(%r14,%rbx,1),%edi
xor    %eax,%eax
call   1040 <isascii@plt>
mov    %r15,%rbx
test   %eax,%eax
jne    1150 <pr_nsap+0x20>
jmp    118f <pr_nsap+0x5f>
lea    (%r14,%rbx,1),%r12
mov    %rbx,%r15
lea    -0x51(%r15),%eax
cmp    $0xffffffb0,%eax
jb     11b3 <pr_nsap+0x83>
mov    %r15d,%eax
and    $0x2,%eax
jne    11b3 <pr_nsap+0x83>
lea    0xe59(%rip),%rsi
mov    %r12,%rdi
call   1030 <strcasecmp@plt>
test   %eax,%eax
je     11c2 <pr_nsap+0x92>
mov    %r14,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret
lea    0x2e87(%rip),%rax
mov    %rax,%rbx
cmp    $0x4,%r15d
jb     122d <pr_nsap+0xfd>
lea    0x4(%r15),%ecx
lea    -0x2(%r15),%r8d
add    $0xfffffffc,%r15d
lea    0x2e6b(%rip),%rdi
xor    %esi,%esi
jmp    1202 <pr_nsap+0xd2>
nopl   0x0(%rax)
add    $0x1,%esi
add    $0xfffffffc,%ecx
add    $0xfffffffffffffffc,%r14
mov    %rbx,%rdi
cmp    $0x7,%ecx
jbe    122d <pr_nsap+0xfd>
movzbl (%r14,%r8,1),%ebx
mov    %bl,(%rdi)
movzbl (%r14,%r15,1),%edx
lea    0x2(%rdi),%rbx
mov    %dl,0x1(%rdi)
test   $0x1,%sil
jne    11f0 <pr_nsap+0xc0>
cmp    $0x8,%ecx
je     11f0 <pr_nsap+0xc0>
movb   $0x2e,0x2(%rdi)
add    $0x3,%rdi
mov    %rdi,%rbx
jmp    11f0 <pr_nsap+0xc0>
movb   $0x0,(%rbx)
jmp    11b6 <pr_nsap+0x86>

LLVM IR (-O0):
@pr_nsap.buf = internal global [61 x i8] zeroinitializer
@.str = [9 x i8] c"nsap.int\00"
define i8* @pr_nsap(i8* %0) {
%2 = alloca i8*
%3 = alloca i8*
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
store i8* %0, i8** %3
store i32 0, i32* %6
br label %7
7: ; preds = %37, %1
%8 = load i8*, i8** %3
%9 = load i32, i32* %6
%10 = sext i32 %9 to i64
%11 = getelementptr inbounds i8, i8* %8, i64 %10
%12 = load i8, i8* %11
%13 = sext i8 %12 to i32
%14 = call i32 (i32, ...) bitcast (i32 (...)* @isascii to i32 (i32, ...)*)(i32 %13)
%15 = icmp ne i32 %14, 0
br i1 %15, label %16, label %34
16: ; preds = %7
%17 = load i8*, i8** %3
%18 = load i32, i32* %6
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds i8, i8* %17, i64 %19
%21 = load i8, i8* %20
%22 = sext i8 %21 to i32
%23 = call i32 @isxdigit(i32 %22)
%24 = icmp ne i32 %23, 0
br i1 %24, label %25, label %34
25: ; preds = %16
%26 = load i8*, i8** %3
%27 = load i32, i32* %6
%28 = add nsw i32 %27, 1
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds i8, i8* %26, i64 %29
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
%33 = icmp eq i32 %32, 46
br label %34
34: ; preds = %25, %16, %7
%35 = phi i1 [ false, %16 ], [ false, %7 ], [ %33, %25 ]
br i1 %35, label %36, label %40
36: ; preds = %34
br label %37
37: ; preds = %36
%38 = load i32, i32* %6
%39 = add nsw i32 %38, 2
store i32 %39, i32* %6
br label %7
40: ; preds = %34
%41 = load i32, i32* %6
%42 = icmp eq i32 %41, 0
br i1 %42, label %47, label %43
43: ; preds = %40
%44 = load i32, i32* %6
%45 = srem i32 %44, 4
%46 = icmp ne i32 %45, 0
br i1 %46, label %47, label %49
47: ; preds = %43, %40
%48 = load i8*, i8** %3
store i8* %48, i8** %2
br label %102
49: ; preds = %43
%50 = load i32, i32* %6
%51 = icmp sgt i32 %50, 80
br i1 %51, label %52, label %54
52: ; preds = %49
%53 = load i8*, i8** %3
store i8* %53, i8** %2
br label %102
54: ; preds = %49
%55 = load i8*, i8** %3
%56 = load i32, i32* %6
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds i8, i8* %55, i64 %57
%59 = call i32 @strcasecmp(i8* %58, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0))
%60 = icmp eq i32 %59, 0
br i1 %60, label %63, label %61
61: ; preds = %54
%62 = load i8*, i8** %3
store i8* %62, i8** %2
br label %102
63: ; preds = %54
store i8* getelementptr inbounds ([61 x i8], [61 x i8]* @pr_nsap.buf, i64 0, i64 0), i8** %4
store i32 0, i32* %5
br label %64
64: ; preds = %95, %63
%65 = load i32, i32* %6
%66 = icmp sge i32 %65, 4
br i1 %66, label %67, label %100
67: ; preds = %64
%68 = load i8*, i8** %3
%69 = load i32, i32* %6
%70 = sub nsw i32 %69, 2
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds i8, i8* %68, i64 %71
%73 = load i8, i8* %72
%74 = load i8*, i8** %4
%75 = getelementptr inbounds i8, i8* %74, i32 1
store i8* %75, i8** %4
store i8 %73, i8* %74
%76 = load i8*, i8** %3
%77 = load i32, i32* %6
%78 = sub nsw i32 %77, 4
%79 = sext i32 %78 to i64
%80 = getelementptr inbounds i8, i8* %76, i64 %79
%81 = load i8, i8* %80
%82 = load i8*, i8** %4
%83 = getelementptr inbounds i8, i8* %82, i32 1
store i8* %83, i8** %4
store i8 %81, i8* %82
%84 = load i32, i32* %5
%85 = srem i32 %84, 2
%86 = icmp eq i32 %85, 0
br i1 %86, label %87, label %94
87: ; preds = %67
%88 = load i32, i32* %6
%89 = sub nsw i32 %88, 4
%90 = icmp sgt i32 %89, 0
br i1 %90, label %91, label %94
91: ; preds = %87
%92 = load i8*, i8** %4
%93 = getelementptr inbounds i8, i8* %92, i32 1
store i8* %93, i8** %4
store i8 46, i8* %92
br label %94
94: ; preds = %91, %87, %67
br label %95
95: ; preds = %94
%96 = load i32, i32* %6
%97 = sub nsw i32 %96, 4
store i32 %97, i32* %6
%98 = load i32, i32* %5
%99 = add nsw i32 %98, 1
store i32 %99, i32* %5
br label %64
100: ; preds = %64
%101 = load i8*, i8** %4
store i8 0, i8* %101
store i8* getelementptr inbounds ([61 x i8], [61 x i8]* @pr_nsap.buf, i64 0, i64 0), i8** %2
br label %102
102: ; preds = %100, %61, %52, %47
%103 = load i8*, i8** %2
ret i8* %103
}

LLVM IR (-O2):
@pr_nsap.buf = internal global [61 x i8] zeroinitializer
@.str = [9 x i8] c"nsap.int\00"
define i8* @pr_nsap(i8* %0) {
%2 = load i8, i8* %0
%3 = sext i8 %2 to i32
%4 = tail call i32 (i32, ...) bitcast (i32 (...)* @isascii to i32 (i32, ...)*)(i32 %3)
%5 = icmp eq i32 %4, 0
br i1 %5, label %65, label %6
6: ; preds = %1, %18
%7 = phi i64 [ %19, %18 ], [ 0, %1 ]
%8 = phi i8* [ %20, %18 ], [ %0, %1 ]
%9 = load i8, i8* %8
%10 = sext i8 %9 to i32
%11 = tail call i32 @isxdigit(i32 %10)
%12 = icmp eq i32 %11, 0
br i1 %12, label %25, label %13
13: ; preds = %6
%14 = or i64 %7, 1
%15 = getelementptr inbounds i8, i8* %0, i64 %14
%16 = load i8, i8* %15
%17 = icmp eq i8 %16, 46
br i1 %17, label %18, label %25
18: ; preds = %13
%19 = add nuw i64 %7, 2
%20 = getelementptr inbounds i8, i8* %0, i64 %19
%21 = load i8, i8* %20
%22 = sext i8 %21 to i32
%23 = tail call i32 (i32, ...) bitcast (i32 (...)* @isascii to i32 (i32, ...)*)(i32 %22)
%24 = icmp eq i32 %23, 0
br i1 %24, label %25, label %6
25: ; preds = %13, %6, %18
%26 = phi i64 [ %7, %13 ], [ %7, %6 ], [ %19, %18 ]
%27 = phi i8* [ %8, %13 ], [ %8, %6 ], [ %20, %18 ]
%28 = trunc i64 %26 to i32
%29 = and i32 %28, 2
%30 = icmp ne i32 %29, 0
%31 = add nsw i32 %28, -81
%32 = icmp ult i32 %31, -80
%33 = or i1 %32, %30
br i1 %33, label %65, label %34
34: ; preds = %25
%35 = tail call i32 @strcasecmp(i8* %27, i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str, i64 0, i64 0))
%36 = icmp eq i32 %35, 0
br i1 %36, label %37, label %65
37: ; preds = %34
%38 = icmp ugt i32 %28, 3
br i1 %38, label %39, label %63
39: ; preds = %37, %59
%40 = phi i32 [ %48, %59 ], [ %28, %37 ]
%41 = phi i32 [ %61, %59 ], [ 0, %37 ]
%42 = phi i8* [ %60, %59 ], [ getelementptr inbounds ([61 x i8], [61 x i8]* @pr_nsap.buf, i64 0, i64 0), %37 ]
%43 = add nsw i32 %40, -2
%44 = zext i32 %43 to i64
%45 = getelementptr inbounds i8, i8* %0, i64 %44
%46 = load i8, i8* %45
%47 = getelementptr inbounds i8, i8* %42, i64 1
store i8 %46, i8* %42
%48 = add nsw i32 %40, -4
%49 = zext i32 %48 to i64
%50 = getelementptr inbounds i8, i8* %0, i64 %49
%51 = load i8, i8* %50
%52 = getelementptr inbounds i8, i8* %42, i64 2
store i8 %51, i8* %47
%53 = and i32 %41, 1
%54 = icmp eq i32 %53, 0
%55 = icmp ne i32 %40, 4
%56 = select i1 %54, i1 %55, i1 false
br i1 %56, label %57, label %59
57: ; preds = %39
%58 = getelementptr inbounds i8, i8* %42, i64 3
store i8 46, i8* %52
br label %59
59: ; preds = %39, %57
%60 = phi i8* [ %58, %57 ], [ %52, %39 ]
%61 = add nuw nsw i32 %41, 1
%62 = icmp ugt i32 %40, 7
br i1 %62, label %39, label %63
63: ; preds = %59, %37
%64 = phi i8* [ getelementptr inbounds ([61 x i8], [61 x i8]* @pr_nsap.buf, i64 0, i64 0), %37 ], [ %60, %59 ]
store i8 0, i8* %64
br label %65
65: ; preds = %1, %34, %25, %63
%66 = phi i8* [ getelementptr inbounds ([61 x i8], [61 x i8]* @pr_nsap.buf, i64 0, i64 0), %63 ], [ %0, %25 ], [ %0, %34 ], [ %0, %1 ]
ret i8* %66
}