Function at 0x404920
Capabilities:
Enumerate pe sections
Resolve function by parsing pe exports

Disassembly:
push ebp
push edi
push esi
push ebx
sub esp, 0x5c
cmp dword [esp + 0x80], 0x24
mov ebp, dword [esp + 0x70]
jle 0x40536b
mov dword [esp + 4], ebp
mov dword [esp], 0x25
call sym.__gfortran_string_len_trim
cmp eax, 0x25
jg 0x40539a
mov edi, dword [esp + 0x7c]
test eax, eax
mov edx, 0
cmovns edx, eax
mov byte [esp + 0x33], 0x20
mov dword [esp + 0x28], edx
lea ebx, [edi + 0xf7]
lea ecx, [edi + 0xd]
mov dword [edi], 0x20202020
mov dword [edi + 4], 0x20202020
mov dword [edi + 8], 0x20202020
mov byte [edi + 0xc], 0x20
mov dword [ecx], 0x20202020
mov dword [ecx + 4], 0x20202020
add ecx, 0x75
mov dword [ecx - 0x6d], 0x20202020
mov byte [ecx - 0x69], 0x20
mov dword [ecx - 0x68], 0x20202020
mov dword [ecx - 0x64], 0x20202020
mov dword [ecx - 0x60], 0x20202020
mov byte [ecx - 0x5c], 0x20
mov dword [ecx - 0x5b], 0x20202020
mov dword [ecx - 0x57], 0x20202020
mov dword [ecx - 0x53], 0x20202020
mov byte [ecx - 0x4f], 0x20
mov dword [ecx - 0x4e], 0x20202020
mov dword [ecx - 0x4a], 0x20202020
mov dword [ecx - 0x46], 0x20202020
mov byte [ecx - 0x42], 0x20
mov dword [ecx - 0x41], 0x20202020
mov dword [ecx - 0x3d], 0x20202020
mov dword [ecx - 0x39], 0x20202020
mov byte [ecx - 0x35], 0x20
mov dword [ecx - 0x34], 0x20202020
mov dword [ecx - 0x30], 0x20202020
mov dword [ecx - 0x2c], 0x20202020
mov byte [ecx - 0x28], 0x20
mov dword [ecx - 0x27], 0x20202020
mov dword [ecx - 0x23], 0x20202020
mov dword [ecx - 0x1f], 0x20202020
mov byte [ecx - 0x1b], 0x20
mov dword [ecx - 0x1a], 0x20202020
mov dword [ecx - 0x16], 0x20202020
mov dword [ecx - 0x12], 0x20202020
mov byte [ecx - 0xe], 0x20
mov dword [ecx - 0xd], 0x20202020
mov dword [ecx - 9], 0x20202020
mov dword [ecx - 5], 0x20202020
mov byte [ecx - 1], 0x20
cmp ebx, ecx
jne 0x40498a
test eax, eax
jle 0x405078
mov edx, dword [esp + 0x28]
movzx ebx, byte [ebp]
lea eax, [ebp - 1]
xor edi, edi
xor esi, esi
mov dword [esp + 0x24], 0
mov dword [esp + 0x2c], eax
sub edx, 1
and edx, 1
test bl, bl
mov dword [esp + 0x20], edx
je 0x405190
lea ecx, [esp + 0x32]
mov dword [esp], 1
mov byte [esp + 0x32], bl
mov dword [esp + 4], ecx
call sym.__gfortran_string_len_trim
test eax, eax
jne 0x404d90
lea edx, [esp + 0x33]
mov dword [esp], 1
mov dword [esp + 4], edx
call sym.__gfortran_string_len_trim
test eax, eax
je 0x404b37
mov edi, 1
lea ecx, [ebx - 0x61]
mov esi, 1
cmp cl, 0x19
ja 0x404afb
sub ebx, 0x20
mov byte [esp + 0x32], bl
cmp esi, 0x25
jg 0x405303
cmp edi, 0xd
mov byte [ebp + esi - 1], bl
jg 0x404b33
mov eax, dword [esp + 0x24]
test eax, eax
je 0x405323
cmp eax, 0x13
jg 0x405347
sub eax, 1
lea edx, [eax + eax*2]
lea ecx, [eax + edx*4]
add ecx, dword [esp + 0x7c]
mov byte [edi + ecx - 1], bl
mov byte [esp + 0x33], bl
cmp dword [esp + 0x28], 2
mov ebx, 2
jl 0x404e12
mov eax, dword [esp + 0x20]
test eax, eax
je 0x404d2b
movzx edx, byte [ebp + ebx - 1]
test dl, dl
jne 0x404b65
mov byte [ebp + 1], 0x20
movzx edx, byte [ebp + ebx - 1]
lea ecx, [esp + 0x32]
mov dword [esp], 1
mov byte [esp + 0x32], dl
mov byte [esp + 0x20], dl
mov dword [esp + 4], ecx
call sym.__gfortran_string_len_trim
test eax, eax
movzx eax, byte [esp + 0x20]
je 0x4051a0
lea edx, [esp + 0x33]
mov dword [esp], 1
mov byte [esp + 0x20], al
add edi, 1
mov dword [esp + 4], edx
call sym.__gfortran_string_len_trim
test eax, eax
movzx ecx, byte [esp + 0x20]
jne 0x404bbc
add dword [esp + 0x24], 1
mov edi, 1
lea eax, [ecx - 0x61]
add esi, 1
cmp al, 0x19
jbe 0x405202
cmp esi, 0x25
jg 0x405303
cmp edi, 0xd
mov byte [ebp + esi - 1], cl
jle 0x4051d7
mov byte [esp + 0x33], cl
jmp 0x404d1e
lea edx, [esp + 0x33]
mov dword [esp], 1
mov byte [esp + 0x20], cl
add edi, 1
mov dword [esp + 4], edx
call sym.__gfortran_string_len_trim
test eax, eax
movzx edx, byte [esp + 0x20]
jne 0x404c1e
add dword [esp + 0x24], 1
mov edi, 1
lea ecx, [edx - 0x61]
add esi, 1
cmp cl, 0x19
ja 0x404c30
sub edx, 0x20
mov byte [esp + 0x32], dl
cmp esi, 0x25
jg 0x405303
cmp edi, 0xd
mov byte [ebp + esi - 1], dl
jg 0x404c6e
mov eax, dword [esp + 0x24]
test eax, eax
je 0x405323
cmp dword [esp + 0x24], 0x13
jg 0x405347
mov eax, dword [esp + 0x24]
sub eax, 1
lea ecx, [eax + eax*2]
lea eax, [eax + ecx*4]
add eax, dword [esp + 0x7c]
mov byte [edi + eax - 1], dl
mov byte [esp + 0x33], dl
lea edx, [ebx + 1]
movzx ebx, byte [ebp + ebx]
mov dword [esp + 0x20], edx
test bl, bl
je 0x404de4
lea ecx, [esp + 0x32]
mov dword [esp], 1
mov byte [esp + 0x32], bl
mov dword [esp + 4], ecx
call sym.__gfortran_string_len_trim
test eax, eax
je 0x404dc0
lea eax, [esp + 0x33]
mov dword [esp], 1
mov dword [esp + 4], eax
call sym.__gfortran_string_len_trim
test eax, eax
jne 0x404ddc
add dword [esp + 0x24], 1
mov edi, 1
lea ecx, [ebx - 0x61]
add esi, 1
cmp cl, 0x19
ja 0x404cde
sub ebx, 0x20
mov byte [esp + 0x32], bl
cmp esi, 0x25
jg 0x405303
cmp edi, 0xd
mov byte [ebp + esi - 1], bl
jg 0x404d16
mov eax, dword [esp + 0x24]
test eax, eax
je 0x405323
cmp eax, 0x13
jg 0x405347
sub eax, 1
lea edx, [eax + eax*2]
lea ecx, [eax + edx*4]
add ecx, dword [esp + 0x7c]
mov byte [edi + ecx - 1], bl
mov byte [esp + 0x33], bl
mov ebx, dword [esp + 0x20]
add ebx, 1
cmp dword [esp + 0x28], ebx
jl 0x404e12
movzx edx, byte [ebp + ebx - 1]
test dl, dl
je 0x404e00
lea eax, [esp + 0x32]
mov dword [esp], 1
mov byte [esp + 0x32], dl
mov byte [esp + 0x20], dl
mov dword [esp + 4], eax
call sym.__gfortran_string_len_trim
test eax, eax
movzx ecx, byte [esp + 0x20]
jne 0x404bf0
lea eax, [esp + 0x33]
mov dword [esp], 1
mov dword [esp + 4], eax
call sym.__gfortran_string_len_trim
test eax, eax
je 0x404c72
add edi, 1
movzx edx, byte [esp + 0x20]
jmp 0x404c1e
lea esi, [esp + 0x33]
mov dword [esp], 1
mov edi, 1
mov dword [esp + 4], esi
call sym.__gfortran_string_len_trim
test eax, eax
mov eax, 1
cmovne eax, dword [esp + 0x24]
mov dword [esp + 0x24], eax
jmp 0x404ae7
lea edx, [esp + 0x33]
mov dword [esp], 1
mov dword [esp + 4], edx
call sym.__gfortran_string_len_trim
test eax, eax
je 0x404d1a
add edi, 1
jmp 0x404ccc
mov ebx, dword [esp + 0x2c]
mov byte [ebx + edx], 0x20
movzx ebx, byte [ebp + edx - 1]
jmp 0x404c86
mov ecx, dword [esp + 0x2c]
mov byte [ecx + ebx], 0x20
movzx edx, byte [ebp + ebx - 1]
jmp 0x404d38
mov eax, dword [esp + 0x24]
mov edi, dword [esp + 0x74]
test eax, eax
mov dword [edi], eax
je 0x405083
mov edx, dword [esp + 0x7c]
lea ecx, [esp + 0x38]
lea ebx, [esp + 0x40]
mov dword [esp + 8], 0xd
mov dword [esp + 4], ecx
mov dword [esp], ebx
mov dword [esp + 0xc], edx
call sym.__gfortran_string_trim
mov eax, dword [esp + 0x40]
mov edi, dword [esp + 0x78]
test eax, eax
mov dword [edi], eax
jle 0x404e62
mov edx, dword [esp + 0x38]
mov dword [esp], edx
call sym._free
cmp dword [esp + 0x24], 2
mov ecx, dword [esp + 0x7c]
mov ebx, 2
lea eax, [ecx + 0xd]
jl 0x405098
mov dword [esp + 0x70], ebp
mov edi, dword [esp + 0x78]
mov ebp, dword [esp + 0x24]
mov dword [esp + 0x28], esi
mov esi, eax
lea edx, [esp + 0x38]
lea ecx, [esp + 0x40]
mov dword [esp + 0xc], esi
mov dword [esp + 8], 0xd
mov dword [esp + 4], edx
mov dword [esp], ecx
call sym.__gfortran_string_trim
mov eax, dword [esp + 0x40]
test eax, eax
mov dword [edi + ebx*4 - 4], eax
jle 0x404ec3
mov edx, dword [esp + 0x38]
mov dword [esp], edx
call sym._free
add ebx, 1
cmp ebp, ebx
jl 0x405090
lea ecx, [esp + 0x38]
lea eax, [esp + 0x40]
add esi, 0xd
mov dword [esp + 0xc], esi
mov dword [esp + 8], 0xd
mov dword [esp + 4], ecx
mov dword [esp], eax
call sym.__gfortran_string_trim
mov edx, dword [esp + 0x40]
test edx, edx
mov dword [edi + ebx*4 - 4], edx
jle 0x404f09
mov ecx, dword [esp + 0x38]
mov dword [esp], ecx
call sym._free
lea eax, [ebx + 1]
cmp ebp, eax
mov dword [esp + 0x20], eax
jl 0x405090
lea edx, [esi + 0xd]
lea ecx, [esp + 0x38]
lea eax, [esp + 0x40]
mov dword [esp + 8], 0xd
mov dword [esp + 0xc], edx
mov dword [esp + 4], ecx
mov dword [esp], eax
call sym.__gfortran_string_trim
mov edx, dword [esp + 0x40]
mov ecx, dword [esp + 0x20]
test edx, edx
mov dword [edi + ecx*4 - 4], edx
jle 0x404f57
mov eax, dword [esp + 0x38]
mov dword [esp], eax
call sym._free
lea edx, [ebx + 2]
cmp ebp, edx
mov dword [esp + 0x20], edx
jl 0x405090
lea ecx, [esi + 0x1a]
lea eax, [esp + 0x38]
lea edx, [esp + 0x40]
mov dword [esp + 8], 0xd
mov dword [esp + 0xc], ecx
mov dword [esp + 4], eax
mov dword [esp], edx
call sym.__gfortran_string_trim
mov ecx, dword [esp + 0x40]
mov eax, dword [esp + 0x20]
test ecx, ecx
mov dword [edi + eax*4 - 4], ecx
jle 0x404fa5
mov edx, dword [esp + 0x38]
mov dword [esp], edx
call sym._free
lea ecx, [ebx + 3]
cmp ebp, ecx
mov dword [esp + 0x20], ecx
jl 0x405090
lea eax, [esi + 0x27]
lea edx, [esp + 0x38]
lea ecx, [esp + 0x40]
mov dword [esp + 8], 0xd
mov dword [esp + 0xc], eax
mov dword [esp + 4], edx
mov dword [esp], ecx
call sym.__gfortran_string_trim
mov edx, dword [esp + 0x40]
mov eax, dword [esp + 0x20]
test edx, edx
mov dword [edi + eax*4 - 4], edx
jle 0x404ff3
mov ecx, dword [esp + 0x38]
mov dword [esp], ecx
call sym._free
lea edx, [ebx + 4]
cmp ebp, edx
mov dword [esp + 0x20], edx
jl 0x405090
lea eax, [esi + 0x34]
lea ecx, [esp + 0x38]
lea edx, [esp + 0x40]
mov dword [esp + 8], 0xd
mov dword [esp + 0xc], eax
mov dword [esp + 4], ecx
mov dword [esp], edx
call sym.__gfortran_string_trim
mov ecx, dword [esp + 0x40]
mov eax, dword [esp + 0x20]
test ecx, ecx
mov dword [edi + eax*4 - 4], ecx
jle 0x405041
mov edx, dword [esp + 0x38]
mov dword [esp], edx
call sym._free
add ebx, 5
cmp ebp, ebx
jl 0x405090
add esi, 0x41
cmp ebx, 0x14
jne 0x404e8b
mov dword [esp + 0xc], 0x13
mov dword [esp + 8], 0x14
mov dword [esp + 4], str.Index__ld_of_dimension_1_of_array_nw_above_upper_bound_of__ld
mov dword [esp], str.At_line_859_of_file_C:JTSDK64_Tools_tmpwsjtxlib77bitpackjt77.f90
call sym.__gfortran_runtime_error_at
mov ebp, dword [esp + 0x74]
mov dword [ebp], 0
add esp, 0x5c
pop ebx
pop esi
pop edi
pop ebp
ret
mov esi, dword [esp + 0x28]
mov ebp, dword [esp + 0x70]
mov eax, 0x25
sub eax, esi
test eax, eax
jg 0x405210
mov ebp, dword [esp + 0x74]
cmp dword [ebp], 2
jle 0x405083
mov esi, dword [esp + 0x7c]
lea eax, [esp + 0x38]
lea edi, [esp + 0x34]
mov dword [esp + 0x10], 6
mov dword [esp + 0xc], 0xd
mov dword [esp + 8], edi
mov dword [esp + 4], eax
add esi, 0x1a
mov dword [esp], esi
call sym._chkcall_
mov ecx, dword [esp + 0x34]
test ecx, ecx
je 0x405083
mov edx, dword [esp + 0x7c]
movzx ebx, word [str.CQ_CQ_At_line_81_of_file_C:JTSDK64_Tools_tmpwsjtxlib77bitpackjt77.f90]
cmp word [edx], bx
jne 0x405083
movzx eax, byte [0x433a98]
cmp byte [edx + 2], al
jne 0x405083
lea esi, [edx + 0xd]
lea ecx, [esp + 0x40]
mov dword [esp + 0x10], 0xa
mov dword [esp + 0xc], 0x433a99
mov dword [esp + 8], 3
mov dword [esp + 4], ecx
mov dword [esp + 0x14], esi
mov dword [esp], 0xd
call sym.__gfortran_concat_string
mov ebx, dword [esp + 0x7c]
movzx ecx, byte [esp + 0x4c]
mov edx, dword [esp + 0x40]
mov ebp, dword [esp + 0x44]
mov eax, dword [esp + 0x48]
lea edi, [ebx + 0x9c]
mov dword [ebx], edx
mov dword [ebx + 4], ebp
mov edx, esi
mov dword [ebx + 8], eax
mov byte [ebx + 0xc], cl
lea esi, [edx + 0xd]
mov dword [esp], edx
mov dword [esp + 8], 0xd
mov dword [esp + 4], esi
call sym._memmove
cmp edi, esi
mov edx, esi
jne 0x405163
mov ebx, dword [esp + 0x74]
sub dword [ebx], 1
jmp 0x405083
mov byte [ebp], 0x20
mov ebx, 0x20
jmp 0x404aaa
lea ecx, [esp + 0x33]
mov dword [esp], 1
mov byte [esp + 0x20], al
mov dword [esp + 4], ecx
call sym.__gfortran_string_len_trim
test eax, eax
je 0x404d1e
movzx ecx, byte [esp + 0x20]
add edi, 1
add esi, 1
lea eax, [ecx - 0x61]
cmp al, 0x19
jbe 0x405202
jmp 0x404bca
mov eax, dword [esp + 0x24]
test eax, eax
je 0x405323
cmp eax, 0x13
jg 0x405347
sub eax, 1
lea edx, [eax + eax*2]
lea eax, [eax + edx*4]
add eax, dword [esp + 0x7c]
mov byte [edi + eax - 1], cl
jmp 0x404be0
sub ecx, 0x20
mov byte [esp + 0x32], cl
jmp 0x404bca
add esi, ebp
cmp eax, 4
mov ebp, 0x20202020
jae 0x405240
test eax, eax
je 0x4050a7
test al, 2
mov byte [esi], 0x20
je 0x4050a7
mov ebx, 0x2020
mov word [esi + eax - 2], bx
jmp 0x4050a7
lea edi, [esi + 4]
mov dword [esi], 0x20202020
mov dword [esi + eax - 4], 0x20202020
and edi, 0xfffffffc
sub esi, edi
add eax, esi
and eax, 0xfffffffc
cmp eax, 4
jb 0x4050a7
lea edx, [eax - 1]
mov ebx, 4
mov ecx, eax
mov dword [edi], 0x20202020
shr edx, 2
and edx, 7
cmp ebx, eax
jae 0x4050a7
test edx, edx
je 0x4052d8
cmp edx, 1
je 0x4052ca
cmp edx, 2
je 0x4052c4
cmp edx, 3
je 0x4052be
cmp edx, 4
je 0x4052b8
cmp edx, 5
je 0x4052b2
cmp edx, 6
je 0x4052ac
mov dword [edi + 4], ebp
mov ebx, 8
mov dword [edi + ebx], ebp
add ebx, 4
mov dword [edi + ebx], ebp
add ebx, 4
mov dword [edi + ebx], ebp
add ebx, 4
mov dword [edi + ebx], ebp
add ebx, 4
mov dword [edi + ebx], ebp
add ebx, 4
mov dword [edi + ebx], ebp
add ebx, 4
cmp ebx, ecx
jae 0x4050a7
mov dword [edi + ebx], ebp
mov dword [edi + ebx + 4], ebp
mov dword [edi + ebx + 8], ebp
mov dword [edi + ebx + 0xc], ebp
mov dword [edi + ebx + 0x10], ebp
mov dword [edi + ebx + 0x14], ebp
mov dword [edi + ebx + 0x18], ebp
mov dword [edi + ebx + 0x1c], ebp
add ebx, 0x20
cmp ebx, ecx
jb 0x4052d8
jmp 0x4050a7
mov dword [esp + 0xc], 0x25
mov dword [esp + 8], esi
mov dword [esp + 4], str.Substring_out_of_bounds:_upper_bound___ld__of_msg_exceeds_string_length___ld_
mov dword [esp], str.At_line_851_of_file_C:JTSDK64_Tools_tmpwsjtxlib77bitpackjt77.f90
call sym.__gfortran_runtime_error_at
mov dword [esp + 0xc], 1
mov dword [esp + 8], 0
mov dword [esp + 4], str.Index__ld_of_dimension_1_of_array_w_below_lower_bound_of__ld
mov dword [esp], str.At_line_852_of_file_C:JTSDK64_Tools_tmpwsjtxlib77bitpackjt77.f90
call sym.__gfortran_runtime_error_at
mov ebp, dword [esp + 0x24]
mov dword [esp + 0xc], 0x13
mov dword [esp + 4], str.Index__ld_of_dimension_1_of_array_w_above_upper_bound_of__ld
mov dword [esp], str.At_line_852_of_file_C:JTSDK64_Tools_tmpwsjtxlib77bitpackjt77.f90
mov dword [esp + 8], ebp
call sym.__gfortran_runtime_error_at
mov eax, dword [esp + 0x80]
mov dword [esp + 0x10], 0x25
mov dword [esp + 8], 0x43380f
mov dword [esp + 4], 0x433640
mov dword [esp], str.At_line_823_of_file_C:JTSDK64_Tools_tmpwsjtxlib77bitpackjt77.f90
mov dword [esp + 0xc], eax
call sym.__gfortran_runtime_error_at
mov dword [esp + 0xc], 0x25
mov dword [esp + 8], eax
mov dword [esp + 4], str.Substring_out_of_bounds:_upper_bound___ld__of_msg_exceeds_string_length___ld_
mov dword [esp], str.At_line_834_of_file_C:JTSDK64_Tools_tmpwsjtxlib77bitpackjt77.f90
call sym.__gfortran_runtime_error_at
lea esi, [esi]