user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<ffs2tm>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x68,%rsp
  mov    0xa8(%rsp),%r14
  mov    0xa0(%rsp),%r13
  mov    %fs:0x28,%rax
  mov    %rax,0x58(%rsp)
  mov    (%r14),%eax
  test   %eax,%eax
  jg     L392
  mov    %rdi,%rbp
  mov    %r8,%rbx
  mov    %r9,%r12
  test   %rsi,%rsi
  je     L13
  movl   $0x0,(%rsi)
L13:
  test   %rdx,%rdx
  je     L293
  movl   $0x0,(%rdx)
L293:
  test   %rcx,%rcx
  je     L45
  movl   $0x0,(%rcx)
L45:
  test   %rbx,%rbx
  je     L193
  movl   $0x0,(%rbx)
L193:
  test   %r12,%r12
  je     L424
  movl   $0x0,(%r12)
L424:
  test   %r13,%r13
  je     L99
  movq   $0x0,0x0(%r13)
L99:
  test   %rbp,%rbp
  je     L285
  movzbl 0x2(%rbp),%eax
  cmp    $0x2f,%al
  je     L363
  cmpb   $0x2d,0x4(%rbp)
  je     L363
  cmp    $0x3a,%al
  jne    L16
  cmpb   $0x3a,0x5(%rbp)
  je     L234
L16:
  lea    D42(%rip),%rdi
  call   <ffpmsg@plt>
  mov    %rbp,%rdi
  call   <ffpmsg@plt>
  movl   $0x1a4,(%r14)
  mov    $0x1a4,%eax
