// File: /workspace/github_c_makefile_star2_O3/mishun[P]plantri/fullgen.c
// Function: suchestart_reko_sp
KANTE *suchestart_reko_sp( KANTE *start, int *fuenfecke)
/* Wie suchestart_reko -- nur die spiegelversion */

{
int i, j, k, zaehler, position, sqlaenge;
KANTE *run;
int sequenz[7]; 
KANTE *seqkanten[7];
int puffer[7];
char kan[7];



while (start->prev->invers->prev->invers->prev->mininame == aussen) 
                      start=start->prev->invers->prev->invers->prev;
/* Sucht 2 Kanten hintereinander nach aussen -- zu unterscheiden vom namen aussen, was 
   auch nach innen heissen kann. Duerfte nur fuer bauchbinden eine Endlosschleife sein */

for (i=0; i<7; i++) { sequenz[i]=leer; seqkanten[i]=nil; kan[i]=0; }

sqlaenge=0;
position=0;
seqkanten[0]=start;


for (zaehler=1, run=start;
     run->next->invers->next->invers->next->mininame == aussen;
     run=run->next->invers->next->invers->next) zaehler++;
sequenz[0]=zaehler; position=1; seqkanten[1]=nil;
for (run=run->next->invers->next->invers->next->invers->next; run->mininame != aussen;
     run=run->invers->next) 
{ sequenz[position]=0; position++; seqkanten[position]=nil; }
/* naechste Kante vor nicht-0-sequenz suchen -- entsprechende innenkanten gibt es nicht
   und muessen sich dementsprechend auch nicht gemerkt werden */


while (run != start)
{
seqkanten[position]=run;
for (zaehler=1; 
     run->next->invers->next->invers->next->mininame == aussen;
     run=run->next->invers->next->invers->next) { zaehler++; }
sequenz[position]=zaehler; position++; seqkanten[position]=nil;
for (run=run->next->invers->next->invers->next->invers->next; run->mininame != aussen;
     run=run->invers->next) 
{ sequenz[position]=0; position++; seqkanten[position]=nil; }
}


sequenz[position]=leer; seqkanten[position]=nil;
sqlaenge=position;

*fuenfecke=6-sqlaenge;

kan[0]=sequenz_kanonisch(sequenz);


for (i=0; sequenz[i] != leer; i++)
  { for (j=i, k=0; sequenz[j]!=leer; j++, k++) puffer[k]=sequenz[j];
    for (j=0; j<i; j++, k++) puffer[k]=sequenz[j];
    puffer[k]=leer;
    kan[i]=sequenz_kanonisch(puffer);
  }



for (i=0, run=nil; sequenz[i] != leer; i++)
  { if (kan[i])
      if ((run==nil) || (seqkanten[i]->dummy < run->dummy)) run=seqkanten[i];
      /* dummy ersetzt ursprung */
  }

/* Jetzt die vorige Innenkante suchen, um links (spiegel !!) davon dann einfuegen zu koennen */
for (run=run->prev->invers->prev->invers->prev; run->mininame != aussen; run=run->invers->prev);

return(run);

}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x98, %rsp
movq %rdi, %rax
movq 0x18(%rdi), %rcx
movq 0x28(%rcx), %rcx
movq 0x18(%rcx), %rcx
movq 0x28(%rcx), %rcx
movq 0x18(%rcx), %rdi
cmpw $0x246, 0x14(%rdi)      # imm = 0x246
je 0x83ea
xorps %xmm0, %xmm0
movaps %xmm0, 0x30(%rsp)
movaps %xmm0, 0x50(%rsp)
movaps %xmm0, 0x40(%rsp)
movq $0x0, 0x60(%rsp)
xorl %ecx, %ecx
movl %ecx, 0x8(%rsp)
movl %ecx, 0xb(%rsp)
movaps 0x7c2b(%rip), %xmm0     # 0x10060
movaps %xmm0, 0x10(%rsp)
movabsq $0xfffe0000fffe, %rdx   # imm = 0xFFFE0000FFFE
movq %rdx, 0x20(%rsp)
movl $0xfffe, 0x28(%rsp)     # imm = 0xFFFE
movq %rax, 0x30(%rsp)
movq %rax, %rdx
movq 0x20(%rdx), %rdx
movq 0x28(%rdx), %rdx
movq 0x20(%rdx), %rdx
movq 0x28(%rdx), %rdx
movq 0x20(%rdx), %rdx
incl %ecx
cmpw $0x246, 0x14(%rdx)      # imm = 0x246
je 0x8459
movl %ecx, 0x10(%rsp)
movq $0x0, 0x38(%rsp)
movq 0x28(%rdx), %rcx
movq 0x20(%rcx), %rdx
movl $0x1, %ecx
cmpw $0x246, 0x14(%rdx)      # imm = 0x246
je 0x84c2
movl $0x1, %ecx
movl $0x0, 0x10(%rsp,%rcx,4)
movq $0x0, 0x38(%rsp,%rcx,8)
incq %rcx
movq 0x28(%rdx), %rdx
movq 0x20(%rdx), %rdx
cmpw $0x246, 0x14(%rdx)      # imm = 0x246
jne 0x849e
cmpq %rax, %rdx
je 0x8572
leaq 0x38(%rsp), %rdi
movslq %ecx, %r8
movq %rdx, 0x30(%rsp,%r8,8)
xorl %ecx, %ecx
movq %rdx, %r9
movq 0x20(%rdx), %rdx
movq 0x28(%rdx), %rdx
movq 0x20(%rdx), %rdx
movq 0x28(%rdx), %rdx
movq 0x20(%rdx), %rdx
incl %ecx
cmpw $0x246, 0x14(%rdx)      # imm = 0x246
je 0x84da
movl %ecx, 0x10(%rsp,%r8,4)
leal 0x1(%r8), %ecx
movq $0x0, 0x38(%rsp,%r8,8)
movq 0x20(%r9), %rdx
movq 0x28(%rdx), %rdx
movq 0x20(%rdx), %rdx
movq 0x28(%rdx), %rdx
movq 0x20(%rdx), %rdx
movq 0x28(%rdx), %rdx
movq 0x20(%rdx), %rdx
cmpw $0x246, 0x14(%rdx)      # imm = 0x246
je 0x8569
incq %r8
leaq (%rsp,%r8,4), %r9
addq $0x10, %r9
leaq (%rdi,%r8,8), %r10
xorl %r8d, %r8d
movl $0x0, (%r9,%r8,4)
movq $0x0, (%r10,%r8,8)
movq 0x28(%rdx), %rdx
movq 0x20(%rdx), %rdx
incq %r8
cmpw $0x246, 0x14(%rdx)      # imm = 0x246
jne 0x8543
addl %r8d, %ecx
cmpq %rax, %rdx
jne 0x84d0
movslq %ecx, %rax
movl $0xfffe, %ebp           # imm = 0xFFFE
movl %ebp, 0x10(%rsp,%rax,4)
movq $0x0, 0x30(%rsp,%rax,8)
movl $0x6, %ecx
subl %eax, %ecx
movl %ecx, (%rsi)
leaq 0x10(%rsp), %rbx
movq %rbx, %rdi
callq 0x48b3
movb %al, 0x8(%rsp)
movl (%rbx), %eax
cmpl %ebp, %eax
je 0x8625
leaq 0x14(%rsp), %r15
xorl %r12d, %r12d
leaq 0x70(%rsp), %rbx
leaq 0x10(%rsp), %r14
leaq (,%r12,4), %rdx
xorl %ecx, %ecx
xorl %r13d, %r13d
movl %eax, 0x70(%rsp,%rcx)
incq %r13
movl (%r15,%rcx), %eax
addq $0x4, %rcx
cmpl $0xfffe, %eax           # imm = 0xFFFE
jne 0x85c6
testq %r12, %r12
je 0x8601
movabsq $0x3fffffffc, %rax      # imm = 0x3FFFFFFFC
andq %rax, %rcx
leaq (%rsp,%rcx), %rdi
addq $0x70, %rdi
movq %r14, %rsi
callq 0x10d0
addl %r12d, %r13d
movl %r13d, %eax
movl %ebp, 0x70(%rsp,%rax,4)
movq %rbx, %rdi
callq 0x48b3
movb %al, 0x8(%rsp,%r12)
movl 0x14(%rsp,%r12,4), %eax
incq %r12
addq $0x4, %r15
cmpl %ebp, %eax
jne 0x85b9
xorl %eax, %eax
xorl %ecx, %ecx
cmpb $0x0, 0x8(%rsp,%rax)
je 0x864a
movq 0x30(%rsp,%rax,8), %rdx
testq %rcx, %rcx
je 0x8647
movq 0x8(%rdx), %rsi
cmpq 0x8(%rcx), %rsi
jl 0x8647
movq %rcx, %rdx
movq %rdx, %rcx
cmpl $0xfffe, 0x14(%rsp,%rax,4) # imm = 0xFFFE
leaq 0x1(%rax), %rax
jne 0x8629
movq 0x18(%rcx), %rax
movq 0x28(%rax), %rax
movq 0x18(%rax), %rax
movq 0x28(%rax), %rax
movq 0x18(%rax), %rax
cmpw $0x246, 0x14(%rax)      # imm = 0x246
jne 0x8664
addq $0x98, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq