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

```asm
<fftm2s>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x88,%rsp
  mov    0xc8(%rsp),%rbp
  mov    0xc0(%rsp),%r10
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  mov    0x0(%rbp),%eax
  test   %eax,%eax
  jg     L34
  mov    %esi,%eax
  movb   $0x0,(%r10)
  mov    %edi,%r12d
  mov    %esi,%r13d
  or     %edx,%eax
  mov    %edx,%ebx
  mov    %ecx,%r14d
  mov    %r8d,%r15d
  or     %edi,%eax
  mov    %eax,%r11d
  jne    L83
L92:
  cmp    $0x17,%r14d
  ja     L88
  cmp    $0x3b,%r15d
  ja     L60
  pxor   %xmm1,%xmm1
  comisd %xmm0,%xmm1
  ja     L153
  comisd D25(%rip),%xmm0
  jae    L153
  cmp    $0x19,%r9d
  jg     L80
  test   %r9d,%r9d
  jne    L44
  mov    $0x2,%r8d
L93:
  test   %r11d,%r11d
  jne    L112
  mov    %r15d,%ecx
  mov    %r14d,%edx
  lea    D85(%rip),%rsi
  mov    %r10,%rdi
  mov    $0x1,%eax
  call   <sprintf@plt>
  jmp    L13
  nopl   0x0(%rax)
L88:
  lea    0x20(%rsp),%r12
  mov    %r14d,%edx
  lea    D42(%rip),%rsi
L76:
  mov    %r12,%rdi
  xor    %eax,%eax
  call   <sprintf@plt>
  mov    %r12,%rdi
  call   <ffpmsg@plt>
  movl   $0x1a4,0x0(%rbp)
  mov    $0x1a4,%eax
L34:
  mov    0x78(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L176
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L83:
  mov    %rbp,%rcx
  mov    %r10,0x18(%rsp)
  mov    %r9d,0x14(%rsp)
  movsd  %xmm0,0x8(%rsp)
  mov    %eax,0x10(%rsp)
  call   <ffverifydate@plt>
  mov    0x10(%rsp),%r11d
  movsd  0x8(%rsp),%xmm0
  test   %rax,%rax
  mov    0x14(%rsp),%r9d
  mov    0x18(%rsp),%r10
  jle    L92
  lea    D29(%rip),%rdi
  call   <ffpmsg@plt>
  mov    0x0(%rbp),%eax
  jmp    L34
  nopl   0x0(%rax,%rax,1)
L44:
  lea    0x3(%r9),%r8d
  jns    L93
  mov    %ebx,%r8d
  mov    %r13d,%ecx
  mov    %r12d,%edx
  mov    %r10,%rdi
  lea    D26(%rip),%rsi
  xor    %eax,%eax
  call   <sprintf@plt>
L13:
  mov    0x0(%rbp),%eax
  jmp    L34
  nopl   0x0(%rax)
L153:
  cvttsd2si %xmm0,%edx
  lea    0x20(%rsp),%r12
  lea    D13(%rip),%rsi
  jmp    L76
  nopl   (%rax)
L112:
  sub    $0x8,%rsp
  mov    %r13d,%ecx
  mov    %r12d,%edx
  mov    %r10,%rdi
  push   %r9
  lea    D51(%rip),%rsi
  mov    %r14d,%r9d
  mov    $0x1,%eax
  push   %r8
  mov    %ebx,%r8d
  push   %r15
  call   <sprintf@plt>
  add    $0x20,%rsp
  jmp    L13
L60:
  lea    0x20(%rsp),%r12
  mov    %r15d,%edx
  lea    D71(%rip),%rsi
  jmp    L76
  nopl   0x0(%rax)
L80:
  lea    0x20(%rsp),%r12
  mov    %r9d,%edx
  lea    D1(%rip),%rsi
  jmp    L76
L176:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: data_label: D25
type_guessed: f32
name: read_data
arguments: data_label: D85
type_guessed: string
name: read_data
arguments: data_label: D42
type_guessed: string
name: read_data
arguments: data_label: D29
type_guessed: string
name: read_data
arguments: data_label: D26
type_guessed: string
name: read_data
arguments: data_label: D13
type_guessed: string
name: read_data
arguments: data_label: D51
type_guessed: string
name: read_data
arguments: data_label: D71
type_guessed: string
name: read_data
arguments: data_label: D1
type_guessed: string

tool: D25: 0

tool: D85: %.2d:%.2d:%0*.*f

tool: D42: input hour value is out of range 0 - 23: %d (fftm2s)

tool: D29: invalid date (fftm2s)

tool: D26: %.4d-%.2d-%.2d

tool: D13: input second value is out of range 0 - 60.999: %f (fftm2s)

tool: D51: %.4d-%.2d-%.2dT%.2d:%.2d:%0*.*f

tool: D71: input minute value is out of range 0 - 59: %d (fftm2s)

tool: D1: input decimals value is out of range 0 - 25: %d (fftm2s)

assistant: ```c
int fftm2s(int year, int month, int day, int hour, int minute, double second, int decimals, char *datestr, int *status) {
  int width;
  char errmsg[81];
  if (*status > 0)
    return (*status);
  *datestr = '\0';
  if (year != 0 || month != 0 || day != 0) {
    if (ffverifydate(year, month, day, status) > 0) {
      ffpmsg("invalid date (fftm2s)");
      return (*status);
    }
  }
  if (hour < 0 || hour > 23) {
    sprintf(errmsg, "input hour value is out of range 0 - 23: %d (fftm2s)", hour);
    ffpmsg(errmsg);
    return (*status = 420);
  } else if (minute < 0 || minute > 59) {
    sprintf(errmsg, "input minute value is out of range 0 - 59: %d (fftm2s)", minute);
    ffpmsg(errmsg);
    return (*status = 420);
  } else if (second < 0. || second >= 61) {
    sprintf(errmsg, "input second value is out of range 0 - 60.999: %f (fftm2s)", second);
    ffpmsg(errmsg);
    return (*status = 420);
  } else if (decimals > 25) {
    sprintf(errmsg, "input decimals value is out of range 0 - 25: %d (fftm2s)", decimals);
    ffpmsg(errmsg);
    return (*status = 420);
  }
  if (decimals == 0)
    width = 2;
  else
    width = decimals + 3;
  if (decimals < 0) {
    sprintf(datestr, "%.4d-%.2d-%.2d", year, month, day);
  } else if (year == 0 && month == 0 && day == 0) {
    sprintf(datestr, "%.2d:%.2d:%0*.*f", hour, minute, width, decimals, second);
  } else {
    sprintf(datestr, "%.4d-%.2d-%.2dT%.2d:%.2d:%0*.*f", year, month, day, hour, minute, width, decimals, second);
  }
  return (*status);
}
```