user: What would the C source look like for the assembly code provided here?

```asm
<gentbl_hapn4800>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xc8,%rsp
  mov    %rdi,%rbp
  mov    %fs:0x28,%rax
  mov    %rax,0xb8(%rsp)
  xor    %eax,%eax
  mov    %rdi,%rcx
  mov    $0x25,%edx
  mov    $0x1,%esi
  lea    D369(%rip),%rdi
  call   <fwrite@plt>
  lea    0x10(%rsp),%rdi
  mov    $0xa0,%edx
  mov    $0x0,%esi
  call   <memset@plt>
  mov    $0x0,%r12d
L129:
  pxor   %xmm7,%xmm7
  cvtsi2sd %r12d,%xmm7
  movq   %xmm7,%r13
  movapd %xmm7,%xmm0
  subsd  D175(%rip),%xmm0
  mulsd  D434(%rip),%xmm0
  mulsd  D404(%rip),%xmm0
  call   <sinc@plt>
  movq   %xmm0,%rbx
  movq   %r13,%xmm0
  divsd  D467(%rip),%xmm0
  cvttsd2si %xmm0,%edi
  call   <hamming@plt>
  movq   %rbx,%xmm4
  mulsd  %xmm0,%xmm4
  movapd %xmm4,%xmm0
  divsd  D383(%rip),%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x30(%rsp,%r12,4)
  add    $0x1,%r12
  cmp    $0x18,%r12
  jne    L129
  lea    0x10(%rsp),%rax
  mov    %rax,(%rsp)
  lea    0x70(%rsp),%rdx
L561:
  movss  (%rax),%xmm0
  subss  0x20(%rax),%xmm0
  movss  %xmm0,(%rax)
  add    $0x4,%rax
  cmp    %rdx,%rax
  jne    L561
  mov    %rbp,%rcx
  mov    $0x2c,%edx
  mov    $0x1,%esi
  lea    D340(%rip),%rdi
  call   <fwrite@plt>
  mov    (%rsp),%r15
  lea    0x80(%r15),%r14
  mov    %r14,%r12
  mov    $0x0,%r13d
  jmp    L64
L387:
  subss  (%rax),%xmm0
L551:
  add    %edx,%edx
  add    $0x20,%rax
  cmp    %r12,%rax
  je     L552
L456:
  test   %edx,%ebx
  je     L387
  addss  (%rax),%xmm0
  jmp    L551
L552:
  mulss  D449(%rip),%xmm0
  addss  D381(%rip),%xmm0
  cvttss2si %xmm0,%edx
  lea    D12(%rip),%rsi
  mov    %rbp,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  cmp    $0x6,%r13d
  jle    L218
  cmp    $0xe,%ebx
  jle    L218
L86:
  add    $0x1,%ebx
  cmp    $0x10,%ebx
  je     L5
L227:
  mov    %r15,%rax
  pxor   %xmm0,%xmm0
  mov    $0x1,%edx
  jmp    L456
L218:
  mov    %ebx,%eax
  and    $0x7,%eax
  cmp    $0x7,%eax
  lea    D307(%rip),%rdx
  lea    D57(%rip),%rax
  cmove  %rax,%rdx
  lea    D24(%rip),%rsi
  mov    %rbp,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  jmp    L86
L5:
  add    $0x1,%r13d
  add    $0x4,%r12
  add    $0x4,%r15
  cmp    $0x8,%r13d
  je     L263
L64:
  mov    $0x0,%ebx
  jmp    L227
L263:
  mov    %rbp,%rcx
  mov    $0x5,%edx
  mov    $0x1,%esi
  lea    D435(%rip),%rdi
  call   <fwrite@plt>
  lea    0x10(%rsp),%rdi
  mov    $0xa0,%edx
  mov    $0x0,%esi
  call   <memset@plt>
  mov    $0x0,%r12d
L531:
  pxor   %xmm6,%xmm6
  cvtsi2sd %r12d,%xmm6
  movq   %xmm6,%r13
  movapd %xmm6,%xmm0
  subsd  D94(%rip),%xmm0
  divsd  D342(%rip),%xmm0
  mulsd  D404(%rip),%xmm0
  call   <sinc@plt>
  movq   %xmm0,%rbx
  movq   %r13,%xmm0
  divsd  D228(%rip),%xmm0
  cvttsd2si %xmm0,%edi
  call   <hamming@plt>
  movq   %rbx,%xmm2
  mulsd  %xmm0,%xmm2
  movapd %xmm2,%xmm0
  divsd  D383(%rip),%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x38(%rsp,%r12,4)
  add    $0x1,%r12
  cmp    $0x1e,%r12
  jne    L531
  mov    (%rsp),%rax
  lea    0x78(%rax),%rdx
L23:
  movss  (%rax),%xmm0
  subss  0x28(%rax),%xmm0
  movss  %xmm0,(%rax)
  add    $0x4,%rax
  cmp    %rdx,%rax
  jne    L23
  mov    %rbp,%rcx
  mov    $0x2d,%edx
  mov    $0x1,%esi
  lea    D356(%rip),%rdi
  call   <fwrite@plt>
  mov    (%rsp),%rax
  lea    0xa0(%rax),%r12
  mov    %rax,0x8(%rsp)
  mov    %r12,%r13
  mov    $0x0,%r15d
  jmp    L237
L498:
  subss  (%rax),%xmm0
L45:
  add    %edx,%edx
  add    $0x28,%rax
  cmp    %rax,%r13
  je     L273
L109:
  test   %edx,%ebx
  je     L498
  addss  (%rax),%xmm0
  jmp    L45
L273:
  mulss  D449(%rip),%xmm0
  addss  D381(%rip),%xmm0
  cvttss2si %xmm0,%edx
  lea    D12(%rip),%rsi
  mov    %rbp,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  cmp    $0x8,%r15d
  jle    L121
  cmp    $0xe,%ebx
  jle    L121
L335:
  add    $0x1,%ebx
  cmp    $0x10,%ebx
  je     L364
L36:
  mov    0x8(%rsp),%rax
  pxor   %xmm0,%xmm0
  mov    $0x1,%edx
  jmp    L109
L121:
  mov    %ebx,%eax
  and    $0x7,%eax
  cmp    $0x7,%eax
  lea    D307(%rip),%rdx
  lea    D57(%rip),%rax
  cmove  %rax,%rdx
  lea    D24(%rip),%rsi
  mov    %rbp,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  jmp    L335
L364:
  add    $0x1,%r15d
  add    $0x4,%r13
  addq   $0x4,0x8(%rsp)
  cmp    $0xa,%r15d
  je     L271
L237:
  mov    $0x0,%ebx
  jmp    L36
L271:
  mov    %rbp,%rcx
  mov    $0x5,%edx
  mov    $0x1,%esi
  lea    D435(%rip),%rdi
  call   <fwrite@plt>
  lea    0x10(%rsp),%rdi
  mov    $0xa0,%edx
  mov    $0x0,%esi
  call   <memset@plt>
  mov    $0x0,%r13d
L422:
  pxor   %xmm7,%xmm7
  cvtsi2sd %r13d,%xmm7
  movq   %xmm7,%r15
  movapd %xmm7,%xmm0
  subsd  D303(%rip),%xmm0
  mulsd  D434(%rip),%xmm0
  mulsd  D496(%rip),%xmm0
  call   <sinc@plt>
  movq   %xmm0,%rbx
  movq   %r15,%xmm0
  divsd  D408(%rip),%xmm0
  cvttsd2si %xmm0,%edi
  call   <hamming@plt>
  movq   %rbx,%xmm3
  mulsd  %xmm0,%xmm3
  movapd %xmm3,%xmm0
  divsd  D394(%rip),%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x10(%rsp,%r13,4)
  add    $0x1,%r13
  cmp    $0x19,%r13
  jne    L422
  mov    (%rsp),%rax
  lea    0x20(%rax),%rdx
  mov    $0x0,%ecx
  jmp    L58
L253:
  add    $0x1,%ecx
  add    $0x4,%rdx
  cmp    $0x19,%ecx
  je     L394
L58:
  lea    -0x1c(%rdx),%rax
L325:
  movss  -0x20(%rdx),%xmm0
  addss  (%rax),%xmm0
  movss  %xmm0,-0x20(%rdx)
  add    $0x4,%rax
  cmp    %rdx,%rax
  jne    L325
  jmp    L253
L394:
  mov    %rbp,%rcx
  mov    $0x2e,%edx
  mov    $0x1,%esi
  lea    D88(%rip),%rdi
  call   <fwrite@plt>
  mov    (%rsp),%r15
  mov    $0x0,%r13d
  jmp    L562
L586:
  subss  (%rax),%xmm0
L497:
  add    %edx,%edx
  add    $0x20,%rax
  cmp    %r14,%rax
  je     L20
L329:
  test   %edx,%ebx
  je     L586
  addss  (%rax),%xmm0
  jmp    L497
L20:
  mulss  D449(%rip),%xmm0
  addss  D381(%rip),%xmm0
  cvttss2si %xmm0,%edx
  lea    D12(%rip),%rsi
  mov    %rbp,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  cmp    $0x6,%r13d
  jle    L117
  cmp    $0xe,%ebx
  jle    L117
L75:
  add    $0x1,%ebx
  cmp    $0x10,%ebx
  je     L315
L365:
  mov    %r15,%rax
  pxor   %xmm0,%xmm0
  mov    $0x1,%edx
  jmp    L329
L117:
  mov    %ebx,%eax
  and    $0x7,%eax
  cmp    $0x7,%eax
  lea    D307(%rip),%rdx
  lea    D57(%rip),%rax
  cmove  %rax,%rdx
  lea    D24(%rip),%rsi
  mov    %rbp,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  jmp    L75
L315:
  add    $0x1,%r13d
  add    $0x4,%r14
  add    $0x4,%r15
  cmp    $0x8,%r13d
  je     L514
L562:
  mov    $0x0,%ebx
  jmp    L365
L514:
  mov    %rbp,%rcx
  mov    $0x5,%edx
  mov    $0x1,%esi
  lea    D435(%rip),%rdi
  call   <fwrite@plt>
  lea    0x10(%rsp),%rdi
  mov    $0xa0,%edx
  mov    $0x0,%esi
  call   <memset@plt>
  mov    $0x0,%r13d
L0:
  pxor   %xmm5,%xmm5
  cvtsi2sd %r13d,%xmm5
  movq   %xmm5,%r14
  movapd %xmm5,%xmm0
  subsd  D456(%rip),%xmm0
  divsd  D342(%rip),%xmm0
  mulsd  D496(%rip),%xmm0
  call   <sinc@plt>
  movq   %xmm0,%rbx
  movq   %r14,%xmm0
  divsd  D457(%rip),%xmm0
  cvttsd2si %xmm0,%edi
  call   <hamming@plt>
  movq   %rbx,%xmm1
  mulsd  %xmm0,%xmm1
  movapd %xmm1,%xmm0
  divsd  D476(%rip),%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x38(%rsp,%r13,4)
  add    $0x1,%r13
  cmp    $0x1f,%r13
  jne    L0
  mov    (%rsp),%rax
  lea    0x24(%rax),%rdx
  mov    $0x0,%ecx
  jmp    L519
L268:
  add    $0x1,%ecx
  add    $0x4,%rdx
  cmp    $0x1f,%ecx
  je     L108
L519:
  lea    -0x24(%rdx),%rax
L259:
  movss  -0x24(%rdx),%xmm0
  addss  0x4(%rax),%xmm0
  movss  %xmm0,-0x24(%rdx)
  add    $0x4,%rax
  cmp    %rax,%rdx
  jne    L259
  jmp    L268
L108:
  mov    %rbp,%rcx
  mov    $0x2f,%edx
  mov    $0x1,%esi
  lea    D306(%rip),%rdi
  call   <fwrite@plt>
  mov    $0x0,%r13d
  lea    D57(%rip),%r15
  jmp    L486
L311:
  subss  (%rax),%xmm0
L370:
  add    %edx,%edx
  add    $0x28,%rax
  cmp    %rax,%r12
  je     L320
L31:
  test   %edx,%ebx
  je     L311
  addss  (%rax),%xmm0
  jmp    L370
L320:
  mulss  D449(%rip),%xmm0
  addss  D381(%rip),%xmm0
  cvttss2si %xmm0,%edx
  mov    %r14,%rsi
  mov    %rbp,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  cmp    $0x8,%r13d
  jle    L204
  cmp    $0xe,%ebx
  jle    L204
L409:
  add    $0x1,%ebx
  cmp    $0x10,%ebx
  je     L354
L84:
  mov    (%rsp),%rax
  pxor   %xmm0,%xmm0
  mov    $0x1,%edx
  jmp    L31
L204:
  mov    %ebx,%eax
  and    $0x7,%eax
  cmp    $0x7,%eax
  lea    D307(%rip),%rdx
  cmove  %r15,%rdx
  lea    D24(%rip),%rsi
  mov    %rbp,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  jmp    L409
L354:
  add    $0x1,%r13d
  add    $0x4,%r12
  addq   $0x4,(%rsp)
  cmp    $0xa,%r13d
  je     L543
L486:
  mov    $0x0,%ebx
  lea    D12(%rip),%r14
  jmp    L84
L543:
  mov    %rbp,%rcx
  mov    $0x5,%edx
  mov    $0x1,%esi
  lea    D435(%rip),%rdi
  call   <fwrite@plt>
  mov    0xb8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L425
  add    $0xc8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L425:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D369
datatype: string
name: unpack_data
arguments: tag: D175
datatype: f64
name: unpack_data
arguments: tag: D434
datatype: byte[8]
name: unpack_data
arguments: tag: D404
datatype: f64
name: unpack_data
arguments: tag: D467
datatype: f64
name: unpack_data
arguments: tag: D383
datatype: f64
name: unpack_data
arguments: tag: D340
datatype: string
name: unpack_data
arguments: tag: D449
datatype: byte[4]
name: unpack_data
arguments: tag: D381
datatype: byte[4]
name: unpack_data
arguments: tag: D12
datatype: string
name: unpack_data
arguments: tag: D307
datatype: string
name: unpack_data
arguments: tag: D57
datatype: string
name: unpack_data
arguments: tag: D24
datatype: string
name: unpack_data
arguments: tag: D435
datatype: string
name: unpack_data
arguments: tag: D94
datatype: f64
name: unpack_data
arguments: tag: D342
datatype: f64
name: unpack_data
arguments: tag: D228
datatype: f64
name: unpack_data
arguments: tag: D356
datatype: string
name: unpack_data
arguments: tag: D303
datatype: f64
name: unpack_data
arguments: tag: D496
datatype: f64
name: unpack_data
arguments: tag: D408
datatype: f64
name: unpack_data
arguments: tag: D394
datatype: f64
name: unpack_data
arguments: tag: D88
datatype: string
name: unpack_data
arguments: tag: D456
datatype: f64
name: unpack_data
arguments: tag: D457
datatype: f64
name: unpack_data
arguments: tag: D476
datatype: f64
name: unpack_data
arguments: tag: D306
datatype: string

tool: D369: 
/*
 * hapn4800 specific tables
 */



tool: D175: 11.5

tool: {"D434": [0x00,0x00,0x00,0x00,0x00,0x00,0xc0,0x3f]}

tool: D404: 1.5

tool: D467: 23

tool: D383: 2.4

tool: D340: static unsigned char hapn48_txfilt_8[] = {
	

tool: {"D449": [0x00,0x00,0xfe,0x42]}

tool: {"D381": [0x00,0x00,0x00,0x43]}

tool: D12: %4d

tool: 

tool: D57: 
	

tool: D24: ,%s

tool: D435: 
};



tool: D94: 14.5

tool: D342: 10

tool: D228: 29

tool: D356: static unsigned char hapn48_txfilt_10[] = {
	

tool: D303: 12

tool: D496: 1.4

tool: D408: 24

tool: D394: 6.3

tool: D88: static unsigned char hapn48_txfilt_pm8[] = {
	

tool: D456: 15

tool: D457: 30

tool: D476: 7.9

tool: D306: static unsigned char hapn48_txfilt_pm10[] = {
	

assistant: ```c
void gentbl_hapn4800(FILE *f) {
  int i, j, k, l;
  float s;
  float c[40];
  float min, max;
  fprintf(f, "\n/*\n * hapn4800 specific tables\n */\n\n");
  min = max = 0;
  memset(c, 0, sizeof(c));
  for (i = 0; i < 24; i++)
    c[8 + i] = sinc(1.5 * ((i - 11.5) / 8.0)) * hamming(i / 23.0) / 2.4;
  for (i = 0; i < 24; i++)
    c[i] -= c[i + 8];
  fprintf(f, "static unsigned char hapn48_txfilt_8[] = {\n\t");
  for (i = 0; i < 8; i++) {
    for (j = 0; j < 16; j++) {
      for (k = 1, s = 0, l = i; k < 16; k <<= 1, l += 8) {
        if (j & k)
          s += c[l];
        else
          s -= c[l];
      }
      if (s > max)
        max = s;
      if (s < min)
        min = s;
      fprintf(f, "%4d", (int)(128 + 127 * s));
      if (i < 7 || j < 15)
        fprintf(f, ",%s", (j & 7) == 7 ? "\n\t" : "");
    }
  }
  fprintf(f, "\n};\n\n");
  min = max = 0;
  memset(c, 0, sizeof(c));
  for (i = 0; i < 30; i++)
    c[10 + i] = sinc(1.5 * ((i - 14.5) / 10.0)) * hamming(i / 29.0) / 2.4;
  for (i = 0; i < 30; i++)
    c[i] -= c[i + 10];
  fprintf(f, "static unsigned char hapn48_txfilt_10[] = {\n\t");
  for (i = 0; i < 10; i++) {
    for (j = 0; j < 16; j++) {
      for (k = 1, s = 0, l = i; k < 16; k <<= 1, l += 10) {
        if (j & k)
          s += c[l];
        else
          s -= c[l];
      }
      if (s > max)
        max = s;
      if (s < min)
        min = s;
      fprintf(f, "%4d", (int)(128 + 127 * s));
      if (i < 9 || j < 15)
        fprintf(f, ",%s", (j & 7) == 7 ? "\n\t" : "");
    }
  }
  fprintf(f, "\n};\n\n");
  min = max = 0;
  memset(c, 0, sizeof(c));
  for (i = 0; i < 25; i++)
    c[i] = sinc(1.4 * ((i - 12.0) / 8.0)) * hamming(i / 24.0) / 6.3;
  for (i = 0; i < 25; i++)
    for (j = 1; j < 8; j++)
      c[i] += c[i + j];
  fprintf(f, "static unsigned char hapn48_txfilt_pm8[] = {\n\t");
  for (i = 0; i < 8; i++) {
    for (j = 0; j < 16; j++) {
      for (k = 1, s = 0, l = i; k < 16; k <<= 1, l += 8) {
        if (j & k)
          s += c[l];
        else
          s -= c[l];
      }
      if (s > max)
        max = s;
      if (s < min)
        min = s;
      fprintf(f, "%4d", (int)(128 + 127 * s));
      if (i < 7 || j < 15)
        fprintf(f, ",%s", (j & 7) == 7 ? "\n\t" : "");
    }
  }
  fprintf(f, "\n};\n\n");
  min = max = 0;
  memset(c, 0, sizeof(c));
  for (i = 0; i < 31; i++)
    c[10 + i] = sinc(1.4 * ((i - 15.0) / 10.0)) * hamming(i / 30.0) / 7.9;
  for (i = 0; i < 31; i++)
    for (j = 1; j < 10; j++)
      c[i] += c[i + j];
  fprintf(f, "static unsigned char hapn48_txfilt_pm10[] = {\n\t");
  for (i = 0; i < 10; i++) {
    for (j = 0; j < 16; j++) {
      for (k = 1, s = 0, l = i; k < 16; k <<= 1, l += 10) {
        if (j & k)
          s += c[l];
        else
          s -= c[l];
      }
      if (s > max)
        max = s;
      if (s < min)
        min = s;
      fprintf(f, "%4d", (int)(128 + 127 * s));
      if (i < 9 || j < 15)
        fprintf(f, ",%s", (j & 7) == 7 ? "\n\t" : "");
    }
  }
  fprintf(f, "\n};\n\n");
}
```