Function at 0x100a75a0
Capabilities:
Get system information on windows

Disassembly:
sub esp, 0x3d8
mov eax, dword [section..data]
xor eax, esp
mov dword [esp + 0x3d4], eax
push ebx
push ebp
mov ebp, dword [esp + 0x3e4]
push esi
push edi
mov edi, 0x100d010c
mov dword [esp + 0x10], pe_nt_image_headers32
call fcn.10098a20
push 0xffffffffffffffff
push str.tclDefaultLibrary
mov edi, eax
call sym.tcl85.dll_Tcl_NewStringObj
push 1
push edi
mov esi, eax
inc dword [esi]
xor ebx, ebx
push ebx
push esi
push ebp
call sym.tcl85.dll_Tcl_ObjSetVar2
dec dword [esi]
add esp, 0x1c
cmp dword [esi], ebx
jg 0x100a7602
push esi
call sym.tcl85.dll_TclFreeObj
add esp, 4
lea eax, [esp + 0x110]
push eax
mov dword [esp + 0x114], 0x94
call dword [sym.imp.KERNEL32.dll_GetVersionExA]
lea ecx, [esp + 0x14]
push ecx
call dword [sym.imp.KERNEL32.dll_GetSystemInfo]
push 1
push 0xffffffffffffffff
push str.windows
call sym.tcl85.dll_Tcl_NewStringObj
add esp, 8
push eax
push str.platform
push str.tcl_platform
push ebp
call sym.tcl85.dll_Tcl_SetVar2Ex
add esp, 0x14
cmp eax, ebx
je 0x100a765d
cmp dword [eax + 4], ebx
jne 0x100a765d
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
mov eax, dword [esp + 0x120]
cmp eax, 4
jae 0x100a76a3
mov eax, dword [eax*4 + 0x100d00fc]
push 1
push 0xffffffffffffffff
push eax
call sym.tcl85.dll_Tcl_NewStringObj
add esp, 8
push eax
push 0x100c1c84
push str.tcl_platform
push ebp
call sym.tcl85.dll_Tcl_SetVar2Ex
add esp, 0x14
cmp eax, ebx
je 0x100a76a3
cmp dword [eax + 4], ebx
jne 0x100a76a3
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
mov edx, dword [esp + 0x118]
mov eax, dword [esp + 0x114]
push edx
push eax
lea ecx, [esp + 0x1b0]
push str._d._d
push ecx
call dword [sym.imp.USER32.dll_wsprintfA]
add esp, 0x10
push 1
lea edx, [esp + 0x1ac]
push 0xffffffffffffffff
push edx
call sym.tcl85.dll_Tcl_NewStringObj
add esp, 8
push eax
push str.osVersion
push str.tcl_platform
push ebp
call sym.tcl85.dll_Tcl_SetVar2Ex
add esp, 0x14
cmp eax, ebx
je 0x100a7703
cmp dword [eax + 4], ebx
jne 0x100a7703
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
mov ax, word [esp + 0x14]
cmp ax, 0xb
jae 0x100a774b
movzx eax, ax
mov eax, dword [eax*4 + 0x100d008c]
push 1
push 0xffffffffffffffff
push eax
call sym.tcl85.dll_Tcl_NewStringObj
add esp, 8
push eax
push str.machine
push str.tcl_platform
push ebp
call sym.tcl85.dll_Tcl_SetVar2Ex
add esp, 0x14
cmp eax, ebx
je 0x100a774b
cmp dword [eax + 4], ebx
jne 0x100a774b
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
push 1
push str.HOME
lea ecx, [esp + 0x4c]
push 0x100bfe38
mov esi, 0xc8
push ebp
mov dword [esp + 0x48], ecx
mov dword [esp + 0x4c], ebx
mov dword [esp + 0x50], esi
mov byte [esp + 0x54], bl
call sym.tcl85.dll_Tcl_GetVar2Ex
add esp, 0x10
cmp eax, ebx
je 0x100a7799
mov ecx, dword [eax + 4]
cmp ecx, ebx
je 0x100a7788
mov eax, ecx
jmp 0x100a7791
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
cmp eax, ebx
jne 0x100a785f
push 1
push str.HOMEDRIVE
push 0x100bfe38
push ebp
call sym.tcl85.dll_Tcl_GetVar2Ex
add esp, 0x10
cmp eax, ebx
je 0x100a77da
mov ecx, dword [eax + 4]
cmp ecx, ebx
je 0x100a77bd
mov eax, ecx
jmp 0x100a77c6
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
cmp eax, ebx
je 0x100a77da
push 0xffffffffffffffff
push eax
lea edx, [esp + 0x40]
push edx
call sym.tcl85.dll_Tcl_DStringAppend
add esp, 0xc
push 1
push str.HOMEPATH
push 0x100bfe38
push ebp
call sym.tcl85.dll_Tcl_GetVar2Ex
add esp, 0x10
cmp eax, ebx
je 0x100a781b
mov ecx, dword [eax + 4]
cmp ecx, ebx
je 0x100a77fe
mov eax, ecx
jmp 0x100a7807
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
cmp eax, ebx
je 0x100a781b
push 0xffffffffffffffff
push eax
lea eax, [esp + 0x40]
push eax
call sym.tcl85.dll_Tcl_DStringAppend
add esp, 0xc
cmp dword [esp + 0x3c], ebx
push 1
push 0xffffffffffffffff
jle 0x100a782c
mov ecx, dword [esp + 0x40]
push ecx
jmp 0x100a7831
push 0x100c7df0
call sym.tcl85.dll_Tcl_NewStringObj
add esp, 8
push eax
push str.HOME
push 0x100bfe38
push ebp
call sym.tcl85.dll_Tcl_SetVar2Ex
add esp, 0x14
cmp eax, ebx
je 0x100a785f
cmp dword [eax + 4], ebx
jne 0x100a785f
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
lea eax, [esp + 0x38]
push eax
lea edx, [esp + 0x48]
push str.USERNAME
mov dword [esp + 0x40], edx
mov dword [esp + 0x44], ebx
mov dword [esp + 0x48], esi
mov byte [esp + 0x4c], bl
call sym.tcl85.dll_TclGetEnv
add esp, 8
test eax, eax
jne 0x100a78d4
mov eax, dword [0x100d3a70]
lea ecx, [esp + 0x10]
push ecx
mov ecx, dword [eax + 0x9c]
lea edx, [esp + 0x1dc]
push edx
call ecx
test eax, eax
je 0x100a78d4
mov eax, dword [esp + 0x10]
mov edx, dword [0x100d3a70]
dec eax
cmp dword [edx], ebx
je 0x100a78b8
add eax, eax
lea ecx, [esp + 0x38]
push ecx
push eax
mov eax, dword [0x100d3444]
lea edx, [esp + 0x1e0]
push edx
push eax
call sym.tcl85.dll_Tcl_ExternalToUtfDString
add esp, 0x10
mov ecx, dword [esp + 0x38]
push 1
push 0xffffffffffffffff
push ecx
call sym.tcl85.dll_Tcl_NewStringObj
add esp, 8
push eax
push str.user
push str.tcl_platform
push ebp
call sym.tcl85.dll_Tcl_SetVar2Ex
add esp, 0x14
cmp eax, ebx
je 0x100a790b
cmp dword [eax + 4], ebx
jne 0x100a790b
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
mov eax, dword [esp + 0x38]
lea edx, [esp + 0x44]
cmp eax, edx
je 0x100a7921
push eax
call dword [sym.imp.MSVCR90.dll_free]
add esp, 4
mov ecx, dword [esp + 0x3e4]
pop edi
pop esi
pop ebp
pop ebx
xor ecx, esp
call fcn.100b1b48
add esp, 0x3d8
ret