|
|
;----------------------------------------------------------------------------; Thunk direction;----------------------------------------------------------------------------dir equ <LS>
;----------------------------------------------------------------------------; Define the order of message thunk classes;----------------------------------------------------------------------------;The DM thunk class doesn't require any special thunks.;ClassList equ <WM,DM>ClassList equ <WM>
;***********************************************************************;; Thunk pre- and post-processing macros. These perform any necessary; setup prior to calling the thunking subroutines.;***********************************************************************;;----------------------------------------------------------------------------; MsgStructThkPreProc;; flags; Indicates api-specific flags to set in s16_fw.;; noprethunk; If non-blank, indicates that the message structure is uninitialized; and should not be thunked before calling the API.;; no_load_pmsg; Indicates that es:edi already contains pmsg, so don't reload it.;; Requirements:; bp_pMsg be defined; si_space be defined; si_msg16 be defined;; Results:; SP = original SP - size THKSPACE16 - size MSGSTRUCT16; - extra space allocated by thunk, if any; History:; 08-07-91 BobGru; Wrote it.;----------------------------------------------------------------------------MsgStructThkPreProc macro flags:=<0>, no_load_pmsg, base:=<si>
AssertUserDS
;;Allocate local variable space sub sp,size THKSPACE16 + MSGSTRUCT16_SIZE InitLocalSpace flags, base
ifb <no_load_pmsg> mov es, FlatData mov edi, bp_pMsg endif
;;Pack the non-thunked message structure elements into the msg16 structure. mov eax, dword ptr es:[edi].ms32_time mov dword ptr base&_msg16.ms16_time, eax
mov ax, word ptr es:[edi].ms32_pt.pt32_x mov word ptr base&_msg16.ms16_pt.pt16_x, ax
mov ax, word ptr es:[edi].ms32_pt.pt32_y mov word ptr base&_msg16.ms16_pt.pt16_y, ax
;;Thunk the message parameters. push word ptr es:[edi].ms32_hwnd push word ptr es:[edi].ms32_message push dword ptr es:[edi].ms32_wParam push dword ptr es:[edi].ms32_lParam call ThkMsgLS
;;Pack the thunked parameters into the msg16 structure. mov ax, word ptr base&_space.s16_hwnd mov word ptr base&_msg16.ms16_hwnd, ax
mov ax, word ptr base&_space.s16_message mov word ptr base&_msg16.ms16_message, ax
mov ax, word ptr base&_space.s16_wParam.lo mov word ptr base&_msg16.ms16_wParamLo, ax
mov eax, dword ptr base&_space.s16_lParam mov dword ptr base&_msg16.ms16_lParam, eax
mov ax, word ptr base&_space.s16_wParam.hi mov word ptr base&_msg16.ms16_wParamHi, axendm
;----------------------------------------------------------------------------; MsgStructThkPostProc;; no_copyout_pmsg; If non-blank, don't unthunk the message structure since it's an; input-only parameter.;; Requirements:; bp_pMsg be defined; si_space be defined; si_msg16 be defined; si_cleanup be defined;; Results:;----------------------------------------------------------------------------MsgStructThkPostProc macro base:=<si>, no_copyout_pmsg
AssertUserDS
; Save return code. We're not thunking it, but we want to save it. mov dword ptr base&_space.s16_lResult, eax
push word ptr base&_msg16.ms16_hwnd push word ptr base&_msg16.ms16_message push word ptr base&_msg16.ms16_wParamHi push word ptr base&_msg16.ms16_wParamLo push dword ptr base&_msg16.ms16_lParam
call ThkMsgSL ;;destroys EDI
ifb <no_copyout_pmsg> ;;Copy the 32-bit message parameters from si_space back into the ;;msgstruct32 structure.
mov es, FlatData mov edi,bp_pMsg cld
xor eax, eax mov ax, word ptr base&_space.s16_hwnd stosd es:[edi] .errnz ms32_hwnd
mov ax, word ptr base&_space.s16_message stosd es:[edi] .errnz ms32_message - ms32_hwnd - 4
mov eax, dword ptr base&_space.s16_wParam stosd es:[edi] .errnz ms32_wParam - ms32_message - 4
mov eax, dword ptr base&_space.s16_lParam stosd es:[edi] .errnz ms32_lParam - ms32_wParam - 4
mov eax, base&_msg16.ms16_time stosd es:[edi] .errnz ms32_time - ms32_lParam - 4
movsx eax,word ptr (base&_msg16.ms16_pt.pt16_x) stosd es:[edi] .errnz ms32_pt - ms32_time - 4 .errnz MSGSTRUCT32_SIZE - ms32_pt - 8 .errnz pt32_x
movsx eax,word ptr (base&_msg16.ms16_pt.pt16_y) stosd es:[edi] .errnz pt32_y - pt32_x - 4 .errnz POINT32_SIZE - pt32_y - 4
endif
; Put return value back mov eax, dword ptr base&_space.s16_lResult
% ifidni <base>,<si> lea sp,si_cleanup endifendm
;----------------------------------------------------------------------------; CwpStructThkPreProc;; flags; Indicates api-specific flags to set in s16_fw.;; noprethunk; If non-blank, indicates that the message structure is uninitialized; and should not be thunked before calling the API.;; Requirements:; bp_pCwp be defined; si_space be defined; si_cwp16 be defined;; Results:; SP = original SP - size THKSPACE16 - size CWPSTRUCT16; - extra space allocated by thunk, if any; History:; 08-07-91 BobGru; Wrote it.;----------------------------------------------------------------------------CwpStructThkPreProc macro flags:=<0>
AssertUserDS
;;Allocate local variable space sub sp,size THKSPACE16 + CWPSTRUCT16_SIZE InitLocalSpace flags
mov es,FlatData mov edi,bp_pCwp
;;Thunk the message parameters. push word ptr es:[edi].cwp32_hwnd push word ptr es:[edi].cwp32_message push dword ptr es:[edi].cwp32_wParam push dword ptr es:[edi].cwp32_lParam call ThkMsgLS
;;Pack the thunked parameters into the cwp16 structure. mov ax, word ptr si_space.s16_hwnd mov word ptr si_cwp16.cwp16_hwnd, ax
mov ax, word ptr si_space.s16_message mov word ptr si_cwp16.cwp16_message, ax
mov ax, word ptr si_space.s16_wParam.hi mov word ptr si_cwp16.cwp16_wParamHi, ax
mov ax, word ptr si_space.s16_wParam.lo mov word ptr si_cwp16.cwp16_wParamLo, ax
mov eax, dword ptr si_space.s16_lParam mov dword ptr si_cwp16.cwp16_lParam, eaxendm
;----------------------------------------------------------------------------; CwpStructThkPostProc;; retsize; Either AX or DXAX, determines the size of the return code.; checknull; If non-blank, indicates that if the return code is zero, the; message structure should not be unthunked, since it is uninitialized.; noprethunk; If non-blank, indicates that the lParam field of the thunk space; should not be initialized from the value passed in, since there; was no value passed in.;; Requirements:; bp_pCwp be defined; si_space be defined; si_cwp16 be defined; si_cleanup be defined;; Results:;----------------------------------------------------------------------------CwpStructThkPostProc macro AssertUserDS
; Save hook return result. Since we are NOT setting TF_THUNKMSGRESULT, ; lResult shouldn't be touched. We can use it as a temp buffer. mov word ptr si_space.s16_lResult, ax mov word ptr si_space.s16_lResult+2, dx
push word ptr si_cwp16.cwp16_hwnd push word ptr si_cwp16.cwp16_message push word ptr si_cwp16.cwp16_wParamHi push word ptr si_cwp16.cwp16_wParamLo push dword ptr si_cwp16.cwp16_lParam
call ThkMsgSL ;;destroys EDI
;;Copy the 32-bit message parameters from si_space back into the;;CWPSTRUCT32 structure.
mov es, FlatData mov edi, bp_pCwp cld
mov eax, si_space.s16_lParam stosd es:[edi] .errnz cwp32_lParam
mov eax,si_space.s16_wParam stosd es:[edi] .errnz cwp32_wParam - cwp32_lParam - 4
xor eax, eax
mov ax, word ptr si_space.s16_message stosd es:[edi] .errnz cwp32_message - cwp32_wParam - 4
mov ax, word ptr si_space.s16_hwnd stosd es:[edi] .errnz cwp32_hwnd - cwp32_message - 4 .errnz CWPSTRUCT32_SIZE - cwp32_hwnd - 4
; Restore hook return code to EAX mov eax, dword ptr si_space.s16_lResult lea sp,si_cleanupendm
;----------------------------------------------------------------------------; CwpRetStructThkPreProc;; flags; Indicates api-specific flags to set in s16_fw.;; noprethunk; If non-blank, indicates that the message structure is uninitialized; and should not be thunked before calling the API.;; Requirements:; bp_pCwpRet be defined; si_space be defined; si_cwpret16 be defined;; Results:; SP = original SP - size THKSPACE16 - size CWPRETSTRUCT16; - extra space allocated by thunk, if any; History:; 08-07-91 BobGru; Wrote it.;----------------------------------------------------------------------------CwpRetStructThkPreProc macro AssertUserDS
;;Allocate local variable space sub sp,size THKSPACE16 + CWPRETSTRUCT16_SIZE InitLocalSpace TF_THUNKMSGRESULT
mov es, FlatData mov edi,bp_pCwpRet
;Thunk the message parameters. mov eax, dword ptr es:[edi].cwpret32_lResult mov dword ptr si_space.s16_lResult, eax
push word ptr es:[edi].cwpret32_hwnd push word ptr es:[edi].cwpret32_message push dword ptr es:[edi].cwpret32_wParam push dword ptr es:[edi].cwpret32_lParam call ThkMsgLS
; Copy the thunked parms back mov eax, dword ptr si_space.s16_lResult mov dword ptr si_cwpret16.cwpret16_lResult, eax
mov ax, word ptr si_space.s16_wParam.hi mov word ptr si_cwpret16.cwpret16_wParamHi, ax
mov eax, dword ptr si_space.s16_lParam mov dword ptr si_cwpret16.cwpret16_lParam, eax
mov ax, word ptr si_space.s16_wParam.lo mov word ptr si_cwpret16.cwpret16_wParamLo, ax
mov ax, word ptr si_space.s16_message mov word ptr si_cwpret16.cwpret16_message, ax
mov ax, word ptr si_space.s16_hwnd mov word ptr si_cwpret16.cwpret16_hwnd, axendm
;----------------------------------------------------------------------------; CwpRetStructThkPostProc;; retsize; Either AX or DXAX, determines the size of the return code.; checknull; If non-blank, indicates that if the return code is zero, the; message structure should not be unthunked, since it is uninitialized.; noprethunk; If non-blank, indicates that the lParam field of the thunk space; should not be initialized from the value passed in, since there; was no value passed in.;; Requirements:; bp_pCwp be defined; si_space be defined; si_cwp16 be defined; si_cleanup be defined;; Results:;----------------------------------------------------------------------------CwpRetStructThkPostProc macro
AssertUserDS
;;Thunk the message parameters. Before calling the thunk, put the;;original lParam value in the si_space structure, so that the xmovs;;macro can find it.;;;;Push the 16-bit message parameters and copy the 32-bit lParam into;;si_space. Afterwards, si_space will contain the 32-bit values to;;return to the system.
ifdef DEBUG ; Better have TF_THUNKMSGRESULT set test si_space.s16_fw, TF_THUNKMSGRESULT jnz @F
int 3@@:endif
; Save 16bit hook return code push dx push ax
; Save message return result to be thunked. mov eax, dword ptr si_cwpret16.cwpret16_lResult mov dword ptr si_space.s16_lResult, eax
push word ptr si_cwpret16.cwpret16_hwnd push word ptr si_cwpret16.cwpret16_message push word ptr si_cwpret16.cwpret16_wParamHi push word ptr si_cwpret16.cwpret16_wParamLo push dword ptr si_cwpret16.cwpret16_lParam
call ThkMsgSL ;;destroys EDI
;;Copy the 32-bit message parameters from si_space back into the;;CWPSTRUCT32 structure.
mov es, FlatData mov edi,bp_pCwpRet cld
; Result mov eax, dword ptr si_space.s16_lResult stosd es:[edi] .errnz cwpret32_lResult
mov eax, dword ptr si_space.s16_lParam stosd es:[edi] .errnz cwpret32_lParam - cwpret32_lResult - 4
mov eax, dword ptr si_space.s16_wParam stosd es:[edi] .errnz cwpret32_wParam - cwpret32_lParam - 4
xor eax, eax mov ax, word ptr si_space.s16_message stosd es:[edi] .errnz cwpret32_message - cwpret32_wParam - 4
mov ax, word ptr si_space.s16_hwnd stosd es:[edi] .errnz cwpret32_hwnd - cwpret32_message - 4 .errnz CWPRETSTRUCT32_SIZE - cwpret32_hwnd - 4
; Restore 32bit hook return code pop eax lea sp,si_cleanupendm
;----------------------------------------------------------------------------; HhsStructThkPreProc;; flags; Indicates api-specific flags to set in s16_fw.;; noprethunk; If non-blank, indicates that the message structure is uninitialized; and should not be thunked before calling the API.;; Requirements:; bp_pHhs be defined; si_space be defined; si_hhs16 be defined;; Results:; SP = original SP - size THKSPACE16 - size HARDWAREHOOKSTRUCT16; - extra space allocated by thunk, if any; History:; 08-07-91 BobGru; Wrote it.;----------------------------------------------------------------------------HhsStructThkPreProc macro flags:=<0>
AssertUserDS
;;Allocate local variable space sub sp,size THKSPACE16 + HARDWAREHOOKSTRUCT16_SIZE InitLocalSpace flags
mov es, FlatData mov edi,bp_pHhs
;;Thunk the message parameters. push word ptr es:[edi].hhs32_hwnd push word ptr es:[edi].hhs32_message push dword ptr es:[edi].hhs32_wParam push dword ptr es:[edi].hhs32_lParam call ThkMsgLS
;;Pack the thunked parameters into the msg16 structure. mov ax, word ptr si_space.s16_hwnd mov word ptr si_hhs16.hhs16_hwnd, ax
mov ax, word ptr si_space.s16_message mov word ptr si_hhs16.hhs16_message, ax
mov ax, word ptr si_space.s16_wParam.lo mov word ptr si_hhs16.hhs16_wParamLo, ax
mov eax, dword ptr si_space.s16_lParam mov dword ptr si_hhs16.hhs16_lParam, eax
mov ax, word ptr si_space.s16_wParam.hi mov word ptr si_hhs16.hhs16_wParamHi, axendm
;----------------------------------------------------------------------------; HhsStructThkPostProc;; retsize; Either AX or DXAX, determines the size of the return code.; checknull; If non-blank, indicates that if the return code is zero, the; message structure should not be unthunked, since it is uninitialized.; noprethunk; If non-blank, indicates that the lParam field of the thunk space; should not be initialized from the value passed in, since there; was no value passed in.;; Requirements:; bp_pHhs be defined; si_space be defined; si_hhs16 be defined; si_cleanup be defined;; Results:;----------------------------------------------------------------------------HhsStructThkPostProc macro
AssertUserDS
; Save 16bit hook return code mov si_space.s16_lResult.lo, ax mov si_space.s16_lResult.hi, dx
push word ptr si_hhs16.hhs16_hwnd push word ptr si_hhs16.hhs16_message push word ptr si_hhs16.hhs16_wParamHi push word ptr si_hhs16.hhs16_wParamLo push dword ptr si_hhs16.hhs16_lParam
call ThkMsgSL ;;destroys EDI
;;Copy the 32-bit message parameters from si_space back into the;;HARDWAREHOOKSTRUCT32 structure.
mov es, FlatData mov edi,bp_pHhs cld
xor eax, eax mov ax, word ptr si_space.s16_hwnd stosd es:[edi] .errnz hhs32_hwnd
mov ax, word ptr si_space.s16_message stosd es:[edi] .errnz hhs32_message - hhs32_hwnd - 4
mov eax,si_space.s16_wParam stosd es:[edi] .errnz hhs32_wParam - hhs32_message - 4
mov eax,si_space.s16_lParam stosd es:[edi] .errnz hhs32_lParam - hhs32_wParam - 4
.errnz HARDWAREHOOKSTRUCT32_SIZE - hhs32_lParam - 4
;Restore 32bit hook return code mov eax, dword ptr si_space.s16_lResult lea sp,si_cleanupendm
;----------------------------------------------------------------------------; CbtStructThkPreProc;; flags; Indicates api-specific flags to set in s16_fw.;; noprethunk; If non-blank, indicates that the message structure is uninitialized; and should not be thunked before calling the API.;; Requirements:; bp_nType be defined; bp_pMsg be defined; si_space be defined;----------------------------------------------------------------------------CbtStructThkPreProc macro flags:=<0> local cbt_hook_error local HookDispatch local MAX_CBT_CODE local thk_HCBT_MOVESIZE local thk_HCBT_MINMAX local thk_HCBT_QS local thk_HCBT_CREATEWND local thk_HCBT_DESTROYWND local thk_HCBT_ACTIVATE local thk_HCBT_CLICKSKIPPED local thk_HCBT_KEYSKIPPED local thk_HCBT_SYSCOMMAND local thk_HCBT_SETFOCUS local si_cbtc
AssertUserDS
;;Allocate local variable space sub sp,size THKSPACE16 InitLocalSpace flags
; Convert wParam -- same for all HCBT_ hooks mov eax, dword ptr bp_wParam mov dword ptr si_space.s16_wParam, eax
mov bx,bp_nCode cmp bx,MAX_CBT_CODE ja cbt_hook_error
add bx,bx jmp cs:HookDispatch[bx]
HookDispatch label word dw offset thk_HCBT_MOVESIZE dw offset thk_HCBT_MINMAX dw offset thk_HCBT_QS dw offset thk_HCBT_CREATEWND dw offset thk_HCBT_DESTROYWND dw offset thk_HCBT_ACTIVATE dw offset thk_HCBT_CLICKSKIPPED dw offset thk_HCBT_KEYSKIPPED dw offset thk_HCBT_SYSCOMMAND dw offset thk_HCBT_SETFOCUSMAX_CBT_CODE equ ($-HookDispatch)/2
;Error -- invalid CBT code. Fall through to the minimal thunking.cbt_hook_error:
thk_HCBT_DESTROYWND:thk_HCBT_KEYSKIPPED:thk_HCBT_MINMAX:thk_HCBT_QS:thk_HCBT_SETFOCUS: ;!!!need spec for this onethk_HCBT_SYSCOMMAND: mov eax, dword ptr bp_pMsg mov dword ptr si_space.s16_lParam, eax jmp thk_WH_CBT_call
thk_HCBT_ACTIVATE: sub sp,CBTACTIVATESTRUCT16_SIZE
xchg bx,si ;save frame pointer mov di,ss ;init DS:ESI --> source, ES:EDI --> dest mov es,di movzx edi,sp mov esi,bp_pMsg push ds mov ds, FlatData cld
call cvtCBTACTIVATESTRUCTLS
pop ds xchg bx,si ;restore frame pointer
or word ptr si_space.s16_fw, TF_CLEANUP mov word ptr si_space.s16_lParam[0],sp mov word ptr si_space.s16_lParam[2],ss
jmp thk_WH_CBT_call
thk_HCBT_MOVESIZE: sub sp,RECT16_SIZE
xchg bx,si ;save frame pointer mov di,ss ;init DS:ESI --> source, ES:EDI --> dest mov es,di movzx edi,sp mov esi,bp_pMsg push ds mov ds, FlatData cld
call cvtRECTLS
pop ds xchg bx,si ;restore frame pointer
or word ptr si_space.s16_fw, TF_CLEANUP mov word ptr si_space.s16_lParam[0],sp mov word ptr si_space.s16_lParam[2],ss
jmp thk_WH_CBT_call
thk_HCBT_CREATEWND:si_cbtc equ <(si_space-CBT_CREATEWND16_SIZE)> sub sp,CREATESTRUCT16_SIZE+CBT_CREATEWND16_SIZE
lea ax,si_cbtc mov word ptr si_space.s16_lParam[0],ax mov word ptr si_space.s16_lParam[2],ss
;Repack the CBT_CREATEWND structure here, then set up for ;the cvtCREATESTRUCTLS macro.
mov es, FlatData mov edi,bp_pMsg mov ax, word ptr es:[edi].cbtc32_hwndInsertAfter mov word ptr si_cbtc.cbtc16_hwndInsertAfter, ax mov word ptr si_cbtc.cbtc16_lpcs[0],sp mov word ptr si_cbtc.cbtc16_lpcs[2],ss
;Space has already been allocated for the new CREATESTRUCT, ;and SS:SP points to it. Set up for the macro in the usual way.
xchg bx,si ;save frame pointer mov di,ss ;init DS:ESI --> source, ES:EDI --> dest mov es,di movzx edi,sp
push ds mov ds, FlatData mov esi,bp_pMsg mov esi, dword ptr ds:[esi].cbtc32_lpcs cld
call cvtCREATESTRUCTLS
pop ds xchg bx,si ;restore frame pointer
;Adjust pointer to skip wIdHi add word ptr si_cbtc.cbtc16_lpcs[0],2
; Set TF_CLEANUP bit now so that unmaps happen when we convert ; createstruct back. or word ptr si_space.s16_fw, TF_CLEANUP
;Safety check that we haven't forgotten any fields of the structure. .errnz cbtc16_lpcs .errnz cbtc16_hwndInsertAfter - cbtc16_lpcs - 4 .errnz CBT_CREATEWND16_SIZE - cbtc16_hwndInsertAfter - 2
jmp thk_WH_CBT_call
thk_HCBT_CLICKSKIPPED: sub sp,MOUSEHOOKSTRUCT16_SIZE
xchg bx,si ;save frame pointer mov di,ss ;init DS:ESI --> source, ES:EDI --> dest mov es,di movzx edi,sp mov esi,bp_pMsg push ds mov ds, FlatData cld
call cvtMOUSEHOOKSTRUCTLS
pop ds xchg bx,si ;restore frame pointer
or word ptr si_space.s16_fw, TF_CLEANUP mov word ptr si_space.s16_lParam[0],sp mov word ptr si_space.s16_lParam[2],ss
;!!! am assuming don't need to unpack MOUSEHOOKSTRUCT jmp thk_WH_CBT_callendm
;----------------------------------------------------------------------------;; CbtStructThkPostProc;; We need to cleanup after making 16-bit call. Any HCBT_ codes with ; LP to structures in lParam require cleanup. This structure must be; copied and converted back. I.E., SRC is 16-bits, DST is 32-bits.;;----------------------------------------------------------------------------CbtStructThkPostProc macro local cbt_hook_error local cbt_done local HookDispatch local MAX_CBT_CODE local thk_HCBT_MOVESIZE local thk_HCBT_MINMAX local thk_HCBT_QS local thk_HCBT_CREATEWND local thk_HCBT_DESTROYWND local thk_HCBT_ACTIVATE local thk_HCBT_CLICKSKIPPED local thk_HCBT_KEYSKIPPED local thk_HCBT_SYSCOMMAND local thk_HCBT_SETFOCUS
AssertUserDS
; Save 16bit return code mov si_space.s16_lResult.lo, ax mov si_space.s16_lResult.hi, dx
; Copy back any structures mov bx, bp_nCode cmp bx, MAX_CBT_CODE ja cbt_hook_error
add bx, bx jmp cs:HookDispatch[bx]
HookDispatch label word dw offset thk_HCBT_MOVESIZE dw offset thk_HCBT_MINMAX dw offset thk_HCBT_QS dw offset thk_HCBT_CREATEWND dw offset thk_HCBT_DESTROYWND dw offset thk_HCBT_ACTIVATE dw offset thk_HCBT_CLICKSKIPPED dw offset thk_HCBT_KEYSKIPPED dw offset thk_HCBT_SYSCOMMAND dw offset thk_HCBT_SETFOCUSMAX_CBT_CODE equ ($-HookDispatch)/2
thk_HCBT_CREATEWND:si_cbtc equ <(si_space-CBT_CREATEWND16_SIZE)> ; lParam is an LPCBT_CREATEWND, which contains an embedded LPCREATESTRUCT push ds push esi push edi
; 32-bit LPCBT_CREATEWND mov es, FlatData ; Do this before changing DS mov edi, bp_pMsg
; 16-bit LPCBT_CREATEWND Save frame pointer in BX! mov bx, si lds si, dword ptr si_space.s16_lParam
; Copy back the HWND movzx eax, word ptr ds:[si].cbtc16_hwndInsertAfter mov dword ptr es:[edi].cbtc32_hwndInsertAfter, eax
; Cleanup the CREATESTRUCT
; 32-bit LPCREATESTRUCT mov edi, dword ptr es:[edi].cbtc32_lpcs
; 16-bit LPCREATESTRUCT lds si, dword ptr ds:[si].cbtc16_lpcs sub si, 2 movzx esi, si
cld call cvtCREATESTRUCTSL
pop edi pop esi pop ds jmp cbt_done
thk_HCBT_ACTIVATE: ; lParam is an LPCBTACTIVATESTRUCT push ds push esi push edi
; 32-bit LPCBTACTIVATESTRUCT mov es, FlatData mov edi, bp_pMsg
; 16-bit LPCBTACTIVATESTRUCT mov bx, si lds si, dword ptr si_space.s16_lParam movzx esi, si
cld call cvtCBTACTIVATESTRUCTSL
pop edi pop esi pop ds jmp cbt_done
thk_HCBT_MOVESIZE: ; lParam is an LPRECT push ds push esi push edi
; 32-bit LPRECT mov es, FlatData mov edi, bp_pMsg
; 16-bit LPRECT mov bx, si lds si, dword ptr si_space.s16_lParam movzx esi, si
cld call cvtRECTSL
pop edi pop esi pop ds jmp cbt_done
thk_HCBT_CLICKSKIPPED: ; lParam is an LPMOUSEHOOKSTRUCT push ds push esi push edi
; 32-bit LPMOUSEHOOKSTRUCT mov es, FlatData mov edi, bp_pMsg
; 16-bit LPMOUSEHOOKSTRUCT mov bx, si lds si, dword ptr si_space.s16_lParam movzx esi, si
cld call cvtMOUSEHOOKSTRUCTSL
pop edi pop esi pop ds jmp cbt_done
cbt_hook_error: ; Error -- invalid CBT code. ; FALL THRU
thk_HCBT_DESTROYWND:thk_HCBT_KEYSKIPPED:thk_HCBT_MINMAX:thk_HCBT_QS:thk_HCBT_SETFOCUS:thk_HCBT_SYSCOMMAND: ; No cleanup required
cbt_done: ;Restore 32bit return code mov eax, dword ptr si_space.s16_lResult lea sp,si_cleanupendm
;----------------------------------------------------------------------------; MhsStructThkPreProc;; Requirements:; bp_pMhs be defined;; Results:; SP = original SP - size MOUSEHOOKSTRUCT16; History:; 04-10-92 BobGru; Wrote it.;----------------------------------------------------------------------------MhsStructThkPreProc macro
AssertUserDS
sub sp,MOUSEHOOKSTRUCT16_SIZE xchg bx,si ;save frame pointer mov di,ss ;init DS:ESI --> source, ES:EDI --> dest mov es,di movzx edi,sp ;do before any pushes push ds mov ds,FlatData mov esi,bp_pMhs cld
call cvtMOUSEHOOKSTRUCTLS
pop ds xchg bx,si ;restore frame pointerendm
;----------------------------------------------------------------------------; MhsStructThkPostProc;; Requirements:; bp_pMhs be defined;; Results:;; History:; 04-10-92 BobGru; Wrote it.;----------------------------------------------------------------------------MhsStructThkPostProc macro
AssertUserDS
xchg bx,si ;save frame pointer movzx esi,sp ;do before any pushes
push ds ;Save return code push dx push ax
mov es,FlatData ;do this while DS=DATA mov di,ss ;init DS:ESI --> source, ES:EDI --> dest mov ds,di mov edi,bp_pMhs cld call cvtMOUSEHOOKSTRUCTSL
;Restore return code pop eax pop ds xchg bx,si ;restore frame pointer lea sp,si_cleanupendm
;----------------------------------------------------------------------------; JhsStructThkPreProc;; Requirements:; bp_pJhs be defined; si_type ""; DX must be 0 or 1; 0 for JOURNALRECORD, 1 for JOURNALPLAYBACK;; Results:; SP = original SP - size EVENTMSG16;----------------------------------------------------------------------------JhsStructThkPreProc macro
AssertUserDS
push dx sub sp,EVENTMSG16_SIZE
xchg bx,si ;save frame pointer mov di,ss ;init DS:ESI --> source, ES:EDI --> dest mov es,di movzx edi,sp ;do before any pushes push ds mov ds,FlatData mov esi,bp_pJhs or esi,esi jz @F cld
call cvtEVENTMSGLS@@: pop ds xchg bx,si ;restore frame pointerendm
;----------------------------------------------------------------------------; JhsStructThkPostProc;; Requirements:; bp_pJhs be defined; si_type ""; DX must be 0 or 1; 0 for JOURNALRECORD, 1 for JOURNALPLAYBACK;; Results:;;----------------------------------------------------------------------------JhsStructThkPostProc macro
AssertUserDS
; Restore DX. Do this first before we trash SI. mov dx, word ptr si_type
xchg bx,si ;save frame pointer movzx esi,sp ;do before any pushes
push ds ;Save return code push eax
mov es,FlatData ;do this while DS=DATA mov di,ss ;init DS:ESI --> source, ES:EDI --> dest mov ds,di
mov edi,bp_pJhs or edi,edi jz @F
cld call cvtEVENTMSGSL@@:
;Restore return code pop eax pop ds xchg bx,si ;restore frame pointer
lea sp,si_cleanupendm
;----------------------------------------------------------------------------;; DhsStructThkPreProc; Thunks L->S for WH_DEBUG;;----------------------------------------------------------------------------DhsStructThkPreProc macro AssertUserDS sub sp, DEBUGHOOK16_SIZE xchg bx, si mov di, ss mov es, di movzx edi, sp push ds mov ds, FlatData mov esi, bp_pDhs cld
; EXPECTS AX TO BE hook type ; RETURNS hTask in AX mov ax, word ptr bp_wParam call cvtDEBUGHOOKLS mov word ptr bp_wParam, ax
pop ds xchg bx, siendm
;----------------------------------------------------------------------------;; DhsStructThkPostProc; Cleans up S->L for WH_DEBUG;;----------------------------------------------------------------------------DhsStructThkPostProc macro AssertUserDS
xchg bx, si movzx esi, sp push ds
; Save return AFTER setting up ESI with SP push dx push ax
mov es, FlatData mov di, ss mov ds, di mov edi, bp_pDhs cld
; EXPECTS AX to be hTask ; RETURNS whType in AX (don't need it anymore) mov ax, word ptr bp_wParam call cvtDEBUGHOOKSL
; Restore return pop eax pop ds
xchg bx, si lea sp, si_cleanupendm
|
