user: What would the C source look like for the assembly code provided here:

```asm
<count_motif_occurrences>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  mov    %rdi,%r13
  push   %r12
  mov    %rcx,%r12
  push   %rbp
  mov    %rsi,%rbp
  push   %rbx
  sub    $0x7f8,%rsp
  mov    %edx,0x8(%rsp)
  movss  %xmm0,0xc(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x7e8(%rsp)
  xor    %eax,%eax
  test   %edx,%edx
  jle    L122
  lea    -0x1(%rdx),%eax
  mov    %edx,%ecx
  cmp    $0x2,%eax
  jbe    L147
  shr    $0x2,%ecx
  movaps D12(%rip),%xmm0
  lea    0x4(%r12),%rax
  mov    %ecx,%edx
  sub    $0x1,%edx
  shl    $0x4,%rdx
  lea    0x14(%r12,%rdx,1),%rdx
  xchg   %ax,%ax
L113:
  movups %xmm0,(%rax)
  add    $0x10,%rax
  cmp    %rdx,%rax
  jne    L113
  mov    0x8(%rsp),%ebx
  mov    %ebx,%edx
  and    $0xfffffffc,%edx
  lea    0x1(%rdx),%eax
  cmp    %edx,%ebx
  je     L122
L114:
  movss  D12(%rip),%xmm0
  movslq %eax,%rdx
  mov    0x8(%rsp),%ebx
  lea    0x0(,%rdx,4),%rcx
  movss  %xmm0,(%r12,%rdx,4)
  lea    0x1(%rax),%edx
  cmp    %edx,%ebx
  jl     L122
  add    $0x2,%eax
  movss  %xmm0,0x4(%r12,%rcx,1)
  cmp    %eax,%ebx
  jl     L122
  movss  %xmm0,0x8(%r12,%rcx,1)
L122:
  lea    D21(%rip),%rsi
  mov    %rbp,%rdi
  call   <fopen@plt>
  mov    %rax,%rbx
  test   %rax,%rax
  je     L22
L67:
  pxor   %xmm0,%xmm0
  cvtss2sd 0xc(%rsp),%xmm0
  comisd D11(%rip),%xmm0
  ja     L123
  mov    0x8(%rsp),%edx
  mov    $0x1,%r15d
  lea    0x10(%rsp),%rbp
  lea    D77(%rip),%r14
  test   %edx,%edx
  jle    L6
  nopw   0x0(%rax,%rax,1)
L94:
  mov    %rbp,%rdx
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <fscanf@plt>
  movss  0xc(%rsp),%xmm0
  mov    %rbp,%rsi
  mov    %r13,%rdi
  call   <count_motif_occurrences_prob@plt>
  addss  (%r12,%r15,4),%xmm0
  addss  D56(%rip),%xmm0
  movss  %xmm0,(%r12,%r15,4)
  add    $0x1,%r15
  cmp    %r15d,0x8(%rsp)
  jge    L94
L6:
  mov    %rbx,%rdi
  call   <fclose@plt>
  mov    0x7e8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L156
  add    $0x7f8,%rsp
  mov    %r12,%rax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopw   0x0(%rax,%rax,1)
L123:
  mov    0x8(%rsp),%eax
  test   %eax,%eax
  jle    L6
  mov    $0x1,%r15d
  lea    0x10(%rsp),%rbp
  lea    D77(%rip),%r14
  nopw   0x0(%rax,%rax,1)
L72:
  mov    %rbp,%rdx
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <fscanf@plt>
  mov    %r13,%rsi
  mov    %rbp,%rdi
  call   <count_perfect_matches@plt>
  pxor   %xmm0,%xmm0
  cvtsi2ss %eax,%xmm0
  movss  %xmm0,(%r12,%r15,4)
  add    $0x1,%r15
  cmp    %r15d,0x8(%rsp)
  jge    L72
  jmp    L6
  nopw   0x0(%rax,%rax,1)
L22:
  mov    %rbp,%rsi
  lea    D46(%rip),%rdi
  call   <printf@plt>
  mov    $0x1,%edi
  call   <exit@plt>
  jmp    L67
L147:
  mov    $0x1,%eax
  jmp    L114
L156:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: data_tag: D12
data_type: byte[16]
name: parse_data
arguments: data_tag: D21
data_type: string
name: parse_data
arguments: data_tag: D11
data_type: f64
name: parse_data
arguments: data_tag: D77
data_type: string
name: parse_data
arguments: data_tag: D56
data_type: f32
name: parse_data
arguments: data_tag: D46
data_type: string

tool: {"D12": [0x00,0x00,0x80,0xbf,0x00,0x00,0x80,0xbf,0x00,0x00,0x80,0xbf,0x00,0x00,0x80,0xbf]}

tool: D21: r

tool: D11: 0.99

tool: D77: %s


tool: D56: 1

tool: D46: ERROR! I could not open your input upstream file %s. Exiting now...


assistant: ```c
float *count_motif_occurrences(char *motif, char *input_filename_upstream, int n_transcripts, float score_threshold, float *n) {
  float curr_score;
  int i;
  int motif_length;
  char upstream_sequence[2000];
  FILE *input_file_upstream;
  char *search_string;
  char *current_string;
  int curr_n;
  for (i = 1; i <= n_transcripts; i++)
    n[i] = -1;
  input_file_upstream = fopen(input_filename_upstream, "r");
  if (input_file_upstream == NULL) {
    printf("ERROR! I could not open your input upstream file %s. Exiting now...\n", input_filename_upstream);
    exit(1);
  }
  if (score_threshold > 0.99) {
    for (i = 1; i <= n_transcripts; i++) {
      fscanf(input_file_upstream, "%s\n", &upstream_sequence);
      curr_n = count_perfect_matches(upstream_sequence, motif);
      n[i] = curr_n;
    }
  } else {
    for (i = 1; i <= n_transcripts; i++) {
      fscanf(input_file_upstream, "%s\n", &upstream_sequence);
      curr_score = count_motif_occurrences_prob(motif, upstream_sequence, score_threshold);
      n[i] = n[i] + curr_score + 1.0;
    }
  }
  fclose(input_file_upstream);
  return n;
}
```