118 lines
3.2 KiB
NASM
118 lines
3.2 KiB
NASM
|
PAGE,132
|
||
|
|
;***************************************************************************
|
||
|
|
;*
|
||
|
|
;* DLLENTRY.ASM
|
||
|
|
;*
|
||
|
|
;* TOOLHELP.DLL Entry code
|
||
|
|
;*
|
||
|
|
;* This module generates a code segment called INIT_TEXT.
|
||
|
|
;* It initializes the local heap if one exists and then calls
|
||
|
|
;* the C routine LibMain() which should have the form:
|
||
|
|
;* BOOL FAR PASCAL LibMain(HANDLE hInstance,
|
||
|
|
;* WORD wDataSeg,
|
||
|
|
;* WORD cbHeap,
|
||
|
|
;* LPSTR lpszCmdLine);
|
||
|
|
;*
|
||
|
|
;* The result of the call to LibMain is returned to Windows.
|
||
|
|
;* The C routine should return TRUE if it completes initialization
|
||
|
|
;* successfully, FALSE if some error occurs.
|
||
|
|
;*
|
||
|
|
;**************************************************************************
|
||
|
|
|
||
|
|
INCLUDE TOOLPRIV.INC
|
||
|
|
|
||
|
|
extrn LocalInit:FAR
|
||
|
|
extrn GlobalUnwire:FAR
|
||
|
|
|
||
|
|
sBegin CODE
|
||
|
|
assumes CS,CODE
|
||
|
|
|
||
|
|
externNP ToolHelpLibMain
|
||
|
|
externNP HelperReleaseSelector
|
||
|
|
externNP NotifyUnInit
|
||
|
|
externNP InterruptUnInit
|
||
|
|
|
||
|
|
?PLM=0
|
||
|
|
externA <_acrtused> ;Ensures that Win DLL startup code is linked
|
||
|
|
?PLM=1
|
||
|
|
|
||
|
|
|
||
|
|
; LibEntry
|
||
|
|
;
|
||
|
|
; KERNEL calls this when the TOOLHELP is loaded the first time
|
||
|
|
|
||
|
|
cProc LibEntry, <PUBLIC,FAR>
|
||
|
|
cBegin
|
||
|
|
push di ;Handle of the module instance
|
||
|
|
push ds ;Library data segment
|
||
|
|
push cx ;Heap size
|
||
|
|
push es ;Command line segment
|
||
|
|
push si ;Command line offset
|
||
|
|
|
||
|
|
;** If we have some heap then initialize it
|
||
|
|
jcxz callc ;Jump if no heap specified
|
||
|
|
|
||
|
|
;** Call the Windows function LocalInit() to set up the heap
|
||
|
|
;** LocalInit((LPSTR)start, WORD cbHeap);
|
||
|
|
xor ax,ax
|
||
|
|
cCall LocalInit <ds, ax, cx>
|
||
|
|
or ax,ax ;Did it do it ok ?
|
||
|
|
jz error ;Quit if it failed
|
||
|
|
|
||
|
|
;** Invoke our initialization routine
|
||
|
|
callc:
|
||
|
|
call ToolHelpLibMain ;Invoke the 'C' routine (result in AX)
|
||
|
|
jmp SHORT exit
|
||
|
|
|
||
|
|
error:
|
||
|
|
pop si ;Clean up stack on a LocalInit error
|
||
|
|
pop es
|
||
|
|
pop cx
|
||
|
|
pop ds
|
||
|
|
pop di
|
||
|
|
exit:
|
||
|
|
|
||
|
|
cEnd
|
||
|
|
|
||
|
|
; WEP
|
||
|
|
; Windows Exit Procedure
|
||
|
|
|
||
|
|
cProc WEP, <FAR,PUBLIC>, <si,di,ds>
|
||
|
|
parmW wState
|
||
|
|
cBegin
|
||
|
|
;** Make sure our DS is safe
|
||
|
|
mov ax,_DATA ;Get the DS value
|
||
|
|
lar cx,ax ;Is it OK?
|
||
|
|
jz @F
|
||
|
|
jmp SHORT WEP_Bad ;No
|
||
|
|
@@: and cx,8a00h ;Clear all but P, Code/Data, R/W bits
|
||
|
|
cmp cx,8200h ;Is it P, R/W, Code/Data?
|
||
|
|
jne WEP_Bad ;No
|
||
|
|
mov ax,_DATA ;Get our DS now
|
||
|
|
mov ds,ax
|
||
|
|
|
||
|
|
;** Uninstall the Register PTrace notifications if necessary
|
||
|
|
cmp wNotifyInstalled,0
|
||
|
|
jz @F
|
||
|
|
cCall NotifyUnInit
|
||
|
|
@@:
|
||
|
|
;** Release fault handlers
|
||
|
|
cmp wIntInstalled,0
|
||
|
|
jz @F
|
||
|
|
cCall InterruptUnInit
|
||
|
|
@@:
|
||
|
|
;** Release our roving selector
|
||
|
|
test wTHFlags, TH_WIN30STDMODE
|
||
|
|
jz @F
|
||
|
|
cCall HelperReleaseSelector, <wSel>
|
||
|
|
@@:
|
||
|
|
|
||
|
|
WEP_Bad:
|
||
|
|
mov ax,1
|
||
|
|
cEnd
|
||
|
|
|
||
|
|
sEnd
|
||
|
|
|
||
|
|
END LibEntry
|
||
|
|
|