Private Function beagle.usub_401fc1.txt

Calls out:


DLL:kernel32.GlobalFree
DLL:kernel32.lstrcpyA
usub_401f81
usub_40146e
DLL:kernel32.GlobalAlloc
usub_401426

Incoming calls for beagle.usub_401fc1.txt


Decompiled source code follows:

([OFFSET-CONTAINER] 1 NIL -8 NUMBER) = GlobalAlloc(0,#STACKVAR-UNINITIALISED-4096)
FLocal2 = GlobalAlloc(0,65536)
(OFFSET-CONTAINER 1 FLocal2) = 0
([OFFSET-CONTAINER] 1 NIL -12 NUMBER) = FLocal2
([OFFSET-CONTAINER] 1 NIL -4 NUMBER) = GlobalAlloc(0,usub_401426)
usub_40146e
If ((OFFSET-CONTAINER 1 NIL -4 NUMBER 2 NUMBER) = 15)
Else
      FLocal6 = usub_401f81
      If (FLocal6 != 16781056)
      Else
            If ((OFFSET-CONTAINER 1 NIL -4 NUMBER 6 NUMBER) = 0)
                  LLocal1 = FLocal6
                  LLocal2 = (OFFSET-CONTAINER 1 NIL -4 NUMBER 6 NUMBER)
                        (TOKEN_WHILE 402047)
                        FLocal13 = usub_401f81
                        LLocal1 = FLocal13
                        If (FLocal13 != 16781056)
                        Else
                              LLocal1 = usub_401f81
                              ([OFFSET-CONTAINER] 1 NIL -14 NUMBER) = (OFFSET-CONTAINER 1 NIL -4 NUMBER)
                              lstrcpyA((OFFSET-CONTAINER 1 NIL -12 NUMBER),(OFFSET-CONTAINER 1 NIL -8 NUMBER))
                        End If
                        LLocal2 = (LLocal2 - 1)
                  Loop While (LLocal2 != 0)
            End If
      End If
End If
GlobalFree((OFFSET-CONTAINER 1 NIL -4 NUMBER))
GlobalFree((OFFSET-CONTAINER 1 NIL -8 NUMBER))
Return ([OFFSET-CONTAINER] 1 NIL -12 NUMBER)
End Sub