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

```asm
<ffc2d>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xf0,%rsp
  mov    %rdi,-0xd8(%rbp)
  mov    %rsi,-0xe0(%rbp)
  mov    %rdx,-0xe8(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  mov    -0xe8(%rbp),%rax
  mov    (%rax),%eax
  test   %eax,%eax
  jle    L60
  mov    -0xe8(%rbp),%rax
  mov    (%rax),%eax
  jmp    L17
L60:
  mov    -0xd8(%rbp),%rax
  movzbl (%rax),%eax
  test   %al,%al
  jne    L7
  mov    -0xe8(%rbp),%rax
  movl   $0xcc,(%rax)
  mov    -0xe8(%rbp),%rax
  mov    (%rax),%eax
  jmp    L17
L7:
  mov    -0xe8(%rbp),%rdx
  lea    -0xc5(%rbp),%rcx
  mov    -0xd8(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <ffdtyp@plt>
  movzbl -0xc5(%rbp),%eax
  cmp    $0x49,%al
  je     L74
  movzbl -0xc5(%rbp),%eax
  cmp    $0x46,%al
  jne    L124
L74:
  mov    -0xe8(%rbp),%rdx
  mov    -0xe0(%rbp),%rcx
  mov    -0xd8(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <ffc2dd@plt>
  jmp    L18
L124:
  movzbl -0xc5(%rbp),%eax
  cmp    $0x4c,%al
  jne    L131
  mov    -0xe8(%rbp),%rdx
  lea    -0xc4(%rbp),%rcx
  mov    -0xd8(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <ffc2ll@plt>
  mov    -0xc4(%rbp),%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  mov    -0xe0(%rbp),%rax
  movsd  %xmm0,(%rax)
  jmp    L18
L131:
  movzbl -0xc5(%rbp),%eax
  cmp    $0x43,%al
  jne    L69
  mov    -0xe8(%rbp),%rdx
  lea    -0xc0(%rbp),%rcx
  mov    -0xd8(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <ffc2s@plt>
  mov    -0xe8(%rbp),%rdx
  mov    -0xe0(%rbp),%rcx
  lea    -0xc0(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <ffc2dd@plt>
  jmp    L18
L69:
  mov    -0xe8(%rbp),%rax
  movl   $0x196,(%rax)
L18:
  mov    -0xe8(%rbp),%rax
  mov    (%rax),%eax
  test   %eax,%eax
  jle    L72
  mov    -0xe0(%rbp),%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  lea    -0x60(%rbp),%rax
  lea    D5(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <strcpy@plt>
  mov    -0xd8(%rbp),%rcx
  lea    -0x60(%rbp),%rax
  mov    $0x1e,%edx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <strncat@plt>
  lea    -0x60(%rbp),%rax
  mov    %rax,%rdi
  call   <ffpmsg@plt>
  mov    -0xe8(%rbp),%rax
  mov    (%rax),%eax
  jmp    L17
L72:
  mov    -0xe8(%rbp),%rax
  mov    (%rax),%eax
L17:
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L107
  call   <__stack_chk_fail@plt>
L107:
  leave
  ret
```

tool_calls: name: disassemble_data
arguments: data_label: D5
type: string

tool: D5: Error in ffc2d evaluating string as a double: 

assistant: ```c
int ffc2d(char *cval, double *dval, int *status) {
  char dtype, sval[81], msg[81];
  int lval;
  if (*status > 0)
    return (*status);
  if (cval[0] == '\0')
    return (*status = 204);
  ffdtyp(cval, &dtype, status);
  if (dtype == 'I' || dtype == 'F')
    ffc2dd(cval, dval, status);
  else if (dtype == 'L') {
    ffc2ll(cval, &lval, status);
    *dval = (double)lval;
  } else if (dtype == 'C') {
    ffc2s(cval, sval, status);
    ffc2dd(sval, dval, status);
  } else
    *status = 406;
  if (*status > 0) {
    *dval = 0.;
    strcpy(msg, "Error in ffc2d evaluating string as a double: ");
    strncat(msg, cval, 30);
    ffpmsg(msg);
    return (*status);
  }
  return (*status);
}
```