.text:004059EA 8B 45 C4            mov eax, dword ptr [ebp+var_40+4]
.text:004059ED 8B 4D C0            mov ecx, dword ptr [ebp+var_40]
.text:004059F0 68 00 00 00 40      push 40000000h
.text:004059F5 57                  push edi                          //double 2.0
.text:004059F6 50                  push eax
.text:004059F7 51                  push ecx                          //double Y
.text:004059F8 FF 15 A8 10 40 00   call ds:__vbaPowerR8              //Y * Y
.text:004059FE DC 0D F0 10 40 00   fmul ds:dbl_4010F0                //умножение на 193.0 -> 193 * (Y * Y)
.text:00405A04 8B 55 CC            mov edx, dword ptr [ebp+var_38+4]
.text:00405A07 68 00 00 00 40      push 40000000h                                        
.text:00405A0C 57                  push edi                          //double 2.0
.text:00405A0D 52                  push edx
.text:00405A0E DC 05 F8 10 40 00   fadd ds:dbl_4010F8                //сложение с 1.0 -> 193 * (Y * Y) + 1
.text:00405A14 DD 5D E4            fstp [ebp+var_1C]
.text:00405A17 DF E0               fnstsw ax
.text:00405A19 A8 0D               test al, 0Dh
.text:00405A1B 0F 85 D0 04 00 00   jnz loc_405EF1
.text:00405A21 8B 45 C8            mov eax, dword ptr [ebp+var_38]  //double X
.text:00405A24 50                  push eax
.text:00405A25 FF 15 A8 10 40 00   call ds:__vbaPowerR8             //X * X
.text:00405A2B DD 5D D0            fstp [ebp+var_30]
.text:00405A2E DD 45 E4            fld [ebp+var_1C]
.text:00405A31 DC 5D D0            fcomp [ebp+var_30]               //сравнение -> X * X == 193 * (Y * Y) + 1