// File: /workspace/github_c_makefile_star2_O1/jrrk[P]cbzone/c_move.c
// Function: movetank
void movetank(g, pl)
     Genericp g;
     Genericp pl;
{
  int i;
  float dx, dy, tazm, t1, t3, scrot, sctot, scale, cp, sp, dcp;
  float dsp, cm, sm, xmt, ymt, xpt, ypt, rate, temp, dist;
  Genericp s;

  g->pcount++;
  g->fcount++;
  if (g->attr & IS_NEW) {
    g->attr &= ~(IS_NEW | IS_PRESET);
    g->bcount = 0;
    g->ecount = 0;
    g->pcount = 5;
    g->fcount = 5;
    g->orientation = 1.0;
  }
  if (g->attr & IS_BLOCKED && g->attr & LAST_BLOCKED)
    g->orientation = -g->orientation;
  g->attr &= ~LAST_BLOCKED;

  if (g->attr & IS_BLOCKED) {
    if (g->attr & BLOCKED_BY_ENEMY)
      g->attr |= IS_EVADING;
    else
      g->attr &= ~IS_EVADING;
    g->attr |= IS_PRESET | LAST_BLOCKED;
    g->bcount  = 0;
  }

  if (g->attr & IS_PRESET) {
    g->bcount++;
    if (!(g->attr & IS_EVADING)) {
      if (g->bcount == 1) {
        g->speed = -8.0 * g->orientation;
        g->rotate = 0.030;
        if (frand() > 0.5)
          g->rotate = -g->rotate;
      }
      else if (g->bcount == 45) {
        g->speed  = 8.0 * g->orientation;
        g->rotate = 0.0;
      }
      else if (g->bcount > 90)
        g->attr &= ~IS_PRESET;
    }
    else {
      if (g->bcount == 1) {
        g->speed  = -8.0 * g->orientation;
        g->rotate = 0.0;
      }
      else if (g->bcount == 10 || g->bcount == 15 ||
               g->bcount == 20 || g->bcount == 25) {
        dx = pl->x - g->x;
        dy = pl->y - g->y;
        if (fabs(dy) < 1.e-7)
          dy = sign(1.e-7, dy);
        if (dy <= 0.0)
          tazm = - atan(dx / dy) + ra (180.0);
        else
          tazm = - atan(dx / dy) ;
        if (g->azm > PI2)
          g->azm -= PI2;
        if (g->azm < 0.0)
          g->azm += PI2;
        t1 = (tazm - g->azm) / 5.0;
        t3 = (tazm - (g->azm - PI2)) / 5.0;
        if (fabs(t3) < fabs(t1))
          t1 = t3;
        if (fabs(t1) > 0.030)
          t1 = sign (.030, t1);
        g->rotate = t1;
        g->speed = 0.0;
      }
      else if (g->bcount > 30)
        g->attr &= ~IS_PRESET;
    }
  }
  else if (g->pcount >= 10) {
    g->orientation = 1.0;
    g->pcount = 0;
    dx = pl->x - g->x;
    dy = pl->y - g->y;
    if (fabs(dy) < 1.e-7)
      dy = sign(1.e-7, dy);
    if (dy <= 0.0)
      tazm = - atan(dx / dy) + ra (180.0);
    else
      tazm = - atan(dx / dy);
    if (g->azm > PI2)
      g->azm -= PI2;
    if (g->azm < 0.0)
      g->azm += PI2;
    t1 = (tazm - g->azm) / 10.0;
    t3 = (tazm - (g->azm - PI2)) / 10.0;
    if (fabs(t3) < fabs(t1))
      t1 = t3;
    g->speed = 8.0 * (PI - fabs(t1) * 10.0) / PI;
    if (fabs(t1) > 0.030)
      t1 = sign (0.030, t1);
    g->rotate = t1;
  }

  scrot = g->rotate / 0.030 * 8.0;
  sctot = sqrt (g->speed*g->speed + scrot*scrot);
  if (sctot > 8.0) {
    scale = 8.0 / sctot;
    g->speed *= scale;
    g->rotate *= scale;
  }

  s = g->salvo;
  if (pl->attr & IS_ALIVE && g->fcount>10 && g->ecount>100 &&
      !(s->attr & STILL_THERE)) {
    g->fcount = 0;
    cp = pl->ca;
    sp = pl->sa;
    dcp = cos(pl->rotate);
    dsp = sin(pl->rotate);
    cm = cos(g->azm);
    sm = sin(g->azm);
    i = 0;
    xmt = g->x;
    ymt = g->y;
    xpt = pl->x;
    ypt = pl->y;
    rate = 40.0;

    for (i=0; i<50; i++) {
      temp = cp;
      cp = cp * dcp - sp * dsp;
      sp = sp * dcp + dsp * temp;
      xmt -= sm * rate;
      ymt += cm * rate;
      xpt -= sp * pl->speed;
      ypt += cp * pl->speed;
      dist = (xpt-xmt)*(xpt-xmt) + (ymt-ypt)*(ymt-ypt);
      if (dist <= BMT_TOL) {
        s->attr = START_LIVING;
        s->x = g->x;
        s->y = g->y;
        s->z = 0.0;
        s->prox = g->prox;
        s->proy = g->proy;
        s->azm = g->azm;
        s->speed = 40.0;
        s->ecount = 0;
        message(3, True);
        break;
      }
    }
  }
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
subq $0x20, %rsp
movq %rdi, %rbx
incl 0x4c(%rdi)
incl 0x54(%rdi)
movq %rsi, %r14
movl 0x8(%rdi), %eax
testb $0x2, %al
je 0xc686
andl $-0x43, %eax
movl %eax, 0x8(%rbx)
movq $0x5, 0x4c(%rbx)
movl $0x5, 0x54(%rbx)
movq $0x3f800000, 0x40(%rbx) # imm = 0x3F800000
movl 0x8(%rbx), %eax
testl $0x600, %eax            # imm = 0x600
sete %cl
btl $0xb, %eax
setae %dl
orb %cl, %dl
jne 0xc6ae
movss 0x40(%rbx), %xmm0
xorpd 0x1977(%rip), %xmm0     # 0xe020
movss %xmm0, 0x40(%rbx)
movl %eax, %ecx
andl $0xfffff7ff, %ecx       # imm = 0xFFFFF7FF
movl %ecx, 0x8(%rbx)
testl $0x600, %eax            # imm = 0x600
je 0xc6e7
movl %eax, %ecx
andl $0xfffff53f, %ecx       # imm = 0xFFFFF53F
movl %eax, %edx
orl $0x80, %edx
btl $0x9, %eax
cmovael %ecx, %edx
orl $0x840, %edx            # imm = 0x840
movl %edx, 0x8(%rbx)
movl $0x0, 0x50(%rbx)
movl 0x8(%rbx), %eax
testb $0x40, %al
jne 0xc89a
cmpl $0xa, 0x4c(%rbx)
jl 0xcacc
movl $0x3f800000, 0x40(%rbx) # imm = 0x3F800000
movl $0x0, 0x4c(%rbx)
movss 0xc(%r14), %xmm0
movss 0x10(%r14), %xmm3
subss 0xc(%rbx), %xmm0
subss 0x10(%rbx), %xmm3
xorps %xmm1, %xmm1
xorl %eax, %eax
ucomiss %xmm3, %xmm1
seta %cl
movaps 0x190e(%rip), %xmm1     # 0xe040
andps %xmm3, %xmm1
cvtss2sd %xmm1, %xmm1
movsd 0x244f(%rip), %xmm2     # 0xeb90
ucomisd %xmm1, %xmm2
jbe 0xc755
movb %cl, %al
leaq 0x2448(%rip), %rcx      # 0xeb98
movss (%rcx,%rax,4), %xmm3
movaps %xmm3, 0x10(%rsp)
divss %xmm3, %xmm0
cvtss2sd %xmm0, %xmm0
callq 0x4270
movaps 0x10(%rsp), %xmm6
movsd 0x242c(%rip), %xmm1     # 0xeba0
subsd %xmm0, %xmm1
cvtsd2ss %xmm1, %xmm1
xorps %xmm2, %xmm2
cvtsd2ss %xmm0, %xmm2
xorps 0x1896(%rip), %xmm2     # 0xe020
cmpnless 0x2499(%rip), %xmm6     # 0xec2c
andps %xmm6, %xmm2
andnps %xmm1, %xmm6
xorps %xmm0, %xmm0
cvtss2sd 0x20(%rbx), %xmm0
orps %xmm2, %xmm6
ucomisd 0x2274(%rip), %xmm0     # 0xea20
jbe 0xc7bf
addsd 0x2272(%rip), %xmm0     # 0xea28
cvtsd2ss %xmm0, %xmm0
movss %xmm0, 0x20(%rbx)
movss 0x20(%rbx), %xmm1
xorps %xmm0, %xmm0
ucomiss %xmm1, %xmm0
jbe 0xc7e1
cvtss2sd %xmm1, %xmm1
addsd 0x2248(%rip), %xmm1     # 0xea20
cvtsd2ss %xmm1, %xmm1
movss %xmm1, 0x20(%rbx)
movss 0x20(%rbx), %xmm1
xorps %xmm2, %xmm2
cvtss2sd %xmm6, %xmm2
subss %xmm1, %xmm6
divss 0x180b(%rip), %xmm6     # 0xe004
cvtss2sd %xmm1, %xmm1
addsd 0x2223(%rip), %xmm1     # 0xea28
subsd %xmm1, %xmm2
movsd 0x1d9f(%rip), %xmm3     # 0xe5b0
divsd %xmm3, %xmm2
cvtsd2ss %xmm2, %xmm2
movaps 0x1820(%rip), %xmm4     # 0xe040
movaps %xmm2, %xmm1
andps %xmm4, %xmm1
movaps %xmm6, %xmm5
andps %xmm4, %xmm5
cmpltss %xmm5, %xmm1
andps %xmm1, %xmm2
andnps %xmm6, %xmm1
orps %xmm2, %xmm1
xorl %eax, %eax
ucomiss %xmm1, %xmm0
seta %cl
andps %xmm1, %xmm4
xorps %xmm0, %xmm0
cvtss2sd %xmm4, %xmm0
mulsd %xmm0, %xmm3
movsd 0x2360(%rip), %xmm2     # 0xebb8
movapd %xmm2, %xmm4
subsd %xmm3, %xmm4
mulsd 0x2390(%rip), %xmm4     # 0xebf8
divsd %xmm2, %xmm4
xorps %xmm2, %xmm2
cvtsd2ss %xmm4, %xmm2
movss %xmm2, 0x2c(%rbx)
ucomisd 0x1d20(%rip), %xmm0     # 0xe5a0
jbe 0xc890
movb %cl, %al
leaq 0x1d1d(%rip), %rcx      # 0xe5a8
movss (%rcx,%rax,4), %xmm1
movss %xmm1, 0x30(%rbx)
jmp 0xcacc
movl 0x50(%rbx), %ecx
leal 0x1(%rcx), %edx
movl %edx, 0x50(%rbx)
testb %al, %al
js 0xc8ca
testl %ecx, %ecx
je 0xca48
cmpl $0x2d, %edx
jne 0xca96
movss 0x40(%rbx), %xmm0
mulss 0x238b(%rip), %xmm0     # 0xec50
jmp 0xcab3
cmpl $0x18, %ecx
ja 0xcac1
movl $0x1084200, %edx        # imm = 0x1084200
btl %ecx, %edx
jae 0xcaa2
movss 0xc(%r14), %xmm0
movss 0x10(%r14), %xmm3
subss 0xc(%rbx), %xmm0
subss 0x10(%rbx), %xmm3
xorps %xmm1, %xmm1
xorl %eax, %eax
ucomiss %xmm3, %xmm1
seta %cl
movaps 0x1737(%rip), %xmm1     # 0xe040
andps %xmm3, %xmm1
cvtss2sd %xmm1, %xmm1
movsd 0x2278(%rip), %xmm2     # 0xeb90
ucomisd %xmm1, %xmm2
jbe 0xc92c
movb %cl, %al
leaq 0x2271(%rip), %rcx      # 0xeb98
movss (%rcx,%rax,4), %xmm3
movaps %xmm3, 0x10(%rsp)
divss %xmm3, %xmm0
cvtss2sd %xmm0, %xmm0
callq 0x4270
movaps 0x10(%rsp), %xmm5
movsd 0x2255(%rip), %xmm1     # 0xeba0
subsd %xmm0, %xmm1
cvtsd2ss %xmm1, %xmm1
xorps %xmm2, %xmm2
cvtsd2ss %xmm0, %xmm2
xorps 0x16bf(%rip), %xmm2     # 0xe020
cmpnless 0x22c2(%rip), %xmm5     # 0xec2c
andps %xmm5, %xmm2
andnps %xmm1, %xmm5
xorps %xmm0, %xmm0
cvtss2sd 0x20(%rbx), %xmm0
orps %xmm2, %xmm5
ucomisd 0x209d(%rip), %xmm0     # 0xea20
jbe 0xc996
addsd 0x209b(%rip), %xmm0     # 0xea28
cvtsd2ss %xmm0, %xmm0
movss %xmm0, 0x20(%rbx)
movss 0x20(%rbx), %xmm1
xorps %xmm0, %xmm0
ucomiss %xmm1, %xmm0
jbe 0xc9b8
cvtss2sd %xmm1, %xmm1
addsd 0x2071(%rip), %xmm1     # 0xea20
cvtsd2ss %xmm1, %xmm1
movss %xmm1, 0x20(%rbx)
movss 0x20(%rbx), %xmm1
xorps %xmm2, %xmm2
cvtss2sd %xmm5, %xmm2
subss %xmm1, %xmm5
divss 0x2248(%rip), %xmm5     # 0xec18
cvtss2sd %xmm1, %xmm1
addsd 0x204c(%rip), %xmm1     # 0xea28
subsd %xmm1, %xmm2
divsd 0x16b8(%rip), %xmm2     # 0xe0a0
cvtsd2ss %xmm2, %xmm2
movaps 0x164d(%rip), %xmm3     # 0xe040
movaps %xmm2, %xmm1
andps %xmm3, %xmm1
movaps %xmm5, %xmm4
andps %xmm3, %xmm4
cmpltss %xmm4, %xmm1
andps %xmm1, %xmm2
andnps %xmm5, %xmm1
orps %xmm2, %xmm1
xorl %eax, %eax
ucomiss %xmm1, %xmm0
seta %cl
andps %xmm1, %xmm3
xorps %xmm0, %xmm0
cvtss2sd %xmm3, %xmm0
ucomisd 0x1b79(%rip), %xmm0     # 0xe5a0
jbe 0xca37
movb %cl, %al
leaq 0x1b76(%rip), %rcx      # 0xe5a8
movss (%rcx,%rax,4), %xmm1
movss %xmm1, 0x30(%rbx)
movl $0x0, 0x2c(%rbx)
jmp 0xcacc
movss 0x40(%rbx), %xmm0
mulss 0x21f7(%rip), %xmm0     # 0xec4c
movss %xmm0, 0x2c(%rbx)
movl $0x3cf5c28f, 0x30(%rbx) # imm = 0x3CF5C28F
callq 0x4510
movzwl %ax, %eax
xorps %xmm0, %xmm0
cvtsi2sd %eax, %xmm0
divsd 0x15e8(%rip), %xmm0     # 0xe060
ucomisd 0x20b0(%rip), %xmm0     # 0xeb30
jbe 0xcacc
movss 0x30(%rbx), %xmm0
xorpd 0x1591(%rip), %xmm0     # 0xe020
movss %xmm0, 0x30(%rbx)
jmp 0xcacc
cmpl $0x5a, %ecx
jl 0xcacc
andl $0xffffff3f, %eax       # imm = 0xFFFFFF3F
jmp 0xcac9
testl %ecx, %ecx
jne 0xcac1
movss 0x40(%rbx), %xmm0
mulss 0x2199(%rip), %xmm0     # 0xec4c
movss %xmm0, 0x2c(%rbx)
movl $0x0, 0x30(%rbx)
jmp 0xcacc
cmpl $0x1e, %ecx
jl 0xcacc
andl $-0x41, %eax
movl %eax, 0x8(%rbx)
xorps %xmm0, %xmm0
cvtss2sd 0x30(%rbx), %xmm0
divsd 0x1ac4(%rip), %xmm0     # 0xe5a0
mulsd 0x2114(%rip), %xmm0     # 0xebf8
xorps %xmm1, %xmm1
cvtsd2ss %xmm0, %xmm1
movss 0x2c(%rbx), %xmm0
mulss %xmm1, %xmm1
mulss %xmm0, %xmm0
addss %xmm1, %xmm0
xorps %xmm1, %xmm1
ucomiss %xmm1, %xmm0
jb 0xcb0a
sqrtss %xmm0, %xmm0
jmp 0xcb0f
callq 0x45e0
ucomiss 0x213a(%rip), %xmm0     # 0xec50
jbe 0xcb3c
movss 0x2130(%rip), %xmm1     # 0xec50
divss %xmm0, %xmm1
movss 0x2c(%rbx), %xmm0
mulss %xmm1, %xmm0
movss %xmm0, 0x2c(%rbx)
mulss 0x30(%rbx), %xmm1
movss %xmm1, 0x30(%rbx)
testb $0x1, 0x8(%r14)
je 0xccce
cmpl $0xb, 0x54(%rbx)
jl 0xccce
cmpl $0x65, 0x44(%rbx)
jl 0xccce
movq 0x650(%rbx), %r15
movzwl 0x8(%r15), %eax
testl $0x119, %eax            # imm = 0x119
jne 0xccce
movl $0x0, 0x54(%rbx)
movss 0x24(%r14), %xmm0
movss %xmm0, 0x10(%rsp)
movss 0x28(%r14), %xmm0
movss %xmm0, 0xc(%rsp)
xorps %xmm0, %xmm0
cvtss2sd 0x30(%r14), %xmm0
callq 0x41e0
cvtsd2ss %xmm0, %xmm0
movss %xmm0, 0x8(%rsp)
xorps %xmm0, %xmm0
cvtss2sd 0x30(%r14), %xmm0
callq 0x4590
cvtsd2ss %xmm0, %xmm0
movss %xmm0, 0x4(%rsp)
xorps %xmm0, %xmm0
cvtss2sd 0x20(%rbx), %xmm0
callq 0x41e0
cvtsd2ss %xmm0, %xmm0
movss %xmm0, (%rsp)
xorps %xmm0, %xmm0
cvtss2sd 0x20(%rbx), %xmm0
callq 0x4590
movss (%rsp), %xmm15
movss 0x4(%rsp), %xmm14
movss 0x8(%rsp), %xmm13
movss 0xc(%rsp), %xmm12
movss 0x10(%rsp), %xmm11
xorps %xmm2, %xmm2
cvtsd2ss %xmm0, %xmm2
movss 0xc(%rbx), %xmm0
movss 0x10(%rbx), %xmm1
movss 0xc(%r14), %xmm3
movss 0x10(%r14), %xmm8
xorps 0x13f6(%rip), %xmm2     # 0xe020
movss 0x2c(%r14), %xmm4
movl $0x32, %eax
movss 0x1fe7(%rip), %xmm5     # 0xec24
mulss %xmm5, %xmm2
mulss %xmm5, %xmm15
movss 0x1fda(%rip), %xmm5     # 0xec28
movaps %xmm1, %xmm6
movaps %xmm0, %xmm7
movaps %xmm11, %xmm9
movaps %xmm8, %xmm10
addss %xmm15, %xmm6
addss %xmm2, %xmm7
movaps %xmm14, %xmm8
mulss %xmm12, %xmm8
mulss %xmm13, %xmm11
subss %xmm8, %xmm11
mulss %xmm14, %xmm9
mulss %xmm13, %xmm12
addss %xmm9, %xmm12
movaps %xmm12, %xmm8
mulss %xmm4, %xmm8
subss %xmm8, %xmm3
movaps %xmm11, %xmm8
mulss %xmm4, %xmm8
addss %xmm10, %xmm8
movaps %xmm3, %xmm9
subss %xmm7, %xmm9
movaps %xmm6, %xmm10
subss %xmm8, %xmm10
mulss %xmm10, %xmm10
mulss %xmm9, %xmm9
addss %xmm10, %xmm9
ucomiss %xmm9, %xmm5
jae 0xccd8
decl %eax
jne 0xcc54
addq $0x20, %rsp
popq %rbx
popq %r14
popq %r15
retq
movl $0x3, 0x8(%r15)
movss %xmm0, 0xc(%r15)
movss %xmm1, 0x10(%r15)
xorl %eax, %eax
movl %eax, 0x14(%r15)
movss 0x18(%rbx), %xmm0
movss %xmm0, 0x18(%r15)
movss 0x1c(%rbx), %xmm0
movss %xmm0, 0x1c(%r15)
movss 0x20(%rbx), %xmm0
movss %xmm0, 0x20(%r15)
movl $0x42200000, 0x2c(%r15) # imm = 0x42200000
movl %eax, 0x44(%r15)
movl $0x3, %edi
movl $0x1, %esi
xorl %eax, %eax
addq $0x20, %rsp
popq %rbx
popq %r14
popq %r15
jmp 0x7a44