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

Disassembly:
push ebp
mov ebp, esp
push esi
push edi
push ebx
sub esp, 0x20
mov esi, eax
mov ebx, edx
lea eax, [ebp - 0x10]
push eax
push 0
push 0x1001
call fcn.005e1480
add esp, 0xc
test eax, eax
je 0x60d9ac
lea esp, [ebp - 0xc]
pop ebx
pop edi
pop esi
pop ebp
ret
push 0x105
mov edi, dword [ebp - 0x10]
push edi
push str.FOR_DIAGNOSTIC_LOG_FILE
call dword [sym.imp.KERNEL32.dll_GetEnvironmentVariableA]
test eax, eax
jbe 0x60d9cb
cmp eax, 0x105
jb 0x60d9d2
test edi, edi
je 0x60d9d2
mov byte [edi], 0
mov edx, dword [ebp - 0x10]
cmp byte [edx], 0
je 0x60da2d
cmp ebx, 0xaa
je 0x60dc4c
push 0x749df8
push edx
call fcn.006ca94d
mov edi, eax
add esp, 8
test edi, edi
je 0x60da2a
mov dword [ebp - 0x1c], 0x746a00
mov dword [ebp - 0x18], esi
call fcn.00692c20
mov edx, eax
lea eax, [ebp - 0x18]
push eax
push 0
push 0x746a00
push edi
push dword [edx + 4]
push dword [edx]
call fcn.006bcbdd
push edi
call fcn.006cab00
add esp, 0x1c
mov edx, dword [ebp - 0x10]
push edx
call fcn.005e1540
add esp, 4
test eax, eax
jne 0x60d9a4
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.0061ce10
add esp, 4
test eax, eax
jne 0x60dada
cmp dword [0x80ec60], 0
je 0x60da71
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push esi
call fcn.00692410
add esp, 0xc
jmp 0x60dada
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov edi, eax
test edi, edi
je 0x60da92
mov edx, dword [edi + 0x3c]
movzx eax, word [edx + edi + 0x18]
cmp eax, 0x10b
je 0x60db1a
cmp ebx, 0xaa
je 0x60dae4
push 2
call fcn.006a2dd2
mov edi, eax
add esp, 4
mov ebx, 0x746a00
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x28], esi
call fcn.00692c20
mov edx, eax
lea eax, [ebp - 0x28]
push eax
push 0
push ebx
push edi
push dword [edx + 4]
push dword [edx]
call fcn.006bcbdd
push 2
call fcn.006a2dd2
push eax
call fcn.006cb11e
add esp, 0x20
xor eax, eax
lea esp, [ebp - 0xc]
pop ebx
pop edi
pop esi
pop ebp
ret
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 0x60db07
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x60daf2
dec eax
push 0
mov edx, eax
lea eax, [ebp - 0x2c]
push eax
push edx
push esi
push ebx
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x60dada
movzx eax, word [edx + edi + 0x5c]
cmp eax, 2
jne 0x60da92
push str.user32.dll
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x60db9a
push 0x749dfc
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x60db9a
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push esi
push 0
call eax
test eax, eax
jne 0x60dada
cmp ebx, 0xaa
je 0x60dbda
push 2
call fcn.006a2dd2
mov edi, eax
add esp, 4
mov ebx, 0x746a00
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x28], esi
call fcn.00692c20
mov edx, eax
lea eax, [ebp - 0x28]
push eax
push 0
push ebx
push edi
push dword [edx + 4]
push dword [edx]
call fcn.006bcbdd
add esp, 0x18
jmp 0x60dada
cmp ebx, 0xaa
je 0x60dc13
push 2
call fcn.006a2dd2
mov edi, eax
add esp, 4
mov ebx, 0x746a00
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x28], esi
call fcn.00692c20
mov edx, eax
lea eax, [ebp - 0x28]
push eax
push 0
push ebx
push edi
push dword [edx + 4]
push dword [edx]
call fcn.006bcbdd
add esp, 0x18
jmp 0x60dada
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 0x60dbfd
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x60dbe8
dec eax
push 0
mov edx, eax
lea eax, [ebp - 0x2c]
push eax
push edx
push esi
push ebx
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x60dada
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 0x60dc36
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x60dc21
dec eax
push 0
mov edx, eax
lea eax, [ebp - 0x2c]
push eax
push edx
push esi
push ebx
call dword [sym.imp.KERNEL32.dll_WriteFile]
jmp 0x60dada
xor eax, eax
push eax
push 0x80
push 4
push eax
push eax
push 0x40000000
mov dword [ebp - 0x2c], edx
push edx
call dword [sym.imp.KERNEL32.dll_CreateFileA]
mov edx, dword [ebp - 0x2c]
mov edi, eax
cmp edi, 0xffffffff
je 0x60da2d
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 0x60dc9b
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x60dc86
dec eax
push 0
mov edx, eax
lea eax, [ebp - 0x20]
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 0x60da2a