Function at 0x4027a8
Capabilities:
Allocate or change rwx memory
Execute shellcode via indirect call

Disassembly:
sub esp, 0x10
mov eax, dword [esp + 0x14]
mov edx, dword [0x40308c]
push ebx
push ebp
push esi
push edi
xor esi, esi
sar eax, 5
mov dword [esp + 0x14], edx
mov edi, 0x20
mov dword [esp + 0x10], esi
mov dword [esp + 0x18], edi
test eax, eax
je 0x402819
jmp 0x4027d8
inc esi
add edi, edi
shr eax, 1
mov ecx, esi
jne 0x4027d8
mov dword [esp + 0x10], esi
mov dword [esp + 0x18], edi
cmp ecx, 0x1b
jl 0x402819
push str.TWINBASIC_COMPILER_ERROR:_codegen_memory_block_request_too_large.
call dword [sym.imp.OLEAUT32.dll_SysReAllocString]
mov esi, eax
push 0
push esi
call fcn.004027a3
push esi
call dword [sym.imp.OLEAUT32.dll_SysStringLen]
mov esi, dword [sym.imp.KERNEL32.dll_Sleep]
push 0x3e8
call esi
jmp 0x402810
mov ebp, dword [sym.imp.KERNEL32.dll_Sleep]
lea ebx, [edx + 0x18]
lea ebx, [ebx + esi*4]
lea ecx, [ecx]
mov ecx, dword [ebx]
test ecx, ecx
je 0x402850
cmp ecx, 0xffffffff
jne 0x402839
push 0
call ebp
jmp 0x40284a
or edx, 0xffffffff
mov eax, ecx
lock cmpxchg dword [ebx], edx
cmp eax, ecx
je 0x4029a1
mov ecx, dword [ebx]
test ecx, ecx
jne 0x40282e
call fcn.00402a39
mov edx, eax
mov dword [esp + 0x1c], edx
mov ecx, dword [edx + 0x1a6]
cmp edi, ecx
jbe 0x4029cd
test ecx, ecx
je 0x402925
shr ecx, 5
xor edi, edi
test ecx, ecx
je 0x40287f
inc edi
shr ecx, 1
jne 0x40287a
mov eax, dword [edx + 0x1a2]
mov edx, 0x1f
shr eax, 5
push 8
push 8
lea ecx, [eax + eax*4]
mov eax, edi
mov esi, ecx
and eax, 0x1f
and ecx, 7
shr esi, 3
add esi, dword [esp + 0x1c]
shl dx, cl
not dx
shl ax, cl
and dx, word [esi + 0x84]
or dx, ax
mov word [esi + 0x84], dx
push dword [0x403090]
call dword [sym.imp.KERNEL32.dll_HeapAlloc]
mov esi, eax
test esi, esi
je 0x4028da
xor eax, eax
mov dword [esi], eax
mov dword [esi + 4], eax
jmp 0x4028dc
xor esi, esi
mov eax, dword [esp + 0x1c]
mov eax, dword [eax + 0x1a2]
mov dword [esi + 4], eax
mov eax, dword [esp + 0x14]
add eax, 0x18
lea edi, [eax + edi*4]
jmp 0x4028f8
mov edx, dword [edi]
cmp edx, 0xffffffff
jne 0x402905
push 0
call ebp
jmp 0x4028f8
mov dword [esi], edx
mov ecx, esi
mov eax, edx
lock cmpxchg dword [edi], ecx
cmp eax, edx
jne 0x4028f8
mov eax, dword [esp + 0x1c]
mov edi, dword [esp + 0x18]
mov dword [eax + 0x1a6], 0
mov eax, edi
mov esi, edi
and eax, 0x1ffffff
je 0x402938
sub esi, eax
add esi, 0x2000000
push 0x40
push 0x3000
push esi
push 0
call dword [sym.imp.KERNEL32.dll_VirtualAlloc]
test eax, eax
jne 0x4029b9
mov esi, dword [esp + 0x10]
add edi, edi
inc esi
mov dword [esp + 0x18], edi
add ebx, 4
mov dword [esp + 0x10], esi
cmp esi, 0x1b
jl 0x402828
mov eax, dword [esp + 0x14]
cmp byte [eax + 0x14], 0
jne 0x402998
push str.TWINBASIC_COMPILER_ERROR:_codegen_memory_block_is_fragmented.__Please_restart_the_compiler.
mov byte [eax + 0x14], 1
call dword [sym.imp.OLEAUT32.dll_SysReAllocString]
mov esi, eax
push 0
push esi
call fcn.004027a3
push esi
call dword [sym.imp.OLEAUT32.dll_SysStringLen]
lea esp, [esp]
push 0x3e8
call ebp
jmp 0x402998
mov eax, dword [ecx]
push ecx
mov dword [ebx], eax
mov esi, dword [ecx + 4]
push 0
push dword [0x403090]
call dword [sym.imp.KERNEL32.dll_HeapFree]
jmp 0x402a1e
mov edx, dword [esp + 0x1c]
mov dword [edx + 0x1a6], esi
mov esi, dword [esp + 0x10]
mov dword [edx + 0x1a2], eax
mov eax, dword [edx + 0x1a2]
mov ebp, 0x1f
mov ebx, dword [esp + 0x14]
and esi, 0x1f
shr eax, 5
lea ecx, [eax + eax*4]
mov eax, ecx
and ecx, 7
shr eax, 3
shl bp, cl
not bp
shl si, cl
and bp, word [eax + ebx + 0x84]
or bp, si
mov word [eax + ebx + 0x84], bp
mov esi, dword [edx + 0x1a2]
sub dword [edx + 0x1a6], edi
lea eax, [esi + edi]
mov dword [edx + 0x1a2], eax
mov ecx, dword [esp + 0x24]
test ecx, ecx
je 0x402a2d
mov edx, esi
call fcn.00402799
pop edi
mov eax, esi
pop esi
pop ebp
pop ebx
add esp, 0x10
ret 4