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

```asm
<rchold>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x40,%rsp
  mov    %rdi,-0x28(%rbp)
  mov    %esi,-0x2c(%rbp)
  mov    %edx,-0x30(%rbp)
  mov    %rcx,-0x38(%rbp)
  cmpl   $0x1,-0x2c(%rbp)
  je     L50
  mov    -0x28(%rbp),%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0xc(%rbp)
  movl   $0x1,-0x14(%rbp)
  jmp    L22
L10:
  mov    -0x14(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mov    -0x14(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  divss  -0xc(%rbp),%xmm0
  movss  %xmm0,(%rax)
  addl   $0x1,-0x14(%rbp)
L22:
  mov    -0x14(%rbp),%eax
  cmp    -0x2c(%rbp),%eax
  jl     L10
  mov    -0x2c(%rbp),%eax
  lea    -0x1(%rax),%ecx
  mov    -0x2c(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x28(%rbp),%rax
  lea    0x4(%rax),%rsi
  mov    -0x28(%rbp),%rax
  lea    0x4(%rax),%rdi
  mov    -0x38(%rbp),%rax
  mov    %ecx,%r9d
  mov    $0x1,%r8d
  mov    %edx,%ecx
  mov    %rax,%rdx
  call   <mmult@plt>
  mov    -0x2c(%rbp),%eax
  lea    -0x1(%rax),%esi
  mov    -0x2c(%rbp),%eax
  lea    -0x1(%rax),%ecx
  mov    -0xc(%rbp),%edx
  mov    -0x38(%rbp),%rax
  movd   %edx,%xmm0
  mov    %esi,%edx
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <scale@plt>
  movl   $0x0,-0x10(%rbp)
  jmp    L56
L61:
  mov    -0x30(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    -0x10(%rbp),%eax
  imul   -0x30(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0x8(%rbp)
  mov    -0x2c(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x10(%rbp),%eax
  imul   %edx,%eax
  mov    %eax,-0x4(%rbp)
  mov    -0x10(%rbp),%eax
  mov    %eax,-0x14(%rbp)
  jmp    L60
L52:
  mov    -0x14(%rbp),%edx
  mov    -0x8(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mov    -0x14(%rbp),%edx
  mov    -0x4(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  movss  (%rax),%xmm1
  mov    -0x14(%rbp),%edx
  mov    -0x8(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  subss  %xmm1,%xmm0
  movss  %xmm0,(%rax)
  addl   $0x1,-0x14(%rbp)
L60:
  mov    -0x2c(%rbp),%eax
  sub    $0x1,%eax
  cmp    %eax,-0x14(%rbp)
  jl     L52
  addl   $0x1,-0x10(%rbp)
L56:
  mov    -0x2c(%rbp),%eax
  sub    $0x1,%eax
  cmp    %eax,-0x10(%rbp)
  jl     L61
  mov    -0x2c(%rbp),%eax
  lea    -0x1(%rax),%esi
  mov    -0x30(%rbp),%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  lea    (%rdx,%rax,1),%rdi
  mov    -0x38(%rbp),%rdx
  mov    -0x30(%rbp),%eax
  mov    %rdx,%rcx
  mov    %eax,%edx
  call   <rchold>
  jmp    L11
L50:
  nop
L11:
  leave
  ret
```

assistant: ```c
void rchold(float *A, int N, int stride, float *U22) {
  int j, i, u, w;
  float d1;
  if (N == 1) {
    return;
  } else {
    d1 = A[0];
    for (j = 1; j < N; ++j) {
      A[j] /= d1;
    }
    mmult(A + 1, A + 1, U22, N - 1, 1, N - 1);
    scale(U22, N - 1, N - 1, d1);
    for (i = 0; i < N - 1; ++i) {
      u = stride + 1 + i * stride;
      w = i * (N - 1);
      for (j = i; j < N - 1; j++) {
        A[j + u] -= U22[j + w];
      }
    }
    rchold(A + stride + 1, N - 1, stride, U22);
  }
}
```