user: 请将这段汇编代码片段转换成等效的C代码：

```asm
<read_data_system>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x58,%rsp
  mov    %edi,-0x44(%rbp)
  mov    %esi,-0x7c(%rbp)
  mov    %edx,%eax
  mov    %rcx,-0x58(%rbp)
  mov    %fs:0x28,%rdx
  mov    %rdx,-0x38(%rbp)
  xor    %edx,%edx
  imul   %eax,%edi
  mov    %edi,-0x80(%rbp)
  add    %eax,%eax
  mov    %eax,-0x60(%rbp)
  movslq %edi,%rax
  lea    0xf(,%rax,4),%rdx
  mov    %rdx,%rax
  and    $0xfffffffffffffff0,%rax
  and    $0xfffffffffffff000,%rdx
  mov    %rsp,%rcx
  sub    %rdx,%rcx
L30:
  cmp    %rcx,%rsp
  je     L73
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L30
L73:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  je     L34
  orq    $0x0,-0x8(%rsp,%rdx,1)
L34:
  mov    %rsp,-0x68(%rbp)
  movslq -0x60(%rbp),%rax
  shl    $0x3,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L63:
  cmp    %rdx,%rsp
  je     L71
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L63
L71:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  je     L6
  orq    $0x0,-0x8(%rsp,%rdx,1)
L6:
  mov    %rsp,-0x78(%rbp)
  mov    -0x7c(%rbp),%eax
  test   %eax,%eax
  jle    L22
  lea    0x1(%rax),%eax
  mov    %rax,-0x70(%rbp)
  movq   $0x1,-0x50(%rbp)
  movl   $0x0,-0x5c(%rbp)
  movl   $0x0,-0x48(%rbp)
  lea    D8(%rip),%r15
L118:
  lea    D49(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x50(%rbp),%rbx
  mov    %ebx,%esi
  lea    D48(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x58(%rbp),%rax
  cmpl   $0x0,-0x4(%rax,%rbx,4)
  jle    L111
  movslq -0x5c(%rbp),%rax
  mov    -0x78(%rbp),%rdx
  lea    (%rdx,%rax,8),%r14
  mov    $0x0,%r13d
L51:
  add    $0x1,%r13d
  mov    %r13d,%esi
  lea    D62(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x44(%rbp),%eax
  test   %eax,%eax
  jle    L18
  movslq -0x48(%rbp),%rdx
  mov    -0x68(%rbp),%rcx
  lea    (%rcx,%rdx,4),%rbx
  lea    -0x1(%rax),%eax
  add    %rdx,%rax
  lea    0x4(%rcx,%rax,4),%r12
L99:
  mov    %rbx,%rsi
  mov    %r15,%rdi
  mov    $0x0,%eax
  call   <scanf@plt>
  add    $0x4,%rbx
  cmp    %r12,%rbx
  jne    L99
  mov    -0x44(%rbp),%ecx
  add    %ecx,-0x48(%rbp)
L18:
  lea    D56(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    %r14,%rsi
  lea    D25(%rip),%rdi
  mov    $0x0,%eax
  call   <scanf@plt>
  addl   $0x2,-0x5c(%rbp)
  lea    0x8(%r14),%rsi
  lea    D25(%rip),%rdi
  mov    $0x0,%eax
  call   <scanf@plt>
  add    $0x10,%r14
  mov    -0x58(%rbp),%rax
  mov    -0x50(%rbp),%rdx
  cmp    -0x4(%rax,%rdx,4),%r13d
  jl     L51
L111:
  addq   $0x1,-0x50(%rbp)
  mov    -0x50(%rbp),%rax
  cmp    -0x70(%rbp),%rax
  jne    L118
L22:
  mov    $0x0,%eax
  call   <adainit@plt>
  sub    $0x8,%rsp
  push   -0x78(%rbp)
  mov    -0x60(%rbp),%r9d
  mov    -0x68(%rbp),%r8
  mov    -0x80(%rbp),%ecx
  mov    -0x58(%rbp),%rdx
  mov    -0x7c(%rbp),%esi
  mov    -0x44(%rbp),%edi
  call   <_ada_phc_solver@plt>
  mov    $0x0,%eax
  call   <adafinal@plt>
  add    $0x10,%rsp
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L54
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
L54:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: label: D8
type_infered: string
name: retrieve_data
arguments: label: D49
type_infered: string
name: retrieve_data
arguments: label: D48
type_infered: string
name: retrieve_data
arguments: label: D62
type_infered: string
name: retrieve_data
arguments: label: D56
type_infered: string
name: retrieve_data
arguments: label: D25
type_infered: string

tool: D8: %d

tool: D49: Reading the support and coefficients

tool: D48:  of polynomial %d ...


tool: D62:   give exponents of monomial %d : 

tool: D56:   give two doubles : 

tool: D25: %lf

assistant: ```c
void read_data_system(int n, int m, int monsum, int moncnt[m]) {
  int dimsup = n * monsum;
  int dimcff = 2 * monsum;
  int sup[dimsup];
  double cff[dimcff];
  int i, j, k, indsup, indcff;
  indsup = 0;
  indcff = 0;
  for (i = 0; i < m; i++) {
    printf("Reading the support and coefficients");
    printf(" of polynomial %d ...\n", i + 1);
    for (j = 0; j < moncnt[i]; j++) {
      printf("  give exponents of monomial %d : ", j + 1);
      for (k = 0; k < n; k++)
        scanf("%d", &sup[indsup++]);
      printf("  give two doubles : ");
      scanf("%lf", &cff[indcff++]);
      scanf("%lf", &cff[indcff++]);
    }
  }
  adainit();
  _ada_phc_solver(n, m, moncnt, dimsup, sup, dimcff, cff);
  adafinal();
}
```