user: Translate the below assembly code into C programming language:

```asm
<EXPQA>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  mov    %r8d,%r12d
  push   %rbp
  push   %rbx
  mov    %rsi,%rbx
  sub    $0x148,%rsp
  mov    %rdi,0x20(%rsp)
  mov    %rsi,0x10(%rsp)
  mov    %rdx,0x18(%rsp)
  mov    %rcx,0x28(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x138(%rsp)
  xor    %eax,%eax
  movl   $0x0,(%rcx)
  mov    (%rsi),%eax
  lea    0x1(,%rax,4),%edi
  movslq %edi,%rdi
  shl    $0x3,%rdi
  call   <malloc@plt>
  test   %rax,%rax
  je     L55
  mov    (%rbx),%esi
  mov    %rax,%r13
  test   %esi,%esi
  jle    L6
  movslq %r12d,%rdx
  movl   $0x0,0xc(%rsp)
  lea    0x1(%r12),%r14d
  xor    %eax,%eax
  mov    %rdx,(%rsp)
  movslq %r14d,%r14
  nopl   0x0(%rax)
L63:
  mov    %eax,%ebx
  lea    0x1(%rax),%ecx
  movslq %eax,%rbp
  imul   %r12d,%ebx
  movslq %ecx,%r15
  add    $0x5,%rbp
  movslq %ebx,%rbx
  add    0x18(%rsp),%rbx
L30:
  mov    %r14,%rdi
  call   <malloc@plt>
  mov    %rax,-0x8(%r13,%r15,8)
  mov    %rax,%rdi
  test   %rax,%rax
  je     L111
  mov    %rbx,%rsi
  mov    %r12d,%edx
  xor    %eax,%eax
  call   <ex_fstrncpy@plt>
  movslq %r15d,%rax
  add    $0x1,%r15
  add    (%rsp),%rbx
  cmp    %rbp,%r15
  jne    L30
  mov    0x10(%rsp),%rdx
  addl   $0x1,0xc(%rsp)
  mov    0xc(%rsp),%ecx
  mov    (%rdx),%esi
  cmp    %ecx,%esi
  jg     L63
  lea    0x0(%r13,%rax,8),%rax
L6:
  movq   $0x0,(%rax)
  mov    0x20(%rsp),%rax
  mov    %r13,%rdx
  mov    (%rax),%edi
  xor    %eax,%eax
  call   <ex_put_qa@plt>
  cmp    $0xffffffff,%eax
  jne    L17
  mov    0x28(%rsp),%rax
  movl   $0xffffffff,(%rax)
L17:
  mov    0x10(%rsp),%rax
  mov    0x10(%rsp),%r14
  lea    0x20(%r13),%rbp
  xor    %r12d,%r12d
  mov    (%rax),%eax
  test   %eax,%eax
  jle    L50
  nopl   0x0(%rax)
L99:
  lea    -0x20(%rbp),%rbx
L110:
  mov    (%rbx),%rdi
  add    $0x8,%rbx
  call   <free@plt>
  cmp    %rbx,%rbp
  jne    L110
  add    $0x1,%r12d
  add    $0x20,%rbp
  cmp    %r12d,(%r14)
  jg     L99
L50:
  mov    0x138(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L27
  add    $0x148,%rsp
  mov    %r13,%rdi
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    10b0 <free@plt>
L111:
  mov    %r13,%rdi
  lea    0x30(%rsp),%rbp
  call   <free@plt>
  mov    0x28(%rsp),%rax
  mov    0xc(%rsp),%edx
  mov    %rbp,%rdi
  lea    D17(%rip),%rsi
  movl   $0x3e8,(%rax)
  mov    0x20(%rsp),%rax
  mov    (%rax),%ecx
  xor    %eax,%eax
  call   <sprintf@plt>
  mov    $0x3e8,%edx
  mov    %rbp,%rsi
  xor    %eax,%eax
  lea    D3(%rip),%rdi
  call   <ex_err@plt>
L7:
  mov    0x138(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L27
  add    $0x148,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L55:
  mov    0x28(%rsp),%rax
  movl   $0x3e8,(%rax)
  jmp    L7
L27:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: data_label: D17
data_type: string
name: unpack_data
arguments: data_label: D3
data_type: string

tool: D17: Error: failed to allocate space for qa record %d for file id %d

tool: D3: expqa

assistant: ```c
void EXPQA(int *idexo, int *num_qa_records, char *qa_record, int *ierr, int qa_recordlen) {
  char errmsg[256];
  char **sptr;
  int i, ii, iii, slen, alen;
  *ierr = 0;
  slen = 32L;
  if (qa_recordlen != 32L) {
    slen = qa_recordlen;
  }
  alen = 4;
  if (!(sptr = malloc(((*num_qa_records) * alen + 1) * sizeof(char *)))) {
    *ierr = 1000;
    return;
  }
  iii = 0;
  for (i = 0; i < *num_qa_records; i++) {
    for (ii = 0; ii < alen; ii++) {
      *(sptr + iii) = malloc((slen + 1) * sizeof(char));
      if (*(sptr + iii) == 0) {
        free(sptr);
        *ierr = 1000;
        sprintf(errmsg, "Error: failed to allocate space for qa record %d for file id %d", i, *idexo);
        ex_err("expqa", errmsg, 1000);
        return;
      }
      ex_fstrncpy(*(sptr + iii), qa_record + iii * qa_recordlen, slen);
      iii++;
    }
  }
  *(sptr + iii) = 0;
  if (ex_put_qa(*idexo, *num_qa_records, (void *)sptr) == -1)
    *ierr = -1;
  iii = 0;
  for (i = 0; i < *num_qa_records; i++) {
    for (ii = 0; ii < alen; ii++) {
      free(*(sptr + iii));
      iii++;
    }
  }
  free(sptr);
}
```