user: Translate the below assembly code into C programming language:

```asm
<topsin_series>:
  endbr64
  push   %r15
  push   %r14
  mov    %edi,%r14d
  push   %r13
  mov    %esi,%r13d
  push   %r12
  push   %rbp
  push   %rbx
  mov    %edx,%ebx
  sub    $0x18,%rsp
  mov    %esi,(%rsp)
  xor    %esi,%esi
  call   <mpf_set_ui@plt>
  test   %r13d,%r13d
  jne    L20
  add    $0x18,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L20:
  xor    %r10d,%r10d
  xor    %r12d,%r12d
  xor    %ebp,%ebp
  mov    %r10d,%edi
  mov    %r10d,0x4(%rsp)
  call   <mpf_init@plt>
  mov    %r12d,%edi
  call   <mpf_init@plt>
  xor    %r9d,%r9d
  mov    %r9d,%edi
  mov    %r9d,0xc(%rsp)
  call   <mpf_init@plt>
  xor    %r11d,%r11d
  mov    %r11d,%edi
  mov    %r11d,0x8(%rsp)
  call   <mpf_init@plt>
  mov    %ebp,%edi
  call   <mpf_init@plt>
  xor    %edi,%edi
  call   <mpf_init@plt>
  mov    %ebp,%edi
  call   <mpz_init@plt>
  mov    %ebx,%esi
  mov    %r12d,%edi
  call   <fp_two_pi@plt>
  mov    %r12d,%esi
  mov    %r12d,%edi
  call   <mpf_neg@plt>
  mov    0x4(%rsp),%edi
  mov    %r12d,%edx
  mov    %r12d,%esi
  call   <mpf_mul@plt>
  mov    0x4(%rsp),%r10d
  mov    %r10d,%esi
  mov    %r10d,%edi
  call   <mpf_neg@plt>
  mov    0xc(%rsp),%r9d
  mov    $0x1,%esi
  mov    %r9d,%edi
  mov    %r9d,0x4(%rsp)
  call   <mpf_set_ui@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %rbx,%xmm0
  mulsd  D0(%rip),%xmm0
  xor    %ebx,%ebx
  call   <floor@plt>
  mov    0x4(%rsp),%esi
  mov    0x8(%rsp),%edi
  lea    0x20(%rax),%rdx
  call   <mpf_div_2exp@plt>
  jmp    L58
  nopl   0x0(%rax,%rax,1)
L55:
  xor    %edx,%edx
  mov    %r12d,%esi
  mov    %r12d,%edi
  add    $0x2,%r13d
  call   <mpf_mul@plt>
  lea    0x6(,%rbx,4),%edx
  add    $0x1,%ebx
  xor    %r9d,%r9d
  imul   %ebx,%edx
  mov    %r9d,%esi
  mov    %r9d,%edi
  call   <mpf_mul_ui@plt>
  cmp    $0x789668b3,%ebx
  je     L54
L58:
  xor    %ebp,%ebp
  lea    (%rbx,%rbx,1),%edx
  mov    %r13d,%esi
  xor    %r15d,%r15d
  mov    %ebp,%edi
  xor    %r12d,%r12d
  call   <mpz_bin_uiui@plt>
  mov    %ebp,%esi
  mov    %ebp,%edi
  call   <mpf_set_z@plt>
  mov    %r12d,%edx
  mov    %ebp,%esi
  mov    %r15d,%edi
  call   <mpf_mul@plt>
  xor    %edx,%edx
  mov    %r15d,%esi
  mov    %ebp,%edi
  call   <mpf_div@plt>
  mov    %ebp,%edx
  mov    %r14d,%esi
  mov    %r14d,%edi
  call   <mpf_add@plt>
  mov    %ebp,%esi
  mov    %r15d,%edi
  call   <mpf_abs@plt>
  xor    %esi,%esi
  mov    %r15d,%edi
  call   <mpf_cmp@plt>
  test   %rax,%rax
  jns    L55
L54:
  testb  $0x1,(%rsp)
  je     L22
L53:
  xor    %edi,%edi
  xor    %ebp,%ebp
  call   <mpf_clear@plt>
  xor    %edi,%edi
  call   <mpf_clear@plt>
  xor    %edi,%edi
  call   <mpf_clear@plt>
  xor    %edi,%edi
  call   <mpf_clear@plt>
  mov    %ebp,%edi
  call   <mpf_clear@plt>
  xor    %edi,%edi
  call   <mpf_clear@plt>
  add    $0x18,%rsp
  mov    %ebp,%edi
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    11f0 <mpz_clear@plt>
  nopl   0x0(%rax)
L22:
  mov    %r14d,%esi
  mov    %r14d,%edi
  call   <mpf_neg@plt>
  jmp    L53
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D0
datatype: f64

tool: D0: 3.321

assistant: ```c
void topsin_series(mpf_t a_k, unsigned int k, unsigned int prec) {
  unsigned int n;
  mpf_t fourpi, numer, fact, low_bound, term, xterm;
  mpz_t bino;
  mpf_set_ui(a_k, 0);
  if (0 == k)
    return;
  mpf_init(fourpi);
  mpf_init(numer);
  mpf_init(fact);
  mpf_init(low_bound);
  mpf_init(term);
  mpf_init(xterm);
  mpz_init(bino);
  fp_two_pi(numer, prec);
  mpf_neg(numer, numer);
  mpf_mul(fourpi, numer, numer);
  mpf_neg(fourpi, fourpi);
  mpf_set_ui(fact, 1);
  long nbits = (long)floor(3.321 * prec);
  mpf_div_2exp(low_bound, fact, nbits + 32);
  for (n = 0; n < 2023123123; n++) {
    mpz_bin_uiui(bino, 2 * n + k, 2 * n);
    mpf_set_z(term, bino);
    mpf_mul(xterm, term, numer);
    mpf_div(term, xterm, fact);
    mpf_add(a_k, a_k, term);
    mpf_abs(xterm, term);
    if (mpf_cmp(xterm, low_bound) < 0)
      break;
    mpf_mul(numer, numer, fourpi);
    mpf_mul_ui(fact, fact, (2 * n + 3) * 2 * (n + 1));
  }
  if (k % 2 == 0)
    mpf_neg(a_k, a_k);
  mpf_clear(fourpi);
  mpf_clear(numer);
  mpf_clear(fact);
  mpf_clear(low_bound);
  mpf_clear(term);
  mpf_clear(xterm);
  mpz_clear(bino);
}
```