// File: jkingan[P]ladyheather/heathgps.cpp
// Function: show_moon_azel(int, int)
void show_moon_azel(int row, int col)
{
int color;
static double last_moon_az = 0.0;
static double last_moon_el = 0.0;
static double last_moon_phase = 0.0;
char c;

   color = GREY;
   if(lat || lon || alt) color = WHITE;
   if(eclipsed) color = YELLOW;
//
// MoonPhase = moon_info(jd_utc);
// MoonPhase = moon_phase(jd_utc);

   if((zoom_screen == 0) && (row >= MOUSE_ROW)) return;
   if(moon_az > last_moon_az) c = UP_ARROW;
   else if(moon_az < last_moon_az) c = DOWN_ARROW;
   else c = ':';
   last_moon_az = moon_az;
   sprintf(out, "Moon az%c %9.5f%c", c, moon_az, DEGREES);
   if(com[TRACK_PORT].process_com && (com[TRACK_PORT].com_running > 0)) {
      if(track_port_info & SEND_MOON) strupr(out);
   }
   vidstr(row++, col, color, out);

   if((zoom_screen == 0) && (row >= MOUSE_ROW)) return;

   if(moon_el > last_moon_el) c = UP_ARROW;
   else if(moon_el < last_moon_el) c = DOWN_ARROW;
   else c = ':';
   last_moon_el = moon_el;
   sprintf(out, "Moon el%c %9.5f%c", c, moon_el, DEGREES);

   if(com[TRACK_PORT].process_com && (com[TRACK_PORT].com_running > 0)) {
      if(track_port_info & SEND_MOON) strupr(out);
   }
   vidstr(row++, col, color, out);

   if((zoom_screen == 0) && (row >= MOUSE_ROW)) return;
   if(MoonPhase > last_moon_phase) c = UP_ARROW;
   else if(MoonPhase < last_moon_phase) c = DOWN_ARROW;
   else c = ':';
   last_moon_phase = MoonPhase;
   sprintf(out, "Phase%c   %9.5f%%", c, (MoonPhase*100.0));
   color = WHITE;
   if(eclipsed) color = YELLOW;
   vidstr(row++, col, WHITE, out);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x10, %rsp
movl %edi, -0x4(%rbp)
movl %esi, -0x8(%rbp)
movl $0x8, -0xc(%rbp)
leaq 0x27faf4(%rip), %rax    # 0x36c1b0
movsd (%rax), %xmm0
xorps %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jne 0xec6f9
jp 0xec6f9
leaq 0x27fae6(%rip), %rax    # 0x36c1b8
movsd (%rax), %xmm0
xorps %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jne 0xec6f9
jp 0xec6f9
leaq 0x27fad8(%rip), %rax    # 0x36c1c0
movsd (%rax), %xmm0
xorps %xmm1, %xmm1
ucomisd %xmm1, %xmm0
jne 0xec6f9
jp 0xec6f9
jmp 0xec700
movl $0xf, -0xc(%rbp)
leaq 0x2802e9(%rip), %rax    # 0x36c9f0
cmpl $0x0, (%rax)
je 0xec713
movl $0xe, -0xc(%rbp)
leaq 0x27f26e(%rip), %rax    # 0x36b988
movzbl (%rax), %eax
cmpl $0x0, %eax
jne 0xec735
movl -0x4(%rbp), %eax
leaq 0x18b25c(%rip), %rcx    # 0x277988
cmpl (%rcx), %eax
jl 0xec735
jmp 0xec9e7
leaq 0x28028c(%rip), %rax    # 0x36c9c8
movsd (%rax), %xmm0
ucomisd 0x2e5158(%rip), %xmm0   # 0x3d18a0
jbe 0xec750
movb $0x18, -0xd(%rbp)
jmp 0xec775
leaq 0x280271(%rip), %rax    # 0x36c9c8
movsd (%rax), %xmm1
movsd 0x2e513d(%rip), %xmm0   # 0x3d18a0
ucomisd %xmm1, %xmm0
jbe 0xec76f
movb $0x19, -0xd(%rbp)
jmp 0xec773
movb $0x3a, -0xd(%rbp)
jmp 0xec775
leaq 0x28024c(%rip), %rax    # 0x36c9c8
movsd (%rax), %xmm0
movsd %xmm0, 0x2e5118(%rip)   # 0x3d18a0
movsbl -0xd(%rbp), %edx
leaq 0x280235(%rip), %rax    # 0x36c9c8
movsd (%rax), %xmm0
leaq 0x2aec62(%rip), %rdi    # 0x39b400
leaq 0x9d248(%rip), %rsi     # 0x1899ed
movl $0x1, %ecx
movb $0x1, %al
callq 0x9060
leaq 0x280d08(%rip), %rax    # 0x36d4c0
cmpl $0x0, 0x28cf4(%rax)
je 0xec7f0
leaq 0x280cf8(%rip), %rax    # 0x36d4c0
cmpl $0x0, 0x28cf0(%rax)
jle 0xec7f0
leaq 0x280210(%rip), %rax    # 0x36c9e8
movl (%rax), %eax
andl $0x2, %eax
cmpl $0x0, %eax
je 0xec7ee
leaq 0x2aec17(%rip), %rdi    # 0x39b400
callq 0x9890
jmp 0xec7f0
movl -0x4(%rbp), %edi
movl %edi, %eax
addl $0x1, %eax
movl %eax, -0x4(%rbp)
movl -0x8(%rbp), %esi
movl -0xc(%rbp), %eax
leaq 0x2aebf8(%rip), %rcx    # 0x39b400
movzbl %al, %edx
callq 0x10ee0
leaq 0x27f171(%rip), %rax    # 0x36b988
movzbl (%rax), %eax
cmpl $0x0, %eax
jne 0xec832
movl -0x4(%rbp), %eax
leaq 0x18b15f(%rip), %rcx    # 0x277988
cmpl (%rcx), %eax
jl 0xec832
jmp 0xec9e7
leaq 0x280197(%rip), %rax    # 0x36c9d0
movsd (%rax), %xmm0
ucomisd 0x2e5063(%rip), %xmm0   # 0x3d18a8
jbe 0xec84d
movb $0x18, -0xd(%rbp)
jmp 0xec872
leaq 0x28017c(%rip), %rax    # 0x36c9d0
movsd (%rax), %xmm1
movsd 0x2e5048(%rip), %xmm0   # 0x3d18a8
ucomisd %xmm1, %xmm0
jbe 0xec86c
movb $0x19, -0xd(%rbp)
jmp 0xec870
movb $0x3a, -0xd(%rbp)
jmp 0xec872
leaq 0x280157(%rip), %rax    # 0x36c9d0
movsd (%rax), %xmm0
movsd %xmm0, 0x2e5023(%rip)   # 0x3d18a8
movsbl -0xd(%rbp), %edx
leaq 0x280140(%rip), %rax    # 0x36c9d0
movsd (%rax), %xmm0
leaq 0x2aeb65(%rip), %rdi    # 0x39b400
leaq 0x9d15d(%rip), %rsi     # 0x1899ff
movl $0x1, %ecx
movb $0x1, %al
callq 0x9060
leaq 0x280c0b(%rip), %rax    # 0x36d4c0
cmpl $0x0, 0x28cf4(%rax)
je 0xec8ed
leaq 0x280bfb(%rip), %rax    # 0x36d4c0
cmpl $0x0, 0x28cf0(%rax)
jle 0xec8ed
leaq 0x280113(%rip), %rax    # 0x36c9e8
movl (%rax), %eax
andl $0x2, %eax
cmpl $0x0, %eax
je 0xec8eb
leaq 0x2aeb1a(%rip), %rdi    # 0x39b400
callq 0x9890
jmp 0xec8ed
movl -0x4(%rbp), %edi
movl %edi, %eax
addl $0x1, %eax
movl %eax, -0x4(%rbp)
movl -0x8(%rbp), %esi
movl -0xc(%rbp), %eax
leaq 0x2aeafb(%rip), %rcx    # 0x39b400
movzbl %al, %edx
callq 0x10ee0
leaq 0x27f074(%rip), %rax    # 0x36b988
movzbl (%rax), %eax
cmpl $0x0, %eax
jne 0xec92f
movl -0x4(%rbp), %eax
leaq 0x18b062(%rip), %rcx    # 0x277988
cmpl (%rcx), %eax
jl 0xec92f
jmp 0xec9e7
leaq 0x2800ea(%rip), %rax    # 0x36ca20
movsd (%rax), %xmm0
ucomisd 0x2e4f6e(%rip), %xmm0   # 0x3d18b0
jbe 0xec94a
movb $0x18, -0xd(%rbp)
jmp 0xec96f
leaq 0x2800cf(%rip), %rax    # 0x36ca20
movsd (%rax), %xmm1
movsd 0x2e4f53(%rip), %xmm0   # 0x3d18b0
ucomisd %xmm1, %xmm0
jbe 0xec969
movb $0x19, -0xd(%rbp)
jmp 0xec96d
movb $0x3a, -0xd(%rbp)
jmp 0xec96f
leaq 0x2800aa(%rip), %rax    # 0x36ca20
movsd (%rax), %xmm0
movsd %xmm0, 0x2e4f2e(%rip)   # 0x3d18b0
movsbl -0xd(%rbp), %edx
movsd 0x826c2(%rip), %xmm0    # 0x16f050
leaq 0x28008b(%rip), %rax    # 0x36ca20
mulsd (%rax), %xmm0
leaq 0x2aea60(%rip), %rdi    # 0x39b400
leaq 0x9d06a(%rip), %rsi     # 0x189a11
movb $0x1, %al
callq 0x9060
movl $0xf, -0xc(%rbp)
leaq 0x280034(%rip), %rax    # 0x36c9f0
cmpl $0x0, (%rax)
je 0xec9c8
movl $0xe, -0xc(%rbp)
movl -0x4(%rbp), %edi
movl %edi, %eax
addl $0x1, %eax
movl %eax, -0x4(%rbp)
movl -0x8(%rbp), %esi
movl $0xf, %edx
leaq 0x2aea1e(%rip), %rcx    # 0x39b400
callq 0x10ee0
addq $0x10, %rsp
popq %rbp
retq
nopl (%rax)