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

```asm
<_fnum>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x88,%rsp
  mov    %esi,%r13d
  mov    %edx,%r15d
  mov    %rcx,%rbp
  mov    %dl,0x8(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  xor    %eax,%eax
  test   %dil,%dil
  mov    $0x6,%eax
  cmovns %edi,%eax
  mov    %eax,%r12d
  pxor   %xmm1,%xmm1
  mov    $0x0,%r14d
  comisd %xmm0,%xmm1
  ja     L74
L647:
  movl   $0x0,0x2c(%rsp)
  lea    0x32(%rsp),%rsi
  lea    0x2c(%rsp),%rdi
  mov    $0x1,%eax
  call   <_fbcd@plt>
  movzbl 0x32(%rsp),%eax
  cmp    $0x30,%al
  jne    L188
  lea    0x32(%rsp),%rbx
L24:
  add    $0x1,%rbx
  movzbl (%rbx),%eax
  cmp    $0x30,%al
  je     L24
L151:
  cmp    $0x1,%al
  sbb    $0x0,%rbx
  mov    %rbx,%rdi
  call   <strlen@plt>
  cmp    $0x1,%rax
  jbe    L257
  lea    -0x1(%rbx,%rax,1),%rcx
  cmpb   $0x30,(%rcx)
  jne    L756
  mov    0x2c(%rsp),%esi
  mov    %rcx,%rax
L200:
  sub    $0x1,%rax
  movb   $0x0,0x1(%rax)
  mov    %esi,%edx
  sub    %eax,%edx
  add    %ecx,%edx
  cmpb   $0x30,(%rax)
  je     L200
  mov    %edx,0x2c(%rsp)
L756:
  movb   $0x30,-0x1(%rbx)
  mov    %rbx,%rdi
  call   <strlen@plt>
  mov    %eax,%edx
  mov    %r12d,%esi
  or     %r15b,%sil
  je     L84
  cmp    $0x1,%r15b
  je     L20
  movsbl %al,%ecx
  add    0x2c(%rsp),%ecx
  cmp    $0xfffffffc,%ecx
  jge    L402
L123:
  lea    0x1(%r15),%esi
  mov    %sil,0x8(%rsp)
L402:
  cmpb   $0x1,0x8(%rsp)
  jg     L532
L430:
  movsbl %r12b,%r15d
  mov    0x2c(%rsp),%ecx
  mov    %r15d,%esi
  add    %ecx,%esi
  js     L379
L643:
  mov    0x2c(%rsp),%ecx
  lea    (%r12,%rcx,1),%eax
  mov    %eax,%r12d
  cbtw
  movzbl %r14b,%esi
  lea    0x1(%rax,%rsi,1),%eax
  movsbw %dl,%si
  add    %esi,%eax
  neg    %edx
  mov    %dl,0x8(%rsp)
  movsbl %dl,%r15d
  cmp    %r15d,%ecx
  jg     L488
  sub    %ecx,%eax
  movsbw %dl,%dx
  lea    0x1(%rax,%rdx,1),%eax
L488:
  mov    %ax,0x14(%rsp)
  mov    %r13d,%edx
  sub    %eax,%edx
  mov    %edx,%r13d
  test   %dl,%dl
  jle    L57
L568:
  mov    $0x20,%edi
  mov    $0x0,%eax
  call   *%rbp
  sub    $0x1,%r13b
  jne    L568
L57:
  test   %r14b,%r14b
  je     L243
  mov    $0x2d,%edi
  mov    $0x0,%eax
  call   *%rbp
L243:
  cmp    0x2c(%rsp),%r15d
  jge    L25
L410:
  movzbl (%rbx),%edi
  mov    %rbx,%r13
  movzbl 0x8(%rsp),%r14d
  sub    %ebx,%r14d
  test   %dil,%dil
  jne    L48
L697:
  cmpl   $0x0,0x2c(%rsp)
  jg     L205
L552:
  test   %r12b,%r12b
  jle    L579
L550:
  mov    $0x30,%edi
  mov    $0x0,%eax
  call   *%rbp
  sub    $0x1,%r12b
  jne    L550
L579:
  movswl 0x14(%rsp),%eax
  jmp    L201
L74:
  xorpd  D3(%rip),%xmm0
  mov    $0x1,%r14d
  jmp    L647
L188:
  lea    0x32(%rsp),%rbx
  jmp    L151
L257:
  cmpb   $0x30,(%rbx)
  jne    L756
  movl   $0x0,0x2c(%rsp)
  jmp    L756
L20:
  mov    0x2c(%rsp),%ecx
  test   %ecx,%ecx
  js     L516
  movsbl %r12b,%esi
  add    $0x5,%esi
  cmp    %esi,%ecx
  jle    L79
L516:
  cmp    $0x4,%ecx
  jg     L123
  movsbl %al,%esi
  add    %esi,%ecx
  cmp    $0xfffffffc,%ecx
  jl     L123
  jmp    L430
L84:
  mov    0x2c(%rsp),%ecx
  test   %ecx,%ecx
  js     L661
L79:
  movzbl %r14b,%r15d
  add    0x2c(%rsp),%r15w
  movsbw %dl,%dx
  add    %edx,%r15d
  mov    %r15w,0x8(%rsp)
  sub    %r15d,%r13d
  mov    %r13d,%r12d
  test   %r13b,%r13b
  jle    L599
L615:
  mov    $0x20,%edi
  mov    $0x0,%eax
  call   *%rbp
  sub    $0x1,%r12b
  jne    L615
  sub    $0x1,%r13d
  movzbl %r13b,%r13d
  lea    0x1(%r15,%r13,1),%eax
  mov    %ax,0x8(%rsp)
L599:
  test   %r14b,%r14b
  je     L652
  mov    $0x2d,%edi
  mov    $0x0,%eax
  call   *%rbp
L652:
  movzbl (%rbx),%edi
  test   %dil,%dil
  je     L627
L167:
  add    $0x1,%rbx
  movsbl %dil,%edi
  mov    $0x0,%eax
  call   *%rbp
  movzbl (%rbx),%edi
  test   %dil,%dil
  jne    L167
L627:
  cmpl   $0x0,0x2c(%rsp)
  jle    L101
L339:
  mov    $0x30,%edi
  mov    $0x0,%eax
  call   *%rbp
  mov    0x2c(%rsp),%eax
  sub    $0x1,%eax
  mov    %eax,0x2c(%rsp)
  test   %eax,%eax
  jg     L339
L101:
  movswl 0x8(%rsp),%eax
L201:
  mov    0x78(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L260
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L661:
  movsbq %al,%rdx
  movslq %ecx,%rcx
  add    %rcx,%rdx
  add    %rbx,%rdx
  movzbl (%rdx),%eax
  movb   $0x0,(%rdx)
  cmp    $0x34,%al
  jle    L448
  lea    -0x1(%rdx),%rax
  movzbl -0x1(%rdx),%esi
  lea    0x1(%rsi),%ecx
  mov    %cl,-0x1(%rdx)
  cmp    $0x3a,%cl
  jne    L91
L212:
  movb   $0x30,(%rax)
  sub    $0x1,%rax
  movzbl (%rax),%esi
  lea    0x1(%rsi),%edx
  mov    %dl,(%rax)
  cmp    $0x3a,%dl
  je     L212
  mov    %rax,%rdx
L448:
  cmp    %rdx,%rbx
  cmova  %rdx,%rbx
  mov    %rbx,%rdi
  call   <strlen@plt>
  mov    %eax,%edx
  movl   $0x0,0x2c(%rsp)
  jmp    L79
L91:
  mov    %rax,%rdx
  jmp    L448
L532:
  movzbl %r14b,%ecx
  movsbw %r12b,%si
  lea    0x6(%rcx,%rsi,1),%ecx
  mov    %cx,0x16(%rsp)
  mov    %cx,0x14(%rsp)
  mov    %r13d,%r15d
  sub    %ecx,%r15d
  movsbl %r12b,%r13d
  add    $0x1,%r13d
  movsbl %al,%eax
  cmp    %r13d,%eax
  jle    L566
  movsbq %r12b,%rax
  mov    %rax,0x18(%rsp)
  add    $0x1,%rax
  mov    %rax,0x8(%rsp)
  jmp    L302
L617:
  mov    %rax,%rcx
L115:
  cmp    %rcx,%rbx
  cmova  %rcx,%rbx
  mov    %rbx,%rdi
  call   <strlen@plt>
  mov    %eax,%edx
  movsbl %al,%eax
  cmp    %eax,%r13d
  jge    L566
L302:
  mov    0x8(%rsp),%rax
  lea    (%rbx,%rax,1),%rcx
  movsbl %dl,%edx
  sub    %r13d,%edx
  add    %edx,0x2c(%rsp)
  movzbl (%rcx),%eax
  movb   $0x0,(%rcx)
  cmp    $0x34,%al
  jle    L115
  mov    0x18(%rsp),%rax
  add    %rbx,%rax
  movzbl -0x1(%rcx),%esi
  lea    0x1(%rsi),%edx
  mov    %dl,-0x1(%rcx)
  cmp    $0x3a,%dl
  jne    L617
L398:
  movb   $0x30,(%rax)
  sub    $0x1,%rax
  movzbl (%rax),%esi
  lea    0x1(%rsi),%edx
  mov    %dl,(%rax)
  cmp    $0x3a,%dl
  je     L398
  mov    %rax,%rcx
  jmp    L115
L566:
  movsbl %dl,%ecx
  mov    0x2c(%rsp),%eax
  lea    -0x1(%rcx,%rax,1),%eax
  mov    %eax,0x2c(%rsp)
  mov    %eax,%ecx
  neg    %ecx
  cmovns %ecx,%eax
  cmp    $0x63,%eax
  setg   %al
  sub    %eax,%r15d
  mov    %r15d,%r13d
  add    $0x1,%r12d
  sub    %edx,%r12d
  mov    %r12b,0x8(%rsp)
  test   %r15b,%r15b
  jle    L285
L589:
  mov    $0x20,%edi
  mov    $0x0,%eax
  call   *%rbp
  sub    $0x1,%r13b
  jne    L589
  sub    $0x1,%r15d
  movzbl %r15b,%r15d
  movzwl 0x16(%rsp),%eax
  lea    0x1(%rax,%r15,1),%eax
  mov    %ax,0x14(%rsp)
L285:
  test   %r14b,%r14b
  je     L324
  mov    $0x2d,%edi
  mov    $0x0,%eax
  call   *%rbp
L324:
  lea    0x1(%rbx),%r13
  movsbl (%rbx),%edi
  mov    $0x0,%eax
  call   *%rbp
  mov    $0x2e,%edi
  mov    $0x0,%eax
  call   *%rbp
  movzbl 0x1(%rbx),%edi
  test   %dil,%dil
  je     L745
L705:
  add    $0x1,%r13
  movsbl %dil,%edi
  mov    $0x0,%eax
  call   *%rbp
  movzbl 0x0(%r13),%edi
  test   %dil,%dil
  jne    L705
L745:
  cmpb   $0x0,0x8(%rsp)
  jle    L519
L731:
  mov    $0x30,%edi
  mov    $0x0,%eax
  call   *%rbp
  sub    $0x1,%r12b
  jne    L731
L519:
  mov    $0x65,%edi
  mov    $0x0,%eax
  call   *%rbp
  mov    0x2c(%rsp),%eax
  test   %eax,%eax
  js     L413
  mov    $0x2b,%edi
  mov    $0x0,%eax
  call   *%rbp
L359:
  mov    0x2c(%rsp),%eax
  cmp    $0x63,%eax
  jle    L268
  movslq %eax,%rdi
  imul   $0x51eb851f,%rdi,%rdi
  sar    $0x25,%rdi
  sar    $0x1f,%eax
  sub    %eax,%edi
  add    $0x30,%edi
  mov    $0x0,%eax
  call   *%rbp
  mov    0x2c(%rsp),%edx
  movslq %edx,%rax
  imul   $0x51eb851f,%rax,%rax
  sar    $0x25,%rax
  mov    %edx,%ecx
  sar    $0x1f,%ecx
  sub    %ecx,%eax
  imul   $0x64,%eax,%eax
  sub    %eax,%edx
  mov    %edx,0x2c(%rsp)
L268:
  mov    0x2c(%rsp),%eax
  movslq %eax,%rdi
  imul   $0x66666667,%rdi,%rdi
  sar    $0x22,%rdi
  sar    $0x1f,%eax
  sub    %eax,%edi
  add    $0x30,%edi
  mov    $0x0,%eax
  call   *%rbp
  mov    0x2c(%rsp),%edi
  movslq %edi,%rax
  imul   $0x66666667,%rax,%rax
  sar    $0x22,%rax
  mov    %edi,%edx
  sar    $0x1f,%edx
  sub    %edx,%eax
  lea    (%rax,%rax,4),%eax
  add    %eax,%eax
  sub    %eax,%edi
  add    $0x30,%edi
  mov    $0x0,%eax
  call   *%rbp
  movswl 0x14(%rsp),%eax
  jmp    L201
L413:
  neg    %eax
  mov    %eax,0x2c(%rsp)
  mov    $0x2d,%edi
  mov    $0x0,%eax
  call   *%rbp
  jmp    L359
L379:
  movslq %ecx,%rdx
  movsbq %r12b,%rcx
  add    %rcx,%rdx
  movsbq %al,%rax
  add    %rax,%rdx
  add    %rbx,%rdx
  movzbl (%rdx),%eax
  movb   $0x0,(%rdx)
  cmp    $0x34,%al
  jle    L225
  lea    -0x1(%rdx),%rax
  movzbl -0x1(%rdx),%esi
  lea    0x1(%rsi),%ecx
  mov    %cl,-0x1(%rdx)
  cmp    $0x3a,%cl
  jne    L466
L486:
  movb   $0x30,(%rax)
  sub    $0x1,%rax
  movzbl (%rax),%ecx
  lea    0x1(%rcx),%edx
  mov    %dl,(%rax)
  cmp    $0x3a,%dl
  je     L486
  mov    %rax,%rdx
L225:
  cmp    %rdx,%rbx
  cmova  %rdx,%rbx
  mov    %rbx,%rdi
  call   <strlen@plt>
  mov    %eax,%edx
  neg    %r15d
  mov    %r15d,0x2c(%rsp)
  jmp    L643
L466:
  mov    %rax,%rdx
  jmp    L225
L25:
  mov    $0x30,%edi
  mov    $0x0,%eax
  call   *%rbp
  mov    $0x2e,%edi
  mov    $0x0,%eax
  call   *%rbp
  cmp    0x2c(%rsp),%r15d
  jle    L410
L168:
  mov    $0x30,%edi
  mov    $0x0,%eax
  call   *%rbp
  mov    0x2c(%rsp),%eax
  add    $0x1,%eax
  mov    %eax,0x2c(%rsp)
  cmp    %eax,%r15d
  jg     L168
  jmp    L410
L259:
  movzbl 0x0(%r13),%edi
  test   %dil,%dil
  je     L697
L48:
  add    $0x1,%r13
  movsbl %dil,%edi
  mov    $0x0,%eax
  call   *%rbp
  lea    (%r14,%r13,1),%eax
  movsbl %al,%eax
  cmp    0x2c(%rsp),%eax
  jne    L259
  mov    $0x2e,%edi
  mov    $0x0,%eax
  call   *%rbp
  jmp    L259
L604:
  cmpl   $0x0,0x2c(%rsp)
  jle    L552
L205:
  mov    $0x30,%edi
  mov    $0x0,%eax
  call   *%rbp
  sub    $0x1,%r12d
  mov    0x2c(%rsp),%eax
  sub    $0x1,%eax
  mov    %eax,0x2c(%rsp)
  jne    L604
  mov    $0x2e,%edi
  call   *%rbp
  jmp    L604
L260:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: tag: D3
type_guessed: 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;
}
```