int hputm(hstring, keyword, cval)
char *hstring;
char *keyword;
char *cval;
{
  int lroot = 0, lcv, i, ii, nkw, lkw, lval;
  int comment = 0;
  char keyroot[8], newkey[12], *v, value[80];
  char squot = 39;
  lkw = strlen(keyword);
  if (lkw == 7 && (strncmp(keyword, "COMMENT", 7) == 0 ||
                   strncmp(keyword, "HISTORY", 7) == 0))
    comment = 1;
  else {
    comment = 0;
    strcpy(keyroot, keyword);
    lroot = strlen(keyroot);
    if (lroot > 6) {
      keyroot[6] = (char)0;
      lroot = 6;
    }
  }
  ii = '1';
  nkw = 0;
  lcv = strlen(cval);
  strcpy(newkey, keyroot);
  strcat(newkey, "_");
  newkey[lroot + 2] = (char)0;
  v = cval;
  while (lcv > 0) {
    if (lcv > 67)
      lval = 67;
    else
      lval = lcv;
    value[0] = squot;
    for (i = 1; i <= lval; i++)
      value[i] = *v++;
    if (lval < 8) {
      for (i = lval + 1; i < 9; i++)
        value[i] = ' ';
      lval = 8;
    }
    value[lval + 1] = squot;
    value[lval + 2] = (char)0;
    if (comment)
      i = hputc(hstring, keyroot, value);
    else {
      newkey[lroot + 1] = ii;
      ii++;
      i = hputc(hstring, newkey, value);
    }
    if (i != 0)
      return (i);
    nkw++;
    if (lcv > 67)
      lcv = lcv - 67;
    else
      break;
  }
  return (nkw);
}


