Function at 0x140024e80
Capabilities:
Query environment variable

Disassembly:
push rbx
push rsi
push rdi
push r14
sub rsp, 0x5d8
mov edi, edx
mov r11, rsp
mov r14, rcx
mov rax, qword [0x14016fb98]
mov ecx, 0x1200
xor edx, edx
mov r8d, edi
xor r9d, r9d
xor rax, rsp
mov qword [rsp + 0x5d0], rax
lea r10, [rsp + 0x1cd]
xor sil, sil
mov qword [r11 + 0x20], r10
mov dword [r11 + 0x28], 0x400
mov qword [r11 + 0x30], 0
call qword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x140024eeb
mov eax, eax
mov byte [rsp + rax + 0x1cd], 0
jmp 0x14002508c
cmp qword [0x14016f420], 0
je 0x140025039
mov qword [0x14016f420], 0
call qword [sym.imp.KERNEL32.dll_GetThreadLocale]
mov ebx, eax
cmp qword [0x14016fbe0], 0
je 0x1400252f1
mov rax, qword [0x14016fcc0]
lea rdx, str._lu__s
lea rcx, [rsp + 0x17d]
mov r8d, ebx
lea r9, str.ifcore_msg.dll
call rax
lea rcx, [rsp + 0x17d]
call qword [sym.imp.KERNEL32.dll_LoadLibraryA]
mov qword [0x140191f68], rax
test rax, rax
je 0x1400252de
mov qword [0x14016f428], 0
xor ebx, ebx
lea r8, str.forrtl:
mov qword [rsp + 0x40], r12
mov r12, r8
mov qword [rsp + 0x48], r13
mov r13, rbx
mov qword [rsp + 0x50], r15
lea r15, [0x140000000]
mov qword [rsp + 0x58], rbp
mov ecx, ebx
lea rdx, [0x140171c68]
add ecx, 0x1c2
lea r8, [rsp + 0x68]
call fcn.140024790
jmp 0x140024fc0
mov ecx, 0x30b
lea rdx, [0x140171c68]
lea r8, [rsp + 0x68]
call fcn.140024790
mov rdx, qword [rsp + 0x68]
mov rcx, rdx
and rdx, 0xfffffffffffffff0
pxor xmm0, xmm0
pcmpeqb xmm0, xmmword [rdx]
pmovmskb eax, xmm0
and ecx, 0xf
shr eax, cl
bsf eax, eax
jne 0x140024fed
mov rax, rdx
add rdx, rcx
call fcn.1400023c9
mov rbp, rax
xor edx, edx
inc rbp
mov r8, r12
mov rcx, rbp
call fcn.140003fc1
mov r8, rbp
mov rdx, qword [rsp + 0x68]
mov rcx, qword [r15 + r13 + 0x16f430]
call fcn.140001d48
inc rbx
add r12, 8
add r13, 8
cmp rbx, 6
jge 0x140025269
cmp rbx, 5
je 0x140024faa
jmp 0x140024f8f
xor ecx, ecx
xor eax, eax
lea rbx, [0x140000000]
cmp dword [rbx + rax + 0x16d1e0], 0x1f8
je 0x140025361
inc ecx
add rax, 0x10
cmp ecx, 0x1e8
jl 0x140025044
cmp qword [0x14016fbe0], 0
je 0x140025356
mov rax, qword [0x14016fcc0]
mov r8d, edi
lea rcx, [rsp + 0x1cd]
mov rdx, qword [0x140171c40]
call rax
lea rcx, [0x140171c70]
call fcn.140003788
mov eax, dword [0x140171c74]
test eax, eax
jne 0x140025117
lea rcx, str.FORT0
lea rdx, [rsp + 0x78]
mov r8d, 0x105
mov dword [0x140171c74], 1
call qword [sym.imp.KERNEL32.dll_GetEnvironmentVariableA]
mov eax, eax
test rax, rax
jbe 0x1400250d9
cmp rax, 0x105
jae 0x1400250d9
mov al, byte [rsp + 0x78]
jmp 0x1400250e0
mov byte [rsp + 0x78], 0
xor al, al
test al, al
je 0x140025117
cmp qword [0x14016fbe0], 0
je 0x140025331
mov rbx, qword [0x14016feb0]
mov rax, qword [0x14016fc10]
call rax
add rax, 0x60
lea rcx, [rsp + 0x78]
lea rdx, [0x140149420]
mov r8, rax
call rbx
mov dword [0x140171c70], 0
cmp dword [0x140191994], 0
jne 0x140025168
cmp qword [0x14016fbe0], 0
je 0x1400252fc
mov rbx, qword [0x14016fc60]
mov rax, qword [0x14016fc10]
call rax
add rax, 0x60
lea rdx, str._s:__s
mov rcx, rax
mov r8, r14
lea r9, [rsp + 0x1cd]
call rbx
jmp 0x140025244
mov rdx, r14
mov rcx, rdx
and rdx, 0xfffffffffffffff0
pxor xmm0, xmm0
pcmpeqb xmm0, xmmword [rdx]
pmovmskb eax, xmm0
and ecx, 0xf
shr eax, cl
bsf eax, eax
jne 0x140025193
mov rax, rdx
add rdx, rcx
call fcn.1400023c9
mov rbx, rax
lea rdx, [rsp + 0x1cd]
mov rcx, rdx
and rdx, 0xfffffffffffffff0
pxor xmm0, xmm0
pcmpeqb xmm0, xmmword [rdx]
pmovmskb eax, xmm0
and ecx, 0xf
shr eax, cl
bsf eax, eax
jne 0x1400251c6
mov rax, rdx
add rdx, rcx
call fcn.1400023c9
xor edx, edx
lea rbx, [rbx + rax + 1]
movsxd rcx, ebx
lea r8, [rsp + 0x70]
call fcn.140003fc1
test eax, eax
je 0x1400251ed
lea rcx, [rsp + 0x1cd]
mov qword [rsp + 0x70], rcx
jmp 0x140025223
mov sil, 1
cmp qword [0x14016fbe0], 0
je 0x140025326
mov rax, qword [0x14016fcc0]
lea rdx, str._s:__s
mov r8, r14
mov rcx, qword [rsp + 0x70]
lea r9, [rsp + 0x1cd]
call rax
mov rcx, qword [rsp + 0x70]
lea rdx, str.Intel_r__Visual_Fortran_run_time_error
mov r8d, 0x2010
call fcn.140003c4c
test sil, sil
je 0x140025244
mov rcx, qword [rsp + 0x70]
call fcn.14000231f
mov rcx, qword [rsp + 0x5d0]
xor rcx, rsp
cmp rcx, qword [0x14016fb98]
jne 0x140025321
add rsp, 0x5d8
pop r14
pop rdi
pop rsi
pop rbx
ret
mov ecx, 0x1c7
lea rdx, [0x140171c68]
mov r12, qword [rsp + 0x40]
lea r8, [rsp + 0x68]
mov r13, qword [rsp + 0x48]
mov r15, qword [rsp + 0x50]
mov rbp, qword [rsp + 0x58]
call fcn.140024790
nop
lea rcx, str.forrtl
mov r8d, 0x10
mov rdx, qword [rsp + 0x68]
call fcn.140001d48
mov ecx, 0x1f9
lea rdx, [0x140171c68]
lea r8, [rsp + 0x68]
call fcn.140024790
lea rcx, str.Intel_r__Visual_Fortran_run_time_error
mov r8d, 0x40
mov rdx, qword [rsp + 0x68]
call fcn.140001d48
nop
jmp 0x140025039
cmp qword [0x14016f428], 0
je 0x140024f65
jmp 0x140025039
call fcn.140002eb4
nop
jmp 0x140024f1a
call fcn.140002eb4
mov rbx, qword [0x14016fc60]
cmp qword [0x14016fbe0], 0
jne 0x14002513f
call fcn.140002eb4
nop
jmp 0x14002513f
call fcn.140003bcf
call fcn.140002eb4
nop
jmp 0x1400251fe
call fcn.140002eb4
mov rbx, qword [0x14016feb0]
cmp qword [0x14016fbe0], 0
jne 0x1400250f9
call fcn.140002eb4
nop
jmp 0x1400250f9
call fcn.140002eb4
nop
jmp 0x140025071
lea rcx, [0x140000000]
cmp qword [0x14016f428], 0
mov ebx, dword [rcx + rax + 0x16d1e4]
mov dword [0x140171c68], ebx
je 0x14002539a
lea rcx, [0x140000000]
mov rax, qword [rcx + rax + 0x16d1e8]
mov qword [0x140171c40], rax
jmp 0x140025063
lea rbx, [0x140000000]
mov r10, rsp
mov rdx, qword [0x140191f68]
mov ecx, 0x900
mov r8d, 0x800001f8
mov r9d, 0x409
mov rbx, qword [rbx + rax + 0x16d1e8]
lea rax, [rsp + 0x60]
mov qword [r10 + 0x20], rax
mov dword [r10 + 0x28], 0x200
mov qword [r10 + 0x30], 0
call qword [sym.imp.KERNEL32.dll_FormatMessageA]
test eax, eax
je 0x140025424
mov rbx, qword [rsp + 0x60]
mov rdx, rbx
mov rcx, rdx
and rdx, 0xfffffffffffffff0
pxor xmm0, xmm0
pcmpeqb xmm0, xmmword [rdx]
pmovmskb eax, xmm0
and ecx, 0xf
shr eax, cl
bsf eax, eax
jne 0x140025417
mov rax, rdx
add rdx, rcx
call fcn.1400023c9
cmp rax, 1
jbe 0x140025424
cmp byte [rbx + rax - 2], 0xd
je 0x140025430
mov qword [0x140171c40], rbx
jmp 0x140025063
cmp byte [rbx + rax - 1], 0xa
jne 0x140025424
mov byte [rbx + rax - 2], 0
jmp 0x140025424