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

```asm
<ffrwrg>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    %rdi,0x8(%rsp)
  mov    %r8,(%rsp)
  mov    0x60(%rsp),%r15
  mov    %fs:0x28,%rax
  mov    %rax,0x18(%rsp)
  xor    %eax,%eax
  mov    (%r15),%eax
  test   %eax,%eax
  jg     L75
  mov    %rsi,%r12
  mov    %edx,%r14d
  mov    %rcx,%rbp
  mov    %r9,%r13
  test   %rsi,%rsi
  jle    L77
  mov    0x8(%rsp),%rax
  mov    %rax,0x10(%rsp)
  movl   $0x0,(%rcx)
  cmpb   $0x20,(%rax)
  jne    L180
  add    $0x1,%rax
L190:
  mov    %rax,0x10(%rsp)
  add    $0x1,%rax
  cmpb   $0x20,-0x1(%rax)
  je     L190
  jmp    L180
L77:
  movl   $0x7e,(%r15)
  lea    D51(%rip),%rdi
  call   <ffpmsg@plt>
  mov    (%r15),%eax
L75:
  mov    0x18(%rsp),%rdx
  sub    %fs:0x28,%rdx
  jne    L280
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L110:
  movl   $0x7e,(%r15)
  lea    D80(%rip),%rdi
  call   <ffpmsg@plt>
  mov    0x8(%rsp),%rdi
  call   <ffpmsg@plt>
  mov    (%r15),%eax
  jmp    L75
L165:
  mov    $0x1,%ebx
L336:
  lea    0x1(%rsi),%rax
  mov    %rax,0x10(%rsp)
  movzbl 0x1(%rsi),%edi
  cmp    $0x20,%dil
  jne    L228
  add    $0x2,%rsi
L143:
  mov    %rsi,0x10(%rsp)
  add    $0x1,%rsi
  movzbl -0x1(%rsi),%edi
  cmp    $0x20,%dil
  je     L143
L228:
  movsbl %dil,%edi
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L263
  mov    0x10(%rsp),%rax
  movzbl (%rax),%eax
  cmp    $0x2c,%al
  je     L144
  test   %al,%al
  jne    L402
L144:
  mov    %r12,%rax
  jmp    L108
L263:
  lea    0x10(%rsp),%rsi
  mov    $0xa,%edx
  mov    0x10(%rsp),%rdi
  call   <strtol@plt>
  jmp    L108
L402:
  movl   $0x7e,(%r15)
  lea    D80(%rip),%rdi
  call   <ffpmsg@plt>
  mov    0x8(%rsp),%rdi
  call   <ffpmsg@plt>
  mov    (%r15),%eax
  jmp    L75
L320:
  mov    %rax,%rbx
L108:
  mov    0x0(%rbp),%edx
  cmp    %r14d,%edx
  jge    L35
  test   %rbx,%rbx
  jle    L219
  cmp    %rbx,%rax
  jl     L5
  test   %edx,%edx
  jle    L368
  movslq %edx,%rcx
  cmp    %rbx,-0x8(%r13,%rcx,8)
  jge    L169
L368:
  cmp    %rbx,%r12
  jl     L346
  movslq %edx,%rdx
  mov    (%rsp),%rdi
  mov    %rbx,(%rdi,%rdx,8)
  movslq 0x0(%rbp),%rdx
  cmp    %r12,%rax
  cmovg  %r12,%rax
  mov    %rax,0x0(%r13,%rdx,8)
  addl   $0x1,0x0(%rbp)
L346:
  mov    0x10(%rsp),%rcx
  movzbl (%rcx),%edx
  cmp    $0x20,%dl
  jne    L317
  lea    0x1(%rcx),%rax
L116:
  mov    %rax,%rcx
  mov    %rax,0x10(%rsp)
  add    $0x1,%rax
  movzbl -0x1(%rax),%edx
  cmp    $0x20,%dl
  je     L116
L317:
  cmp    $0x2c,%dl
  je     L354
L180:
  mov    0x10(%rsp),%rsi
  movzbl (%rsi),%edi
  test   %dil,%dil
  je     L221
  cmp    $0x2d,%dil
  je     L165
  movsbl %dil,%edi
  call   <isdigit@plt>
  test   %rax,%rax
  je     L110
  lea    0x10(%rsp),%rsi
  mov    $0xa,%edx
  mov    0x10(%rsp),%rdi
  call   <strtol@plt>
  mov    0x10(%rsp),%rsi
  movzbl (%rsi),%ecx
  cmp    $0x20,%cl
  jne    L247
  lea    0x1(%rsi),%rdx
L276:
  mov    %rdx,%rsi
  mov    %rdx,0x10(%rsp)
  add    $0x1,%rdx
  movzbl -0x1(%rdx),%ecx
  cmp    $0x20,%cl
  je     L276
L247:
  mov    %rax,%rbx
  cmp    $0x2d,%cl
  je     L336
  cmp    $0x2c,%cl
  je     L320
  test   %cl,%cl
  je     L320
  movl   $0x7e,(%r15)
  lea    D80(%rip),%rdi
  call   <ffpmsg@plt>
  mov    0x8(%rsp),%rdi
  call   <ffpmsg@plt>
  mov    (%r15),%eax
  jmp    L75
L35:
  movl   $0x7e,(%r15)
  lea    D88(%rip),%rdi
  call   <ffpmsg@plt>
  mov    (%r15),%eax
  jmp    L75
L219:
  movl   $0x7e,(%r15)
  lea    D60(%rip),%rdi
  call   <ffpmsg@plt>
  mov    0x8(%rsp),%rdi
  call   <ffpmsg@plt>
  mov    (%r15),%eax
  jmp    L75
L5:
  movl   $0x7e,(%r15)
  lea    D77(%rip),%rdi
  call   <ffpmsg@plt>
  mov    0x8(%rsp),%rdi
  call   <ffpmsg@plt>
  mov    (%r15),%eax
  jmp    L75
L169:
  movl   $0x7e,(%r15)
  lea    D5(%rip),%rdi
  call   <ffpmsg@plt>
  lea    D55(%rip),%rdi
  call   <ffpmsg@plt>
  mov    0x8(%rsp),%rdi
  call   <ffpmsg@plt>
  mov    (%r15),%eax
  jmp    L75
L354:
  lea    0x1(%rcx),%rax
  mov    %rax,0x10(%rsp)
  cmpb   $0x20,0x1(%rcx)
  jne    L180
  add    $0x2,%rcx
L28:
  mov    %rcx,0x10(%rsp)
  add    $0x1,%rcx
  cmpb   $0x20,-0x1(%rcx)
  je     L28
  jmp    L180
L221:
  cmpl   $0x0,0x0(%rbp)
  jne    L207
  mov    (%rsp),%rax
  movq   $0x1,(%rax)
  mov    %r12,0x0(%r13)
  movl   $0x1,0x0(%rbp)
L207:
  mov    (%r15),%eax
  jmp    L75
L280:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D51
type: string
name: unpack_data
arguments: tag: D80
type: string
name: unpack_data
arguments: tag: D88
type: string
name: unpack_data
arguments: tag: D60
type: string
name: unpack_data
arguments: tag: D77
type: string
name: unpack_data
arguments: tag: D5
type: string
name: unpack_data
arguments: tag: D55
type: string

tool: D51: Input maximum range value is <= 0 (fits_parse_ranges)

tool: D80: Syntax error in this row range list:

tool: D88: Overflowed maximum number of ranges (fits_parse_ranges)

tool: D60: Syntax error in this row range list: row number < 1

tool: D77: Syntax error in this row range list: min > max

tool: D5: Syntax error in this row range list.  Range minimum is

tool: D55:   less than or equal to previous range maximum

assistant: ```c
int ffrwrg(char *rowlist, long maxrows, int maxranges, int *numranges, long *minrow, long *maxrow, int *status) {
  char *next;
  long minval, maxval;
  if (*status > 0)
    return (*status);
  if (maxrows <= 0) {
    *status = 126;
    ffpmsg("Input maximum range value is <= 0 (fits_parse_ranges)");
    return (*status);
  }
  next = rowlist;
  *numranges = 0;
  while (*next == ' ')
    next++;
  while (*next != '\0') {
    if (*next == '-') {
      minval = 1;
    } else if (isdigit((int)*next)) {
      minval = strtol(next, &next, 10);
    } else {
      *status = 126;
      ffpmsg("Syntax error in this row range list:");
      ffpmsg(rowlist);
      return (*status);
    }
    while (*next == ' ')
      next++;
    if (*next == '-') {
      next++;
      while (*next == ' ')
        next++;
      if (isdigit((int)*next)) {
        maxval = strtol(next, &next, 10);
      } else if (*next == ',' || *next == '\0') {
        maxval = maxrows;
      } else {
        *status = 126;
        ffpmsg("Syntax error in this row range list:");
        ffpmsg(rowlist);
        return (*status);
      }
    } else if (*next == ',' || *next == '\0') {
      maxval = minval;
    } else {
      *status = 126;
      ffpmsg("Syntax error in this row range list:");
      ffpmsg(rowlist);
      return (*status);
    }
    if (*numranges + 1 > maxranges) {
      *status = 126;
      ffpmsg("Overflowed maximum number of ranges (fits_parse_ranges)");
      return (*status);
    }
    if (minval < 1) {
      *status = 126;
      ffpmsg("Syntax error in this row range list: row number < 1");
      ffpmsg(rowlist);
      return (*status);
    }
    if (maxval < minval) {
      *status = 126;
      ffpmsg("Syntax error in this row range list: min > max");
      ffpmsg(rowlist);
      return (*status);
    }
    if (*numranges > 0) {
      if (minval <= maxrow[(*numranges) - 1]) {
        *status = 126;
        ffpmsg("Syntax error in this row range list.  Range minimum is");
        ffpmsg("  less than or equal to previous range maximum");
        ffpmsg(rowlist);
        return (*status);
      }
    }
    if (minval <= maxrows) {
      if (maxval > maxrows)
        maxval = maxrows;
      minrow[*numranges] = minval;
      maxrow[*numranges] = maxval;
      (*numranges)++;
    }
    while (*next == ' ')
      next++;
    if (*next == ',') {
      next++;
      while (*next == ' ')
        next++;
    }
  }
  if (*numranges == 0) {
    minrow[0] = 1;
    maxrow[0] = maxrows;
    *numranges = 1;
  }
  return (*status);
}
```