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

```asm
<_fnum>:
  endbr64
  push   %r15
  pxor   %xmm1,%xmm1
  mov    %edx,%r15d
  push   %r14
  push   %r13
  mov    %edx,%r13d
  push   %r12
  mov    %esi,%r12d
  push   %rbp
  mov    %edi,%ebp
  push   %rbx
  mov    %rcx,%rbx
  sub    $0x88,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  xor    %eax,%eax
  test   %dil,%dil
  mov    $0x6,%eax
  cmovs  %eax,%ebp
  comisd %xmm0,%xmm1
  ja     L685
  movb   $0x0,0xf(%rsp)
L9:
  lea    0x32(%rsp),%r14
  lea    0x2c(%rsp),%rdi
  mov    $0x1,%eax
  movl   $0x0,0x2c(%rsp)
  mov    %r14,%rsi
  call   <_fbcd@plt>
  movzbl 0x32(%rsp),%eax
  cmp    $0x30,%al
  jne    L371
  nopl   0x0(%rax)
L247:
  movzbl 0x1(%r14),%eax
  add    $0x1,%r14
  cmp    $0x30,%al
  je     L247
L371:
  cmp    $0x1,%al
  sbb    $0x0,%r14
  mov    %r14,%rdi
  call   <strlen@plt>
  cmp    $0x1,%rax
  jbe    L376
  lea    -0x1(%r14,%rax,1),%rsi
  mov    0x2c(%rsp),%edi
  cmpb   $0x30,(%rsi)
  jne    L230
  mov    %rsi,%rax
  nopw   0x0(%rax,%rax,1)
L301:
  sub    $0x1,%rax
  mov    %edi,%ecx
  movb   $0x0,0x1(%rax)
  sub    %eax,%ecx
  add    %esi,%ecx
  cmpb   $0x30,(%rax)
  je     L301
  mov    %ecx,0x2c(%rsp)
L270:
  movb   $0x30,-0x1(%r14)
  mov    %r14,%rdi
  mov    %ecx,0x10(%rsp)
  call   <strlen@plt>
  mov    %ebp,%edx
  movslq 0x10(%rsp),%rcx
  or     %r13b,%dl
  movsbq %al,%rsi
  je     L695
  movsbl %bpl,%r8d
  cmp    $0x1,%r13b
  je     L249
L667:
  movsbl %sil,%eax
  add    %ecx,%eax
  cmp    $0xfffffffc,%eax
  jge    L124
L318:
  lea    0x1(%r13),%r15d
L124:
  cmp    $0x1,%r15b
  jg     L313
L272:
  mov    %r8d,%eax
  add    %ecx,%eax
  js     L106
L530:
  movzbl 0xf(%rsp),%eax
  add    %ecx,%ebp
  lea    0x1(%rax),%r13d
  movsbw %sil,%ax
  neg    %esi
  movzbl %r13b,%r13d
  movsbl %sil,%r15d
  add    %eax,%r13d
  movsbw %bpl,%ax
  mov    %r15b,0x10(%rsp)
  add    %eax,%r13d
  cmp    %ecx,%r15d
  jge    L26
L273:
  sub    %r13d,%r12d
  test   %r12b,%r12b
  jle    L70
  nopl   0x0(%rax)
L712:
  xor    %eax,%eax
  mov    $0x20,%edi
  call   *%rbx
  sub    $0x1,%r12b
  jne    L712
L70:
  cmpb   $0x0,0xf(%rsp)
  je     L198
  mov    $0x2d,%edi
  xor    %eax,%eax
  call   *%rbx
L198:
  cmp    0x2c(%rsp),%r15d
  jge    L648
L226:
  movzbl 0x10(%rsp),%r12d
  movsbl (%r14),%edi
  sub    %r14d,%r12d
  test   %dil,%dil
  je     L105
  nopl   0x0(%rax)
L186:
  add    $0x1,%r14
  xor    %eax,%eax
  call   *%rbx
  lea    (%r12,%r14,1),%eax
  movsbl %al,%eax
  cmp    0x2c(%rsp),%eax
  jne    L437
  mov    $0x2e,%edi
  xor    %eax,%eax
  call   *%rbx
L437:
  movsbl (%r14),%edi
  test   %dil,%dil
  jne    L186
L105:
  mov    0x2c(%rsp),%eax
  test   %eax,%eax
  jle    L121
  nop
L30:
  xor    %eax,%eax
  mov    $0x30,%edi
  sub    $0x1,%ebp
  call   *%rbx
  mov    0x2c(%rsp),%eax
  sub    $0x1,%eax
  mov    %eax,0x2c(%rsp)
  jne    L240
  mov    $0x2e,%edi
  call   *%rbx
  mov    0x2c(%rsp),%eax
L240:
  test   %eax,%eax
  jg     L30
L121:
  test   %bpl,%bpl
  jle    L369
  nopl   (%rax)
L324:
  xor    %eax,%eax
  mov    $0x30,%edi
  call   *%rbx
  sub    $0x1,%bpl
  jne    L324
L369:
  movswl %r13w,%eax
L278:
  mov    0x78(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L312
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax)
L376:
  cmpb   $0x30,(%r14)
  je     L623
  mov    0x2c(%rsp),%ecx
  jmp    L270
  nopl   0x0(%rax,%rax,1)
L685:
  movb   $0x1,0xf(%rsp)
  xorpd  D3(%rip),%xmm0
  jmp    L9
  nopw   0x0(%rax,%rax,1)
L695:
  test   %ecx,%ecx
  jns    L281
  movsbq %al,%rax
  add    %rcx,%rax
  add    %r14,%rax
  movzbl (%rax),%ecx
  movb   $0x0,(%rax)
  cmp    $0x34,%cl
  jle    L111
  movzbl -0x1(%rax),%edx
  lea    -0x1(%rax),%rsi
  lea    0x1(%rdx),%ecx
  mov    %cl,-0x1(%rax)
  mov    %rsi,%rax
  cmp    $0x3a,%cl
  jne    L111
  nop
L438:
  movb   $0x30,(%rax)
  movzbl -0x1(%rax),%edx
  sub    $0x1,%rax
  lea    0x1(%rdx),%ecx
  mov    %cl,(%rax)
  cmp    $0x3a,%cl
  je     L438
L111:
  cmp    %rax,%r14
  cmova  %rax,%r14
  mov    %r14,%rdi
  call   <strlen@plt>
  movl   $0x0,0x2c(%rsp)
  xor    %ecx,%ecx
  movsbw %al,%si
L281:
  movzbl 0xf(%rsp),%r15d
  add    %ecx,%r15d
  add    %esi,%r15d
  sub    %r15d,%r12d
  mov    %r15d,%r13d
  mov    %r12d,%ebp
  test   %r12b,%r12b
  jle    L431
  nopl   0x0(%rax)
L419:
  xor    %eax,%eax
  mov    $0x20,%edi
  call   *%rbx
  sub    $0x1,%bpl
  jne    L419
  sub    $0x1,%r12d
  movzbl %r12b,%r12d
  lea    0x1(%r15,%r12,1),%r13d
L431:
  cmpb   $0x0,0xf(%rsp)
  je     L665
  mov    $0x2d,%edi
  nopl   0x0(%rax,%rax,1)
L731:
  xor    %eax,%eax
  call   *%rbx
L665:
  movsbl (%r14),%edi
  add    $0x1,%r14
  test   %dil,%dil
  jne    L731
  mov    0x2c(%rsp),%edx
  test   %edx,%edx
  jle    L369
  nopl   (%rax)
L266:
  xor    %eax,%eax
  mov    $0x30,%edi
  call   *%rbx
  mov    0x2c(%rsp),%eax
  sub    $0x1,%eax
  mov    %eax,0x2c(%rsp)
  test   %eax,%eax
  jg     L266
  jmp    L369
  nopl   (%rax)
L313:
  movzbl 0xf(%rsp),%r15d
  movsbw %bpl,%ax
  movsbl %sil,%edi
  lea    0x6(%r15,%rax,1),%eax
  lea    0x1(%r8),%r15d
  mov    %ax,0x16(%rsp)
  sub    %eax,%r12d
  mov    %ax,0x14(%rsp)
  mov    %edi,%eax
  cmp    %r15d,%edi
  jle    L589
  movsbq %bpl,%rax
  mov    %rax,0x18(%rsp)
  lea    0x1(%rax),%r13
  jmp    L525
  nop
L393:
  cmp    %rax,%r14
  mov    %ecx,0x10(%rsp)
  cmova  %rax,%r14
  mov    %r14,%rdi
  call   <strlen@plt>
  mov    0x10(%rsp),%ecx
  mov    %eax,%esi
  movsbl %al,%eax
  cmp    %eax,%r15d
  jge    L589
  mov    %eax,%edi
L525:
  lea    (%r14,%r13,1),%rax
  sub    %r15d,%edi
  movzbl (%rax),%esi
  add    %edi,%ecx
  movb   $0x0,(%rax)
  mov    %ecx,0x2c(%rsp)
  cmp    $0x34,%sil
  jle    L393
  mov    0x18(%rsp),%rdx
  lea    (%r14,%rdx,1),%rdi
  movzbl -0x1(%rax),%edx
  lea    0x1(%rdx),%esi
  mov    %sil,-0x1(%rax)
  mov    %rdi,%rax
  cmp    $0x3a,%sil
  jne    L393
  nopl   0x0(%rax)
L50:
  movb   $0x30,(%rax)
  movzbl -0x1(%rax),%edx
  sub    $0x1,%rax
  lea    0x1(%rdx),%esi
  mov    %sil,(%rax)
  cmp    $0x3a,%sil
  je     L50
  jmp    L393
  nopl   0x0(%rax)
L589:
  lea    -0x1(%rax,%rcx,1),%eax
  mov    %eax,%ecx
  mov    %eax,0x2c(%rsp)
  neg    %ecx
  cmovns %ecx,%eax
  cmp    $0x63,%eax
  setg   %al
  add    $0x1,%ebp
  sub    %eax,%r12d
  sub    %esi,%ebp
  mov    %r12d,%r13d
  mov    %ebp,%r15d
  test   %r12b,%r12b
  jle    L564
  nopl   0x0(%rax,%rax,1)
L745:
  xor    %eax,%eax
  mov    $0x20,%edi
  call   *%rbx
  sub    $0x1,%r13b
  jne    L745
  movzwl 0x16(%rsp),%eax
  sub    $0x1,%r12d
  movzbl %r12b,%r12d
  lea    0x1(%rax,%r12,1),%eax
  mov    %ax,0x14(%rsp)
L564:
  cmpb   $0x0,0xf(%rsp)
  jne    L285
L446:
  movsbl (%r14),%edi
  xor    %eax,%eax
  lea    0x1(%r14),%r12
  call   *%rbx
  mov    $0x2e,%edi
  xor    %eax,%eax
  call   *%rbx
  movsbl 0x1(%r14),%edi
  test   %dil,%dil
  je     L23
L159:
  add    $0x1,%r12
  xor    %eax,%eax
  call   *%rbx
  movsbl (%r12),%edi
  test   %dil,%dil
  jne    L159
L23:
  test   %r15b,%r15b
  jle    L615
  nopw   0x0(%rax,%rax,1)
L314:
  xor    %eax,%eax
  mov    $0x30,%edi
  call   *%rbx
  sub    $0x1,%bpl
  jne    L314
L615:
  xor    %eax,%eax
  mov    $0x65,%edi
  call   *%rbx
  mov    0x2c(%rsp),%eax
  test   %eax,%eax
  js     L550
  mov    $0x2b,%edi
  xor    %eax,%eax
  call   *%rbx
L323:
  mov    0x2c(%rsp),%eax
  cmp    $0x63,%eax
  jle    L38
  movslq %eax,%rdi
  sar    $0x1f,%eax
  imul   $0x51eb851f,%rdi,%rdi
  sar    $0x25,%rdi
  sub    %eax,%edi
  xor    %eax,%eax
  add    $0x30,%edi
  call   *%rbx
  movslq 0x2c(%rsp),%rax
  mov    %rax,%rdx
  imul   $0x51eb851f,%rax,%rax
  mov    %edx,%ecx
  sar    $0x1f,%ecx
  sar    $0x25,%rax
  sub    %ecx,%eax
  imul   $0x64,%eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,0x2c(%rsp)
L38:
  movslq %eax,%rdi
  sar    $0x1f,%eax
  imul   $0x66666667,%rdi,%rdi
  sar    $0x22,%rdi
  sub    %eax,%edi
  xor    %eax,%eax
  add    $0x30,%edi
  call   *%rbx
  movslq 0x2c(%rsp),%rax
  mov    %rax,%rdi
  imul   $0x66666667,%rax,%rax
  mov    %edi,%edx
  sar    $0x1f,%edx
  sar    $0x22,%rax
  sub    %edx,%eax
  lea    (%rax,%rax,4),%eax
  add    %eax,%eax
  sub    %eax,%edi
  xor    %eax,%eax
  add    $0x30,%edi
  call   *%rbx
  movswl 0x14(%rsp),%eax
  jmp    L278
  nopl   0x0(%rax)
L249:
  test   %ecx,%ecx
  js     L107
  lea    0x5(%r8),%eax
  cmp    %ecx,%eax
  jl     L318
  jmp    L281
  nopl   0x0(%rax)
L648:
  xor    %eax,%eax
  mov    $0x30,%edi
  call   *%rbx
  xor    %eax,%eax
  mov    $0x2e,%edi
  call   *%rbx
  cmp    0x2c(%rsp),%r15d
  jle    L226
  nopl   (%rax)
L664:
  xor    %eax,%eax
  mov    $0x30,%edi
  call   *%rbx
  mov    0x2c(%rsp),%eax
  add    $0x1,%eax
  mov    %eax,0x2c(%rsp)
  cmp    %eax,%r15d
  jg     L664
  jmp    L226
  cs nopw 0x0(%rax,%rax,1)
L26:
  mov    $0x1,%eax
  sub    %ecx,%eax
  movsbw %r15b,%cx
  add    %ecx,%eax
  add    %eax,%r13d
  jmp    L273
  cs nopw 0x0(%rax,%rax,1)
L285:
  mov    $0x2d,%edi
  xor    %eax,%eax
  call   *%rbx
  jmp    L446
  xchg   %ax,%ax
L550:
  neg    %eax
  mov    $0x2d,%edi
  mov    %eax,0x2c(%rsp)
  xor    %eax,%eax
  call   *%rbx
  jmp    L323
  nopl   0x0(%rax)
L106:
  movslq %ecx,%rax
  movsbq %bpl,%rcx
  add    %rcx,%rax
  add    %rsi,%rax
  add    %r14,%rax
  movzbl (%rax),%ecx
  movb   $0x0,(%rax)
  cmp    $0x34,%cl
  jle    L355
  movzbl -0x1(%rax),%edx
  lea    -0x1(%rax),%rsi
  lea    0x1(%rdx),%ecx
  mov    %cl,-0x1(%rax)
  mov    %rsi,%rax
  cmp    $0x3a,%cl
  jne    L355
  nopl   0x0(%rax)
L505:
  movb   $0x30,(%rax)
  movzbl -0x1(%rax),%edx
  sub    $0x1,%rax
  lea    0x1(%rdx),%ecx
  mov    %cl,(%rax)
  cmp    $0x3a,%cl
  je     L505
L355:
  cmp    %rax,%r14
  mov    %r8d,0x10(%rsp)
  cmova  %rax,%r14
  mov    %r14,%rdi
  call   <strlen@plt>
  mov    0x10(%rsp),%ecx
  mov    %eax,%esi
  neg    %ecx
  mov    %ecx,0x2c(%rsp)
  jmp    L530
  nopw   0x0(%rax,%rax,1)
L623:
  movsbq %al,%rsi
  mov    %ebp,%eax
  movb   $0x30,-0x1(%r14)
  or     %r13b,%al
  movl   $0x0,0x2c(%rsp)
  je     L421
  movsbl %bpl,%r8d
  xor    %ecx,%ecx
  cmp    $0x1,%r13b
  jne    L667
L421:
  xor    %ecx,%ecx
  jmp    L281
  nop
L107:
  movsbl %al,%eax
  add    %ecx,%eax
  cmp    $0xfffffffc,%eax
  jl     L318
  jmp    L272
L230:
  mov    %edi,%ecx
  jmp    L270
L312:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_label: D3
datatype: f32[4]

tool: {"D3": [0.0,-0.0,0.0,0.0]}

assistant: ```c
_fnum(val, prec, width, efmt, pputc) double val;
char width, prec, efmt;
void (*pputc)();
{
  register char *cp, *xp;
  int exp;
  char digs;
  short twid;
  unsigned char sign;
  char xbuf[60];
  if (prec < 0)
    prec = 6;
  twid = 0;
  if (val < 0.0) {
    val = -val;
    sign = 1;
  } else
    sign = 0;
  exp = 0;
  _fbcd(val, &exp, (xbuf + 2));
  cp = (xbuf + 2);
  while (*cp == '0')
    cp++;
  if (*cp == 0)
    cp--;
  if (strlen(cp) > 1) {
    xp = cp + strlen(cp) - 1;
    while (*xp == '0') {
      *xp-- = 0;
      exp++;
    }
  } else if (*cp == '0')
    exp = 0;
  cp[-1] = '0';
  digs = strlen(cp);
  if (efmt == 0 && prec == 0 || efmt == 1 && exp >= 0 && exp <= 5 + prec) {
    if (exp < 0) {
      char c;
      xp = cp + digs + exp;
      c = *xp;
      *xp = 0;
      if (c >= '5')
        for (;;)
          if ((*--xp += 1) == '9' + 1)
            *xp = '0';
          else
            break;
      if (xp < cp)
        cp = xp;
      digs = strlen(cp);
      exp = 0;
    }
    width -= (twid = digs + exp + sign);
    while (width > 0) {
      (*pputc)(' ');
      width--;
      twid++;
    }
    if (sign)
      (*pputc)('-');
    while (*cp)
      (*pputc)(*cp++);
    while (exp > 0) {
      (*pputc)('0');
      exp--;
    }
    return twid;
  }
  if (efmt == 1 && exp >= 5 || exp + digs < -4)
    efmt++;
  if (efmt >= 2) {
    width -= (twid = sign + prec + 6);
    if (digs > prec + 1) {
      char c;
    loop:
      xp = cp + prec + 1;
      exp += digs - (prec + 1);
      c = *xp;
      *xp = 0;
      if (c >= '5')
        for (;;)
          if ((*--xp += 1) == '9' + 1)
            *xp = '0';
          else
            break;
      if (xp < cp)
        cp = xp;
      digs = strlen(cp);
      if (digs > prec + 1)
        goto loop;
    }
    exp += digs - 1;
    if (abs(exp) >= 100)
      width--;
    prec -= digs - 1;
    while (width > 0) {
      (*pputc)(' ');
      width--;
      twid++;
    }
    if (sign)
      (*pputc)('-');
    (*pputc)(*cp++);
    (*pputc)('.');
    while (*cp)
      (*pputc)(*cp++);
    while (prec > 0) {
      (*pputc)('0');
      prec--;
    }
    (*pputc)('e');
    if (exp < 0) {
      exp = -exp;
      (*pputc)('-');
    } else
      (*pputc)('+');
    if (exp >= 100) {
      (*pputc)(exp / 100 + '0');
      exp %= 100;
    }
    (*pputc)(exp / 10 + '0');
    (*pputc)(exp % 10 + '0');
    return twid;
  }
  if (exp + prec < 0) {
    char c;
    xp = cp + digs + exp + prec;
    c = *xp;
    *xp = 0;
    if (c >= '5')
      for (;;)
        if ((*--xp += 1) == '9' + 1)
          *xp = '0';
        else
          break;
    if (xp < cp)
      cp = xp;
    digs = strlen(cp);
    exp = -prec;
  }
  prec += exp;
  twid = 1 + prec + sign + digs;
  digs = -digs;
  if (exp <= digs)
    twid += digs - exp + 1;
  width -= twid;
  while (width > 0) {
    (*pputc)(' ');
    width--;
  }
  if (sign)
    (*pputc)('-');
  if (exp <= digs) {
    (*pputc)('0');
    (*pputc)('.');
    while (exp < digs) {
      (*pputc)('0');
      exp++;
    }
  }
  while (*cp) {
    (*pputc)(*cp++);
    if (++digs == exp)
      (*pputc)('.');
  }
  while (exp > 0) {
    (*pputc)('0');
    prec--;
    if (--exp == 0)
      (*pputc)('.');
  }
  while (prec > 0) {
    (*pputc)('0');
    prec--;
  }
  return twid;
}
```