user: Please show me the C implementation that matches the assembly code listed below:

```asm
<simple_set_copy>:
  endbr64
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x110,%rsp
  mov    %rdi,%rbx
  mov    %rsi,%rbp
  mov    %fs:0x28,%rax
  mov    %rax,0x108(%rsp)
  xor    %eax,%eax
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L50
L46:
  mov    0x108(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L12
  add    $0x110,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  ret
L50:
  mov    %rbx,%rdi
  call   <lookup_set@plt>
  mov    %eax,%r12d
  test   %eax,%eax
  jne    L59
  mov    $0x6,%esi
  mov    %rbx,%rdi
  call   <named_set@plt>
  mov    %eax,%r12d
  test   %eax,%eax
  je     L72
  mov    $0x0,%eax
  call   <error@plt>
  test   %rax,%rax
  je     L127
L72:
  mov    %rsp,%rdi
  movabs $0x206d656c626f7270,%rax
  movabs $0x7465732068746977,%rdx
  mov    %rax,(%rsp)
  mov    %rdx,0x8(%rsp)
  movabs $0x74696e6966656420,%rax
  mov    %rax,0x10(%rsp)
  movl   $0x6e6f69,0x18(%rsp)
  call   <set_error2@plt>
  jmp    L46
L59:
  mov    %eax,%edi
  call   <clear_set@plt>
L127:
  mov    %rbp,%rdi
  call   <lookup_set@plt>
  mov    %eax,%ebx
  test   %eax,%eax
  je     L9
  mov    $0x0,%eax
  call   <error@plt>
  test   %rax,%rax
  je     L66
L9:
  mov    %rsp,%rbx
  mov    %rbx,%rdi
  call   <set_error2@plt>
  mov    %rbp,%rdx
  lea    D1(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <sprintf@plt>
  jmp    L46
L66:
  mov    %ebx,%edi
  call   <count_set@plt>
  mov    %eax,%ebp
  mov    %ebx,%edi
  call   <init_for@plt>
  mov    %eax,%edx
  test   %eax,%eax
  je     L121
L24:
  mov    $0x6,%esi
  mov    %r12d,%edi
  call   <include_member@plt>
  mov    %ebx,%edi
  call   <next_for@plt>
  mov    %eax,%edx
  test   %eax,%eax
  jne    L24
L121:
  mov    %r12d,%edi
  call   <count_set@plt>
  cmp    %eax,%ebp
  je     L46
  mov    %rsp,%rdi
  movabs $0x735f656c706d6973,%rax
  movabs $0x3a79706f635f7465,%rdx
  mov    %rax,(%rsp)
  mov    %rdx,0x8(%rsp)
  movabs $0x69736e6f636e6920,%rax
  movabs $0x756e20746e657473,%rdx
  mov    %rax,0x10(%rsp)
  mov    %rdx,0x18(%rsp)
  movabs $0x20666f207265626d,%rax
  movabs $0x6e6920736d6f7461,%rdx
  mov    %rax,0x20(%rsp)
  mov    %rdx,0x28(%rsp)
  movl   $0x74657320,0x30(%rsp)
  movw   $0x73,0x34(%rsp)
  call   <set_error1@plt>
  jmp    L46
L12:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: tag: D1
type: string

tool: D1: invalid setname(%s) in -

assistant: ```c
void simple_set_copy(char *setname1, char *setname2) {
  int set1, set2, o;
  int count1, count2;
  char message[255];
  if (strcmp(setname1, setname2) == 0)
    return;
  set1 = lookup_set(setname1);
  if (set1 == 0) {
    set1 = named_set(setname1, 6);
    if (set1 == 0 || error()) {
      sprintf(message, "problem with set definition");
      set_error2(message);
      return;
    }
  } else
    clear_set(set1);
  set2 = lookup_set(setname2);
  if (set2 == 0 || error()) {
    set_error2(message);
    sprintf(message, "invalid setname(%s) in -", setname2);
    return;
  }
  count2 = count_set(set2);
  for (o = init_for(set2); o != 0; o = next_for(set2)) {
    include_member(set1, 6, o);
  }
  count1 = count_set(set1);
  if (count1 != count2) {
    sprintf(message, "simple_set_copy: inconsistent number of atoms in sets");
    set_error1(message);
  }
}
```