Function at 0x10025230
Capabilities:
Query environment variable
Write file on windows

Disassembly:
push ebp
mov ebp, esp
push esi
push edi
push ebx
sub esp, 0x11c
mov esi, eax
mov eax, dword [0x10234e38]
lea edi, [ebp - 0x118]
xor eax, ebp
mov ebx, edx
push 0x105
push edi
mov dword [ebp - 0x10], eax
push str.FOR_DIAGNOSTIC_LOG_FILE
call dword [sym.imp.KERNEL32.dll_GetEnvironmentVariableA]
test eax, eax
jbe 0x10025275
cmp eax, 0x105
jae 0x10025275
movsx eax, byte [ebp - 0x118]
jmp 0x1002527e
mov byte [ebp - 0x118], 0
xor eax, eax
test eax, eax
je 0x100252e7
cmp ebx, 0xaa
je 0x100255c3
cmp dword [0x102372a0], 0
je 0x100255b9
mov eax, dword [0x102372d0]
push 0x102138c0
push edi
call eax
mov edi, eax
add esp, 8
test edi, edi
je 0x100252e7
cmp dword [0x102372a0], 0
je 0x100255af
mov eax, dword [0x102372e0]
push esi
push 0x102109c0
push edi
call eax
add esp, 0xc
cmp dword [0x102372a0], 0
je 0x100255a5
mov eax, dword [0x102372c0]
push edi
call eax
add esp, 4
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.1002dc50
add esp, 4
test eax, eax
jne 0x100253a8
cmp dword [0x1024c380], 0
je 0x1002531a
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push esi
call fcn.10066b20
add esp, 0xc
jmp 0x1002538a
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov edi, eax
mov edx, dword [edi + 0x3c]
movzx eax, word [edx + edi + 0x18]
cmp eax, 0x10b
je 0x10025444
cmp ebx, 0xaa
je 0x10025408
cmp dword [0x102372a0], 0
je 0x100253e6
mov edi, dword [0x102372e0]
mov ebx, 0x102372b8
mov eax, dword [ebx]
call eax
push esi
push 0x102109c0
add eax, 0x40
push eax
call edi
add esp, 0xc
cmp dword [0x102372a0], 0
je 0x100253cb
mov esi, dword [0x102372c8]
mov eax, dword [ebx]
call eax
add eax, 0x40
push eax
call esi
add esp, 4
mov ecx, dword [ebp - 0x10]
mov dword [ebp - 0x10], 0
xor ecx, ebp
cmp ecx, dword [0x10234e38]
jne 0x100253c6
xor eax, eax
lea esp, [ebp - 0xc]
pop ebx
pop edi
pop esi
pop ebp
ret
mov ecx, dword [ebp - 0x10]
mov dword [ebp - 0x10], 0
xor ecx, ebp
cmp ecx, dword [0x10234e38]
jne 0x100253c6
xor eax, eax
lea esp, [ebp - 0xc]
pop ebx
pop edi
pop esi
pop ebp
ret
call fcn.101a6152
call fcn.10061c60
mov esi, dword [0x102372c8]
cmp dword [0x102372a0], 0
jne 0x1002537d
call fcn.10061c60
jmp 0x1002537d
call fcn.10061c60
mov edi, dword [0x102372e0]
cmp dword [0x102372a0], 0
jne 0x10025356
call fcn.10061c60
jmp 0x10025356
push 0xfffffffffffffff4
call dword [sym.imp.KERNEL32.dll_GetStdHandle]
mov ebx, eax
mov ecx, esi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x1002542b
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10025416
dec eax
push 0
mov edx, eax
lea eax, [ebp - 0x11c]
push eax
push edx
push esi
push ebx
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x1002538a
movzx eax, word [edx + edi + 0x5c]
cmp eax, 2
jne 0x10025337
push str.user32.dll
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x100254ba
push 0x102138c4
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x100254ba
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push esi
push 0
call eax
test eax, eax
jne 0x1002538a
cmp ebx, 0xaa
je 0x1002550b
cmp dword [0x102372a0], 0
je 0x100254f0
mov ebx, dword [0x102372e0]
mov eax, dword [0x102372b8]
call eax
push esi
push 0x102109c0
add eax, 0x40
push eax
call ebx
add esp, 0xc
jmp 0x1002538a
cmp ebx, 0xaa
je 0x10025569
cmp dword [0x102372a0], 0
je 0x10025547
mov ebx, dword [0x102372e0]
mov eax, dword [0x102372b8]
call eax
push esi
push 0x102109c0
add eax, 0x40
push eax
call ebx
add esp, 0xc
jmp 0x1002538a
call fcn.10061c60
mov ebx, dword [0x102372e0]
cmp dword [0x102372a0], 0
jne 0x1002549f
call fcn.10061c60
jmp 0x1002549f
push 0xfffffffffffffff4
call dword [sym.imp.KERNEL32.dll_GetStdHandle]
mov ebx, eax
mov ecx, esi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x1002552e
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10025519
dec eax
push 0
mov edx, eax
lea eax, [ebp - 0x128]
push eax
push edx
push esi
push ebx
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x1002538a
call fcn.10061c60
mov ebx, dword [0x102372e0]
cmp dword [0x102372a0], 0
jne 0x100254d5
call fcn.10061c60
jmp 0x100254d5
push 0xfffffffffffffff4
call dword [sym.imp.KERNEL32.dll_GetStdHandle]
mov ebx, eax
mov ecx, esi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x1002558c
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x10025577
dec eax
push 0
mov edx, eax
lea eax, [ebp - 0x124]
push eax
push edx
push esi
push ebx
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x1002538a
call fcn.10061c60
jmp 0x100252dc
call fcn.10061c60
jmp 0x100252be
call fcn.10061c60
jmp 0x1002529b
xor eax, eax
push eax
push 0x80
push 4
push eax
push eax
push 0x40000000
push edi
call dword [sym.imp.KERNEL32.dll_CreateFileA]
mov edi, eax
cmp edi, 0xffffffff
je 0x100252e7
push 2
xor eax, eax
push eax
push eax
push edi
call dword [sym.imp.KERNEL32.dll_SetFilePointer]
mov ecx, esi
xor eax, eax
movzx edx, byte [ecx + eax]
test edx, edx
je 0x1002560c
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x100255f7
dec eax
push 0
mov edx, eax
lea eax, [ebp - 0x120]
push eax
push edx
push esi
push edi
call dword [sym.imp.KERNEL32.dll_WriteFile]
push edi
call dword [sym.imp.KERNEL32.dll_CloseHandle]
jmp 0x100252e7