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

```asm
<wind>:
  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    -0xd8(%rbp),%rax
  mov    %rax,-0xa0(%rbp)
  mov    $0x0,%eax
  call   <getline@plt>
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <skipsp@plt>
  mov    %rax,-0x98(%rbp)
  mov    -0x98(%rbp),%rdx
  lea    -0x90(%rbp),%rax
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <strcpy@plt>
  mov    $0x0,%eax
  call   <getline@plt>
  mov    %rax,-0x98(%rbp)
  cmpq   $0x0,-0x98(%rbp)
  je     L85
  lea    -0xb4(%rbp),%rdi
  lea    -0xb8(%rbp),%rsi
  lea    -0xbc(%rbp),%rcx
  lea    -0xc0(%rbp),%rdx
  mov    -0x98(%rbp),%rax
  mov    %rdi,%r9
  mov    %rsi,%r8
  lea    D57(%rip),%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  cmp    $0x4,%eax
  je     L35
L85:
  lea    D2(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fatal@plt>
L35:
  mov    $0x0,%eax
  call   <getline@plt>
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <skipsp@plt>
  mov    %rax,-0x98(%rbp)
  mov    -0x98(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x56,%al
  je     L94
  mov    -0x98(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x76,%al
  jne    L18
L94:
  mov    $0x1,%eax
  jmp    L44
L18:
  mov    $0x0,%eax
L44:
  mov    %eax,-0xb0(%rbp)
  mov    $0x0,%eax
  call   <getline@plt>
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <skipsp@plt>
  mov    %rax,-0x98(%rbp)
  mov    -0x98(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x47,%al
  je     L127
  mov    -0x98(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x67,%al
  jne    L110
L127:
  mov    $0x1,%eax
  jmp    L27
L110:
  mov    $0x0,%eax
L27:
  mov    %eax,-0xac(%rbp)
  mov    $0x0,%eax
  call   <getline@plt>
  mov    %rax,-0x98(%rbp)
  cmpq   $0x0,-0x98(%rbp)
  je     L112
  lea    -0xc4(%rbp),%rdx
  mov    -0x98(%rbp),%rax
  lea    D3(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  cmp    $0x1,%eax
  je     L70
L112:
  lea    D56(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fatal@plt>
L70:
  mov    $0x0,%eax
  call   <getline@plt>
  mov    %rax,-0x98(%rbp)
  cmpq   $0x0,-0x98(%rbp)
  je     L0
  lea    -0xa8(%rbp),%rdx
  mov    -0x98(%rbp),%rax
  lea    D47(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <sscanf@plt>
  cmp    $0x1,%eax
  je     L123
L0:
  lea    D28(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <fatal@plt>
L123:
  mov    -0xc0(%rbp),%ecx
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outs@plt>
  mov    %rax,-0xa0(%rbp)
  mov    -0xbc(%rbp),%ecx
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outs@plt>
  mov    %rax,-0xa0(%rbp)
  mov    -0xb8(%rbp),%ecx
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outs@plt>
  mov    %rax,-0xa0(%rbp)
  mov    -0xb4(%rbp),%ecx
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outs@plt>
  mov    %rax,-0xa0(%rbp)
  mov    -0xc4(%rbp),%ecx
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outs@plt>
  mov    %rax,-0xa0(%rbp)
  mov    -0xb0(%rbp),%eax
  movsbl %al,%ecx
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outc@plt>
  mov    %rax,-0xa0(%rbp)
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outc@plt>
  mov    %rax,-0xa0(%rbp)
  mov    -0xac(%rbp),%eax
  movsbl %al,%ecx
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outc@plt>
  mov    %rax,-0xa0(%rbp)
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outc@plt>
  mov    %rax,-0xa0(%rbp)
  mov    -0xa8(%rbp),%rcx
  lea    -0xe0(%rbp),%rdx
  mov    -0xa0(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outl@plt>
  mov    %rax,-0xa0(%rbp)
  lea    -0xe0(%rbp),%rdx
  lea    -0x90(%rbp),%rsi
  mov    -0xa0(%rbp),%rax
  mov    $0x1,%ecx
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <outp@plt>
  mov    %rax,-0xa0(%rbp)
  mov    -0xa0(%rbp),%rax
  sub    -0xd8(%rbp),%rax
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L7
  call   <__stack_chk_fail@plt>
L7:
  leave
  ret
```

tool_calls: name: read_data
arguments: data_tag: D57
type: string
name: read_data
arguments: data_tag: D2
type: string
name: read_data
arguments: data_tag: D3
type: string
name: read_data
arguments: data_tag: D56
type: string
name: read_data
arguments: data_tag: D47
type: string
name: read_data
arguments: data_tag: D28
type: string

tool: D57: %d %d %d %d

tool: D2: bad rectangle

tool: D3: %d

tool: D56: bad proc id

tool: D47: %ld

tool: D28: bad refcon

assistant: ```c
long wind(data, maxl, rcp)
char *data;
long maxl;
struct res *rcp;
{
  int vis, goaway, pid;
  long ref;
  int r1, r2, r3, r4;
  char title[128];
  char *datap = data;
  char *lp, *getline(), *skipsp();
  char *outp(), *outs(), *outl(), *outc();
  char *strcpy();
  lp = skipsp(getline());
  strcpy(title, lp);
  if ((lp = getline()) == 0 || sscanf(lp, "%d %d %d %d", &r1, &r2, &r3, &r4) != 4)
    fatal("bad rectangle");
  lp = skipsp(getline());
  vis = (*lp == 'V' || *lp == 'v' ? 1 : 0);
  lp = skipsp(getline());
  goaway = (*lp == 'G' || *lp == 'g' ? 1 : 0);
  if ((lp = getline()) == 0 || sscanf(lp, "%d", &pid) != 1)
    fatal("bad proc id");
  if ((lp = getline()) == 0 || sscanf(lp, "%ld", &ref) != 1)
    fatal("bad refcon");
  datap = outs(datap, r1, &maxl);
  datap = outs(datap, r2, &maxl);
  datap = outs(datap, r3, &maxl);
  datap = outs(datap, r4, &maxl);
  datap = outs(datap, pid, &maxl);
  datap = outc(datap, (char)vis, &maxl);
  datap = outc(datap, (char)0, &maxl);
  datap = outc(datap, (char)goaway, &maxl);
  datap = outc(datap, (char)0, &maxl);
  datap = outl(datap, (long)ref, &maxl);
  datap = outp(datap, title, &maxl, 1);
  return (datap - data);
}
```