Function at 0x42f0c0
Capabilities:
Terminate process

Disassembly:
sub esp, 0x354
mov ax, word [0x499a98]
xor edx, edx
mov word [esp + 0x30], ax
mov eax, dword [esp + 0x358]
push ebx
xor ecx, ecx
push ebp
mov dword [esp + 0x3a], edx
push esi
cmp eax, ecx
push edi
mov dword [esp + 0x1c], ecx
mov dword [esp + 0x46], edx
mov dword [esp + 0x10], ecx
je 0x42f106
mov ebx, dword [esp + 0x36c]
mov ebp, ebx
shr ebx, 0x1e
mov dword [esp + 0x18], ebx
jmp 0x42f11d
mov edx, dword [esp + 0x36c]
mov ebp, dword [esp + 0x14]
mov dword [esp + 0x18], edx
and ebp, 0xffff0000
mov ebx, edx
cmp dword [esp + 0x370], ecx
je 0x42f139
mov esi, dword [esp + 0x374]
mov edx, ebp
xor edx, esi
and edx, 0xffff
xor ebp, edx
cmp ebx, 1
jle 0x42f143
inc ebx
mov dword [esp + 0x18], ebx
cmp eax, ecx
je 0x42f68a
mov edx, dword [0x48d310]
xor eax, eax
cmp edx, ecx
jbe 0x42f175
mov esi, dword [esp + 0x36c]
mov ecx, 0x48d318
cmp dword [ecx], esi
je 0x42f171
inc eax
add ecx, 4
cmp eax, edx
jb 0x42f163
jmp 0x42f175
mov dword [esp + 0x14], eax
cmp eax, edx
je 0x42f1a5
mov ecx, dword [esp + 0x14]
push 0
lea eax, [esp + 0x1dc]
push 0x189
mov edx, dword [ecx*4 + 0x48d890]
push eax
push 0
push 0
push edx
push 0x600
call dword [sym.imp.KERNEL32.dll_FormatMessageA]
jmp 0x42f1a7
xor eax, eax
test eax, eax
jne 0x42f1d4
lea edx, [esp + 0x1d8]
mov edi, str.Message_not_found_n
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
mov eax, ecx
mov esi, edi
mov edi, edx
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, eax
and ecx, 3
rep movsb byte es:[edi], byte [esi]
mov eax, dword [esp + 0x390]
test eax, eax
jle 0x42f210
mov eax, dword [esp + 0x388]
test eax, eax
mov eax, dword [esp + 0x38c]
jne 0x42f1f8
lea eax, [esp + 0x394]
lea ecx, [esp + 0x1d8]
push eax
lea edx, [esp + 0x50]
push ecx
push edx
call fcn.0044c900
add esp, 0xc
jmp 0x42f238
lea edi, [esp + 0x1d8]
or ecx, 0xffffffff
xor eax, eax
lea edx, [esp + 0x4c]
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
mov eax, ecx
mov esi, edi
mov edi, edx
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, eax
and ecx, 3
rep movsb byte es:[edi], byte [esi]
call fcn.0042f080
mov eax, dword [esp + 0x380]
test eax, eax
mov eax, dword [0x499e2c]
jne 0x42f331
test eax, eax
jne 0x42f28d
mov edx, dword [ebx*4 + 0x4725d8]
lea ecx, [esp + 0x4c]
shl ebp, 0x10
sar ebp, 0x10
push ecx
push ebp
push edx
push 0x491d28
push 0x4925f0
call fcn.0044c390
add esp, 0x14
push 0x4925f0
call fcn.0044c6f0
add esp, 4
jmp 0x42f5da
lea edi, [esp + 0x4c]
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
mov edi, dword [ebx*4 + 0x4725d8]
not ecx
dec ecx
mov edx, ecx
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
not ecx
dec ecx
lea eax, [edx + ecx + 0x15]
lea ecx, [esp + 0x10]
push ecx
push 0
push eax
call fcn.0042ff10
add esp, 0xc
test eax, eax
je 0x42f2e7
shl ebp, 0x10
sar ebp, 0x10
push ebp
lea edx, [esp + 0x24]
push 0x491d34
push edx
call fcn.0044c100
lea eax, [esp + 0x2c]
add esp, 0xc
mov dword [esp + 0x10], eax
jmp 0x42f315
mov edx, dword [ebx*4 + 0x4725d8]
mov eax, dword [esp + 0x10]
shl ebp, 0x10
lea ecx, [esp + 0x4c]
mov dword [esp + 0x1c], 1
sar ebp, 0x10
push ecx
push ebp
push edx
push str._s___i_:__s
push eax
call fcn.0044c100
add esp, 0x14
mov ecx, dword [esp + 0x10]
push 0x2010
push str.Visual_Fortran_run_time_error
push ecx
call fcn.0045faa0
add esp, 0xc
jmp 0x42f5da
test eax, eax
jne 0x42f428
push 0x491d44
push 0x4925f0
call fcn.0044c390
add esp, 8
push str.run_time_error
push 0x491d48
push 0x4925f0
call fcn.0044c390
mov esi, dword [esp + 0x388]
add esp, 0xc
cmp esi, 0xf
mov byte [esp + 0x20], 0x46
jne 0x42f378
mov byte [esp + 0x20], 0x4d
shl ebp, 0x10
sar ebp, 0x10
lea edx, [esp + 0x20]
push ebp
push edx
push str._s_i
push 0x4925f0
mov byte [esp + 0x31], 0
call fcn.0044c390
add esp, 0x10
cmp esi, 0x12
mov eax, 0x10
jge 0x42f3a7
mov eax, esi
mov eax, dword [eax*4 + 0x48e178]
push eax
push 0x4925f0
call fcn.0044c390
lea edi, [esp + 0x54]
or ecx, 0xffffffff
xor eax, eax
add esp, 8
repne scasb al, byte es:[edi]
not ecx
dec ecx
cmp esi, 0xb
mov edi, ecx
jge 0x42f40c
mov eax, dword [esp + 0x384]
test eax, eax
je 0x42f3ef
push eax
push 0x491d54
push 0x4925f0
call fcn.0044c390
add esp, 0xc
test edi, edi
je 0x42f3fa
push str.__r_n_
jmp 0x42f3ff
push 0x491d60
push 0x4925f0
call fcn.0044c390
add esp, 8
lea ecx, [esp + 0x4c]
push ecx
push str._s_r_n
push 0x4925f0
call fcn.0044c390
add esp, 0xc
jmp 0x42f5da
mov esi, dword [esp + 0x37c]
mov byte [esp + 0x20], 0x46
cmp esi, 0xf
jne 0x42f43e
mov byte [esp + 0x20], 0x4d
shl ebp, 0x10
sar ebp, 0x10
push ebp
lea edx, [esp + 0x25]
push 0x491d6c
push edx
call fcn.0044c100
lea edi, [esp + 0x58]
or ecx, 0xffffffff
xor eax, eax
add esp, 0xc
repne scasb al, byte es:[edi]
not ecx
dec ecx
cmp esi, 0x12
mov byte [esp + 0x25], 0
mov ebp, ecx
mov ebx, 0x10
jge 0x42f478
mov ebx, esi
lea edi, [esp + 0x20]
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
mov edi, dword [ebx*4 + 0x48e178]
not ecx
dec ecx
mov edx, ecx
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
not ecx
dec ecx
mov dword [esp + 0x14], edx
mov edx, ecx
mov ecx, dword [esp + 0x14]
mov eax, ebp
add eax, ecx
add edx, eax
cmp esi, 0xb
jg 0x42f4d8
mov edi, dword [esp + 0x384]
test edi, edi
je 0x42f4c3
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
not ecx
dec ecx
add edx, ecx
lea edi, [esp + 0x40]
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
not ecx
dec ecx
add edx, ecx
add edx, 7
jmp 0x42f4db
add edx, 5
lea eax, [esp + 0x10]
push eax
push 0
push edx
call fcn.0042ff10
add esp, 0xc
test eax, eax
je 0x42f4fc
lea ecx, [esp + 0x20]
mov dword [esp + 0x10], ecx
jmp 0x42f5bf
mov edx, dword [esp + 0x10]
lea edi, [esp + 0x20]
or ecx, 0xffffffff
xor eax, eax
mov byte [edx], 0
mov dword [esp + 0x1c], 1
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
mov esi, edi
mov edi, dword [esp + 0x10]
mov edx, ecx
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
mov ecx, edx
dec edi
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, edx
and ecx, 3
rep movsb byte es:[edi], byte [esi]
mov edi, dword [ebx*4 + 0x48e178]
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
mov esi, edi
mov edi, dword [esp + 0x10]
mov edx, ecx
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
mov ecx, edx
dec edi
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, edx
and ecx, 3
rep movsb byte es:[edi], byte [esi]
mov edi, dword [esp + 0x10]
test ebp, ebp
je 0x42f582
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
mov eax, dword [str.___]
dec edi
mov dword [edi], eax
mov cl, byte [0x491d74]
mov byte [edi + 4], cl
jmp 0x42f594
or ecx, 0xffffffff
xor eax, eax
mov dx, word [0x491d78]
repne scasb al, byte es:[edi]
mov word [edi - 1], dx
lea edi, [esp + 0x4c]
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
not ecx
sub edi, ecx
mov esi, edi
mov edi, dword [esp + 0x10]
mov edx, ecx
or ecx, 0xffffffff
repne scasb al, byte es:[edi]
mov ecx, edx
dec edi
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, edx
and ecx, 3
rep movsb byte es:[edi], byte [esi]
mov eax, dword [esp + 0x10]
push 0x2010
push str.run_time_error
push eax
call fcn.0045faa0
mov ebx, dword [esp + 0x24]
add esp, 0xc
mov eax, dword [esp + 0x1c]
test eax, eax
je 0x42f5ef
mov ecx, dword [esp + 0x10]
push ecx
call fcn.0042ff70
add esp, 4
cmp ebx, 4
jne 0x42f67f
call fcn.004336b0
push str.f77_dump_flag
call fcn.0044c040
add esp, 4
test eax, eax
jne 0x42f64d
push str.decfort_dump_flag
call fcn.0044c040
add esp, 4
test eax, eax
jne 0x42f64d
mov eax, dword [0x499e2c]
test eax, eax
je 0x42f632
push 1
call fcn.0045fae0
add esp, 4
mov edx, dword [esp + 0x36c]
push edx
call fcn.0044ad00
add esp, 4
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x354
ret
mov al, byte [eax]
cmp al, 0x59
je 0x42f657
cmp al, 0x79
jne 0x42f65c
call fcn.0044c6c0
mov eax, dword [0x499e2c]
test eax, eax
je 0x42f66f
push 1
call fcn.0045fae0
add esp, 4
mov eax, dword [esp + 0x36c]
push eax
call fcn.0044ad00
add esp, 4
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x354
ret
mov edi, dword [esp + 0x378]
cmp edi, ecx
je 0x42f1ab
lea edx, [esp + 0x1d8]
jmp 0x42f1b7