Function at 0x100a8b10
Capabilities:
Get system information on windows

Disassembly:
sub esp, 0x340
mov eax, dword [section..data]
xor eax, esp
mov dword [esp + 0x33c], eax
push ebx
push ebp
mov ebp, dword [esp + 0x34c]
push esi
push edi
mov edi, 0x100d110c
mov dword [esp + 0x10], 0x100
call fcn.10099b10
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 0x100a8b72
push esi
call sym.tcl85.dll_TclFreeObj
add esp, 4
cmp dword [0x100d466c], ebx
jne 0x100a8bcc
push str.NTDLL
call dword [sym.imp.KERNEL32.dll_LoadLibraryW]
mov esi, eax
push str.RtlGetVersion
push esi
call dword [sym.imp.KERNEL32.dll_GetProcAddress]
mov dword [0x100d43d0], 0x114
cmp eax, ebx
je 0x100a8bac
push 0x100d43d0
call eax
test eax, eax
je 0x100a8bb7
push 0x100d43d0
call dword [sym.imp.KERNEL32.dll_GetVersionExW]
cmp esi, ebx
je 0x100a8bc2
push esi
call dword [sym.imp.KERNEL32.dll_FreeLibrary]
mov dword [0x100d466c], 1
lea eax, [esp + 0x14]
push eax
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 0x100a8c0e
cmp dword [eax + 4], ebx
jne 0x100a8c0e
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
mov eax, dword [0x100d43e0]
cmp eax, 4
jae 0x100a8c52
mov eax, dword [eax*4 + 0x100d10fc]
push 1
push 0xffffffffffffffff
push eax
call sym.tcl85.dll_Tcl_NewStringObj
add esp, 8
push eax
push 0x100c2fac
push str.tcl_platform
push ebp
call sym.tcl85.dll_Tcl_SetVar2Ex
add esp, 0x14
cmp eax, ebx
je 0x100a8c52
cmp dword [eax + 4], ebx
jne 0x100a8c52
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
mov ecx, dword [0x100d43d8]
mov edx, dword [0x100d43d4]
push ecx
push edx
lea eax, [esp + 0x118]
push str._d._d
push eax
call dword [sym.imp.USER32.dll_wsprintfA]
add esp, 0x10
push 1
lea ecx, [esp + 0x114]
push 0xffffffffffffffff
push ecx
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 0x100a8cb0
cmp dword [eax + 4], ebx
jne 0x100a8cb0
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
mov ax, word [esp + 0x14]
cmp ax, 0xb
jae 0x100a8cf8
movzx edx, ax
mov eax, dword [edx*4 + 0x100d108c]
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 0x100a8cf8
cmp dword [eax + 4], ebx
jne 0x100a8cf8
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
push 1
push str.HOME
lea eax, [esp + 0x4c]
push 0x100c1180
mov esi, 0xc8
push ebp
mov dword [esp + 0x48], eax
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 0x100a8d46
mov ecx, dword [eax + 4]
cmp ecx, ebx
je 0x100a8d35
mov eax, ecx
jmp 0x100a8d3e
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
cmp eax, ebx
jne 0x100a8e0c
push 1
push str.HOMEDRIVE
push 0x100c1180
push ebp
call sym.tcl85.dll_Tcl_GetVar2Ex
add esp, 0x10
cmp eax, ebx
je 0x100a8d87
mov ecx, dword [eax + 4]
cmp ecx, ebx
je 0x100a8d6a
mov eax, ecx
jmp 0x100a8d73
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
cmp eax, ebx
je 0x100a8d87
push 0xffffffffffffffff
push eax
lea ecx, [esp + 0x40]
push ecx
call sym.tcl85.dll_Tcl_DStringAppend
add esp, 0xc
push 1
push str.HOMEPATH
push 0x100c1180
push ebp
call sym.tcl85.dll_Tcl_GetVar2Ex
add esp, 0x10
cmp eax, ebx
je 0x100a8dc8
mov ecx, dword [eax + 4]
cmp ecx, ebx
je 0x100a8dab
mov eax, ecx
jmp 0x100a8db4
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
cmp eax, ebx
je 0x100a8dc8
push 0xffffffffffffffff
push eax
lea edx, [esp + 0x40]
push edx
call sym.tcl85.dll_Tcl_DStringAppend
add esp, 0xc
cmp dword [esp + 0x3c], ebx
push 1
push 0xffffffffffffffff
jle 0x100a8dd9
mov eax, dword [esp + 0x40]
push eax
jmp 0x100a8dde
push 0x100c916c
call sym.tcl85.dll_Tcl_NewStringObj
add esp, 8
push eax
push str.HOME
push 0x100c1180
push ebp
call sym.tcl85.dll_Tcl_SetVar2Ex
add esp, 0x14
cmp eax, ebx
je 0x100a8e0c
cmp dword [eax + 4], ebx
jne 0x100a8e0c
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
lea edx, [esp + 0x38]
push edx
lea ecx, [esp + 0x48]
push str.USERNAME
mov dword [esp + 0x40], ecx
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 0x100a8e83
mov edx, dword [0x100d4af8]
lea eax, [esp + 0x10]
push eax
mov eax, dword [edx + 0x9c]
lea ecx, [esp + 0x144]
push ecx
call eax
test eax, eax
je 0x100a8e83
mov eax, dword [esp + 0x10]
mov ecx, dword [0x100d4af8]
dec eax
cmp dword [ecx], ebx
je 0x100a8e66
add eax, eax
mov ecx, dword [0x100d43b4]
lea edx, [esp + 0x38]
push edx
push eax
lea eax, [esp + 0x148]
push eax
push ecx
call sym.tcl85.dll_Tcl_ExternalToUtfDString
add esp, 0x10
mov edx, dword [esp + 0x38]
push 1
push 0xffffffffffffffff
push edx
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 0x100a8eba
cmp dword [eax + 4], ebx
jne 0x100a8eba
push eax
call sym.tcl85.dll_Tcl_GetString
add esp, 4
mov eax, dword [esp + 0x38]
lea ecx, [esp + 0x44]
cmp eax, ecx
je 0x100a8ed0
push eax
call dword [sym.imp.MSVCR90.dll_free]
add esp, 4
mov ecx, dword [esp + 0x34c]
pop edi
pop esi
pop ebp
pop ebx
xor ecx, esp
call fcn.100b30c8
add esp, 0x340
ret