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

```asm
<imc_getWCS>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x88,%rsp
  mov    %rdi,%rbx
  mov    %rdx,0x10(%rsp)
  mov    %rcx,0x18(%rsp)
  mov    %r8,0x20(%rsp)
  mov    %r9,0x28(%rsp)
  mov    0xc0(%rsp),%rbp
  mov    0xc8(%rsp),%r12
  mov    0xd0(%rsp),%r13
  mov    0xd8(%rsp),%rax
  mov    %rax,0x48(%rsp)
  mov    0xe0(%rsp),%rax
  mov    %rax,0x50(%rsp)
  mov    0xe8(%rsp),%r14
  mov    0xf0(%rsp),%rax
  mov    %rax,0x58(%rsp)
  mov    0xf8(%rsp),%rax
  mov    %rax,0x30(%rsp)
  mov    0x100(%rsp),%rax
  mov    %rax,0x38(%rsp)
  mov    0x108(%rsp),%rax
  mov    %rax,0x40(%rsp)
  mov    0x110(%rsp),%r15
  mov    %fs:0x28,%rdx
  mov    %rdx,0x78(%rsp)
  xor    %edx,%edx
  movl   $0x0,0x68(%rsp)
  movl   $0x0,0x6c(%rsp)
  movl   $0x0,0x70(%rsp)
  movl   $0x0,0x74(%rsp)
  mov    %rsi,%rdx
  lea    D73(%rip),%rsi
  call   <imget_fits_value@plt>
  movl   $0x0,0xc(%rsp)
  cmp    $0x1,%eax
  je     L159
L95:
  mov    0x78(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L101
  mov    0xc(%rsp),%eax
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L159:
  mov    0x10(%rsp),%rdx
  lea    D76(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  movl   $0x0,0xc(%rsp)
  cmp    $0x1,%eax
  jne    L95
  mov    0x18(%rsp),%rdx
  lea    D133(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  movl   $0x0,0xc(%rsp)
  cmp    $0x1,%eax
  jne    L95
  mov    %r12,%rdx
  lea    D155(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  movl   $0x0,0xc(%rsp)
  cmp    $0x1,%eax
  jne    L95
  mov    %r13,%rdx
  lea    D52(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  movl   $0x0,0xc(%rsp)
  cmp    $0x1,%eax
  jne    L95
  mov    %r14,%rdx
  lea    D194(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  movl   $0x0,0xc(%rsp)
  cmp    $0x1,%eax
  jne    L95
  mov    0x58(%rsp),%rdx
  lea    D75(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  mov    %eax,%r12d
  movl   $0x0,0xc(%rsp)
  cmp    $0x1,%eax
  jne    L95
  mov    0x48(%rsp),%rdx
  lea    D188(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  mov    0x50(%rsp),%rdx
  lea    D165(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  mov    %rbp,%rdx
  lea    D112(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  cmp    $0x1,%eax
  je     L98
L39:
  lea    D122(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcpy@plt>
L196:
  mov    0x30(%rsp),%rdx
  lea    D83(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  mov    %eax,%ebp
  mov    0x38(%rsp),%rdx
  lea    D49(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  add    %eax,%ebp
  mov    0x40(%rsp),%rdx
  lea    D6(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  lea    0x0(%rbp,%rax,1),%r13d
  mov    %r15,%rdx
  lea    D123(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  add    %r13d,%eax
  mov    %eax,0xc(%rsp)
  je     L131
  mov    %r12d,0xc(%rsp)
  jmp    L95
L98:
  mov    %rbp,%rdx
  lea    D134(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  cmp    $0x1,%eax
  jne    L39
  jmp    L196
L131:
  mov    0x20(%rsp),%rdx
  lea    D185(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  cmp    $0x1,%eax
  jne    L95
  mov    0x28(%rsp),%rdx
  lea    D207(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_value@plt>
  cmp    $0x1,%eax
  jne    L95
  lea    0x68(%rsp),%rdx
  lea    D150(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_float_value@plt>
  cmp    $0x1,%eax
  jne    L95
  lea    0x6c(%rsp),%rdx
  lea    D213(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_float_value@plt>
  cmp    $0x1,%eax
  jne    L95
  lea    0x70(%rsp),%rdx
  lea    D7(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_float_value@plt>
  cmp    $0x1,%eax
  jne    L95
  lea    0x74(%rsp),%rdx
  lea    D226(%rip),%rsi
  mov    %rbx,%rdi
  call   <imget_fits_float_value@plt>
  mov    %eax,%r12d
  cmp    $0x1,%eax
  jne    L95
  mov    0x20(%rsp),%r14
  mov    %r14,%rdi
  call   <atof@plt>
  mulss  0x68(%rsp),%xmm0
  lea    D156(%rip),%rbx
  mov    %rbx,%rsi
  mov    0x30(%rsp),%rdi
  call   <sprintf@plt>
  mov    %r14,%rdi
  call   <atof@plt>
  mulss  0x6c(%rsp),%xmm0
  mov    %rbx,%rsi
  mov    0x38(%rsp),%rdi
  call   <sprintf@plt>
  mov    0x28(%rsp),%r14
  mov    %r14,%rdi
  call   <atof@plt>
  mulss  0x70(%rsp),%xmm0
  mov    %rbx,%rsi
  mov    0x40(%rsp),%rdi
  call   <sprintf@plt>
  mov    %r14,%rdi
  call   <atof@plt>
  mulss  0x74(%rsp),%xmm0
  mov    %rbx,%rsi
  mov    %r15,%rdi
  call   <sprintf@plt>
  mov    %r12d,0xc(%rsp)
  jmp    L95
L101:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: data_tag: D73
type_infered: string
name: disassemble_data
arguments: data_tag: D76
type_infered: string
name: disassemble_data
arguments: data_tag: D133
type_infered: string
name: disassemble_data
arguments: data_tag: D155
type_infered: string
name: disassemble_data
arguments: data_tag: D52
type_infered: string
name: disassemble_data
arguments: data_tag: D194
type_infered: string
name: disassemble_data
arguments: data_tag: D75
type_infered: string
name: disassemble_data
arguments: data_tag: D188
type_infered: string
name: disassemble_data
arguments: data_tag: D165
type_infered: string
name: disassemble_data
arguments: data_tag: D112
type_infered: string
name: disassemble_data
arguments: data_tag: D122
type_infered: string
name: disassemble_data
arguments: data_tag: D83
type_infered: string
name: disassemble_data
arguments: data_tag: D49
type_infered: string
name: disassemble_data
arguments: data_tag: D6
type_infered: string
name: disassemble_data
arguments: data_tag: D123
type_infered: string
name: disassemble_data
arguments: data_tag: D134
type_infered: string
name: disassemble_data
arguments: data_tag: D185
type_infered: string
name: disassemble_data
arguments: data_tag: D207
type_infered: string
name: disassemble_data
arguments: data_tag: D150
type_infered: string
name: disassemble_data
arguments: data_tag: D213
type_infered: string
name: disassemble_data
arguments: data_tag: D7
type_infered: string
name: disassemble_data
arguments: data_tag: D226
type_infered: string
name: disassemble_data
arguments: data_tag: D156
type_infered: string

tool: D73: CRVAL1

tool: D76: CRVAL2

tool: D133: EQUINOX

tool: D155: CTYPE1

tool: D52: CTYPE2

tool: D194: CRPIX1

tool: D75: CRPIX2

tool: D188: CUNIT1

tool: D165: CUNIT2

tool: D112: LONPOLE

tool: D122: 180.0

tool: D83: CD1_1

tool: D49: CD1_2

tool: D6: CD2_1

tool: D123: CD2_2

tool: D134: LONGPOLE

tool: D185: CDELT1

tool: D207: CDELT2

tool: D150: PC001001

tool: D213: PC001002

tool: D7: PC002001

tool: D226: PC002002

tool: D156: %f

assistant: ```c
int imc_getWCS(struct icom *icom, char *crval1, char *crval2, char *equinox, char *cdelt1, char *cdelt2, char *longpole, char *ctype1, char *ctype2, char *cunit1, char *cunit2, char *crpix1, char *crpix2, char *cd11, char *cd12, char *cd21, char *cd22) {
  float pc11 = 0, pc12 = 0, pc21 = 0, pc22 = 0;
  if (imget_fits_value(icom, "CRVAL1", crval1) == 1 && imget_fits_value(icom, "CRVAL2", crval2) == 1 && imget_fits_value(icom, "EQUINOX", equinox) == 1 && imget_fits_value(icom, "CTYPE1", ctype1) == 1 && imget_fits_value(icom, "CTYPE2", ctype2) == 1 && imget_fits_value(icom, "CRPIX1", crpix1) == 1 && imget_fits_value(icom, "CRPIX2", crpix2) == 1) {
    imget_fits_value(icom, "CUNIT1", cunit1);
    imget_fits_value(icom, "CUNIT2", cunit2);
    if (imget_fits_value(icom, "LONPOLE", longpole) != 1 || imget_fits_value(icom, "LONGPOLE", longpole) != 1)
      strcpy(longpole, "180.0");
    if ((imget_fits_value(icom, "CD1_1", cd11) + imget_fits_value(icom, "CD1_2", cd12) + imget_fits_value(icom, "CD2_1", cd21) + imget_fits_value(icom, "CD2_2", cd22)) != 0) {
      return 1;
    } else if (imget_fits_value(icom, "CDELT1", cdelt1) == 1 && imget_fits_value(icom, "CDELT2", cdelt2) == 1 && imget_fits_float_value(icom, "PC001001", &pc11) == 1 && imget_fits_float_value(icom, "PC001002", &pc12) == 1 && imget_fits_float_value(icom, "PC002001", &pc21) == 1 && imget_fits_float_value(icom, "PC002002", &pc22) == 1) {
      sprintf(cd11, "%f", pc11 * atof(cdelt1));
      sprintf(cd12, "%f", pc12 * atof(cdelt1));
      sprintf(cd21, "%f", pc21 * atof(cdelt2));
      sprintf(cd22, "%f", pc22 * atof(cdelt2));
      return 1;
    } else
      return 0;
  } else
    return 0;
}
```