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

```asm
<is_distance_under_recrusively>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x18,%rsp
  mov    0x58(%rsp),%eax
  cmp    %eax,0x50(%rsp)
  jge    L69
  mov    %rdi,%r14
  mov    %esi,%r12d
  mov    %ecx,%r13d
  cmp    %esi,%r9d
  jne    L17
  cmp    %ecx,%r8d
  jne    L17
L37:
  add    $0x18,%rsp
  mov    $0x1,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopw   0x0(%rax,%rax,1)
L17:
  cmp    %r12d,%r9d
  jge    L94
  cmp    %r13d,%r8d
  jge    L94
  lea    0x1(%r9),%eax
  movslq %r8d,%rdi
  movslq %r9d,%r9
  mov    %rdi,%rbx
  sub    %r9,%rdi
  cltq
  add    %rdx,%rdi
  jmp    L54
  nopl   0x0(%rax)
L78:
  cmp    %eax,%r12d
  setg   %sil
  cmp    %ebx,%r13d
  setg   %cl
  add    $0x1,%rax
  test   %cl,%sil
  je     L185
L54:
  mov    %ebx,%r15d
  movzbl -0x1(%rax,%rdi,1),%esi
  lea    -0x1(%rax),%r11d
  add    $0x1,%ebx
  mov    %eax,%ebp
  cmp    %sil,-0x1(%r14,%rax,1)
  je     L78
  imul   $0x4b0,%eax,%ecx
  mov    0x60(%rsp),%rdi
  add    %ebx,%ecx
  movslq %ecx,%rcx
  lea    (%rdi,%rcx,4),%rcx
  mov    (%rcx),%esi
  test   %esi,%esi
  je     L31
  mov    %r11d,%ebp
  mov    %r15d,%ebx
L185:
  cmp    %r13d,%ebx
  jge    L155
  imul   $0x4b0,%ebp,%eax
  lea    0x1(%rbx),%r8d
  mov    0x60(%rsp),%rdi
  add    %r8d,%eax
  cltq
  lea    (%rdi,%rax,4),%rax
  mov    (%rax),%r9d
  test   %r9d,%r9d
  je     L165
L155:
  cmp    %r12d,%ebp
  jl     L91
L69:
  xor    %eax,%eax
L188:
  add    $0x18,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax)
L91:
  lea    0x1(%rbp),%r9d
  mov    0x60(%rsp),%rdi
  imul   $0x4b0,%r9d,%eax
  add    %ebx,%eax
  cltq
  lea    (%rdi,%rax,4),%rax
  mov    (%rax),%r8d
  test   %r8d,%r8d
  jne    L69
  sub    $0x8,%rsp
  movl   $0x1,(%rax)
  mov    %ebx,%r8d
  mov    %r13d,%ecx
  push   %rdi
  mov    0x68(%rsp),%eax
  mov    %r12d,%esi
  mov    %r14,%rdi
  push   %rax
  mov    0x68(%rsp),%eax
  add    $0x1,%eax
  push   %rax
  call   <is_distance_under_recrusively>
  add    $0x20,%rsp
  test   %eax,%eax
  setne  %al
  movzbl %al,%eax
  jmp    L188
  nop
L31:
  mov    %r11d,0xc(%rsp)
  sub    $0x8,%rsp
  mov    %eax,%r9d
  mov    %ebx,%r8d
  movl   $0x1,(%rcx)
  mov    %r12d,%esi
  push   0x68(%rsp)
  mov    0x68(%rsp),%edi
  push   %rdi
  mov    0x68(%rsp),%edi
  lea    0x1(%rdi),%ecx
  mov    %r14,%rdi
  push   %rcx
  mov    %r13d,%ecx
  mov    %rdx,0x20(%rsp)
  call   <is_distance_under_recrusively>
  add    $0x20,%rsp
  test   %eax,%eax
  jne    L37
  mov    0xc(%rsp),%ebp
  mov    (%rsp),%rdx
  mov    %r15d,%ebx
  jmp    L185
  nopl   (%rax)
L165:
  sub    $0x8,%rsp
  movl   $0x1,(%rax)
  mov    %ebp,%r9d
  mov    %r13d,%ecx
  push   %rdi
  mov    0x68(%rsp),%eax
  mov    %r12d,%esi
  mov    %r14,%rdi
  push   %rax
  mov    0x68(%rsp),%eax
  add    $0x1,%eax
  push   %rax
  mov    %rdx,0x20(%rsp)
  call   <is_distance_under_recrusively>
  add    $0x20,%rsp
  mov    (%rsp),%rdx
  test   %eax,%eax
  je     L155
  jmp    L37
L94:
  mov    %r9d,%ebp
  mov    %r8d,%ebx
  jmp    L185
```

assistant: ```c
int is_distance_under_recrusively(char *a, int al, char *b, int bl, int x, int y, int l, int s, int *d) {
  int right;
  int bottom;
  if (l >= s) {
    return 0;
  }
  if (y == al && x == bl) {
    return 1;
  }
  while (y < al && x < bl && a[y] == b[x]) {
    x++;
    y++;
  }
  if (y < al && x < bl && !d[(y + 1) * 1200 + (x + 1)]) {
    d[(y + 1) * 1200 + (x + 1)] = 1;
    if (is_distance_under_recrusively(a, al, b, bl, x + 1, y + 1, l + 1, s, d)) {
      return 1;
    }
  }
  if (x < bl && !d[y * 1200 + (x + 1)]) {
    d[y * 1200 + (x + 1)] = 1;
    if (is_distance_under_recrusively(a, al, b, bl, x + 1, y, l + 1, s, d)) {
      return 1;
    }
  }
  if (y < al && !d[(y + 1) * 1200 + x]) {
    d[(y + 1) * 1200 + x] = 1;
    if (is_distance_under_recrusively(a, al, b, bl, x, y + 1, l + 1, s, d)) {
      return 1;
    }
  }
  return 0;
}
```