Function at 0x4384b0
Capabilities:
Terminate process

Disassembly:
mov eax, dword [0x4a34a4]
sub esp, 0x1bc
lea ecx, [eax - 1]
mov eax, dword [0x492114]
push ebx
mov ebx, dword [esp + 0x1cc]
push ebp
mov ebp, dword [esp + 0x1cc]
push esi
cmp eax, ecx
push edi
jg 0x43856c
mov edx, dword [0x4a34b4]
or ecx, 0xffffffff
mov edi, dword [edx + eax*4]
xor eax, eax
repne scasb al, byte es:[edi]
not ecx
dec ecx
mov dword [ebx], ecx
mov eax, dword [0x492114]
mov edx, dword [0x4a34b4]
mov edi, dword [ebp]
mov esi, dword [edx + eax*4]
mov eax, ecx
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, eax
and ecx, 3
rep movsb byte es:[edi], byte [esi]
mov ecx, dword [ebx]
mov edx, dword [ebp]
mov byte [ecx + edx], 0
mov edx, dword [0x492114]
inc edx
mov dword [0x492114], edx
mov eax, dword [ebp]
cmp byte [eax], 0x20
jne 0x438545
cmp dword [ebx], 0
jle 0x438545
inc eax
mov dword [ebp], eax
mov edx, dword [ebx]
dec edx
mov dword [ebx], edx
mov eax, dword [ebp]
cmp byte [eax], 0x20
je 0x43852f
cmp dword [ebx], 0
jle 0x438566
mov eax, dword [ebx]
mov ecx, dword [ebp]
mov cl, byte [ecx + eax - 1]
cmp cl, 0x20
je 0x43855c
test cl, cl
jne 0x438563
dec eax
test eax, eax
mov dword [ebx], eax
jg 0x43854a
cmp dword [ebx], 0
jne 0x438dad
mov eax, dword [0x499e2c]
test eax, eax
je 0x43861f
mov edx, dword [esp + 0x1d0]
lea ecx, [esp + 0xfc]
mov eax, dword [edx + 0xb4]
push eax
push str.Open:_Select_File_for_Unit
push str._s_d
push ecx
call fcn.0044c100
add esp, 0x10
mov eax, dword [ebp]
lea edx, [esp + 0xfc]
push edx
push 0x100
push eax
call fcn.0045f9d0
mov esi, eax
add esp, 0xc
test esi, esi
je 0x4385cf
mov edi, dword [ebp]
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
not ecx
dec ecx
jne 0x438601
push 0x2134
push str.File_Open_Error
push str.A_File_Must_be_Selected_r_rTerminate_Program_
xor esi, esi
call fcn.0045faa0
add esp, 0xc
cmp eax, 6
jne 0x438601
push 1
call fcn.0045fae0
add esp, 4
push 1
call fcn.0044ad00
add esp, 4
test esi, esi
je 0x4385a1
mov edi, dword [ebp]
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
not ecx
dec ecx
mov dword [ebx], ecx
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x1bc
ret
mov ebp, dword [esp + 0x1d0]
lea edx, [esp + 0x14c]
mov ecx, dword [ebp + 0xb4]
push ecx
push str.File_name_missing_or_blank___please_enter_file_name_r_nUNIT__d_
push edx
call fcn.0044c100
lea edi, [esp + 0x158]
or ecx, 0xffffffff
xor eax, eax
add esp, 0xc
repne scasb al, byte es:[edi]
mov eax, dword [ebp + 0xb4]
mov edi, 6
not ecx
dec ecx
cmp eax, edi
mov dword [esp + 0x20], ecx
je 0x438686
lea eax, [esp + 0xdc]
push 2
lea ecx, [esp + 0x1c]
push eax
push ecx
push edi
call fcn.0042f740
add esp, 0x10
test eax, eax
jne 0x438daf
cmp dword [ebp + 0xb4], 5
je 0x4386c3
lea edx, [esp + 0xbc]
push 7
lea eax, [esp + 0x20]
push edx
push eax
push 5
call fcn.0042f740
mov esi, eax
add esp, 0x10
test esi, esi
je 0x4386c3
cmp dword [ebp + 0xb4], edi
je 0x438eef
mov ecx, dword [esp + 0x18]
jmp 0x438ee0
lea eax, [esp + 0x10]
mov esi, 1
push eax
push esi
push 0x124
call fcn.0042ff10
add esp, 0xc
test eax, eax
jne 0x438daf
lea ecx, [esp + 0x14]
push ecx
push esi
push 0x124
call fcn.0042ff10
add esp, 0xc
test eax, eax
jne 0x438daf
mov edi, dword [esp + 0x10]
mov ecx, 0x49
rep stosd dword es:[edi], eax
mov edi, dword [esp + 0x14]
mov ecx, 0x49
rep stosd dword es:[edi], eax
mov edx, dword [esp + 0x10]
mov ecx, 0x26
lea edi, [esp + 0x24]
rep stosd dword es:[edi], eax
mov dword [edx + 0xb4], 6
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x118]
mov eax, dword [ecx + 0x118]
mov edx, eax
xor edx, edi
and edx, 0x400000
xor edx, eax
mov dword [ecx + 0x118], edx
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x11c]
mov eax, dword [ecx + 0x11c]
mov edx, eax
xor edx, edi
and edx, 0x100
xor edx, eax
mov dword [ecx + 0x11c], edx
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x11c]
mov eax, dword [ecx + 0x11c]
mov edx, eax
xor edx, edi
and edx, 0x8000000
xor edx, eax
mov dword [ecx + 0x11c], edx
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x11c]
mov eax, dword [ecx + 0x11c]
mov edx, eax
xor edx, edi
and edx, 0x200000
xor edx, eax
mov dword [ecx + 0x11c], edx
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x11c]
mov eax, dword [ecx + 0x11c]
mov edx, eax
xor edx, edi
and edx, 0x10000000
xor edx, eax
mov dword [ecx + 0x11c], edx
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x200
xor edx, eax
mov dword [ecx + 0x120], edx
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x400
xor edx, eax
mov dword [ecx + 0x120], edx
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x800
xor edx, eax
mov dword [ecx + 0x120], edx
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x2000
xor edx, eax
mov dword [ecx + 0x120], edx
mov ecx, dword [esp + 0x10]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x4000
xor edx, eax
xor eax, eax
mov dword [ecx + 0x120], edx
mov edi, dword [0x492110]
or ecx, 0xffffffff
mov dword [esp + 0x24], esi
mov dword [esp + 0x78], 4
mov dword [esp + 0x58], esi
mov dword [esp + 0x50], edi
repne scasb al, byte es:[edi]
mov eax, dword [esp + 0x10]
not ecx
dec ecx
push eax
mov dword [esp + 0x58], ecx
lea ecx, [esp + 0x28]
push ecx
call fcn.004355e0
mov edi, eax
add esp, 8
test edi, edi
je 0x438926
mov edx, dword [esp + 0x10]
push edx
call fcn.0042ff70
mov eax, dword [esp + 0x18]
add esp, 4
push eax
call fcn.0042ff70
mov eax, dword [ebp + 0xb4]
add esp, 4
cmp eax, 6
je 0x4388f9
mov ecx, dword [esp + 0x18]
mov edx, dword [ecx + 0xb4]
push edx
call fcn.0042fc00
add esp, 4
cmp dword [ebp + 0xb4], 5
je 0x438b1b
mov eax, dword [esp + 0x1c]
mov ecx, dword [eax + 0xb4]
push ecx
call fcn.0042fc00
add esp, 4
mov eax, edi
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x1bc
ret
mov edx, dword [esp + 0x14]
mov esi, 5
mov dword [edx + 0xb4], esi
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x118]
mov eax, dword [ecx + 0x118]
mov edx, eax
xor edx, edi
and edx, 0x400000
xor edx, eax
mov dword [ecx + 0x118], edx
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x11c]
mov eax, dword [ecx + 0x11c]
mov edx, eax
xor edx, edi
and edx, 0x100
xor edx, eax
mov dword [ecx + 0x11c], edx
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x11c]
mov eax, dword [ecx + 0x11c]
mov edx, eax
xor edx, edi
and edx, 0x8000000
xor edx, eax
mov dword [ecx + 0x11c], edx
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x11c]
mov eax, dword [ecx + 0x11c]
mov edx, eax
xor edx, edi
and edx, 0x200000
xor edx, eax
mov dword [ecx + 0x11c], edx
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x11c]
mov eax, dword [ecx + 0x11c]
mov edx, eax
xor edx, edi
and edx, 0x10000000
xor edx, eax
mov dword [ecx + 0x11c], edx
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x200
xor edx, eax
mov dword [ecx + 0x120], edx
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x400
xor edx, eax
mov dword [ecx + 0x120], edx
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x800
xor edx, eax
mov dword [ecx + 0x120], edx
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x2000
xor edx, eax
mov dword [ecx + 0x120], edx
mov ecx, dword [esp + 0x14]
mov edi, dword [ebp + 0x120]
mov eax, dword [ecx + 0x120]
mov edx, eax
xor edx, edi
and edx, 0x4000
xor edx, eax
xor eax, eax
mov dword [ecx + 0x120], edx
mov edi, dword [str.CONIN_]
or ecx, 0xffffffff
mov dword [esp + 0x50], edi
repne scasb al, byte es:[edi]
mov eax, dword [esp + 0x14]
not ecx
dec ecx
push eax
mov dword [esp + 0x58], ecx
lea ecx, [esp + 0x28]
push ecx
call fcn.004355e0
mov edi, eax
add esp, 8
test edi, edi
je 0x438b28
mov edx, dword [esp + 0x10]
push 0
push edx
call fcn.00439040
mov eax, dword [esp + 0x18]
add esp, 8
push eax
call fcn.0042ff70
mov ecx, dword [esp + 0x18]
add esp, 4
push ecx
call fcn.0042ff70
mov eax, dword [ebp + 0xb4]
add esp, 4
cmp eax, 6
je 0x438b00
mov edx, dword [esp + 0x18]
mov eax, dword [edx + 0xb4]
push eax
call fcn.0042fc00
add esp, 4
cmp dword [ebp + 0xb4], esi
je 0x438b1b
mov ecx, dword [esp + 0x1c]
mov edx, dword [ecx + 0xb4]
push edx
call fcn.0042fc00
add esp, 4
mov eax, edi
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x1bc
ret
mov eax, dword [esp + 0x10]
mov byte [eax + 0x10e], 3
mov eax, dword [esp + 0x10]
mov ecx, dword [eax + 0x11c]
or ecx, 4
mov dword [eax + 0x11c], ecx
mov eax, dword [ebx]
test eax, eax
jne 0x438d3c
mov esi, dword [esp + 0x10]
push 0
push esi
call fcn.0042d5a0
add esp, 8
test eax, eax
jne 0x438dba
mov cl, byte [esi + 0x10c]
movsx eax, cl
dec eax
cmp eax, 6
ja case.default.0x438b76
jmp dword [eax*4 + 0x438efc]
mov eax, dword [esi + 0x28]
mov edx, dword [esi + 0xac]
lea ecx, [eax + 4]
lea eax, [edx + eax - 4]
mov dword [esi + 0x2c], ecx
mov dword [esi + 0x30], eax
jmp 0x438bfe
mov eax, dword [esi + 0x28]
mov ecx, dword [esi + 0xac]
mov dword [esi + 0x2c], eax
lea edx, [ecx + eax - 1]
mov dword [esi + 0x30], edx
jmp 0x438bfe
mov eax, dword [esi + 0x28]
mov edx, dword [esi + 0xac]
mov dword [esi + 0x2c], eax
add edx, eax
mov eax, dword [esi + 0x11c]
mov dword [esi + 0x30], edx
test eax, 0x8000000
je 0x438c23
mov eax, dword [esi + 0x118]
test ah, 1
je 0x438bfe
test ah, 0x10
je 0x438bfe
cmp cl, 1
jne 0x438bfe
add edx, 0xfffffffe
mov dword [esi + 0x30], edx
jmp 0x438bfe
push 0x12ac
push str.E:_forrtl_build_for_nt_open_proc.c
push 2
push 0xc0000008
call fcn.0042ea90
add esp, 0x10
test dword [esi + 0x11c], 0x8000000
je 0x438c23
mov eax, dword [esi + 0x118]
test ah, 1
je 0x438c23
test ah, 0x10
je 0x438c23
cmp byte [esi + 0x10c], 1
je 0x438c59
mov al, byte [esi + 0x10e]
cmp al, 2
jne 0x438c40
mov al, byte [esi + 0x10c]
cmp al, 7
je 0x438c59
cmp al, 6
je 0x438c59
dec dword [esi + 0x30]
jmp 0x438c59
cmp al, 1
jne 0x438c59
mov al, byte [esi + 0x10c]
cmp al, 7
je 0x438c55
cmp al, 6
je 0x438c55
dec dword [esi + 0x30]
add dword [esi + 0x2c], 5
mov eax, dword [esi + 0x2c]
mov edx, dword [esp + 0x20]
mov dword [esi + 0x34], eax
mov dword [esi + 0x38], 0
mov eax, dword [esp + 0x10]
mov ecx, edx
lea esi, [esp + 0x14c]
mov edi, dword [eax + 0x2c]
mov eax, ecx
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 + 0x10]
mov esi, dword [eax + 0x2c]
add esi, edx
mov dword [eax + 0x2c], esi
mov ecx, dword [esp + 0x10]
push ecx
call fcn.0042c4b0
mov esi, eax
add esp, 4
test esi, esi
jne 0x438dfa
mov edx, dword [esp + 0x14]
push edx
call fcn.00432be0
mov esi, eax
add esp, 4
test esi, esi
jne 0x438e7d
mov eax, dword [esp + 0x14]
mov edx, dword [esp + 0x1d4]
mov esi, dword [eax + 0x2c]
mov eax, dword [eax + 0x30]
mov edi, dword [edx]
sub eax, esi
mov ecx, eax
mov edx, ecx
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, edx
mov edx, dword [esp + 0x1d4]
and ecx, 3
rep movsb byte es:[edi], byte [esi]
mov ecx, dword [edx]
mov byte [ecx + eax], 0
mov dword [ebx], eax
mov eax, dword [edx]
cmp byte [eax], 0x20
jne 0x438d11
cmp dword [ebx], 0
jle 0x438d11
inc eax
mov dword [edx], eax
mov esi, dword [ebx]
dec esi
mov dword [ebx], esi
mov eax, dword [edx]
cmp byte [eax], 0x20
je 0x438cfd
cmp dword [ebx], 0
jle 0x438d31
mov eax, dword [ebx]
mov ecx, dword [edx]
mov cl, byte [ecx + eax - 1]
cmp cl, 0x20
je 0x438d27
test cl, cl
jne 0x438d2e
dec eax
test eax, eax
mov dword [ebx], eax
jg 0x438d16
cmp dword [ebx], 0
je 0x438b50
mov esi, 5
mov eax, dword [esp + 0x10]
push 0
push eax
call fcn.00439040
mov ecx, dword [esp + 0x1c]
add esp, 8
push 0
push ecx
call fcn.00439040
mov edx, dword [esp + 0x18]
add esp, 8
push edx
call fcn.0042ff70
mov eax, dword [esp + 0x18]
add esp, 4
push eax
call fcn.0042ff70
mov eax, dword [ebp + 0xb4]
add esp, 4
cmp eax, 6
je 0x438d92
mov ecx, dword [esp + 0x18]
mov edx, dword [ecx + 0xb4]
push edx
call fcn.0042fc00
add esp, 4
cmp dword [ebp + 0xb4], esi
je 0x438dad
mov eax, dword [esp + 0x1c]
mov ecx, dword [eax + 0xb4]
push ecx
call fcn.0042fc00
add esp, 4
xor eax, eax
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x1bc
ret
push esi
push 0xc0000026
push 0xc0000026
push 1
call fcn.0042eac0
add esp, 0x10
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x1bc
ret
push esi
push 0xc000002c
push 0xc000002c
push 1
call fcn.0042eac0
add esp, 0x10
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x1bc
ret
mov edx, dword [esp + 0x10]
push 0
push edx
call fcn.00439040
mov eax, dword [esp + 0x1c]
add esp, 8
push 0
push eax
call fcn.00439040
mov ecx, dword [esp + 0x18]
add esp, 8
push ecx
call fcn.0042ff70
mov edx, dword [esp + 0x18]
add esp, 4
push edx
call fcn.0042ff70
mov eax, dword [ebp + 0xb4]
add esp, 4
cmp eax, 6
je 0x438e50
mov eax, dword [esp + 0x18]
mov ecx, dword [eax + 0xb4]
push ecx
call fcn.0042fc00
add esp, 4
cmp dword [ebp + 0xb4], 5
je 0x438eef
mov edx, dword [esp + 0x1c]
mov eax, dword [edx + 0xb4]
push eax
call fcn.0042fc00
add esp, 4
mov eax, esi
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x1bc
ret
mov ecx, dword [esp + 0x10]
push 0
push ecx
call fcn.00439040
mov edx, dword [esp + 0x1c]
add esp, 8
push 0
push edx
call fcn.00439040
mov eax, dword [esp + 0x18]
add esp, 8
push eax
call fcn.0042ff70
mov ecx, dword [esp + 0x18]
add esp, 4
push ecx
call fcn.0042ff70
mov eax, dword [ebp + 0xb4]
add esp, 4
cmp eax, 6
je 0x438ed3
mov edx, dword [esp + 0x18]
mov eax, dword [edx + 0xb4]
push eax
call fcn.0042fc00
add esp, 4
cmp dword [ebp + 0xb4], 5
je 0x438eef
mov ecx, dword [esp + 0x1c]
mov edx, dword [ecx + 0xb4]
push edx
call fcn.0042fc00
add esp, 4
mov eax, esi
pop edi
pop esi
pop ebp
pop ebx
add esp, 0x1bc
ret