user: 请从给定的汇编指令推导出C源代码：

```asm
<wcshdo_util>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xa0,%rsp
  mov    %edi,-0x44(%rbp)
  mov    %rsi,-0x50(%rbp)
  mov    %rdx,-0x58(%rbp)
  mov    %ecx,-0x48(%rbp)
  mov    %r8,-0x60(%rbp)
  mov    %r9d,-0x64(%rbp)
  mov    0x20(%rbp),%eax
  mov    %al,-0x68(%rbp)
  mov    0x30(%rbp),%rax
  mov    %rax,-0x70(%rbp)
  mov    0x38(%rbp),%rax
  mov    %rax,-0x78(%rbp)
  mov    0x40(%rbp),%rax
  mov    %rax,-0x80(%rbp)
  mov    0x48(%rbp),%rax
  mov    %rax,-0x88(%rbp)
  mov    0x50(%rbp),%rax
  mov    %rax,-0x90(%rbp)
  mov    0x58(%rbp),%rax
  mov    %rax,-0x98(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movl   $0x2f,-0x3c(%rbp)
  mov    -0x98(%rbp),%rax
  mov    (%rax),%eax
  test   %eax,%eax
  jne    L332
  mov    -0x88(%rbp),%rax
  mov    (%rax),%eax
  and    $0x1f,%eax
  test   %eax,%eax
  jne    L108
  mov    -0x88(%rbp),%rax
  mov    (%rax),%eax
  lea    0x1f(%rax),%edx
  test   %eax,%eax
  cmovs  %edx,%eax
  sar    $0x5,%eax
  add    $0x1,%eax
  imul   $0xb40,%eax,%eax
  mov    %eax,-0x38(%rbp)
  mov    -0x38(%rbp),%eax
  movslq %eax,%rdx
  mov    -0x90(%rbp),%rax
  mov    (%rax),%rax
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <realloc@plt>
  mov    %rax,-0x30(%rbp)
  cmpq   $0x0,-0x30(%rbp)
  jne    L96
  mov    -0x98(%rbp),%rax
  movl   $0x2,(%rax)
  jmp    L443
L96:
  mov    -0x90(%rbp),%rax
  mov    -0x30(%rbp),%rdx
  mov    %rdx,(%rax)
L108:
  cmpb   $0x20,-0x68(%rbp)
  jne    L557
  movb   $0x0,-0x68(%rbp)
L557:
  cmpl   $0x0,0x28(%rbp)
  je     L293
  cmpl   $0x0,-0x64(%rbp)
  jle    L520
  cmpl   $0x0,0x10(%rbp)
  je     L520
  cmpl   $0x0,0x10(%rbp)
  jle    L188
  movsbl -0x68(%rbp),%ecx
  mov    0x28(%rbp),%edi
  mov    -0x58(%rbp),%rsi
  mov    -0x64(%rbp),%edx
  lea    -0x20(%rbp),%rax
  sub    $0x8,%rsp
  push   %rcx
  mov    %edi,%r9d
  mov    %rsi,%r8
  mov    0x10(%rbp),%ecx
  lea    D69(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  add    $0x10,%rsp
  jmp    L575
L188:
  movsbl -0x68(%rbp),%esi
  mov    0x18(%rbp),%r8d
  mov    0x28(%rbp),%edi
  mov    -0x58(%rbp),%rcx
  mov    -0x64(%rbp),%edx
  lea    -0x20(%rbp),%rax
  sub    $0x8,%rsp
  push   %rsi
  mov    %r8d,%r9d
  mov    %edi,%r8d
  lea    D61(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  add    $0x10,%rsp
  jmp    L575
L520:
  cmpl   $0x0,-0x64(%rbp)
  jle    L269
  movsbl -0x68(%rbp),%edi
  mov    0x28(%rbp),%esi
  mov    -0x58(%rbp),%rcx
  mov    -0x64(%rbp),%edx
  lea    -0x20(%rbp),%rax
  mov    %edi,%r9d
  mov    %esi,%r8d
  lea    D84(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L575
L269:
  cmpl   $0x0,0x10(%rbp)
  jle    L32
  movsbl -0x68(%rbp),%esi
  mov    0x28(%rbp),%ecx
  mov    -0x58(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r9d
  mov    %ecx,%r8d
  mov    %rdx,%rcx
  mov    0x10(%rbp),%edx
  lea    D84(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L575
L32:
  movsbl -0x68(%rbp),%esi
  mov    0x28(%rbp),%ecx
  mov    -0x58(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r8d
  lea    D141(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
L575:
  lea    -0x20(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  cmp    $0x7,%rax
  ja     L468
  cmpq   $0x0,-0x60(%rbp)
  je     L468
  mov    -0x44(%rbp),%eax
  and    -0x48(%rbp),%eax
  test   %eax,%eax
  je     L468
  cmpl   $0x0,-0x64(%rbp)
  jle    L245
  cmpl   $0x0,0x10(%rbp)
  je     L245
  cmpl   $0x0,0x10(%rbp)
  jle    L567
  movsbl -0x68(%rbp),%ecx
  mov    0x28(%rbp),%edi
  mov    -0x60(%rbp),%rsi
  mov    -0x64(%rbp),%edx
  lea    -0x20(%rbp),%rax
  sub    $0x8,%rsp
  push   %rcx
  mov    %edi,%r9d
  mov    %rsi,%r8
  mov    0x10(%rbp),%ecx
  lea    D69(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  add    $0x10,%rsp
  jmp    L468
L567:
  movsbl -0x68(%rbp),%esi
  mov    0x18(%rbp),%r8d
  mov    0x28(%rbp),%edi
  mov    -0x60(%rbp),%rcx
  mov    -0x64(%rbp),%edx
  lea    -0x20(%rbp),%rax
  sub    $0x8,%rsp
  push   %rsi
  mov    %r8d,%r9d
  mov    %edi,%r8d
  lea    D61(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  add    $0x10,%rsp
  jmp    L468
L245:
  cmpl   $0x0,-0x64(%rbp)
  jle    L39
  movsbl -0x68(%rbp),%edi
  mov    0x28(%rbp),%esi
  mov    -0x60(%rbp),%rcx
  mov    -0x64(%rbp),%edx
  lea    -0x20(%rbp),%rax
  mov    %edi,%r9d
  mov    %esi,%r8d
  lea    D84(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L468
L39:
  cmpl   $0x0,0x10(%rbp)
  jle    L55
  movsbl -0x68(%rbp),%esi
  mov    0x28(%rbp),%ecx
  mov    -0x60(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r9d
  mov    %ecx,%r8d
  mov    %rdx,%rcx
  mov    0x10(%rbp),%edx
  lea    D84(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L468
L55:
  movsbl -0x68(%rbp),%esi
  mov    0x28(%rbp),%ecx
  mov    -0x60(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r8d
  lea    D141(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L468
L293:
  cmpq   $0x0,-0x70(%rbp)
  je     L416
  mov    -0x70(%rbp),%rax
  mov    (%rax),%eax
  test   %eax,%eax
  je     L416
  cmpl   $0x0,-0x64(%rbp)
  jle    L389
  cmpl   $0x0,0x10(%rbp)
  je     L389
  cmpl   $0x0,0x10(%rbp)
  jle    L492
  movsbl -0x68(%rbp),%edi
  mov    0x10(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%esi
  mov    -0x64(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%ecx
  mov    -0x58(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %edi,%r9d
  mov    %esi,%r8d
  lea    D25(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L308
L492:
  movsbl -0x68(%rbp),%edi
  mov    -0x64(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%ecx
  mov    0x18(%rbp),%esi
  mov    -0x58(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %edi,%r9d
  mov    %esi,%r8d
  lea    D25(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L308
L389:
  cmpl   $0x0,-0x64(%rbp)
  jle    L601
  movsbl -0x68(%rbp),%esi
  mov    -0x64(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%ecx
  mov    -0x58(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r8d
  lea    D110(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L308
L601:
  cmpl   $0x0,0x10(%rbp)
  jle    L536
  movsbl -0x68(%rbp),%esi
  mov    0x10(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%ecx
  mov    -0x58(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r8d
  lea    D110(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L308
L536:
  movsbl -0x68(%rbp),%esi
  mov    -0x70(%rbp),%rax
  mov    (%rax),%ecx
  mov    -0x58(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r8d
  lea    D141(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
L308:
  lea    -0x20(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  cmp    $0x7,%rax
  ja     L668
  cmpq   $0x0,-0x60(%rbp)
  je     L668
  mov    -0x44(%rbp),%eax
  and    -0x48(%rbp),%eax
  test   %eax,%eax
  je     L668
  cmpl   $0x0,-0x64(%rbp)
  jle    L587
  cmpl   $0x0,0x10(%rbp)
  je     L587
  cmpl   $0x0,0x10(%rbp)
  jle    L353
  movsbl -0x68(%rbp),%edi
  mov    0x10(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%esi
  mov    -0x64(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%ecx
  mov    -0x60(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %edi,%r9d
  mov    %esi,%r8d
  lea    D25(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L233
L353:
  movsbl -0x68(%rbp),%edi
  mov    -0x64(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%ecx
  mov    0x18(%rbp),%esi
  mov    -0x60(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %edi,%r9d
  mov    %esi,%r8d
  lea    D25(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L233
L587:
  cmpl   $0x0,-0x64(%rbp)
  jle    L552
  movsbl -0x68(%rbp),%esi
  mov    -0x64(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%ecx
  mov    -0x60(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r8d
  lea    D110(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L668
L552:
  cmpl   $0x0,0x10(%rbp)
  jle    L152
  movsbl -0x68(%rbp),%esi
  mov    0x10(%rbp),%eax
  cltq
  shl    $0x2,%rax
  lea    -0x4(%rax),%rdx
  mov    -0x70(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%ecx
  mov    -0x60(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r8d
  lea    D110(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L668
L152:
  movsbl -0x68(%rbp),%esi
  mov    -0x70(%rbp),%rax
  mov    (%rax),%ecx
  mov    -0x60(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r8d
  lea    D141(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L668
L233:
  jmp    L668
L416:
  cmpl   $0x0,-0x64(%rbp)
  jle    L540
  cmpl   $0x0,0x10(%rbp)
  je     L540
  cmpl   $0x0,0x10(%rbp)
  jle    L615
  movsbl -0x68(%rbp),%esi
  mov    -0x64(%rbp),%ecx
  mov    -0x50(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r9d
  mov    0x10(%rbp),%r8d
  lea    D188(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L468
L615:
  movsbl -0x68(%rbp),%edi
  mov    0x18(%rbp),%esi
  mov    -0x64(%rbp),%ecx
  mov    -0x50(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %edi,%r9d
  mov    %esi,%r8d
  lea    D188(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L468
L540:
  cmpl   $0x0,-0x64(%rbp)
  jle    L476
  movsbl -0x68(%rbp),%esi
  mov    -0x64(%rbp),%ecx
  mov    -0x50(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %esi,%r8d
  lea    D141(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L468
L476:
  cmpl   $0x0,0x10(%rbp)
  jle    L178
  movsbl -0x68(%rbp),%ecx
  mov    -0x50(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %ecx,%r8d
  mov    0x10(%rbp),%ecx
  lea    D141(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L468
L178:
  movsbl -0x68(%rbp),%ecx
  mov    -0x50(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  lea    D113(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L468
L668:
  nop
L468:
  mov    -0x78(%rbp),%rax
  add    $0x1,%rax
  mov    %rax,-0x30(%rbp)
  jmp    L620
L633:
  mov    -0x30(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x27,%al
  jne    L228
  mov    -0x30(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x30(%rbp)
  mov    %rax,-0x28(%rbp)
  mov    -0x30(%rbp),%rax
  movzbl (%rax),%eax
  test   %al,%al
  je     L228
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  mov    %al,-0x3e(%rbp)
  jmp    L78
L640:
  addq   $0x1,-0x28(%rbp)
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  mov    %al,-0x3d(%rbp)
  mov    -0x28(%rbp),%rax
  movzbl -0x3e(%rbp),%edx
  mov    %dl,(%rax)
  movzbl -0x3d(%rbp),%eax
  mov    %al,-0x3e(%rbp)
L78:
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  test   %al,%al
  jne    L640
L228:
  addq   $0x1,-0x30(%rbp)
L620:
  mov    -0x30(%rbp),%rax
  movzbl (%rax),%eax
  test   %al,%al
  jne    L633
  mov    -0x78(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  cmp    $0x14,%rax
  seta   %al
  movzbl %al,%eax
  mov    %eax,-0x34(%rbp)
  cmpl   $0x0,-0x34(%rbp)
  je     L284
  mov    -0x34(%rbp),%eax
  sub    $0x14,%eax
  sub    %eax,-0x3c(%rbp)
L284:
  mov    -0x90(%rbp),%rax
  mov    (%rax),%rsi
  mov    -0x88(%rbp),%rax
  mov    (%rax),%edx
  lea    0x1(%rdx),%ecx
  mov    -0x88(%rbp),%rax
  mov    %ecx,(%rax)
  mov    %edx,%eax
  shl    $0x2,%eax
  add    %edx,%eax
  shl    $0x4,%eax
  cltq
  add    %rsi,%rax
  mov    %rax,-0x30(%rbp)
  mov    -0x3c(%rbp),%edi
  mov    -0x3c(%rbp),%esi
  mov    -0x78(%rbp),%rcx
  lea    -0x20(%rbp),%rdx
  mov    -0x30(%rbp),%rax
  sub    $0x8,%rsp
  push   -0x80(%rbp)
  mov    %edi,%r9d
  mov    %esi,%r8d
  lea    D128(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  add    $0x10,%rsp
  jmp    L443
L332:
  nop
L443:
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L704
  call   <__stack_chk_fail@plt>
L704:
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: tag: D69
type_infered: string
name: disassemble_data
arguments: tag: D61
type_infered: string
name: disassemble_data
arguments: tag: D84
type_infered: string
name: disassemble_data
arguments: tag: D141
type_infered: string
name: disassemble_data
arguments: tag: D25
type_infered: string
name: disassemble_data
arguments: tag: D110
type_infered: string
name: disassemble_data
arguments: tag: D188
type_infered: string
name: disassemble_data
arguments: tag: D113
type_infered: string
name: disassemble_data
arguments: tag: D128
type_infered: string

tool: D69: %d%d%s%d%c

tool: D61: %d%s%d_%d%c

tool: D84: %d%s%d%c

tool: D141: %s%d%c

tool: D25: T%s%d_%d%c

tool: D110: T%s%d%c

tool: D188: %s%d_%d%c

tool: D113: %s%c

tool: D128: %-8.8s= %-20s / %-*.*s

assistant: ```c
void wcshdo_util(int relax, const char pikey[], const char tbkey[], int level, const char tlkey[], int i, int j, int m, char alt, int btcol, int plcol[], char keyvalue[], const char keycomment[], int *nkeyrec, char **header, int *status) {
  char ch0, ch1, *hptr, keyword[16], *kptr;
  int nbyte, nc = 47, nv;
  if (*status)
    return;
  if ((*nkeyrec) % 32 == 0) {
    nbyte = ((*nkeyrec) / 32 + 1) * 2880;
    if (!(hptr = realloc(*header, nbyte))) {
      *status = 2;
      return;
    }
    *header = hptr;
  }
  if (alt == ' ')
    alt = '\0';
  if (btcol) {
    if (i > 0 && j) {
      if (j > 0) {
        sprintf(keyword, "%d%d%s%d%c", i, j, tbkey, btcol, alt);
      } else {
        sprintf(keyword, "%d%s%d_%d%c", i, tbkey, btcol, m, alt);
      }
    } else if (i > 0) {
      sprintf(keyword, "%d%s%d%c", i, tbkey, btcol, alt);
    } else if (j > 0) {
      sprintf(keyword, "%d%s%d%c", j, tbkey, btcol, alt);
    } else {
      sprintf(keyword, "%s%d%c", tbkey, btcol, alt);
    }
    if ((strlen(keyword) < 8) && tlkey && (relax & level)) {
      if (i > 0 && j) {
        if (j > 0) {
          sprintf(keyword, "%d%d%s%d%c", i, j, tlkey, btcol, alt);
        } else {
          sprintf(keyword, "%d%s%d_%d%c", i, tlkey, btcol, m, alt);
        }
      } else if (i > 0) {
        sprintf(keyword, "%d%s%d%c", i, tlkey, btcol, alt);
      } else if (j > 0) {
        sprintf(keyword, "%d%s%d%c", j, tlkey, btcol, alt);
      } else {
        sprintf(keyword, "%s%d%c", tlkey, btcol, alt);
      }
    }
  } else if (plcol && plcol[0]) {
    if (i > 0 && j) {
      if (j > 0) {
        sprintf(keyword, "T%s%d_%d%c", tbkey, plcol[i - 1], plcol[j - 1], alt);
      } else {
        sprintf(keyword, "T%s%d_%d%c", tbkey, plcol[i - 1], m, alt);
      }
    } else if (i > 0) {
      sprintf(keyword, "T%s%d%c", tbkey, plcol[i - 1], alt);
    } else if (j > 0) {
      sprintf(keyword, "T%s%d%c", tbkey, plcol[j - 1], alt);
    } else {
      sprintf(keyword, "%s%d%c", tbkey, plcol[0], alt);
    }
    if ((strlen(keyword) < 8) && tlkey && (relax & level)) {
      if (i > 0 && j) {
        if (j > 0) {
          sprintf(keyword, "T%s%d_%d%c", tlkey, plcol[i - 1], plcol[j - 1], alt);
        } else {
          sprintf(keyword, "T%s%d_%d%c", tlkey, plcol[i - 1], m, alt);
        }
      } else if (i > 0) {
        sprintf(keyword, "T%s%d%c", tlkey, plcol[i - 1], alt);
      } else if (j > 0) {
        sprintf(keyword, "T%s%d%c", tlkey, plcol[j - 1], alt);
      } else {
        sprintf(keyword, "%s%d%c", tlkey, plcol[0], alt);
      }
    }
  } else {
    if (i > 0 && j) {
      if (j > 0) {
        sprintf(keyword, "%s%d_%d%c", pikey, i, j, alt);
      } else {
        sprintf(keyword, "%s%d_%d%c", pikey, i, m, alt);
      }
    } else if (i > 0) {
      sprintf(keyword, "%s%d%c", pikey, i, alt);
    } else if (j > 0) {
      sprintf(keyword, "%s%d%c", pikey, j, alt);
    } else {
      sprintf(keyword, "%s%c", pikey, alt);
    }
  }
  hptr = keyvalue + 1;
  while (*hptr) {
    if (*hptr == '\'') {
      kptr = hptr++;
      if (*hptr) {
        ch0 = *kptr;
        while (*kptr) {
          ch1 = *(++kptr);
          *kptr = ch0;
          ch0 = ch1;
        }
      }
    }
    hptr++;
  }
  if ((nv = strlen(keyvalue) > 20)) {
    nc -= (nv - 20);
  }
  hptr = *header + (80 * ((*nkeyrec)++));
  sprintf(hptr, "%-8.8s= %-20s / %-*.*s", keyword, keyvalue, nc, nc, keycomment);
}
```