x86 assembly (clang, -O0):
<hputm>:
push   %rbp
mov    %rsp,%rbp
sub    $0xc0,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x40(%rbp)
movb   $0x27,-0xb1(%rbp)
mov    -0x18(%rbp),%rdi
call   1050 <strlen@plt>
mov    %eax,-0x38(%rbp)
cmpl   $0x7,-0x38(%rbp)
jne    11da <hputm+0x8a>
mov    -0x18(%rbp),%rdi
lea    0xe63(%rip),%rsi
mov    $0x7,%edx
call   1030 <strncmp@plt>
cmp    $0x0,%eax
je     11ce <hputm+0x7e>
mov    -0x18(%rbp),%rdi
lea    0xe4d(%rip),%rsi
mov    $0x7,%edx
call   1030 <strncmp@plt>
cmp    $0x0,%eax
jne    11da <hputm+0x8a>
movl   $0x1,-0x40(%rbp)
jmp    1214 <hputm+0xc4>
movl   $0x0,-0x40(%rbp)
lea    -0x48(%rbp),%rdi
mov    -0x18(%rbp),%rsi
call   1040 <strcpy@plt>
lea    -0x48(%rbp),%rdi
call   1050 <strlen@plt>
mov    %eax,-0x24(%rbp)
cmpl   $0x6,-0x24(%rbp)
jle    120f <hputm+0xbf>
movb   $0x0,-0x42(%rbp)
movl   $0x6,-0x24(%rbp)
jmp    1214 <hputm+0xc4>
movl   $0x31,-0x30(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x20(%rbp),%rdi
call   1050 <strlen@plt>
mov    %eax,-0x28(%rbp)
lea    -0x54(%rbp),%rdi
lea    -0x48(%rbp),%rsi
call   1040 <strcpy@plt>
lea    -0x54(%rbp),%rdi
lea    0xdca(%rip),%rsi
call   1070 <strcat@plt>
mov    -0x24(%rbp),%eax
add    $0x2,%eax
cltq
movb   $0x0,-0x54(%rbp,%rax,1)
mov    -0x20(%rbp),%rax
mov    %rax,-0x60(%rbp)
cmpl   $0x0,-0x28(%rbp)
jle    13cd <hputm+0x27d>
cmpl   $0x43,-0x28(%rbp)
jle    1280 <hputm+0x130>
movl   $0x43,-0x3c(%rbp)
jmp    1286 <hputm+0x136>
mov    -0x28(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0xb1(%rbp),%al
mov    %al,-0xb0(%rbp)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x3c(%rbp),%eax
jg     12cf <hputm+0x17f>
mov    -0x60(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x60(%rbp)
mov    (%rax),%cl
movslq -0x2c(%rbp),%rax
mov    %cl,-0xb0(%rbp,%rax,1)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1299 <hputm+0x149>
cmpl   $0x8,-0x3c(%rbp)
jge    130d <hputm+0x1bd>
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x9,-0x2c(%rbp)
jge    1306 <hputm+0x1b6>
movslq -0x2c(%rbp),%rax
movb   $0x20,-0xb0(%rbp,%rax,1)
20
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    12e2 <hputm+0x192>
movl   $0x8,-0x3c(%rbp)
mov    -0xb1(%rbp),%cl
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
cltq
mov    %cl,-0xb0(%rbp,%rax,1)
mov    -0x3c(%rbp),%eax
add    $0x2,%eax
cltq
movb   $0x0,-0xb0(%rbp,%rax,1)
cmpl   $0x0,-0x40(%rbp)
je     135a <hputm+0x20a>
mov    -0x10(%rbp),%rdi
lea    -0x48(%rbp),%rsi
lea    -0xb0(%rbp),%rdx
mov    $0x0,%al
call   1060 <hputc@plt>
mov    %eax,-0x2c(%rbp)
jmp    138d <hputm+0x23d>
mov    -0x30(%rbp),%eax
mov    %al,%cl
mov    -0x24(%rbp),%eax
add    $0x1,%eax
cltq
mov    %cl,-0x54(%rbp,%rax,1)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x10(%rbp),%rdi
lea    -0x54(%rbp),%rsi
lea    -0xb0(%rbp),%rdx
mov    $0x0,%al
call   1060 <hputc@plt>
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
je     13a2 <hputm+0x252>
mov    -0x2c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    13d3 <hputm+0x283>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
cmpl   $0x43,-0x28(%rbp)
jle    13c3 <hputm+0x273>
mov    -0x28(%rbp),%eax
sub    $0x43,%eax
mov    %eax,-0x28(%rbp)
jmp    13c8 <hputm+0x278>
jmp    13cd <hputm+0x27d>
jmp    1260 <hputm+0x110>
mov    -0x34(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0xc0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<hputm>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x98,%rsp
mov    %rdx,%rbx
mov    %rsi,%rbp
mov    %rdi,0x10(%rsp)
mov    %rsi,%rdi
call   1050 <strlen@plt>
cmp    $0x7,%eax
jne    11a9 <hputm+0x59>
lea    0xe80(%rip),%rsi
mov    $0x7,%edx
mov    %rbp,%rdi
call   1030 <strncmp@plt>
test   %eax,%eax
je     11de <hputm+0x8e>
lea    0xe70(%rip),%rsi
mov    $0x7,%edx
mov    %rbp,%rdi
call   1030 <strncmp@plt>
test   %eax,%eax
je     11de <hputm+0x8e>
lea    0x24(%rsp),%r15
mov    %r15,%rdi
mov    %rbp,%rsi
call   1040 <strcpy@plt>
mov    %r15,%rdi
call   1050 <strlen@plt>
mov    %rax,%r14
mov    $0x1,%al
mov    %rax,0x18(%rsp)
cmp    $0x7,%r14d
jl     11e8 <hputm+0x98>
movb   $0x0,0x2a(%rsp)
mov    $0x6,%r14d
jmp    11e8 <hputm+0x98>
xor    %r14d,%r14d
xor    %eax,%eax
mov    %rax,0x18(%rsp)
mov    %rbx,%rdi
call   1050 <strlen@plt>
mov    %rax,%r12
lea    0x2c(%rsp),%rbp
lea    0x24(%rsp),%rsi
mov    %rbp,%rdi
call   1040 <strcpy@plt>
mov    %rbp,%rdi
call   1050 <strlen@plt>
movw   $0x5f,0x2c(%rsp,%rax,1)
movslq %r14d,%rcx
mov    %rcx,%rax
mov    %rcx,0x38(%rsp)
movb   $0x0,0x2(%rcx,%rbp,1)
test   %r12d,%r12d
jle    14b3 <hputm+0x363>
lea    0x41(%rsp),%rax
movl   $0x31,0xc(%rsp)
xor    %r15d,%r15d
mov    %r12d,%r13d
mov    0x10(%rsp),%rbp
cs nopw 0x0(%rax,%rax,1)
nop
cmp    $0x43,%r13d
mov    $0x43,%ecx
cmovb  %r13d,%ecx
imul   $0xffffffbd,%r15d,%r9d
add    %r12d,%r9d
cmp    $0x43,%r9d
mov    $0x43,%edx
cmovae %edx,%r9d
movb   $0x27,0x40(%rsp)
mov    $0x1,%edx
cmp    $0x20,%r9d
jb     1390 <hputm+0x240>
lea    (%rbx,%r9,1),%rsi
cmp    %rsi,%rax
jae    129b <hputm+0x14b>
lea    (%rax,%r9,1),%rsi
cmp    %rsi,%rbx
jb     1390 <hputm+0x240>
mov    %ecx,%esi
and    $0x60,%esi
add    $0xffffffffffffffe0,%rsi
shr    $0x5,%rsi
mov    %ecx,%edx
and    $0x60,%edx
add    $0xffffffffffffffe0,%rdx
mov    %rdx,%r8
shr    $0x5,%r8
add    $0x1,%r8
cmp    $0x60,%rdx
jae    12c6 <hputm+0x176>
xor    %edi,%edi
jmp    1335 <hputm+0x1e5>
lea    0x1(%rsi),%rdx
and    $0xfffffffffffffffc,%rdx
xor    %edi,%edi
movups (%rbx,%rdi,1),%xmm0
movups 0x10(%rbx,%rdi,1),%xmm1
movups %xmm0,0x41(%rsp,%rdi,1)
movups %xmm1,0x51(%rsp,%rdi,1)
movups 0x20(%rbx,%rdi,1),%xmm0
movups 0x30(%rbx,%rdi,1),%xmm1
movups %xmm0,0x61(%rsp,%rdi,1)
movups %xmm1,0x71(%rsp,%rdi,1)
movups 0x40(%rbx,%rdi,1),%xmm0
movups 0x50(%rbx,%rdi,1),%xmm1
movups %xmm0,0x81(%rsp,%rdi,1)
movups %xmm1,0x91(%rsp,%rdi,1)
movups 0x60(%rbx,%rdi,1),%xmm0
movups 0x70(%rbx,%rdi,1),%xmm1
movups %xmm0,0xa1(%rsp,%rdi,1)
movups %xmm1,0xb1(%rsp,%rdi,1)
sub    $0xffffffffffffff80,%rdi
add    $0xfffffffffffffffc,%rdx
jne    12d0 <hputm+0x180>
mov    %r9d,%edx
and    $0x60,%edx
test   $0x3,%r8b
je     1374 <hputm+0x224>
add    $0x1,%sil
movzbl %sil,%esi
and    $0x3,%esi
nopl   0x0(%rax)
mov    %rdi,%rbp
or     $0x1,%rbp
movups (%rbx,%rdi,1),%xmm0
movups 0x10(%rbx,%rdi,1),%xmm1
movups %xmm0,0x40(%rsp,%rbp,1)
movups %xmm1,0x50(%rsp,%rbp,1)
add    $0x20,%rdi
add    $0xffffffffffffffff,%rsi
jne    1350 <hputm+0x200>
add    %rdx,%rbx
cmp    %r9,%rdx
jne    1386 <hputm+0x236>
mov    0x10(%rsp),%rbp
jmp    140e <hputm+0x2be>
or     $0x1,%rdx
mov    0x10(%rsp),%rbp
nop
mov    %ecx,%edi
sub    %edx,%edi
add    $0x1,%edi
mov    %rcx,%rsi
sub    %rdx,%rsi
test   $0x3,%dil
je     13c5 <hputm+0x275>
mov    %ecx,%eax
sub    %dl,%al
add    $0x1,%al
movzbl %al,%edi
and    $0x3,%edi
nop
movzbl (%rbx),%eax
add    $0x1,%rbx
mov    %al,0x40(%rsp,%rdx,1)
add    $0x1,%rdx
add    $0xffffffffffffffff,%rdi
jne    13b0 <hputm+0x260>
cmp    $0x3,%rsi
jb     140e <hputm+0x2be>
sub    %rdx,%rcx
add    $0x1,%rcx
lea    0x43(%rsp),%rax
add    %rax,%rdx
xor    %esi,%esi
nopl   0x0(%rax)
movzbl (%rbx,%rsi,1),%eax
mov    %al,-0x3(%rdx,%rsi,1)
movzbl 0x1(%rbx,%rsi,1),%eax
mov    %al,-0x2(%rdx,%rsi,1)
movzbl 0x2(%rbx,%rsi,1),%eax
mov    %al,-0x1(%rdx,%rsi,1)
movzbl 0x3(%rbx,%rsi,1),%eax
mov    %al,(%rdx,%rsi,1)
add    $0x4,%rsi
cmp    %rsi,%rcx
jne    13e0 <hputm+0x290>
add    %rsi,%rbx
mov    %r12,%r14
mov    %r13d,%r12d
sub    $0x43,%r12d
mov    $0x43,%ecx
cmovb  %r13d,%ecx
cmp    $0x7,%ecx
ja     144a <hputm+0x2fa>
mov    $0x7,%edx
sub    %r9d,%edx
add    $0x1,%rdx
lea    0x41(%rsp),%rax
lea    (%rax,%r9,1),%rdi
mov    $0x20,%esi
call   1060 <memset@plt>
mov    $0x8,%ecx
mov    %ecx,%eax
lea    0x40(%rsp),%rcx
movw   $0x27,0x1(%rax,%rcx,1)
cmpb   $0x0,0x18(%rsp)
je     1480 <hputm+0x330>
mov    0x38(%rsp),%rax
mov    0xc(%rsp),%ecx
mov    %cl,0x2d(%rsp,%rax,1)
add    $0x1,%ecx
mov    %ecx,0xc(%rsp)
lea    0x2c(%rsp),%rsi
jmp    1485 <hputm+0x335>
nopw   0x0(%rax,%rax,1)
lea    0x24(%rsp),%rsi
mov    %rbp,%rdi
lea    0x40(%rsp),%rdx
xor    %eax,%eax
call   1070 <hputc@plt>
test   %eax,%eax
jne    14b8 <hputm+0x368>
add    $0x1,%r15d
cmp    $0x43,%r13d
mov    %r12d,%r13d
mov    %r14,%r12
lea    0x41(%rsp),%rax
jg     1250 <hputm+0x100>
jmp    14bb <hputm+0x36b>
xor    %r15d,%r15d
jmp    14bb <hputm+0x36b>
mov    %eax,%r15d
mov    %r15d,%eax
add    $0x98,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [8 x i8] c"COMMENT\00"
@.str.1 = [8 x i8] c"HISTORY\00"
define i32 @hputm(i8* %0, i8* nocapture %1, i8* nocapture %2) {
%4 = alloca [8 x i8]
%5 = alloca [12 x i8]
%6 = alloca [80 x i8]
%7 = getelementptr inbounds [8 x i8], [8 x i8]* %4, i64 0, i64 0
%8 = getelementptr inbounds [12 x i8], [12 x i8]* %5, i64 0, i64 0
%9 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 0
%10 = tail call i64 @strlen(i8* dereferenceable(1) %1)
%11 = trunc i64 %10 to i32
%12 = icmp eq i32 %11, 7
br i1 %12, label %13, label %19
13: ; preds = %3
%14 = tail call i32 @strncmp(i8* dereferenceable(1) %1, i8* dereferenceable(8) getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i64 7)
%15 = icmp eq i32 %14, 0
br i1 %15, label %26, label %16
16: ; preds = %13
%17 = tail call i32 @strncmp(i8* dereferenceable(1) %1, i8* dereferenceable(8) getelementptr inbounds ([8 x i8], [8 x i8]* @.str.1, i64 0, i64 0), i64 7)
%18 = icmp eq i32 %17, 0
br i1 %18, label %26, label %19
19: ; preds = %16, %3
%20 = call i8* @strcpy(i8* %7, i8* dereferenceable(1) %1)
%21 = call i64 @strlen(i8* %7)
%22 = trunc i64 %21 to i32
%23 = icmp sgt i32 %22, 6
br i1 %23, label %24, label %26
24: ; preds = %19
%25 = getelementptr inbounds [8 x i8], [8 x i8]* %4, i64 0, i64 6
store i8 0, i8* %25
br label %26
26: ; preds = %13, %16, %19, %24
%27 = phi i32 [ 6, %24 ], [ %22, %19 ], [ 0, %16 ], [ 0, %13 ]
%28 = phi i1 [ true, %24 ], [ true, %19 ], [ false, %16 ], [ false, %13 ]
%29 = call i64 @strlen(i8* dereferenceable(1) %2)
%30 = trunc i64 %29 to i32
%31 = call i8* @strcpy(i8* %8, i8* %7)
%32 = call i64 @strlen(i8* %8)
%33 = getelementptr [12 x i8], [12 x i8]* %5, i64 0, i64 %32
%34 = bitcast i8* %33 to i16*
store i16 95, i16* %34
%35 = add nsw i32 %27, 2
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds [12 x i8], [12 x i8]* %5, i64 0, i64 %36
store i8 0, i8* %37
%38 = icmp sgt i32 %30, 0
br i1 %38, label %39, label %237
39: ; preds = %26
%40 = add nsw i32 %27, 1
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds [12 x i8], [12 x i8]* %5, i64 0, i64 %41
%43 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 1
%44 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 1
%45 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 1
br label %46
46: ; preds = %233, %39
%47 = phi i8* [ %2, %39 ], [ %211, %233 ]
%48 = phi i32 [ 0, %39 ], [ %234, %233 ]
%49 = phi i32 [ 49, %39 ], [ %230, %233 ]
%50 = phi i32 [ %30, %39 ], [ %235, %233 ]
%51 = call i32 @llvm.umin.i32(i32 %50, i32 67)
%52 = zext i32 %51 to i64
%53 = call i32 @llvm.umin.i32(i32 %50, i32 67)
%54 = and i32 %53, 96
%55 = zext i32 %54 to i64
%56 = add nsw i64 %55, -32
%57 = lshr exact i64 %56, 5
%58 = add nuw nsw i64 %57, 1
%59 = mul i32 %48, -67
%60 = add i32 %59, %30
%61 = call i32 @llvm.umin.i32(i32 %60, i32 67)
%62 = zext i32 %61 to i64
%63 = mul i32 %48, -67
%64 = add i32 %63, %30
%65 = call i32 @llvm.umin.i32(i32 %64, i32 67)
%66 = zext i32 %65 to i64
%67 = call i32 @llvm.umin.i32(i32 %50, i32 67)
%68 = add nuw nsw i32 %67, 1
%69 = zext i32 %68 to i64
%70 = mul nsw i32 %48, -67
%71 = add nsw i32 %70, %30
%72 = call i32 @llvm.umin.i32(i32 %71, i32 67)
%73 = zext i32 %72 to i64
%74 = sub nsw i32 7, %72
%75 = zext i32 %74 to i64
%76 = icmp ult i32 %50, 67
store i8 39, i8* %9
%77 = icmp ult i32 %61, 32
br i1 %77, label %167, label %78
78: ; preds = %46
%79 = getelementptr i8, i8* %45, i64 %66
%80 = getelementptr i8, i8* %47, i64 %66
%81 = icmp ult i8* %44, %80
%82 = icmp ult i8* %47, %79
%83 = and i1 %81, %82
br i1 %83, label %167, label %84
84: ; preds = %78
%85 = and i64 %62, 96
%86 = or i64 %85, 1
%87 = getelementptr i8, i8* %47, i64 %85
%88 = and i64 %58, 3
%89 = icmp ult i64 %56, 96
br i1 %89, label %145, label %90
90: ; preds = %84
%91 = and i64 %58, 1152921504606846972
br label %92
92: ; preds = %92, %90
%93 = phi i64 [ 0, %90 ], [ %142, %92 ]
%94 = phi i64 [ 0, %90 ], [ %143, %92 ]
%95 = or i64 %93, 1
%96 = getelementptr i8, i8* %47, i64 %93
%97 = bitcast i8* %96 to <16 x i8>*
%98 = load <16 x i8>, <16 x i8>* %97
%99 = getelementptr i8, i8* %96, i64 16
%100 = bitcast i8* %99 to <16 x i8>*
%101 = load <16 x i8>, <16 x i8>* %100
%102 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %95
%103 = bitcast i8* %102 to <16 x i8>*
store <16 x i8> %98, <16 x i8>* %103
%104 = getelementptr inbounds i8, i8* %102, i64 16
%105 = bitcast i8* %104 to <16 x i8>*
store <16 x i8> %101, <16 x i8>* %105
%106 = or i64 %93, 32
%107 = or i64 %93, 33
%108 = getelementptr i8, i8* %47, i64 %106
%109 = bitcast i8* %108 to <16 x i8>*
%110 = load <16 x i8>, <16 x i8>* %109
%111 = getelementptr i8, i8* %108, i64 16
%112 = bitcast i8* %111 to <16 x i8>*
%113 = load <16 x i8>, <16 x i8>* %112
%114 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %107
%115 = bitcast i8* %114 to <16 x i8>*
store <16 x i8> %110, <16 x i8>* %115
%116 = getelementptr inbounds i8, i8* %114, i64 16
%117 = bitcast i8* %116 to <16 x i8>*
store <16 x i8> %113, <16 x i8>* %117
%118 = or i64 %93, 64
%119 = or i64 %93, 65
%120 = getelementptr i8, i8* %47, i64 %118
%121 = bitcast i8* %120 to <16 x i8>*
%122 = load <16 x i8>, <16 x i8>* %121
%123 = getelementptr i8, i8* %120, i64 16
%124 = bitcast i8* %123 to <16 x i8>*
%125 = load <16 x i8>, <16 x i8>* %124
%126 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %119
%127 = bitcast i8* %126 to <16 x i8>*
store <16 x i8> %122, <16 x i8>* %127
%128 = getelementptr inbounds i8, i8* %126, i64 16
%129 = bitcast i8* %128 to <16 x i8>*
store <16 x i8> %125, <16 x i8>* %129
%130 = or i64 %93, 96
%131 = or i64 %93, 97
%132 = getelementptr i8, i8* %47, i64 %130
%133 = bitcast i8* %132 to <16 x i8>*
%134 = load <16 x i8>, <16 x i8>* %133
%135 = getelementptr i8, i8* %132, i64 16
%136 = bitcast i8* %135 to <16 x i8>*
%137 = load <16 x i8>, <16 x i8>* %136
%138 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %131
%139 = bitcast i8* %138 to <16 x i8>*
store <16 x i8> %134, <16 x i8>* %139
%140 = getelementptr inbounds i8, i8* %138, i64 16
%141 = bitcast i8* %140 to <16 x i8>*
store <16 x i8> %137, <16 x i8>* %141
%142 = add nuw i64 %93, 128
%143 = add i64 %94, 4
%144 = icmp eq i64 %143, %91
br i1 %144, label %145, label %92
145: ; preds = %92, %84
%146 = phi i64 [ 0, %84 ], [ %142, %92 ]
%147 = icmp eq i64 %88, 0
br i1 %147, label %165, label %148
148: ; preds = %145, %148
%149 = phi i64 [ %162, %148 ], [ %146, %145 ]
%150 = phi i64 [ %163, %148 ], [ 0, %145 ]
%151 = or i64 %149, 1
%152 = getelementptr i8, i8* %47, i64 %149
%153 = bitcast i8* %152 to <16 x i8>*
%154 = load <16 x i8>, <16 x i8>* %153
%155 = getelementptr i8, i8* %152, i64 16
%156 = bitcast i8* %155 to <16 x i8>*
%157 = load <16 x i8>, <16 x i8>* %156
%158 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %151
%159 = bitcast i8* %158 to <16 x i8>*
store <16 x i8> %154, <16 x i8>* %159
%160 = getelementptr inbounds i8, i8* %158, i64 16
%161 = bitcast i8* %160 to <16 x i8>*
store <16 x i8> %157, <16 x i8>* %161
%162 = add nuw i64 %149, 32
%163 = add i64 %150, 1
%164 = icmp eq i64 %163, %88
br i1 %164, label %165, label %148
165: ; preds = %148, %145
%166 = icmp eq i64 %85, %62
br i1 %166, label %210, label %167
167: ; preds = %78, %46, %165
%168 = phi i64 [ 1, %78 ], [ 1, %46 ], [ %86, %165 ]
%169 = phi i8* [ %47, %78 ], [ %47, %46 ], [ %87, %165 ]
%170 = add nuw nsw i64 %52, 1
%171 = sub nsw i64 %170, %168
%172 = sub nsw i64 %52, %168
%173 = and i64 %171, 3
%174 = icmp eq i64 %173, 0
br i1 %174, label %185, label %175
175: ; preds = %167, %175
%176 = phi i64 [ %182, %175 ], [ %168, %167 ]
%177 = phi i8* [ %179, %175 ], [ %169, %167 ]
%178 = phi i64 [ %183, %175 ], [ 0, %167 ]
%179 = getelementptr inbounds i8, i8* %177, i64 1
%180 = load i8, i8* %177
%181 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %176
store i8 %180, i8* %181
%182 = add nuw nsw i64 %176, 1
%183 = add i64 %178, 1
%184 = icmp eq i64 %183, %173
br i1 %184, label %185, label %175
185: ; preds = %175, %167
%186 = phi i8* [ undef, %167 ], [ %179, %175 ]
%187 = phi i64 [ %168, %167 ], [ %182, %175 ]
%188 = phi i8* [ %169, %167 ], [ %179, %175 ]
%189 = icmp ult i64 %172, 3
br i1 %189, label %210, label %190
190: ; preds = %185, %190
%191 = phi i64 [ %208, %190 ], [ %187, %185 ]
%192 = phi i8* [ %205, %190 ], [ %188, %185 ]
%193 = getelementptr inbounds i8, i8* %192, i64 1
%194 = load i8, i8* %192
%195 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %191
store i8 %194, i8* %195
%196 = add nuw nsw i64 %191, 1
%197 = getelementptr inbounds i8, i8* %192, i64 2
%198 = load i8, i8* %193
%199 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %196
store i8 %198, i8* %199
%200 = add nuw nsw i64 %191, 2
%201 = getelementptr inbounds i8, i8* %192, i64 3
%202 = load i8, i8* %197
%203 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %200
store i8 %202, i8* %203
%204 = add nuw nsw i64 %191, 3
%205 = getelementptr inbounds i8, i8* %192, i64 4
%206 = load i8, i8* %201
%207 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %204
store i8 %206, i8* %207
%208 = add nuw nsw i64 %191, 4
%209 = icmp eq i64 %208, %69
br i1 %209, label %210, label %190
210: ; preds = %185, %190, %165
%211 = phi i8* [ %87, %165 ], [ %186, %185 ], [ %205, %190 ]
%212 = select i1 %76, i32 %50, i32 67
%213 = icmp ult i32 %212, 8
br i1 %213, label %214, label %217
214: ; preds = %210
%215 = add nuw nsw i64 %75, 1
%216 = getelementptr i8, i8* %43, i64 %73
br label %217
217: ; preds = %214, %210
%218 = phi i32 [ %212, %210 ], [ 8, %214 ]
%219 = add nuw nsw i32 %218, 1
%220 = zext i32 %219 to i64
%221 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %220
store i8 39, i8* %221
%222 = add nuw nsw i32 %218, 2
%223 = zext i32 %222 to i64
%224 = getelementptr inbounds [80 x i8], [80 x i8]* %6, i64 0, i64 %223
store i8 0, i8* %224
br i1 %28, label %225, label %228
225: ; preds = %217
%226 = trunc i32 %49 to i8
store i8 %226, i8* %42
%227 = add nsw i32 %49, 1
br label %228
228: ; preds = %217, %225
%229 = phi i8* [ %8, %225 ], [ %7, %217 ]
%230 = phi i32 [ %227, %225 ], [ %49, %217 ]
%231 = call i32 (i8*, i8*, i8*, ...) bitcast (i32 (...)* @hputc to i32 (i8*, i8*, i8*, ...)*)(i8* %0, i8* %229, i8* %9)
%232 = icmp eq i32 %231, 0
br i1 %232, label %233, label %237
233: ; preds = %228
%234 = add nuw nsw i32 %48, 1
%235 = add nsw i32 %50, -67
%236 = icmp sgt i32 %50, 67
br i1 %236, label %46, label %237
237: ; preds = %228, %233, %26
%238 = phi i32 [ 0, %26 ], [ %231, %228 ], [ %234, %233 ]
ret i32 %238
}