Function at 0x401110
Capabilities:
Terminate process

Disassembly:
sub esp, 0xd4
push ebx
push ebp
push esi
push edi
call fcn.00401460
mov eax, dword [0x5debe0]
push 0
push 0x4207f0
push str.Mk4tcl
push 0
call dword [eax + 0x3d8]
mov ecx, dword [0x5debe0]
push 0
push 0x401590
push str.tclkitpath
push 0
call dword [ecx + 0x3d8]
mov edx, dword [0x5debe0]
push 0
push 0x41b6d0
push 0x5a839c
push 0
call dword [edx + 0x3d8]
mov eax, dword [0x5debe0]
push 0
push 0x41b4b0
push str.rechan
push 0
call dword [eax + 0x3d8]
mov ecx, dword [0x5debe0]
add esp, 0x40
push 0
push 0x418da0
push 0x5a8390
push 0
call dword [ecx + 0x3d8]
mov edx, dword [0x5debe0]
push 0
push 0x4187e0
push str.zlib
push 0
call dword [edx + 0x3d8]
mov eax, dword [0x5debe0]
push 0
push fcn.00415ab0
push str.Thread
push 0
call dword [eax + 0x3d8]
mov ecx, dword [0x5debe0]
push 0
push 0x413a90
push 0x5a837c
push 0
call dword [ecx + 0x3d8]
mov edx, dword [0x5debe0]
add esp, 0x40
push 0
push 0x411ec0
push str.registry
push 0
call dword [edx + 0x3d8]
mov eax, dword [0x5debe0]
push 0x4d69c0
push fcn.004d69b0
push 0x5a8054
push 0
call dword [eax + 0x3d8]
mov edi, dword [esp + 0x108]
mov ecx, dword [0x5debe0]
push 1
push str._tclkitrc.tcl
push str.tcl_rcFileName
push edi
call dword [ecx + 0x3bc]
mov eax, dword [0x5debe0]
lea edx, [esp + 0x40]
push edx
call dword [eax + 0x8f8]
mov ecx, dword [0x5debe0]
push 0
call dword [ecx + 0x4c0]
mov ebp, dword [esp + 0x48]
add esp, 0x38
mov esi, eax
mov ecx, ebp
mov dl, byte [ecx]
mov bl, byte [esi]
mov al, dl
cmp dl, bl
jne 0x401299
test al, al
je 0x401295
mov dl, byte [ecx + 1]
mov bl, byte [esi + 1]
mov al, dl
cmp dl, bl
jne 0x401299
add ecx, 2
add esi, 2
test al, al
jne 0x401271
xor eax, eax
jmp 0x40129e
sbb eax, eax
sbb eax, 0xffffffff
test eax, eax
je 0x4012b7
mov eax, dword [0x5debe0]
push ebp
push 0
call dword [eax + 0x4f8]
mov ebp, dword [esp + 0x18]
add esp, 8
mov ecx, dword [0x5debe0]
push 0
push ebp
push str.tclkit_system_encoding
push edi
call dword [ecx + 0x3bc]
mov eax, dword [0x5debe0]
lea edx, [esp + 0x20]
push edx
call dword [eax + 0x1e8]
mov ecx, dword [0x5debe8]
push str.proc_tclKitPreInit___nrename_tclKitPreInit__nload__Mk4tcl_nload__tclkitpath_nmk::file_open_exe__::tcl::kitpath__readonly_nset_n__mk::select_exe.dirs_0.files_name_boot.tcl__nif__n_______nset_s__mk::get_exe.dirs_0.files__n_contents__nif___string_length__s___return__code_error__empty_boot.tcl___ncatch_load__zlib_nif__mk::get_exe.dirs_0.files__n_size_____string_length__s___nset_s__zlib_decompress__s__n_n_else__nreturn__code_error__unable_to_find_attached_database_in_basekit__::tcl::kitpath__n_nuplevel_0__s_npackage_ifneeded_dde______1.3.2_load__dde_npackage_ifneeded_registry_1.2.1_load__registry_n_ntclKitPreInit
call dword [ecx + 0x19c]
mov edx, dword [0x5debe0]
push edi
call dword [edx + 0x2d8]
add esp, 0x1c
cmp eax, 1
je 0x40131e
push edi
call fcn.004d69b0
add esp, 4
cmp eax, 1
je 0x40131e
push edi
call fcn.004d4390
add esp, 4
cmp eax, 1
jne 0x401350
push 0x30
call dword [sym.imp.USER32.dll_MessageBeep]
mov eax, dword [0x5debe0]
push 0x12010
push str.Error_in_TclKit
push edi
call dword [eax + 0x2c0]
add esp, 4
push eax
push 0
call dword [sym.imp.USER32.dll_MessageBoxA]
push 1
call dword [sym.imp.KERNEL32.dll_ExitProcess]
mov ecx, dword [0x5debe0]
push 0x20000
push 0xffffffffffffffff
push str.if__file_isfile__file_join__::tcl::kitpath_main.tcl____nif__info_commands_console______console_hide__nset_tcl_interactive_0_nincr_argc_nset_argv__linsert__argv_0__argv0__nset_argv0__file_join__::tcl::kitpath_main.tcl__n_else_continue_n
push edi
call dword [ecx + 0x494]
add esp, 0x10
test eax, eax
jne 0x4013b5
mov edx, dword [0x5debe8]
call dword [edx + 0x2a8]
mov ecx, dword [0x5debe0]
mov esi, eax
mov eax, dword [0x5debe8]
push edi
lea ebx, [eax + 0x2a4]
call dword [ecx + 0x2a0]
push eax
call dword [ebx]
add esp, 8
test esi, esi
jne 0x4013b5
mov edx, dword [0x5debe0]
push str.incr_argc__1__set_argv__lrange__argv_1_end_
push edi
call dword [edx + 0x20c]
add esp, 8
mov eax, dword [0x5debe0]
push 1
push 0x5debc4
push str.errorInfo
push edi
call dword [eax + 0x3bc]
mov ecx, dword [0x5debe0]
push edi
call dword [ecx + 0x36c]
add esp, 0x14
pop edi
pop esi
pop ebp
xor eax, eax
pop ebx
add esp, 0xd4
ret