L392:
  mov    0x58(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L201
  add    $0x68,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  xchg   %ax,%ax
L363:
  mov    %r14,%r8
  mov    %rbp,%rdi
  call   <ffs2dt@plt>
  test   %rax,%rax
  jle    L100
L95:
  mov    (%r14),%eax
  jmp    L392
  nopl   0x0(%rax)
L234:
  movsbl 0x0(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0x1(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0x3(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0x4(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0x6(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0x7(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  test   %rbx,%rbx
  je     L224
  mov    %rbp,%rdi
  call   <atoi@plt>
  mov    %eax,(%rbx)
L224:
  test   %r12,%r12
  je     L323
  lea    0x3(%rbp),%rdi
  call   <atoi@plt>
  mov    %eax,(%r12)
L323:
  test   %r13,%r13
  je     L378
  lea    0x6(%rbp),%rdi
  call   <atof@plt>
  movsd  %xmm0,0x0(%r13)
  nopl   (%rax)
L378:
  test   %rbx,%rbx
  je     L369
  mov    (%rbx),%eax
  cmp    $0x17,%eax
  jbe    L369
  pxor   %xmm0,%xmm0
  mov    %rsp,%rbp
  lea    D29(%rip),%rdx
  cvtsi2sd %eax,%xmm0
L260:
  mov    $0x51,%esi
  mov    %rbp,%rdi
  call   <snprintf@plt>
  mov    %rbp,%rdi
  call   <ffpmsg@plt>
  movl   $0x1a4,(%r14)
  mov    $0x1a4,%eax
  jmp    L392
  nopl   0x0(%rax)
L100:
  mov    %rbp,%rdi
  call   <strlen@plt>
  mov    %eax,%r15d
  and    $0xfffffffd,%eax
  cmp    $0x8,%eax
  je     L95
  cmp    $0x12,%r15d
  jle    L16
  cmpb   $0x54,0xa(%rbp)
  jne    L378
  cmpb   $0x3a,0xd(%rbp)
  jne    L378
  cmpb   $0x3a,0x10(%rbp)
  jne    L378
  movsbl 0xb(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0xc(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0xe(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0xf(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0x11(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  movsbl 0x12(%rbp),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L16
  cmp    $0x13,%r15d
  je     L242
  cmpb   $0x2e,0x13(%rbp)
  jne    L16
L242:
  test   %rbx,%rbx
  je     L442
  lea    0xb(%rbp),%rdi
  call   <atoi@plt>
  mov    %eax,(%rbx)
L442:
  test   %r12,%r12
  je     L65
  lea    0xe(%rbp),%rdi
  call   <atoi@plt>
  mov    %eax,(%r12)
L65:
  test   %r13,%r13
  je     L378
  lea    0x11(%rbp),%rdi
  call   <atof@plt>
  movsd  %xmm0,0x0(%r13)
  jmp    L378
  nopw   0x0(%rax,%rax,1)
L369:
  test   %r12,%r12
  je     L290
  mov    (%r12),%eax
  cmp    $0x3b,%eax
  jbe    L290
  pxor   %xmm0,%xmm0
  mov    %rsp,%rbp
  lea    D1(%rip),%rdx
  cvtsi2sd %eax,%xmm0
  jmp    L260
  nopl   (%rax)
L290:
  test   %r13,%r13
  je     L95
  movsd  0x0(%r13),%xmm0
  pxor   %xmm1,%xmm1
  comisd %xmm0,%xmm1
  ja     L276
  comisd D56(%rip),%xmm0
  jb     L95
L276:
  mov    %rsp,%rbp
  lea    D17(%rip),%rdx
  jmp    L260
  cs nopw 0x0(%rax,%rax,1)
L285:
  lea    D34(%rip),%rdi
  call   <ffpmsg@plt>
  movl   $0x1a4,(%r14)
  mov    $0x1a4,%eax
  jmp    L392
L201:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: tag: D42
type_guessed: string
name: extract_symbolic_data
arguments: tag: D29
type_guessed: string
name: extract_symbolic_data
arguments: tag: D1
type_guessed: string
name: extract_symbolic_data
arguments: tag: D56
type_guessed: f64
name: extract_symbolic_data
arguments: tag: D17
type_guessed: string
name: extract_symbolic_data
arguments: tag: D34
type_guessed: string

tool: D42: input date string has illegal format:

tool: D29: hour value is out of range 0 - 23: %d (ffs2tm)

tool: D1: minute value is out of range 0 - 59: %d (ffs2tm)

tool: D56: 61

tool: D17: second value is out of range 0 - 60.9999: %f (ffs2tm)

tool: D34: error: null input date string (ffs2tm)

assistant: ```c
int ffs2tm(char *datestr, int *year, int *month, int *day, int *hour, int *minute, double *second, int *status) {
  int slen;
  char errmsg[81];
  if (*status > 0)
    return (*status);
  if (year)
    *year = 0;
  if (month)
    *month = 0;
  if (day)
    *day = 0;
  if (hour)
    *hour = 0;
  if (minute)
    *minute = 0;
  if (second)
    *second = 0.;
  if (!datestr) {
    ffpmsg("error: null input date string (ffs2tm)");
    return (*status = 420);
  }
  if (datestr[2] == '/' || datestr[4] == '-') {
    if (ffs2dt(datestr, year, month, day, status) > 0)
      return (*status);
    slen = strlen(datestr);
    if (slen == 8 || slen == 10)
      return (*status);
    else if (slen < 19) {
      ffpmsg("input date string has illegal format:");
      ffpmsg(datestr);
      return (*status = 420);
    } else if (datestr[10] == 'T' && datestr[13] == ':' && datestr[16] == ':') {
      if (isdigit((int)datestr[11]) && isdigit((int)datestr[12]) && isdigit((int)datestr[14]) && isdigit((int)datestr[15]) && isdigit((int)datestr[17]) && isdigit((int)datestr[18])) {
        if (slen > 19 && datestr[19] != '.') {
          ffpmsg("input date string has illegal format:");
          ffpmsg(datestr);
          return (*status = 420);
        }
        if (hour)
          *hour = atoi(&datestr[11]);
        if (minute)
          *minute = atoi(&datestr[14]);
        if (second)
          *second = atof(&datestr[17]);
      } else {
        ffpmsg("input date string has illegal format:");
        ffpmsg(datestr);
        return (*status = 420);
      }
    }
  } else {
    if (datestr[2] == ':' && datestr[5] == ':') {
      if (isdigit((int)datestr[0]) && isdigit((int)datestr[1]) && isdigit((int)datestr[3]) && isdigit((int)datestr[4]) && isdigit((int)datestr[6]) && isdigit((int)datestr[7])) {
        if (hour)
          *hour = atoi(&datestr[0]);
        if (minute)
          *minute = atoi(&datestr[3]);
        if (second)
          *second = atof(&datestr[6]);
      } else {
        ffpmsg("input date string has illegal format:");
        ffpmsg(datestr);
        return (*status = 420);
      }
    } else {
      ffpmsg("input date string has illegal format:");
      ffpmsg(datestr);
      return (*status = 420);
    }
  }
  if (hour)
    if (*hour < 0 || *hour > 23) {
      snprintf(errmsg, 81, "hour value is out of range 0 - 23: %d (ffs2tm)", *hour);
      ffpmsg(errmsg);
      return (*status = 420);
    }
  if (minute)
    if (*minute < 0 || *minute > 59) {
      snprintf(errmsg, 81, "minute value is out of range 0 - 59: %d (ffs2tm)", *minute);
      ffpmsg(errmsg);
      return (*status = 420);
    }
  if (second)
    if (*second < 0 || *second >= 61.) {
      snprintf(errmsg, 81, "second value is out of range 0 - 60.9999: %f (ffs2tm)", *second);
      ffpmsg(errmsg);
      return (*status = 420);
    }
  return (*status);
}
```