// File: /workspace/github_c_makefile_star2_O1/johsteffens[P]beth/lib/bcore/bcore.xo.c
// Function: x_btcl_external_function_s_execute
er_t x_btcl_external_function_s_execute( x_btcl_external_function_s* o, const x_source_point_s* sp, x_btcl_frame_s* lexical_frame, const bcore_arr_sr_s* args, sr_s* sr )
{
    // bcore_x_btcl.x:715:5
    
    sr_s_clear(sr);
    if( o->is_mutable )
    {BLM_INIT_LEVEL(1);
        BLM_TRY(x_btcl_a_m_btcl_function(((x_btcl*)BLM_LEVEL_A_PUSH(1,x_btcl_a_clone(o->object))),o->name, sp, lexical_frame, args, sr ))
    BLM_DOWN();}
    else
    {
        BLM_TRY(x_btcl_a_btcl_function(o->object,o->name, sp, lexical_frame, args, sr ))
    }
    return  0;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x78, %rsp
movq %r8, %rbx
movq %rcx, %r12
movq %rdx, 0x30(%rsp)
movq %rsi, 0x28(%rsp)
movq %rdi, %r13
testq %r8, %r8
je 0x955c7
movq 0x10(%rbx), %rax
movq %rax, 0x50(%rsp)
movups (%rbx), %xmm0
movaps %xmm0, 0x40(%rsp)
testb $0x2, %al
je 0x955b9
movq 0x50(%rsp), %rax
movq %rax, 0x10(%rsp)
movaps 0x40(%rsp), %xmm0
movups %xmm0, (%rsp)
callq 0x112485
xorps %xmm0, %xmm0
movups %xmm0, (%rbx)
movq $0x0, 0x10(%rbx)
cmpb $0x1, 0x10(%r13)
jne 0x956cb
leaq 0x1137f7(%rip), %rax    # 0x1a8dd0
movq (%rax), %rsi
leaq 0x40(%rsp), %rdi
movq %rdi, 0x20(%rsp)
callq 0xe0431
movq 0x20(%rsp), %rbp
movq $0x1, 0x10(%rbp)
movq 0x18(%r13), %r14
testq %r14, %r14
je 0x957a5
movq %r12, 0x38(%rsp)
movq (%r14), %rsi
movabsq $-0x12565a3dacdb0ecf, %rdi # imm = 0xEDA9A5C25324F131
callq 0x1222bd
movq (%r14), %r15
leaq 0x113e42(%rip), %rax    # 0x1a9468
movl (%rax), %ecx
movslq %ecx, %rcx
leaq (%rcx,%rcx,2), %rcx
movq 0x20(%rax,%rcx,8), %rdx
movq 0x18(%rax,%rcx,8), %rcx
andq %r15, %rcx
shlq $0x4, %rcx
leaq (%rdx,%rcx), %rax
movq (%rdx,%rcx), %rdx
movl $0x8, %ecx
cmpq %r15, %rdx
je 0x95680
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %r15, %rdx
je 0x95680
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %r15, %rdx
je 0x95680
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %r15, %rdx
jne 0x958b3
movq (%rax,%rcx), %r12
testq %r12, %r12
jne 0x956b0
movabsq $0x782b96602f424981, %rdi # imm = 0x782B96602F424981
movq %r15, %rsi
callq 0xf3f85
movq %rax, %r12
leaq 0x113dc3(%rip), %rdi    # 0x1a9468
movq %r15, %rsi
movq %rax, %rdx
callq 0x12128c
movq %r12, %rdi
movq %r14, %rsi
callq *0xc0(%r12)
movq %rax, %rdx
movq 0x38(%rsp), %r12
jmp 0x957a7
movq 0x8(%r13), %r14
movq 0x18(%r13), %r13
movq (%r13), %r15
leaq 0x111d9a(%rip), %rax    # 0x1a7478
movl 0x111d94(%rip), %ecx    # 0x1a7478
movslq %ecx, %rcx
leaq (%rcx,%rcx,2), %rcx
movq 0x20(%rax,%rcx,8), %rdx
movq 0x18(%rax,%rcx,8), %rcx
andq %r15, %rcx
shlq $0x4, %rcx
leaq (%rdx,%rcx), %rax
movq (%rdx,%rcx), %rdx
movl $0x8, %ecx
cmpq %r15, %rdx
je 0x9573c
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %r15, %rdx
je 0x9573c
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %r15, %rdx
je 0x9573c
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %r15, %rdx
jne 0x958a4
movq (%rax,%rcx), %rbp
testq %rbp, %rbp
jne 0x9576c
movabsq $0x235e6dc4678c61ed, %rdi # imm = 0x235E6DC4678C61ED
movq %r15, %rsi
callq 0xf3f85
movq %rax, %rbp
leaq 0x111d17(%rip), %rdi    # 0x1a7478
movq %r15, %rsi
movq %rax, %rdx
callq 0x12128c
movq %r13, %rdi
movq %r14, %rsi
movq 0x28(%rsp), %rdx
movq 0x30(%rsp), %rcx
movq %r12, %r8
movq %rbx, %r9
callq *0x18(%rbp)
testq %rax, %rax
je 0x95890
movq %rax, %rbx
leaq 0x113638(%rip), %rax    # 0x1a8dd0
movq (%rax), %rdi
callq 0xe0b30
jmp 0x95892
xorl %edx, %edx
movl $0x1, %esi
movq %rbp, %rdi
callq 0xe0900
movq %rax, %r14
movq 0x8(%r13), %r13
movq (%rax), %rbp
leaq 0x111cb3(%rip), %rax    # 0x1a7478
movl 0x111cad(%rip), %ecx    # 0x1a7478
movslq %ecx, %rcx
leaq (%rcx,%rcx,2), %rcx
movq 0x20(%rax,%rcx,8), %rdx
movq 0x18(%rax,%rcx,8), %rcx
andq %rbp, %rcx
shlq $0x4, %rcx
leaq (%rdx,%rcx), %rax
movq (%rdx,%rcx), %rdx
movl $0x8, %ecx
cmpq %rbp, %rdx
je 0x95823
movq 0x10(%rax), %rdx
movl $0x18, %ecx
cmpq %rbp, %rdx
je 0x95823
movq 0x20(%rax), %rdx
movl $0x28, %ecx
cmpq %rbp, %rdx
je 0x95823
movq 0x30(%rax), %rdx
movl $0x38, %ecx
cmpq %rbp, %rdx
jne 0x958ab
movq (%rax,%rcx), %r15
testq %r15, %r15
jne 0x95853
movabsq $0x235e6dc4678c61ed, %rdi # imm = 0x235E6DC4678C61ED
movq %rbp, %rsi
callq 0xf3f85
movq %rax, %r15
leaq 0x111c30(%rip), %rdi    # 0x1a7478
movq %rbp, %rsi
movq %rax, %rdx
callq 0x12128c
movq %r14, %rdi
movq %r13, %rsi
movq 0x28(%rsp), %rdx
movq 0x30(%rsp), %rcx
movq %r12, %r8
movq %rbx, %r9
callq *0x20(%r15)
movq %rax, %rbx
testq %rax, %rax
je 0x95881
movq 0x20(%rsp), %rdi
callq 0xe0b30
jmp 0x9588b
leaq 0x20(%rsp), %rdi
callq 0xe0b11
testq %rbx, %rbx
jne 0x95892
xorl %ebx, %ebx
movq %rbx, %rax
addq $0x78, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
xorl %ebp, %ebp
jmp 0x95740
xorl %r15d, %r15d
jmp 0x95827
xorl %r12d, %r12d
jmp 0x95684