Function at 0x480930
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.00480eb0
add esp, 0xc
test eax, eax
je 0x48095c
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 0x48097b
cmp eax, 0x105
jb 0x480982
test edi, edi
je 0x480982
mov byte [edi], 0
mov edx, dword [ebp - 0x10]
cmp byte [edx], 0
je 0x4809dd
cmp ebx, 0xaa
je 0x480bfc
push 0x505bfc
push edx
call fcn.004d8571
mov edi, eax
add esp, 8
test edi, edi
je 0x4809da
mov dword [ebp - 0x1c], 0x502960
mov dword [ebp - 0x18], esi
call fcn.0044f1b0
mov edx, eax
lea eax, [ebp - 0x18]
push eax
push 0
push 0x502960
push edi
push dword [edx + 4]
push dword [edx]
call fcn.004d7984
push edi
call fcn.004d86dd
add esp, 0x1c
mov edx, dword [ebp - 0x10]
push edx
call fcn.00480f70
add esp, 4
test eax, eax
jne 0x480954
push str.FOR_DISABLE_DIAGNOSTIC_DISPLAY
call fcn.00494a40
add esp, 4
test eax, eax
jne 0x480a8a
cmp dword [0x22072dc], 0
je 0x480a21
push 0x2010
push str.Intel_r__Visual_Fortran_run_time_error
push esi
call fcn.004cb4d0
add esp, 0xc
jmp 0x480a8a
push 0
call dword [sym.imp.KERNEL32.dll_GetModuleHandleA]
mov edi, eax
test edi, edi
je 0x480a42
mov edx, dword [edi + 0x3c]
movzx eax, word [edx + edi + 0x18]
cmp eax, 0x10b
je 0x480aca
cmp ebx, 0xaa
je 0x480a94
push 2
call fcn.004d82c4
mov edi, eax
add esp, 4
mov ebx, 0x502960
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x28], esi
call fcn.0044f1b0
mov edx, eax
lea eax, [ebp - 0x28]
push eax
push 0
push ebx
push edi
push dword [edx + 4]
push dword [edx]
call fcn.004d7984
push 2
call fcn.004d82c4
push eax
call fcn.004d8a21
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 0x480ab7
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x480aa2
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 0x480a8a
movzx eax, word [edx + edi + 0x5c]
cmp eax, 2
jne 0x480a42
push str.user32.dll
call dword [sym.imp.KERNEL32.dll_LoadLibraryA]
test eax, eax
je 0x480b4a
push 0x505c00
push eax
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
test eax, eax
je 0x480b4a
push 0x12010
push str.Intel_r__Visual_Fortran_run_time_error
push esi
push 0
call eax
test eax, eax
jne 0x480a8a
cmp ebx, 0xaa
je 0x480b8a
push 2
call fcn.004d82c4
mov edi, eax
add esp, 4
mov ebx, 0x502960
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x28], esi
call fcn.0044f1b0
mov edx, eax
lea eax, [ebp - 0x28]
push eax
push 0
push ebx
push edi
push dword [edx + 4]
push dword [edx]
call fcn.004d7984
add esp, 0x18
jmp 0x480a8a
cmp ebx, 0xaa
je 0x480bc3
push 2
call fcn.004d82c4
mov edi, eax
add esp, 4
mov ebx, 0x502960
mov dword [ebp - 0x2c], ebx
mov dword [ebp - 0x28], esi
call fcn.0044f1b0
mov edx, eax
lea eax, [ebp - 0x28]
push eax
push 0
push ebx
push edi
push dword [edx + 4]
push dword [edx]
call fcn.004d7984
add esp, 0x18
jmp 0x480a8a
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 0x480bad
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x480b98
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 0x480a8a
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 0x480be6
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x480bd1
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 0x480a8a
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 0x4809dd
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 0x480c4b
movzx edx, byte [ecx + eax + 1]
add eax, 2
test edx, edx
jne 0x480c36
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 0x4809da