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

```asm
<standard_membership_test>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x28,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x28(%rbp)
  xor    %eax,%eax
  lea    D76(%rip),%rdi
  call   <puts@plt>
  lea    -0x34(%rbp),%rdx
  lea    -0x38(%rbp),%rsi
  lea    -0x3c(%rbp),%rdi
  call   <read_witness_set@plt>
  mov    -0x3c(%rbp),%esi
  mov    %esi,%ebx
  sub    -0x38(%rbp),%ebx
  lea    D132(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x38(%rbp),%esi
  lea    D125(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x34(%rbp),%esi
  lea    D13(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  lea    D78(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  lea    -0x3d(%rbp),%rsi
  lea    D28(%rip),%rdi
  call   <scanf@plt>
  cmpb   $0x79,-0x3d(%rbp)
  je     L31
L73:
  lea    -0x3d(%rbp),%r13
  mov    %r13,%rsi
  lea    D28(%rip),%r12
  mov    %r12,%rdi
  call   <scanf@plt>
  lea    D118(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    %r13,%rsi
  mov    %r12,%rdi
  call   <scanf@plt>
  cmpb   $0x79,-0x3d(%rbp)
  je     L55
L0:
  lea    -0x3d(%rbp),%rsi
  lea    D28(%rip),%rdi
  call   <scanf@plt>
  lea    (%rbx,%rbx,1),%eax
  cltq
  shl    $0x3,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L43:
  cmp    %rdx,%rsp
  je     L25
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L43
L31:
  lea    D100(%rip),%rdi
  call   <puts@plt>
  mov    $0x0,%eax
  call   <syscon_write_standard_system@plt>
  jmp    L73
L55:
  lea    D81(%rip),%rdi
  call   <puts@plt>
  mov    $0x0,%eax
  call   <solcon_write_standard_solutions@plt>
  jmp    L0
L25:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  je     L10
  orq    $0x0,-0x8(%rsp,%rdx,1)
L10:
  mov    %rsp,%r12
  lea    D71(%rip),%rdi
  call   <puts@plt>
  mov    %r12,%rsi
  mov    %ebx,%edi
  call   <standard_read_point@plt>
  lea    -0x2c(%rbp),%r9
  lea    -0x30(%rbp),%r8
  mov    %r12,%rcx
  movsd  D87(%rip),%xmm1
  movsd  D130(%rip),%xmm0
  mov    -0x38(%rbp),%edx
  mov    %ebx,%esi
  mov    $0x1,%edi
  call   <standard_homotopy_membership_test@plt>
  mov    -0x28(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L71
  mov    $0x0,%eax
  lea    -0x18(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %rbp
  ret
L71:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: data_label: D76
datatype: string
name: parse_data
arguments: data_label: D132
datatype: string
name: parse_data
arguments: data_label: D125
datatype: string
name: parse_data
arguments: data_label: D13
datatype: string
name: parse_data
arguments: data_label: D78
datatype: string
name: parse_data
arguments: data_label: D28
datatype: string
name: parse_data
arguments: data_label: D118
datatype: string
name: parse_data
arguments: data_label: D100
datatype: string
name: parse_data
arguments: data_label: D81
datatype: string
name: parse_data
arguments: data_label: D71
datatype: string
name: parse_data
arguments: data_label: D87
datatype: byte[8]
name: parse_data
arguments: data_label: D130
datatype: byte[8]

tool: D76: 
Reading a witness set ...

tool: D132: 
The ambient dimension : %d.


tool: D125: The dimension of the solution set : %d.


tool: D13: The degree of the solution set : %d.


tool: D78: 
Do you want to see the embedded system ? (y/n) 

tool: D28: %c

tool: D118: 
Do you want to see the solutions ? (y/n) 

tool: D100: 
The system read :

tool: D81: 
The solutions read :

tool: D71: 
Reading the coordinates of the test point x ...

tool: {"D87": [0xbb,0xbd,0xd7,0xd9,0xdf,0x7c,0xdb,0x3d]}

tool: {"D130": [0x8d,0xed,0xb5,0xa0,0xf7,0xc6,0xb0,0x3e]}

assistant: ```c
int standard_membership_test(void) {
  int fail, n, dim, deg, nv;
  char ans;
  printf("\nReading a witness set ...\n");
  fail = read_witness_set(&n, &dim, &deg);
  nv = n - dim;
  if (1 > 0) {
    printf("\nThe ambient dimension : %d.\n", n);
    printf("The dimension of the solution set : %d.\n", dim);
    printf("The degree of the solution set : %d.\n", deg);
    printf("\nDo you want to see the embedded system ? (y/n) ");
    scanf("%c", &ans);
    if (ans == 'y') {
      printf("\nThe system read :\n");
      fail = syscon_write_standard_system();
    }
    scanf("%c", &ans);
    printf("\nDo you want to see the solutions ? (y/n) ");
    scanf("%c", &ans);
    if (ans == 'y') {
      printf("\nThe solutions read :\n");
      fail = solcon_write_standard_solutions();
    }
    scanf("%c", &ans);
  }
  {
    int fail, onsys, onset;
    double tpt[2 * nv];
    const double restol = 1.0e-6;
    const double homtol = 1.0e-10;
    printf("\nReading the coordinates of the test point x ...\n");
    standard_read_point(nv, tpt);
    fail = standard_homotopy_membership_test(1, nv, dim, restol, homtol, tpt, &onsys, &onset);
  }
  return 0;
}
```