user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<PerspectiveMatrix>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x40,%rsp
  movss  %xmm0,-0x24(%rbp)
  movss  %xmm1,-0x28(%rbp)
  movss  %xmm2,-0x2c(%rbp)
  movss  %xmm3,-0x30(%rbp)
  movss  %xmm4,-0x34(%rbp)
  movss  %xmm5,-0x38(%rbp)
  mov    $0x10,%esi
  mov    $0x4,%edi
  call   <calloc@plt>
  mov    %rax,-0x8(%rbp)
  movss  -0x34(%rbp),%xmm0
  subss  -0x38(%rbp),%xmm0
  movss  %xmm0,-0x18(%rbp)
  movss  -0x2c(%rbp),%xmm0
  subss  -0x30(%rbp),%xmm0
  movss  %xmm0,-0x14(%rbp)
  movss  -0x24(%rbp),%xmm0
  subss  -0x28(%rbp),%xmm0
  movss  %xmm0,-0x10(%rbp)
  movss  -0x38(%rbp),%xmm0
  addss  %xmm0,%xmm0
  movss  %xmm0,-0xc(%rbp)
  movss  -0xc(%rbp),%xmm0
  divss  -0x10(%rbp),%xmm0
  mov    -0x8(%rbp),%rax
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x4,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x8,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0xc,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x10,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x14,%rax
  movss  -0xc(%rbp),%xmm0
  divss  -0x14(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x18,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x1c,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  movss  -0x24(%rbp),%xmm0
  addss  -0x28(%rbp),%xmm0
  mov    -0x8(%rbp),%rax
  add    $0x20,%rax
  divss  -0x10(%rbp),%xmm0
  movss  %xmm0,(%rax)
  movss  -0x2c(%rbp),%xmm0
  addss  -0x30(%rbp),%xmm0
  mov    -0x8(%rbp),%rax
  add    $0x24,%rax
  divss  -0x14(%rbp),%xmm0
  movss  %xmm0,(%rax)
  movss  -0x34(%rbp),%xmm0
  addss  -0x38(%rbp),%xmm0
  divss  -0x18(%rbp),%xmm0
  cvtss2sd %xmm0,%xmm0
  cvtsd2ss %xmm0,%xmm0
  mov    -0x8(%rbp),%rax
  add    $0x28,%rax
  movss  D16(%rip),%xmm1
  xorps  %xmm1,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x2c,%rax
  movss  D28(%rip),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x30,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x34,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  pxor   %xmm1,%xmm1
  cvtss2sd -0x34(%rbp),%xmm1
  movsd  D14(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  pxor   %xmm0,%xmm0
  cvtss2sd -0x38(%rbp),%xmm0
  mulsd  %xmm1,%xmm0
  pxor   %xmm1,%xmm1
  cvtss2sd -0x18(%rbp),%xmm1
  divsd  %xmm1,%xmm0
  mov    -0x8(%rbp),%rax
  add    $0x38,%rax
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  add    $0x3c,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  mov    -0x8(%rbp),%rax
  leave
  ret
```

tool_calls: name: unpack_data
arguments: tag: D16
datatype: byte[4]
name: unpack_data
arguments: tag: D28
datatype: byte[4]
name: unpack_data
arguments: tag: D14
datatype: f32[2]

tool: {"D16": [0x00,0x00,0x00,0x80]}

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

tool: {"D14": [0.0,-2.0]}

assistant: ```c
float *PerspectiveMatrix(float right, float left, float top, float bottom, float far, float near) {
  float *r;
  float zdifference, ydifference, xdifference;
  float double_near;
  r = (float *)calloc(sizeof(float), 16);
  zdifference = far - near;
  ydifference = top - bottom;
  xdifference = right - left;
  double_near = 2.0 * near;
  r[0] = double_near / xdifference;
  r[1] = 0.0;
  r[2] = 0.0;
  r[3] = 0.0;
  r[4] = 0.0;
  r[5] = double_near / ydifference;
  r[6] = 0.0;
  r[7] = 0.0;
  r[8] = (right + left) / xdifference;
  r[9] = (top + bottom) / ydifference;
  r[10] = -1.0 * ((far + near) / zdifference);
  r[11] = -1.0;
  r[12] = 0.0;
  r[13] = 0.0;
  r[14] = (-2.0 * far * near) / zdifference;
  r[15] = 0.0;
  return r;
}
```