Function at 0x417240
Capabilities:
Terminate process

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x1bc
mov eax, dword [0x4386dc]
push ebx
mov ebx, dword [ebp + 0xc]
push esi
lea ecx, [eax - 1]
mov eax, dword [0x42d864]
cmp eax, ecx
push edi
jg 0x417303
mov edx, dword [0x4386e0]
or ecx, 0xffffffff
mov edi, dword [edx + eax*4]
xor eax, eax
repne scasb al, byte es:[edi]
mov eax, dword [ebp + 0x10]
not ecx
dec ecx
mov dword [eax], ecx
mov edx, dword [0x42d864]
mov esi, dword [0x4386e0]
mov edi, dword [ebx]
mov esi, dword [esi + edx*4]
mov edx, ecx
shr ecx, 2
rep movsd dword es:[edi], dword [esi]
mov ecx, edx
and ecx, 3
rep movsb byte es:[edi], byte [esi]
mov ecx, dword [ebx]
mov edx, dword [eax]
mov byte [ecx + edx], 0
mov eax, dword [0x42d864]
inc eax
push eax
push 0x42d864
mov dword [0x42d864], eax
call dword [sym.imp.KERNEL32.dll_InterlockedExchange]
mov eax, dword [ebx]
mov esi, dword [ebp + 0x10]
cmp byte [eax], 0x20
jne 0x4172d8
cmp dword [esi], 0
jle 0x4172d8
inc eax
mov dword [ebx], eax
mov edx, dword [esi]
dec edx
mov dword [esi], edx
mov eax, dword [ebx]
cmp byte [eax], 0x20
je 0x4172c4
cmp dword [esi], 0
jle 0x4172f8
mov eax, dword [esi]
mov ecx, dword [ebx]
mov cl, byte [eax + ecx - 1]
cmp cl, 0x20
je 0x4172ee
test cl, cl
jne 0x4172f5
dec eax
test eax, eax
mov dword [esi], eax
jg 0x4172dd
cmp dword [esi], 0
je 0x417306
pop edi
pop esi
xor eax, eax
pop ebx
mov esp, ebp
pop ebp
ret
mov esi, dword [ebp + 0x10]
mov eax, dword [0x434a1c]
test eax, eax
je 0x4173a1
mov edx, dword [ebp + 8]
lea ecx, [ebp - 0x13c]
mov eax, dword [edx + 0xbc]
push eax
push str.Open:_Select_File_for_Unit
push str._s_d
push ecx
call fcn.00418efb
add esp, 0x10
mov eax, dword [ebx]
lea edx, [ebp - 0x13c]
push edx
push 0x100
push eax
call fcn.00418740
add esp, 0xc
test eax, eax
je 0x41735f
mov edi, dword [ebx]
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
not ecx
dec ecx
jne 0x41738c
push 0x2134
push str.File_Open_Error
push str.A_File_Must_be_Selected_r_rTerminate_Program_
call fcn.00418740
add esp, 0xc
cmp eax, 6
jne 0x417336
push 1
call fcn.00418740
add esp, 4
push 1
call fcn.004192ab
mov edi, dword [ebx]
or ecx, 0xffffffff
xor eax, eax
repne scasb al, byte es:[edi]
not ecx
dec ecx
pop edi
mov dword [esi], ecx
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
mov ebx, dword [ebp + 8]
lea edx, [ebp - 0x1bc]
mov ecx, dword [ebx + 0xbc]
push ecx
push str.File_name_missing_or_blank___please_enter_file_name_r_nUNIT__d_
push edx
call fcn.00418efb
lea edi, [ebp - 0x1bc]
or ecx, 0xffffffff
xor eax, eax
add esp, 0xc
repne scasb al, byte es:[edi]
mov eax, dword [ebx + 0xbc]
mov edi, 6
not ecx
dec ecx
cmp eax, edi
mov dword [ebp + 8], ecx
je 0x4173ff
lea eax, [ebp - 0xcc]
push 2
lea ecx, [ebp - 0xc]
push eax
push ecx
push edi
call fcn.0040d570
add esp, 0x10
test eax, eax
jne 0x417b1a
cmp dword [ebx + 0xbc], 5
je 0x41744c
lea edx, [ebp - 0xec]
push 7
lea eax, [ebp - 0x10]
push edx
push eax
push 5
call fcn.0040d570
mov esi, eax
add esp, 0x10
test esi, esi
je 0x41744c
cmp dword [ebx + 0xbc], edi
je 0x417c28
mov ecx, dword [ebp - 0xc]
mov edx, dword [ecx + 0xbc]
push edx
call fcn.0040dfe0
add esp, 4
mov eax, esi
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
lea eax, [ebp - 4]
mov esi, 1
push eax
push esi
push 0x138
call fcn.0040bd10
add esp, 0xc
test eax, eax
jne 0x417b1a
lea ecx, [ebp - 8]
push ecx
push esi
push 0x138
call fcn.0040bd10
add esp, 0xc
test eax, eax
jne 0x417b1a
mov edi, dword [ebp - 4]
mov ecx, 0x4e
rep stosd dword es:[edi], eax
mov edi, dword [ebp - 8]
mov ecx, 0x4e
rep stosd dword es:[edi], eax
mov edx, dword [ebp - 4]
mov ecx, 0x27
lea edi, [ebp - 0xac]
rep stosd dword es:[edi], eax
mov dword [edx + 0xbc], 6
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x128]
mov eax, dword [ecx + 0x128]
mov edx, eax
xor edx, edi
and edx, 0x400000
xor edx, eax
mov dword [ecx + 0x128], edx
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x12c]
mov eax, dword [ecx + 0x12c]
mov edx, eax
xor edx, edi
and edx, 0x100
xor edx, eax
mov dword [ecx + 0x12c], edx
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x12c]
mov eax, dword [ecx + 0x12c]
mov edx, eax
xor edx, edi
and edx, 0x8000000
xor edx, eax
mov dword [ecx + 0x12c], edx
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x12c]
mov eax, dword [ecx + 0x12c]
mov edx, eax
xor edx, edi
and edx, 0x200000
xor edx, eax
mov dword [ecx + 0x12c], edx
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x12c]
mov eax, dword [ecx + 0x12c]
mov edx, eax
xor edx, edi
and edx, 0x10000000
xor edx, eax
mov dword [ecx + 0x12c], edx
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x200
xor edx, eax
mov dword [ecx + 0x130], edx
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x400
xor edx, eax
mov dword [ecx + 0x130], edx
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x800
xor edx, eax
mov dword [ecx + 0x130], edx
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x2000
xor edx, eax
mov dword [ecx + 0x130], edx
mov ecx, dword [ebp - 4]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x4000
xor edx, eax
xor eax, eax
mov dword [ecx + 0x130], edx
mov edi, dword [str.CONOUT_]
or ecx, 0xffffffff
mov dword [ebp - 0xac], esi
mov dword [ebp - 0x58], 4
mov dword [ebp - 0x78], esi
mov dword [ebp - 0x80], edi
repne scasb al, byte es:[edi]
mov eax, dword [ebp - 4]
not ecx
dec ecx
push eax
mov dword [ebp - 0x7c], ecx
lea ecx, [ebp - 0xac]
push ecx
call fcn.004147b0
mov edi, eax
add esp, 8
test edi, edi
je 0x417696
mov edx, dword [ebp - 4]
push edx
call fcn.0040bd80
mov eax, dword [ebp - 8]
push eax
call fcn.0040bd80
mov eax, dword [ebx + 0xbc]
add esp, 8
cmp eax, 6
je 0x41766e
mov ecx, dword [ebp - 0xc]
mov edx, dword [ecx + 0xbc]
push edx
call fcn.0040dfe0
add esp, 4
cmp dword [ebx + 0xbc], 5
je 0x417874
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax + 0xbc]
push ecx
call fcn.0040dfe0
add esp, 4
mov eax, edi
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
mov edx, dword [ebp - 8]
mov esi, 5
mov dword [edx + 0xbc], esi
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x128]
mov eax, dword [ecx + 0x128]
mov edx, eax
xor edx, edi
and edx, 0x400000
xor edx, eax
mov dword [ecx + 0x128], edx
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x12c]
mov eax, dword [ecx + 0x12c]
mov edx, eax
xor edx, edi
and edx, 0x100
xor edx, eax
mov dword [ecx + 0x12c], edx
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x12c]
mov eax, dword [ecx + 0x12c]
mov edx, eax
xor edx, edi
and edx, 0x8000000
xor edx, eax
mov dword [ecx + 0x12c], edx
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x12c]
mov eax, dword [ecx + 0x12c]
mov edx, eax
xor edx, edi
and edx, 0x200000
xor edx, eax
mov dword [ecx + 0x12c], edx
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x12c]
mov eax, dword [ecx + 0x12c]
mov edx, eax
xor edx, edi
and edx, 0x10000000
xor edx, eax
mov dword [ecx + 0x12c], edx
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x200
xor edx, eax
mov dword [ecx + 0x130], edx
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x400
xor edx, eax
mov dword [ecx + 0x130], edx
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x800
xor edx, eax
mov dword [ecx + 0x130], edx
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x2000
xor edx, eax
mov dword [ecx + 0x130], edx
mov ecx, dword [ebp - 8]
mov edi, dword [ebx + 0x130]
mov eax, dword [ecx + 0x130]
mov edx, eax
xor edx, edi
and edx, 0x4000
xor edx, eax
xor eax, eax
mov dword [ecx + 0x130], edx
mov edi, dword [str.CONIN_]
or ecx, 0xffffffff
mov dword [ebp - 0x80], edi
repne scasb al, byte es:[edi]
mov eax, dword [ebp - 8]
not ecx
dec ecx
push eax
mov dword [ebp - 0x7c], ecx
lea ecx, [ebp - 0xac]
push ecx
call fcn.004147b0
mov edi, eax
add esp, 8
test edi, edi
je 0x41787d
mov edx, dword [ebp - 4]
push 0
push edx
call fcn.0040bda0
mov eax, dword [ebp - 4]
push eax
call fcn.0040bd80
mov ecx, dword [ebp - 8]
push ecx
call fcn.0040bd80
mov eax, dword [ebx + 0xbc]
add esp, 0x10
cmp eax, 6
je 0x41785a
mov edx, dword [ebp - 0xc]
mov eax, dword [edx + 0xbc]
push eax
call fcn.0040dfe0
add esp, 4
cmp dword [ebx + 0xbc], esi
je 0x417874
mov ecx, dword [ebp - 0x10]
mov edx, dword [ecx + 0xbc]
push edx
call fcn.0040dfe0
add esp, 4
mov eax, edi
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
mov eax, dword [ebp - 4]
mov byte [eax + 0x11e], 3
mov eax, dword [ebp - 4]
mov ecx, dword [eax + 0x12c]
or ecx, 4
mov dword [eax + 0x12c], ecx
mov ecx, dword [ebp + 0x10]
cmp dword [ecx], 0
jne 0x417ab6
mov esi, dword [ebp - 4]
push 0
push esi
call fcn.0040d1f0
add esp, 8
test eax, eax
jne 0x417b21
mov dl, byte [esi + 0x11c]
movsx eax, dl
dec eax
cmp eax, 6
ja case.default.0x4178ce
jmp dword [eax*4 + 0x417c34]
mov eax, dword [esi + 0x30]
test eax, eax
je 0x4178e4
add eax, 4
mov dword [esi + 0x2c], eax
jmp 0x4178ed
mov edx, dword [esi + 0x28]
add edx, 4
mov dword [esi + 0x2c], edx
mov eax, dword [esi + 0xb4]
mov ecx, dword [esi + 0x2c]
lea edx, [eax + ecx - 8]
mov dword [esi + 0x34], edx
jmp 0x417983
mov eax, dword [esi + 0x30]
test eax, eax
jne 0x41790c
mov eax, dword [esi + 0x28]
mov ecx, dword [esi + 0xb4]
mov edx, eax
mov dword [esi + 0x2c], eax
lea eax, [ecx + edx - 1]
mov dword [esi + 0x34], eax
jmp 0x417983
mov eax, dword [esi + 0x30]
test eax, eax
je 0x41792c
mov dword [esi + 0x2c], eax
jmp 0x417932
mov ecx, dword [esi + 0x28]
mov dword [esi + 0x2c], ecx
mov eax, dword [esi + 0xb4]
mov ecx, dword [esi + 0x2c]
add ecx, eax
mov eax, dword [esi + 0x12c]
test eax, 0x8000000
mov dword [esi + 0x34], ecx
je 0x4179a8
mov eax, dword [esi + 0x128]
test ah, 1
je 0x417983
test ah, 0x10
je 0x417983
cmp dl, 1
jne 0x417983
add ecx, 0xfffffffe
mov dword [esi + 0x34], ecx
jmp 0x417983
push 0x141d
push str.E:_forrtl_build_for_nt_open_proc.c
push 2
push 0xc0000008
call fcn.00409670
add esp, 0x10
test dword [esi + 0x12c], 0x8000000
je 0x4179a8
mov eax, dword [esi + 0x128]
test ah, 1
je 0x4179a8
test ah, 0x10
je 0x4179a8
cmp byte [esi + 0x11c], 1
je 0x4179de
mov al, byte [esi + 0x11e]
cmp al, 2
jne 0x4179c5
mov al, byte [esi + 0x11c]
cmp al, 7
je 0x4179de
cmp al, 6
je 0x4179de
dec dword [esi + 0x34]
jmp 0x4179de
cmp al, 1
jne 0x4179de
mov al, byte [esi + 0x11c]
cmp al, 7
je 0x4179da
cmp al, 6
je 0x4179da
dec dword [esi + 0x34]
add dword [esi + 0x2c], 5
mov edx, dword [esi + 0x2c]
mov dword [esi + 0x3c], 0
mov dword [esi + 0x38], edx
mov edx, dword [ebp + 8]
mov eax, dword [ebp - 4]
mov ecx, edx
lea esi, [ebp - 0x1bc]
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 [ebp - 4]
mov esi, dword [eax + 0x2c]
add esi, edx
mov dword [eax + 0x2c], esi
mov ecx, dword [ebp - 4]
push ecx
call fcn.0040c230
mov esi, eax
add esp, 4
test esi, esi
jne 0x417b59
mov edx, dword [ebp - 8]
push edx
call fcn.00417c50
mov esi, eax
add esp, 4
test esi, esi
jne 0x417bc5
mov eax, dword [ebp - 8]
mov edx, dword [ebp + 0xc]
mov esi, dword [eax + 0x2c]
mov eax, dword [eax + 0x34]
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
and ecx, 3
rep movsb byte es:[edi], byte [esi]
mov edi, dword [ebp + 0xc]
mov ecx, dword [edi]
mov byte [eax + ecx], 0
mov ecx, dword [ebp + 0x10]
mov dword [ecx], eax
mov eax, dword [edi]
cmp byte [eax], 0x20
jne 0x417a8a
cmp dword [ecx], 0
jle 0x417a8a
inc eax
mov dword [edi], eax
mov esi, dword [ecx]
dec esi
mov dword [ecx], esi
mov eax, dword [edi]
cmp byte [eax], 0x20
je 0x417a76
cmp dword [ecx], 0
jle 0x417aab
mov esi, dword [ecx]
mov edx, dword [edi]
mov al, byte [esi + edx - 1]
cmp al, 0x20
je 0x417a9f
test al, al
jne 0x417aa8
lea eax, [esi - 1]
test eax, eax
mov dword [ecx], eax
jg 0x417a8f
cmp dword [ecx], 0
je 0x4178a5
mov esi, 5
mov ecx, dword [ebp - 4]
push 0
push ecx
call fcn.0040bda0
mov edx, dword [ebp - 8]
push 0
push edx
call fcn.0040bda0
mov eax, dword [ebp - 4]
push eax
call fcn.0040bd80
mov ecx, dword [ebp - 8]
push ecx
call fcn.0040bd80
mov eax, dword [ebx + 0xbc]
add esp, 0x18
cmp eax, 6
je 0x417afe
mov edx, dword [ebp - 0xc]
mov eax, dword [edx + 0xbc]
push eax
call fcn.0040dfe0
add esp, 4
cmp dword [ebx + 0xbc], esi
je 0x417b18
mov ecx, dword [ebp - 0x10]
mov edx, dword [ecx + 0xbc]
push edx
call fcn.0040dfe0
add esp, 4
xor eax, eax
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
push esi
push 0xc0000026
push 0xc0000026
push 1
call fcn.004096a0
add esp, 0x10
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
push esi
push 0xc000002c
push 0xc000002c
push 1
call fcn.004096a0
add esp, 0x10
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
mov eax, dword [ebp - 4]
push 0
push eax
call fcn.0040bda0
mov ecx, dword [ebp - 8]
push 0
push ecx
call fcn.0040bda0
mov edx, dword [ebp - 4]
push edx
call fcn.0040bd80
mov eax, dword [ebp - 8]
push eax
call fcn.0040bd80
mov eax, dword [ebx + 0xbc]
add esp, 0x18
cmp eax, 6
je 0x417ba1
mov ecx, dword [ebp - 0xc]
mov edx, dword [ecx + 0xbc]
push edx
call fcn.0040dfe0
add esp, 4
cmp dword [ebx + 0xbc], 5
je 0x417c28
mov eax, dword [ebp - 0x10]
mov ecx, dword [eax + 0xbc]
push ecx
call fcn.0040dfe0
add esp, 4
mov eax, esi
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret
mov edx, dword [ebp - 4]
push 0
push edx
call fcn.0040bda0
mov eax, dword [ebp - 8]
push 0
push eax
call fcn.0040bda0
mov ecx, dword [ebp - 4]
push ecx
call fcn.0040bd80
mov edx, dword [ebp - 8]
push edx
call fcn.0040bd80
mov eax, dword [ebx + 0xbc]
add esp, 0x18
cmp eax, 6
je 0x417c0d
mov eax, dword [ebp - 0xc]
mov ecx, dword [eax + 0xbc]
push ecx
call fcn.0040dfe0
add esp, 4
cmp dword [ebx + 0xbc], 5
je 0x417c28
mov edx, dword [ebp - 0x10]
mov eax, dword [edx + 0xbc]
push eax
call fcn.0040dfe0
add esp, 4
mov eax, esi
pop edi
pop esi
pop ebx
mov esp, ebp
pop ebp
ret