user: 请从给定的汇编指令推导出C源代码：

```asm
<f_set_ftime1>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x218,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x208(%rsp)
  xor    %eax,%eax
  mov    0x250(%rsp),%r13
  test   %edi,%edi
  js     L50
  mov    %rsi,%rdi
  mov    %rsi,%rbp
  call   <code_table_4_4_location@plt>
  mov    %rax,%r15
  test   %rax,%rax
  je     L208
L82:
  mov    0x20(%rbp),%rax
  lea    0x1(%r15),%rbx
  mov    %rbx,%rdi
  movzbl 0x7(%rax),%r12d
  movzbl 0x8(%rax),%eax
  shl    $0x8,%r12d
  add    %eax,%r12d
  movzbl (%r15),%eax
  mov    %al,0x18(%rsp)
  call   <int4@plt>
  mov    %rbp,%rdi
  mov    %eax,0x24(%rsp)
  call   <stat_proc_verf_time_location@plt>
  lea    D67(%rip),%rsi
  mov    %r13,%rdi
  movl   $0x0,0x34(%rsp)
  mov    %rax,0x8(%rsp)
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L238
  movl   $0x0,0x34(%rsp)
  mov    $0x1,%eax
  movl   $0x1,0x10(%rsp)
L149:
  mov    %al,(%r15)
  mov    %rbx,%rsi
  mov    0x34(%rsp),%edi
  cmp    $0x2c,%r12d
  je     L22
L38:
  call   <int_char@plt>
L140:
  mov    %rbp,%rdi
  call   <code_table_1_2_location@plt>
  mov    %rbp,%rdi
  mov    %rax,%r12
  call   <code_table_1_4_location@plt>
  mov    0x34(%rsp),%esi
  test   %esi,%esi
  jne    L62
  test   %r12,%r12
  je     L79
  movb   $0x0,(%r12)
L79:
  test   %rax,%rax
  je     L172
  cmpb   $0x1,(%rax)
  je     L109
L172:
  cmpq   $0x0,0x8(%rsp)
  je     L50
  lea    0x68(%rsp),%rbx
  lea    0x64(%rsp),%r15
  mov    %rbp,%rdi
  lea    0x60(%rsp),%r14
  lea    0x5c(%rsp),%r13
  mov    %rbx,%r9
  mov    %r15,%r8
  lea    0x58(%rsp),%r12
  sub    $0x8,%rsp
  mov    %r14,%rcx
  mov    %r13,%rdx
  lea    0x74(%rsp),%r11
  mov    %r12,%rsi
  push   %r11
  mov    %r11,0x38(%rsp)
  call   <reftime@plt>
  movzbl 0x28(%rsp),%eax
  mov    %rbx,%r8
  mov    %r15,%rcx
  mov    %r13,%rsi
  mov    %r12,%rdi
  push   %rax
  mov    0x3c(%rsp),%edx
  push   %rdx
  mov    0x48(%rsp),%r11
  mov    %r14,%rdx
  mov    %r11,%r9
  mov    %r11,0x38(%rsp)
  call   <add_time@plt>
  add    $0x20,%rsp
  lea    0x48(%rsp),%rcx
  lea    0x44(%rsp),%rdx
  lea    0x40(%rsp),%rsi
  sub    $0x8,%rsp
  lea    0x5c(%rsp),%rax
  push   %rax
  mov    0x18(%rsp),%rdi
  lea    0x60(%rsp),%r9
  lea    0x5c(%rsp),%r8
  call   <get_time@plt>
  lea    0x4c(%rsp),%rax
  push   %rax
  lea    0x50(%rsp),%rax
  push   %rax
  mov    0x8c(%rsp),%eax
  push   %rax
  mov    0x90(%rsp),%eax
  push   %rax
  mov    0x94(%rsp),%eax
  push   %rax
  mov    0x98(%rsp),%eax
  push   %rax
  mov    0x9c(%rsp),%eax
  push   %rax
  mov    0xa0(%rsp),%eax
  push   %rax
  mov    0xa4(%rsp),%r9d
  mov    0xa0(%rsp),%r8d
  mov    0x9c(%rsp),%ecx
  mov    0x98(%rsp),%edx
  mov    0x94(%rsp),%esi
  mov    0x90(%rsp),%edi
  call   <sub_time@plt>
  mov    0x68(%rsp),%r11
  mov    %rbx,%r9
  mov    %r15,%r8
  add    $0x48,%rsp
  mov    %r14,%rcx
  mov    %r13,%rdx
  mov    %r12,%rsi
  push   %r11
  mov    %rbp,%rdi
  mov    %r11,0x28(%rsp)
  call   <reftime@plt>
  mov    0x20(%rsp),%ecx
  mov    %rbx,%r8
  mov    %r14,%rdx
  mov    %r13,%rsi
  mov    %r12,%rdi
  push   %rcx
  mov    0x4c(%rsp),%eax
  mov    %r15,%rcx
  push   %rax
  mov    0x38(%rsp),%r11
  mov    %r11,%r9
  mov    %r11,0x30(%rsp)
  call   <add_time@plt>
  mov    0x5c(%rsp),%eax
  add    $0x20,%rsp
  mov    %rbx,%r8
  mov    %r15,%rcx
  mov    %r14,%rdx
  mov    %r13,%rsi
  mov    %r12,%rdi
  push   %rax
  mov    0x40(%rsp),%eax
  push   %rax
  mov    0x20(%rsp),%r9
  call   <add_time@plt>
  pop    %rax
  push   0x10(%rsp)
  mov    0x7c(%rsp),%r9d
  mov    0x78(%rsp),%r8d
  mov    0x74(%rsp),%ecx
  mov    0x70(%rsp),%edx
  mov    0x6c(%rsp),%esi
  mov    0x68(%rsp),%edi
  call   <save_time@plt>
  pop    %rdx
  pop    %rcx
L50:
  mov    0x208(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L86
  add    $0x218,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   (%rax)
L62:
  test   %r12,%r12
  je     L150
  movb   $0x1,(%r12)
L150:
  test   %rax,%rax
  je     L172
  cmpb   $0x0,(%rax)
  jne    L172
  movb   $0x1,(%rax)
  jmp    L172
  nopl   0x0(%rax)
L238:
  lea    0x70(%rsp),%r14
  lea    0x140(%rsp),%r8
  mov    %r13,%rdi
  lea    0x34(%rsp),%rdx
  lea    0x30(%rsp),%r9
  mov    %r14,%rcx
  mov    %r8,0x10(%rsp)
  lea    D7(%rip),%rsi
  call   <sscanf@plt>
  cmp    $0x3,%eax
  je     L169
L104:
  mov    %r13,%rsi
  lea    D21(%rip),%rdi
  call   <fatal_error@plt>
  mov    $0xffffffff,%eax
  movl   $0xffffffff,0x10(%rsp)
  mov    %rbx,%rsi
  mov    %al,(%r15)
  mov    0x34(%rsp),%edi
  cmp    $0x2c,%r12d
  jne    L38
L22:
  call   <int2_char@plt>
  jmp    L140
  nopl   (%rax)
L208:
  lea    D55(%rip),%rsi
  lea    D14(%rip),%rdi
  call   <fatal_error@plt>
  jmp    L82
L109:
  movb   $0x0,(%rax)
  jmp    L172
  nopl   0x0(%rax,%rax,1)
L169:
  mov    %r13,%rdi
  call   <strlen@plt>
  cmp    0x30(%rsp),%eax
  mov    0x10(%rsp),%r8
  jne    L104
  mov    %r8,%rdi
  lea    D43(%rip),%rsi
  call   <strcmp@plt>
  mov    0x10(%rsp),%r8
  test   %rax,%rax
  je     L65
  lea    D50(%rip),%rsi
  mov    %r8,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L104
L65:
  mov    %r14,%rdi
  call   <a2time_range@plt>
  mov    %eax,0x10(%rsp)
  cmp    $0xffffffff,%eax
  je     L104
  movzbl 0x10(%rsp),%eax
  jmp    L149
L86:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D67
type_guessed: string
name: unpack_data
arguments: tag: D7
type_guessed: string
name: unpack_data
arguments: tag: D21
type_guessed: string
name: unpack_data
arguments: tag: D55
type_guessed: string
name: unpack_data
arguments: tag: D14
type_guessed: string
name: unpack_data
arguments: tag: D43
type_guessed: string
name: unpack_data
arguments: tag: D50
type_guessed: string

tool: D67: anl

tool: D7: %d %s %s%n

tool: D21: set_ftime: unknown option %s

tool: 

tool: D14: set_ftime: Code Table 4.4 not present or defined

tool: D43: forecast

tool: D50: fcst

assistant: ```c
int f_set_ftime1(int mode, unsigned char **sec, float *data, unsigned int ndata, char *inv_out, void **local, const char *arg1) {
  int len, pdt;
  char string[200];
  char string2[200];
  unsigned char *code_4_4, *verf_time, *code_1_2, *code_1_4;
  int old_ftime, old_ftime_units;
  int new_ftime, new_ftime_units, dt, units;
  int year, month, day, hour, minute, second;
  int year0, month0, day0, hour0, minute0, second0;
  if (mode < 0)
    return 0;
  code_4_4 = code_table_4_4_location(sec);
  if (code_4_4 == NULL)
    fatal_error("set_ftime: Code Table 4.4 not present or defined", "");
  pdt = (((int)((sec[4][7] << 8) + (sec[4][8]))));
  old_ftime_units = (int)*code_4_4;
  old_ftime = int4(code_4_4 + 1);
  verf_time = stat_proc_verf_time_location(sec);
  new_ftime = 0;
  new_ftime_units = -1;
  if (strcmp(arg1, "anl") == 0) {
    new_ftime = 0;
    new_ftime_units = 1;
  } else {
    if (sscanf(arg1, "%d %s %s%n", &new_ftime, string, string2, &len) == 3 && len == strlen(arg1)) {
      if (strcmp(string2, "forecast") == 0 || strcmp(string2, "fcst") == 0) {
        new_ftime_units = a2time_range(string);
      }
    }
  }
  if (new_ftime_units == -1)
    fatal_error("set_ftime: unknown option %s", arg1);
  *code_4_4 = (unsigned char)new_ftime_units;
  if (pdt != 44) {
    int_char(new_ftime, code_4_4 + 1);
  } else {
    int2_char(new_ftime, code_4_4 + 1);
  }
  code_1_2 = code_table_1_2_location(sec);
  code_1_4 = code_table_1_4_location(sec);
  if (new_ftime == 0) {
    if (code_1_2 != NULL)
      *code_1_2 = 0;
    if (code_1_4 != NULL && (int)*code_1_4 == 1)
      *code_1_4 = 0;
  } else {
    if (code_1_2 != NULL)
      *code_1_2 = 1;
    if (code_1_4 != NULL && (int)*code_1_4 == 0)
      *code_1_4 = 1;
  }
  if (verf_time == NULL)
    return 0;
  reftime(sec, &year0, &month0, &day0, &hour0, &minute0, &second0);
  add_time(&year0, &month0, &day0, &hour0, &minute0, &second0, old_ftime, old_ftime_units);
  get_time(verf_time, &year, &month, &day, &hour, &minute, &second);
  sub_time(year, month, day, hour, minute, second, year0, month0, day0, hour0, minute0, second0, &dt, &units);
  reftime(sec, &year0, &month0, &day0, &hour0, &minute0, &second0);
  add_time(&year0, &month0, &day0, &hour0, &minute0, &second0, new_ftime, new_ftime_units);
  add_time(&year0, &month0, &day0, &hour0, &minute0, &second0, dt, units);
  save_time(year0, month0, day0, hour0, minute0, second0, verf_time);
  return 0;
}
```