; Copyright (c) 1998 Microsoft Corporation
page ,132
;Thunk Compiler Version 1.8 Dec 14 1994 14:53:05
;File Compiled Fri Jun 21 14:07:10 1996
;Command Line: ..\..\..\..\dev\tools\binr\thunk.exe -NC _TEXT ..\wizthk.thk
TITLE $..\wizthk.asm
.386
OPTION READONLY
OPTION OLDSTRUCTS
IFNDEF IS_16
IFNDEF IS_32
%out command line error: specify one of -DIS_16, -DIS_32
.err
ENDIF ;IS_32
ENDIF ;IS_16
IFDEF IS_32
IFDEF IS_16
%out command line error: you can't specify both -DIS_16 and -DIS_32
.err
ENDIF ;IS_16
;************************* START OF 32-BIT CODE *************************
.model FLAT,STDCALL
;-- Import common flat thunk routines (in k32)
externDef AllocMappedBuffer :near32
externDef FreeMappedBuffer :near32
externDef MapHInstLS :near32
externDef MapHInstLS_PN :near32
externDef MapHInstSL :near32
externDef MapHInstSL_PN :near32
externDef FT_Prolog :near32
externDef FT_Thunk :near32
externDef QT_Thunk :near32
externDef FT_Exit0 :near32
externDef FT_Exit4 :near32
externDef FT_Exit8 :near32
externDef FT_Exit12 :near32
externDef FT_Exit16 :near32
externDef FT_Exit20 :near32
externDef FT_Exit24 :near32
externDef FT_Exit28 :near32
externDef FT_Exit32 :near32
externDef FT_Exit36 :near32
externDef FT_Exit40 :near32
externDef FT_Exit44 :near32
externDef FT_Exit48 :near32
externDef FT_Exit52 :near32
externDef FT_Exit56 :near32
externDef SMapLS :near32
externDef SUnMapLS :near32
externDef SMapLS_IP_EBP_8 :near32
externDef SUnMapLS_IP_EBP_8 :near32
externDef SMapLS_IP_EBP_12 :near32
externDef SUnMapLS_IP_EBP_12 :near32
externDef SMapLS_IP_EBP_16 :near32
externDef SUnMapLS_IP_EBP_16 :near32
externDef SMapLS_IP_EBP_20 :near32
externDef SUnMapLS_IP_EBP_20 :near32
externDef SMapLS_IP_EBP_24 :near32
externDef SUnMapLS_IP_EBP_24 :near32
externDef SMapLS_IP_EBP_28 :near32
externDef SUnMapLS_IP_EBP_28 :near32
externDef SMapLS_IP_EBP_32 :near32
externDef SUnMapLS_IP_EBP_32 :near32
externDef SMapLS_IP_EBP_36 :near32
externDef SUnMapLS_IP_EBP_36 :near32
externDef SMapLS_IP_EBP_40 :near32
externDef SUnMapLS_IP_EBP_40 :near32
MapLS PROTO NEAR STDCALL :DWORD
UnMapLS PROTO NEAR STDCALL :DWORD
MapSL PROTO NEAR STDCALL p32:DWORD
;***************** START OF KERNEL32-ONLY SECTION ******************
; Hacks for kernel32 initialization.
IFDEF FT_DEFINEFTCOMMONROUTINES
.data
public FT_wizthkTargetTable ;Flat address of target table in 16-bit module.
public FT_wizthkChecksum32
FT_wizthkChecksum32 dd 010e07h
ENDIF ;FT_DEFINEFTCOMMONROUTINES
;***************** END OF KERNEL32-ONLY SECTION ******************
.code
;************************* COMMON PER-MODULE ROUTINES *************************
.data
public wizthk_ThunkData32 ;This symbol must be exported.
wizthk_ThunkData32 label dword
dd 3130534ch ;Protocol 'LS01'
dd 010e07h ;Checksum
dd 0 ;Jump table address.
dd 3130424ch ;'LB01'
dd 0 ;Flags
dd 0 ;Reserved (MUST BE 0)
dd 0 ;Reserved (MUST BE 0)
dd offset QT_Thunk_wizthk - offset wizthk_ThunkData32
dd offset FT_Prolog_wizthk - offset wizthk_ThunkData32
.code
externDef ThunkConnect32@24:near32
public wizthk_ThunkConnect32@16
wizthk_ThunkConnect32@16:
pop edx
push offset wizthk_ThkData16
push offset wizthk_ThunkData32
push edx
jmp ThunkConnect32@24
wizthk_ThkData16 label byte
db "wizthk_ThunkData16",0
pfnQT_Thunk_wizthk dd offset QT_Thunk_wizthk
pfnFT_Prolog_wizthk dd offset FT_Prolog_wizthk
.data
QT_Thunk_wizthk label byte
db 32 dup(0cch) ;Patch space.
FT_Prolog_wizthk label byte
db 32 dup(0cch) ;Patch space.
.code
ebp_top equ <[ebp + 8]> ;First api parameter
ebp_retval equ <[ebp + -64]> ;Api return value
FT_ESPFIXUP macro dwSpOffset
or dword ptr [ebp + -20], 1 SHL ((dwSpOffset) SHR 1)
endm
ebp_qttop equ <[ebp + 8]>
include fltthk.inc ;Support definitions
include wizthk.inc
;************************ START OF THUNK BODIES************************
;
public GetClientConfig16@4
GetClientConfig16@4:
FAPILOG16 212
mov cx, (1 SHL 10) + (0 SHL 8) + 8
; GetClientConfig16(16) = GetClientConfig16(32) {}
;
; dword ptr [ebp+8]: pClientConfig
;
public IIGetClientConfig16@4
IIGetClientConfig16@4:
call dword ptr [pfnFT_Prolog_wizthk]
sub esp,24
mov esi,[ebp+8]
or esi,esi
jnz L0
push esi
jmp L1
L0:
lea edi,[ebp-88]
push edi ;pClientConfig: lpstruct32->lpstruct16
or dword ptr [ebp-20],01h ;Set flag to fixup ESP-rel argument.
mov ecx,12
@@:
lodsd
stosw
loop @B
L1:
call FT_Thunk
movzx ebx,ax
mov edi,[ebp+8]
or edi,edi
jz L2
lea esi,[ebp-88] ;pClientConfig Struct16->Struct32
mov ecx,12
@@:
lodsw
cwde
stosd
loop @B
L2:
jmp FT_Exit4
;
public BeginNetcardTCPIPEnum16@0
BeginNetcardTCPIPEnum16@0:
FAPILOG16 161
mov cl,6
; BeginNetcardTCPIPEnum16(16) = BeginNetcardTCPIPEnum16(32) {}
;
;
public IIBeginNetcardTCPIPEnum16@0
IIBeginNetcardTCPIPEnum16@0:
push ebp
mov ebp,esp
push ecx
sub esp,60
call dword ptr [pfnQT_Thunk_wizthk]
movzx eax,ax
leave
retn
;
public GetNextNetcardTCPIPNode16@12
GetNextNetcardTCPIPNode16@12:
FAPILOG16 131
mov cl,5
; GetNextNetcardTCPIPNode16(16) = GetNextNetcardTCPIPNode16(32) {}
;
; dword ptr [ebp+8]: pszTcpNode
; dword ptr [ebp+12]: cbTcpNode
; dword ptr [ebp+16]: dwFlags
;
public IIGetNextNetcardTCPIPNode16@12
IIGetNextNetcardTCPIPNode16@12:
push ebp
mov ebp,esp
push ecx
sub esp,60
call SMapLS_IP_EBP_8
push eax
push word ptr [ebp+12] ;cbTcpNode: dword->word
push dword ptr [ebp+16] ;dwFlags: dword->dword
call dword ptr [pfnQT_Thunk_wizthk]
cwde
call SUnMapLS_IP_EBP_8
leave
retn 12
;
public GetSETUPXErrorText16@12
GetSETUPXErrorText16@12:
FAPILOG16 106
mov cl,4
; GetSETUPXErrorText16(16) = GetSETUPXErrorText16(32) {}
;
; dword ptr [ebp+8]: dwErr
; dword ptr [ebp+12]: pszErrorDesc
; dword ptr [ebp+16]: cbErrorDesc
;
public IIGetSETUPXErrorText16@12
IIGetSETUPXErrorText16@12:
push ebp
mov ebp,esp
push ecx
sub esp,60
push dword ptr [ebp+8] ;dwErr: dword->dword
call SMapLS_IP_EBP_12
push eax
push dword ptr [ebp+16] ;cbErrorDesc: dword->dword
call dword ptr [pfnQT_Thunk_wizthk]
call SUnMapLS_IP_EBP_12
leave
retn 12
;
public RemoveUnneededDefaultComponents16@4
RemoveUnneededDefaultComponents16@4:
FAPILOG16 68
mov cl,3
; RemoveUnneededDefaultComponents16(16) = RemoveUnneededDefaultComponents16(32) {}
;
; dword ptr [ebp+8]: hwndParent
;
public IIRemoveUnneededDefaultComponents16@4
IIRemoveUnneededDefaultComponents16@4:
push ebp
mov ebp,esp
push ecx
sub esp,60
push word ptr [ebp+8] ;hwndParent: dword->word
call dword ptr [pfnQT_Thunk_wizthk]
movzx eax,ax
leave
retn 4
;
public RemoveProtocols16@12
RemoveProtocols16@12:
FAPILOG16 46
mov cl,2
jmp IIRemoveProtocols16@12
public InstallComponent16@12
InstallComponent16@12:
FAPILOG16 189
mov cl,7
; RemoveProtocols16(16) = RemoveProtocols16(32) {}
;
; dword ptr [ebp+8]: hwndParent
; dword ptr [ebp+12]: dwRemoveFromCardType
; dword ptr [ebp+16]: dwProtocols
;
public IIRemoveProtocols16@12
IIRemoveProtocols16@12:
push ebp
mov ebp,esp
push ecx
sub esp,60
push word ptr [ebp+8] ;hwndParent: dword->word
push dword ptr [ebp+12] ;dwRemoveFromCardType: dword->dword
push dword ptr [ebp+16] ;dwProtocols: dword->dword
call dword ptr [pfnQT_Thunk_wizthk]
movzx eax,ax
leave
retn 12
;
public DoGenInstall16@12
DoGenInstall16@12:
FAPILOG16 27
mov cl,1
; DoGenInstall16(16) = DoGenInstall16(32) {}
;
; dword ptr [ebp+8]: hwndParent
; dword ptr [ebp+12]: lpszInfFile
; dword ptr [ebp+16]: lpszInfSect
;
public IIDoGenInstall16@12
IIDoGenInstall16@12:
push ebp
mov ebp,esp
push ecx
sub esp,60
push word ptr [ebp+8] ;hwndParent: dword->word
call SMapLS_IP_EBP_12
push eax
call SMapLS_IP_EBP_16
push eax
call dword ptr [pfnQT_Thunk_wizthk]
movzx eax,ax
call SUnMapLS_IP_EBP_12
call SUnMapLS_IP_EBP_16
leave
retn 12
;
public SetInstallSourcePath16@4
SetInstallSourcePath16@4:
FAPILOG16 0
mov cl,0
; SetInstallSourcePath16(16) = SetInstallSourcePath16(32) {}
;
; dword ptr [ebp+8]: szSourcePath
;
public IISetInstallSourcePath16@4
IISetInstallSourcePath16@4:
push ebp
mov ebp,esp
push ecx
sub esp,60
call SMapLS_IP_EBP_8
push eax
call dword ptr [pfnQT_Thunk_wizthk]
movzx eax,ax
call SUnMapLS_IP_EBP_8
leave
retn 4
;-----------------------------------------------------------
ifdef DEBUG
FT_ThunkLogNames label byte
db '[F] SetInstallSourcePath16',0
db '[F] DoGenInstall16',0
db '[F] RemoveProtocols16',0
db '[F] RemoveUnneededDefaultComponents16',0
db '[F] GetSETUPXErrorText16',0
db '[F] GetNextNetcardTCPIPNode16',0
db '[F] BeginNetcardTCPIPEnum16',0
db '[F] InstallComponent16',0
db '[F] GetClientConfig16',0
endif ;DEBUG
;-----------------------------------------------------------
ELSE
;************************* START OF 16-BIT CODE *************************
OPTION SEGMENT:USE16
.model LARGE,PASCAL
.code _TEXT
externDef SetInstallSourcePath16:far16
externDef DoGenInstall16:far16
externDef RemoveProtocols16:far16
externDef RemoveUnneededDefaultComponents16:far16
externDef GetSETUPXErrorText16:far16
externDef GetNextNetcardTCPIPNode16:far16
externDef BeginNetcardTCPIPEnum16:far16
externDef InstallComponent16:far16
externDef GetClientConfig16:far16
FT_wizthkTargetTable label word
dw offset SetInstallSourcePath16
dw seg SetInstallSourcePath16
dw offset DoGenInstall16
dw seg DoGenInstall16
dw offset RemoveProtocols16
dw seg RemoveProtocols16
dw offset RemoveUnneededDefaultComponents16
dw seg RemoveUnneededDefaultComponents16
dw offset GetSETUPXErrorText16
dw seg GetSETUPXErrorText16
dw offset GetNextNetcardTCPIPNode16
dw seg GetNextNetcardTCPIPNode16
dw offset BeginNetcardTCPIPEnum16
dw seg BeginNetcardTCPIPEnum16
dw offset InstallComponent16
dw seg InstallComponent16
dw offset GetClientConfig16
dw seg GetClientConfig16
.data
public wizthk_ThunkData16 ;This symbol must be exported.
wizthk_ThunkData16 dd 3130534ch ;Protocol 'LS01'
dd 010e07h ;Checksum
dw offset FT_wizthkTargetTable
dw seg FT_wizthkTargetTable
dd 0 ;First-time flag.
.code _TEXT
externDef ThunkConnect16:far16
public wizthk_ThunkConnect16
wizthk_ThunkConnect16:
pop ax
pop dx
push seg wizthk_ThunkData16
push offset wizthk_ThunkData16
push seg wizthk_ThkData32
push offset wizthk_ThkData32
push cs
push dx
push ax
jmp ThunkConnect16
wizthk_ThkData32 label byte
db "wizthk_ThunkData32",0
ENDIF
END