user: What is the c source code of the assembly code below:

```asm
<make_tx_filter>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  lea    -0x60000(%rsp),%r11
L102:
  sub    $0x1000,%rsp
  orq    $0x0,(%rsp)
  cmp    %r11,%rsp
  jne    L102
  sub    $0x58,%rsp
  pxor   %xmm3,%xmm3
  cvtsi2sd %edi,%xmm3
  movapd %xmm1,%xmm0
  mov    %edi,%ebp
  mov    %edi,0x20(%rsp)
  imul   %esi,%ebp
  mov    %edx,0x24(%rsp)
  mov    %edi,%r15d
  mov    %esi,%ebx
  lea    0x40(%rsp),%rdi
  movapd %xmm2,%xmm1
  mov    %rcx,%r12
  mov    $0x1,%edx
  xor    %ecx,%ecx
  mov    %fs:0x28,%rax
  mov    %rax,0x60048(%rsp)
  xor    %eax,%eax
  mulsd  %xmm0,%xmm3
  lea    0x1(%rbp),%r13d
  mov    %rdi,0x10(%rsp)
  mov    %r13d,%esi
  addsd  %xmm3,%xmm3
  divsd  %xmm3,%xmm0
  call   <compute_raised_cosine_filter@plt>
  mov    %r15d,%eax
  shr    $0x1f,%eax
  add    %r15d,%eax
  sar    %eax
  cmp    %eax,%r13d
  jle    L335
  cmp    $0x1,%r15d
  jne    L397
  lea    0x1(%rbx),%ecx
  test   %ebx,%ebx
  je     L277
  mov    %ecx,%edx
  mov    0x10(%rsp),%rax
  pxor   %xmm0,%xmm0
  shr    %edx
  sub    $0x1,%edx
  shl    $0x4,%rdx
  lea    0x50(%rsp,%rdx,1),%rdx
  xchg   %ax,%ax
L331:
  movsd  (%rax),%xmm1
  add    $0x10,%rax
  addsd  %xmm1,%xmm0
  movsd  -0x8(%rax),%xmm1
  addsd  %xmm1,%xmm0
  cmp    %rdx,%rax
  jne    L331
  mov    %ecx,%eax
  and    $0xfffffffe,%eax
  and    $0x1,%ecx
  je     L139
L239:
  cltq
  addsd  0x40(%rsp,%rax,8),%xmm0
L139:
  test   %r13d,%r13d
  jle    L434
L47:
  test   %ebp,%ebp
  je     L149
  mov    %r13d,%edx
  movapd %xmm0,%xmm2
  mov    0x10(%rsp),%rax
  shr    %edx
  unpcklpd %xmm2,%xmm2
  sub    $0x1,%edx
  shl    $0x4,%rdx
  lea    0x50(%rsp,%rdx,1),%rdx
  nopl   0x0(%rax,%rax,1)
L112:
  movapd (%rax),%xmm1
  add    $0x10,%rax
  divpd  %xmm2,%xmm1
  movaps %xmm1,-0x10(%rax)
  cmp    %rdx,%rax
  jne    L112
  mov    %r13d,%eax
  and    $0xfffffffe,%eax
  and    $0x1,%r13d
  je     L147
L378:
  cltq
  movsd  0x40(%rsp,%rax,8),%xmm1
  divsd  %xmm0,%xmm1
  movsd  %xmm1,0x40(%rsp,%rax,8)
L147:
  mov    0x24(%rsp),%eax
  test   %eax,%eax
  jne    L164
L109:
  movsd  D126(%rip),%xmm0
  mov    %r12,%rsi
  mov    $0x1,%eax
  lea    D183(%rip),%rdi
  call   <printf@plt>
  mov    0x20(%rsp),%edx
  mov    %r12,%rsi
  xor    %eax,%eax
  lea    D165(%rip),%rdi
  call   <printf@plt>
  lea    D16(%rip),%rsi
L412:
  mov    %ebx,%r8d
  mov    %r12,%rcx
  mov    %r12,%rdx
  xor    %eax,%eax
  lea    D308(%rip),%rdi
  call   <printf@plt>
  lea    D311(%rip),%rdi
  call   <puts@plt>
  mov    0x20(%rsp),%esi
  test   %esi,%esi
  jle    L98
  movslq 0x20(%rsp),%rax
  sub    $0x1,%ebx
  mov    %eax,%ecx
  sub    $0x1,%ecx
  mov    %ecx,0x30(%rsp)
  jne    L251
  mov    %rax,0x38(%rsp)
  lea    D217(%rip),%rax
  mov    %rax,0x28(%rsp)
L383:
  movslq 0x30(%rsp),%rax
  mov    0x20(%rsp),%ecx
  lea    D297(%rip),%r15
  mov    0x38(%rsp),%rbp
  mov    %rax,0x8(%rsp)
  mov    %ecx,%eax
  imul   %ebx,%eax
  shl    $0x3,%rbp
  cmp    $0x1,%ebx
  cmovle %ecx,%eax
  mov    %eax,0x30(%rsp)
  nopl   0x0(%rax,%rax,1)
L237:
  mov    0x8(%rsp),%r13
  mov    0x28(%rsp),%rdi
  mov    %r13d,0x18(%rsp)
  mov    %r13d,%r14d
  call   <puts@plt>
  mov    0x24(%rsp),%edx
  test   %edx,%edx
  je     L367
  mov    0x10(%rsp),%rax
  mov    %r13d,%edx
  lea    D156(%rip),%rdi
  cvttsd2si (%rax,%r13,8),%esi
  xor    %eax,%eax
  call   <printf@plt>
  cmp    $0x1,%ebx
  jle    L12
  mov    0x20(%rsp),%eax
  mov    0x10(%rsp),%rcx
  mov    $0x1,%r12d
  lea    D14(%rip),%r14
  add    0x18(%rsp),%eax
  cltq
  lea    (%rcx,%rax,8),%r13
  nopl   0x0(%rax,%rax,1)
L178:
  cvttsd2si 0x0(%r13),%esi
  mov    %r14,%rdi
  xor    %eax,%eax
  add    $0x1,%r12d
  add    %rbp,%r13
  call   <printf@plt>
  cmp    %r12d,%ebx
  jne    L178
  mov    0x18(%rsp),%r12d
  add    0x30(%rsp),%r12d
  movslq %r12d,%r12
  movsd  0x40(%rsp,%r12,8),%xmm0
L60:
  cvttsd2si %xmm0,%esi
  lea    D213(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
L45:
  lea    D158(%rip),%rdi
  call   <puts@plt>
  addq   $0x1,0x8(%rsp)
  mov    0x8(%rsp),%rax
  cmp    %eax,0x20(%rsp)
  jg     L237
L98:
  lea    D69(%rip),%rdi
  call   <puts@plt>
  mov    0x60048(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L14
  add    $0x60058,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L367:
  mov    0x8(%rsp),%rax
  mov    0x10(%rsp),%r13
  lea    D194(%rip),%rdi
  mov    0x18(%rsp),%r12d
  movsd  0x0(%r13,%rax,8),%xmm0
  mov    $0x1,%eax
  mov    %r12d,%esi
  call   <printf@plt>
  cmp    $0x1,%ebx
  jle    L162
  mov    0x20(%rsp),%eax
  mov    $0x1,%r14d
  add    %r12d,%eax
  cltq
  lea    0x0(%r13,%rax,8),%r12
  nopw   0x0(%rax,%rax,1)
L56:
  movsd  (%r12),%xmm0
  mov    %r15,%rdi
  mov    $0x1,%eax
  add    $0x1,%r14d
  add    %rbp,%r12
  call   <printf@plt>
  cmp    %r14d,%ebx
  jne    L56
  mov    0x18(%rsp),%r12d
  add    0x30(%rsp),%r12d
  movslq %r12d,%r12
  movsd  0x40(%rsp,%r12,8),%xmm0
L199:
  lea    D195(%rip),%rdi
  mov    $0x1,%eax
  call   <printf@plt>
  jmp    L45
  nopl   0x0(%rax)
L251:
  movslq 0x20(%rsp),%rdx
  mov    0x10(%rsp),%rax
  movl   $0x0,0x8(%rsp)
  lea    D297(%rip),%r14
  mov    %rax,0x18(%rsp)
  mov    %rdx,%rax
  lea    0x0(,%rdx,8),%rbp
  imul   %ebx,%eax
  cmp    $0x1,%ebx
  mov    %rdx,0x38(%rsp)
  cmovle %edx,%eax
  mov    %eax,0x34(%rsp)
  lea    D217(%rip),%rax
  mov    %rax,0x28(%rsp)
  nopw   0x0(%rax,%rax,1)
L477:
  mov    0x28(%rsp),%rdi
  call   <puts@plt>
  mov    0x24(%rsp),%ecx
  test   %ecx,%ecx
  je     L322
  mov    0x18(%rsp),%rax
  mov    0x8(%rsp),%edx
  lea    D156(%rip),%rdi
  cvttsd2si (%rax),%esi
  xor    %eax,%eax
  call   <printf@plt>
  cmp    $0x1,%ebx
  jle    L32
  mov    0x8(%rsp),%eax
  mov    0x10(%rsp),%rdx
  mov    $0x1,%r15d
  lea    D14(%rip),%r13
  add    0x20(%rsp),%eax
  cltq
  lea    (%rdx,%rax,8),%r12
  cs nopw 0x0(%rax,%rax,1)
L136:
  cvttsd2si (%r12),%esi
  mov    %r13,%rdi
  xor    %eax,%eax
  add    $0x1,%r15d
  add    %rbp,%r12
  call   <printf@plt>
  cmp    %ebx,%r15d
  jne    L136
L32:
  mov    0x8(%rsp),%eax
  add    0x34(%rsp),%eax
  lea    D213(%rip),%rdi
  cltq
  movsd  0x40(%rsp,%rax,8),%xmm0
  xor    %eax,%eax
  cvttsd2si %xmm0,%esi
  call   <printf@plt>
  lea    D127(%rip),%rdi
  call   <puts@plt>
  addl   $0x1,0x8(%rsp)
  mov    0x8(%rsp),%eax
  addq   $0x8,0x18(%rsp)
  cmp    %eax,0x30(%rsp)
  jne    L477
  mov    0x30(%rsp),%ecx
  cmp    %ecx,0x20(%rsp)
  jg     L383
  jmp    L98
  cs nopw 0x0(%rax,%rax,1)
L322:
  mov    0x18(%rsp),%rax
  mov    0x8(%rsp),%r15d
  lea    D194(%rip),%rdi
  movsd  (%rax),%xmm0
  mov    %r15d,%esi
  mov    $0x1,%eax
  call   <printf@plt>
  cmp    $0x1,%ebx
  jle    L62
  mov    0x20(%rsp),%eax
  mov    0x10(%rsp),%rcx
  mov    $0x1,%r13d
  add    %r15d,%eax
  cltq
  lea    (%rcx,%rax,8),%r12
  nop
L455:
  movsd  (%r12),%xmm0
  mov    %r14,%rdi
  mov    $0x1,%eax
  add    $0x1,%r13d
  add    %rbp,%r12
  call   <printf@plt>
  cmp    %ebx,%r13d
  jne    L455
L62:
  mov    0x8(%rsp),%eax
  add    0x34(%rsp),%eax
  lea    D195(%rip),%rdi
  cltq
  movsd  0x40(%rsp,%rax,8),%xmm0
  mov    $0x1,%eax
  call   <printf@plt>
  lea    D127(%rip),%rdi
  call   <puts@plt>
  addl   $0x1,0x8(%rsp)
  mov    0x8(%rsp),%eax
  addq   $0x8,0x18(%rsp)
  cmp    0x30(%rsp),%eax
  jne    L477
  mov    0x30(%rsp),%ecx
  cmp    %ecx,0x20(%rsp)
  jg     L383
  jmp    L98
L164:
  mov    %ebp,%edx
  mov    0x10(%rsp),%rax
  movsd  D113(%rip),%xmm1
  movq   D45(%rip),%xmm2
  lea    0x48(%rsp,%rdx,8),%rdx
  nopl   0x0(%rax)
L104:
  movsd  (%rax),%xmm0
  add    $0x8,%rax
  andpd  %xmm2,%xmm0
  maxsd  %xmm1,%xmm0
  movapd %xmm0,%xmm1
  cmp    %rdx,%rax
  jne    L104
  movsd  D126(%rip),%xmm2
  movsd  D44(%rip),%xmm0
  comisd %xmm2,%xmm1
  movapd %xmm2,%xmm3
  jb     L303
  divsd  %xmm1,%xmm0
  movapd %xmm2,%xmm3
  divsd  %xmm1,%xmm3
L303:
  xor    %edx,%edx
  test   %ebp,%ebp
  cmovns %ebp,%edx
  add    $0x1,%edx
  test   %ebp,%ebp
  jle    L153
  mov    %edx,%ecx
  movapd %xmm0,%xmm2
  mov    0x10(%rsp),%rax
  shr    %ecx
  unpcklpd %xmm2,%xmm2
  sub    $0x1,%ecx
  shl    $0x4,%rcx
  lea    0x50(%rsp,%rcx,1),%rcx
  cs nopw 0x0(%rax,%rax,1)
L369:
  movapd (%rax),%xmm1
  add    $0x10,%rax
  mulpd  %xmm2,%xmm1
  movaps %xmm1,-0x10(%rax)
  cmp    %rcx,%rax
  jne    L369
  mov    %edx,%eax
  and    $0xfffffffe,%eax
  and    $0x1,%edx
  je     L86
L171:
  cltq
  mulsd  0x40(%rsp,%rax,8),%xmm0
  movsd  %xmm0,0x40(%rsp,%rax,8)
L86:
  movapd %xmm3,%xmm0
  mov    %r12,%rsi
  mov    $0x1,%eax
  lea    D183(%rip),%rdi
  call   <printf@plt>
  mov    0x20(%rsp),%edx
  mov    %r12,%rsi
  xor    %eax,%eax
  lea    D165(%rip),%rdi
  call   <printf@plt>
  lea    D55(%rip),%rsi
  jmp    L412
L162:
  mov    0x30(%rsp),%eax
  add    %r14d,%eax
  cltq
  movsd  0x40(%rsp,%rax,8),%xmm0
  jmp    L199
L12:
  mov    0x30(%rsp),%eax
  add    %r13d,%eax
  cltq
  movsd  0x40(%rsp,%rax,8),%xmm0
  jmp    L60
L397:
  movslq 0x20(%rsp),%rdx
  mov    0x10(%rsp),%rcx
  cltq
  pxor   %xmm0,%xmm0
  xchg   %ax,%ax
L243:
  addsd  (%rcx,%rax,8),%xmm0
  add    %rdx,%rax
  cmp    %eax,%r13d
  jg     L243
  test   %r13d,%r13d
  jg     L47
L434:
  mov    0x24(%rsp),%edi
  movsd  D126(%rip),%xmm3
  test   %edi,%edi
  jne    L86
  jmp    L109
L335:
  pxor   %xmm0,%xmm0
  jmp    L139
L149:
  xor    %eax,%eax
  jmp    L378
L277:
  xor    %eax,%eax
  pxor   %xmm0,%xmm0
  jmp    L239
L153:
  xor    %eax,%eax
  jmp    L171
L14:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D126
type: f64
name: extract_symbolic_data
arguments: data_tag: D183
type: string
name: extract_symbolic_data
arguments: data_tag: D165
type: string
name: extract_symbolic_data
arguments: data_tag: D16
type: string
name: extract_symbolic_data
arguments: data_tag: D308
type: string
name: extract_symbolic_data
arguments: data_tag: D311
type: string
name: extract_symbolic_data
arguments: data_tag: D217
type: string
name: extract_symbolic_data
arguments: data_tag: D297
type: string
name: extract_symbolic_data
arguments: data_tag: D156
type: string
name: extract_symbolic_data
arguments: data_tag: D14
type: string
name: extract_symbolic_data
arguments: data_tag: D213
type: string
name: extract_symbolic_data
arguments: data_tag: D158
type: string
name: extract_symbolic_data
arguments: data_tag: D69
type: string
name: extract_symbolic_data
arguments: data_tag: D194
type: string
name: extract_symbolic_data
arguments: data_tag: D195
type: string
name: extract_symbolic_data
arguments: data_tag: D127
type: string
name: extract_symbolic_data
arguments: data_tag: D113
type: f32[2]
name: extract_symbolic_data
arguments: data_tag: D45
type: qword
name: extract_symbolic_data
arguments: data_tag: D44
type: f64
name: extract_symbolic_data
arguments: data_tag: D55
type: string

tool: D126: 1

tool: D183: #define TX_PULSESHAPER%s_GAIN        %ff


tool: D165: #define TX_PULSESHAPER%s_COEFF_SETS  %d


tool: D16: float

tool: D308: static const %s tx_pulseshaper%s[TX_PULSESHAPER%s_COEFF_SETS][%d] =


tool: D311: {

tool: D217:     {

tool: D297:         %15.10ff,


tool: D156:         %8d,     /* Filter %d */


tool: D14:         %8d,


tool: D213:         %8d


tool: D158:     }

tool: D69: };

tool: D194:         %15.10ff,     /* Filter %d */


tool: D195:         %15.10ff


tool: D127:     },

tool: {"D113": [0.0,-1.875]}

tool: D45: 9223372036854775807

tool: D44: 32767

tool: D55: int16_t

assistant: ```c
void make_tx_filter(int coeff_sets, int coeffs_per_filter, double carrier, double baud_rate, double excess_bandwidth, int fixed_point, const char *tag) {
  int i;
  int j;
  int x;
  int total_coeffs;
  double alpha;
  double beta;
  double gain;
  double scaling;
  double peak;
  double coeffs[384 * 128 + 1];
  total_coeffs = coeff_sets * coeffs_per_filter + 1;
  alpha = baud_rate / (2.0 * (double)(coeff_sets * baud_rate));
  beta = excess_bandwidth;
  compute_raised_cosine_filter(coeffs, total_coeffs, (!0), 0, alpha, beta);
  gain = 0.0;
  for (i = coeff_sets / 2; i < total_coeffs; i += coeff_sets)
    gain += coeffs[i];
  for (i = 0; i < total_coeffs; i++)
    coeffs[i] /= gain;
  gain = 1.0;
  if (fixed_point) {
    peak = -1.0;
    for (i = 0; i < total_coeffs; i++) {
      if (fabs(coeffs[i]) > peak)
        peak = fabs(coeffs[i]);
    }
    scaling = 32767.0;
    if (peak >= 1.0) {
      scaling /= peak;
      gain = 1.0 / peak;
    }
    for (i = 0; i < total_coeffs; i++)
      coeffs[i] *= scaling;
  }
  printf("#define TX_PULSESHAPER%s_GAIN        %ff\n", tag, gain);
  printf("#define TX_PULSESHAPER%s_COEFF_SETS  %d\n", tag, coeff_sets);
  printf("static const %s tx_pulseshaper%s[TX_PULSESHAPER%s_COEFF_SETS][%d] =\n", (fixed_point) ? "int16_t" : "float", tag, tag, coeffs_per_filter);
  printf("{\n");
  for (j = 0; j < coeff_sets; j++) {
    x = j;
    printf("    {\n");
    if (fixed_point)
      printf("        %8d,     /* Filter %d */\n", (int)coeffs[x], j);
    else
      printf("        %15.10ff,     /* Filter %d */\n", coeffs[x], j);
    for (i = 1; i < coeffs_per_filter - 1; i++) {
      x = i * coeff_sets + j;
      if (fixed_point)
        printf("        %8d,\n", (int)coeffs[x]);
      else
        printf("        %15.10ff,\n", coeffs[x]);
    }
    x = i * coeff_sets + j;
    if (fixed_point)
      printf("        %8d\n", (int)coeffs[x]);
    else
      printf("        %15.10ff\n", coeffs[x]);
    if (j < coeff_sets - 1)
      printf("    },\n");
    else
      printf("    }\n");
  }
  printf("};\n");
}
```