// File: /workspace/github_c_makefile_star2_O1/mishun[P]plantri/fullgen.c
// Function: dualcode
int dualcode( PLANMAP map )

{
/* berechnet das Dual und schreibt es als planarcode auf stdout */

int flaechenzahl, knotenzahl, codelaenge=1,i,j, nextnumber=2;
FLAECHENTYP code[(S+13)*7]; /* In main wird schon abgefangen, wenn das nicht in
			       unsigned char passt */
KANTE *startedge[S+13];
KANTE *run, *merke;
static int write_header=1;

if (write_header)
  { write_header=0;
    fprintf(stdout,">>planar_code %ce<<", my_endianness);
  }
    

knotenzahl=map[0][0].name;
code[0]=flaechenzahl= 2 + (map[0][0].name / 2);


for (i=1; i<= knotenzahl; i++) for (j=0; j<3; j++) map[i][j].dummy=0;
/* dummy gibt die Nummer der Flaeche rechts der Kante an */

belegedummies(map[1],1);
startedge[1]=map[1];

for (i=1; i<=flaechenzahl; i++)
  { merke=startedge[i]; 
    if (merke->invers->dummy) { code[codelaenge]=merke->invers->dummy;
				codelaenge++; }
    else { code[codelaenge]= nextnumber; codelaenge++;
	   startedge[nextnumber]=merke->invers;
	   belegedummies(merke->invers,nextnumber);
	   nextnumber++; }
    for (run=merke->invers->prev; run != merke; run=run->invers->prev)
      { if (run->invers->dummy) { code[codelaenge]=run->invers->dummy;
				    codelaenge++; }
        else { code[codelaenge]= nextnumber; codelaenge++;
	     startedge[nextnumber]=run->invers;
	     belegedummies(run->invers,nextnumber);
	     nextnumber++; }
      }
    code[codelaenge]=0; codelaenge++;
  }

fwrite(code,sizeof(FLAECHENTYP),codelaenge,stdout);

return(codelaenge);
}

// Assembly:
pushq %rbx
subq $0x900, %rsp            # imm = 0x900
movq %rdi, %rbx
cmpb $0x0, 0x1221a(%rip)     # 0x15258
jne 0x3064
movb $0x1, 0x12211(%rip)     # 0x15258
movq 0x11f8a(%rip), %rax     # 0x14fd8
movq (%rax), %rdi
leaq 0xd232(%rip), %rsi      # 0x1028a
movl $0x6c, %edx
xorl %eax, %eax
callq 0x10b0
movzwl 0x2(%rbx), %ecx
movl %ecx, %eax
shrl %eax
leal 0x2(%rax), %edx
movb %dl, (%rsp)
testl %ecx, %ecx
je 0x30ab
incq %rcx
leaq 0x98(%rbx), %rdx
movl $0x1, %esi
xorl %edi, %edi
movq $0x0, (%rdx,%rdi)
addq $0x30, %rdi
cmpq $0x90, %rdi
jne 0x3087
incq %rsi
addq $0x90, %rdx
cmpq %rcx, %rsi
jne 0x3085
leaq 0x90(%rbx), %rcx
movq $0x1, 0x98(%rbx)
movq 0xb8(%rbx), %rdx
movq 0x18(%rdx), %rdx
cmpq %rcx, %rdx
je 0x30db
movq $0x1, 0x8(%rdx)
movq 0x28(%rdx), %rdx
jmp 0x30c4
movq %rcx, 0x438(%rsp)
addq $0x3, %rax
movl $0x2, %ecx
movl $0x1, %esi
movl $0x1, %edx
movq 0x430(%rsp,%rdx,8), %rdi
movq 0x28(%rdi), %r8
movq 0x8(%r8), %r10
movslq %esi, %r9
testq %r10, %r10
je 0x3114
movb %r10b, (%rsp,%r9)
jmp 0x3140
movb %cl, (%rsp,%r9)
movslq %ecx, %r9
movq %r8, 0x430(%rsp,%r9,8)
movq %r9, 0x8(%r8)
movq 0x28(%r8), %r10
movq 0x18(%r10), %r10
cmpq %r8, %r10
je 0x313e
movq %r9, 0x8(%r10)
movq 0x28(%r10), %r10
jmp 0x312b
incl %ecx
movq 0x28(%rdi), %r8
leal 0x1(%rsi), %r9d
movq 0x18(%r8), %r8
cmpq %rdi, %r8
je 0x31a6
movslq %r9d, %r9
movq %r9, %rsi
movq 0x28(%r8), %r9
movq 0x8(%r9), %r10
testq %r10, %r10
je 0x316a
movb %r10b, (%rsp,%rsi)
jmp 0x3195
movb %cl, (%rsp,%rsi)
movslq %ecx, %r10
movq %r9, 0x430(%rsp,%r10,8)
movq %r10, 0x8(%r9)
movq 0x28(%r9), %r11
movq 0x18(%r11), %r11
cmpq %r9, %r11
je 0x3193
movq %r10, 0x8(%r11)
movq 0x28(%r11), %r11
jmp 0x3180
incl %ecx
movq 0x28(%r8), %r8
leaq 0x1(%rsi), %r9
movq 0x18(%r8), %r8
cmpq %rdi, %r8
jne 0x3154
movslq %r9d, %rdi
movb $0x0, (%rsp,%rdi)
addl $0x2, %esi
incq %rdx
cmpq %rax, %rdx
jne 0x30f6
movslq %esi, %rbx
movq 0x11e12(%rip), %rax     # 0x14fd8
movq (%rax), %rcx
movq %rsp, %rdi
movl $0x1, %esi
movq %rbx, %rdx
callq 0x1180
movl %ebx, %eax
addq $0x900, %rsp            # imm = 0x900
popq %rbx
retq