;******************************************************************************
;
; (C) Copyright MICROSOFT Corp. 1989-1990
;
;******************************************************************************
;******************************************************************************
;
; Assumes_Fall_Through
;
; DESCRIPTION:
; Used for debugging purposes only. It will generate an error if
; the IP <> the specified label.
;
; PARAMETERS:
; Label_Name = Name of label to fall-through to
;
;------------------------------------------------------------------------------
PUSHSTATE
MASM
Assumes_Fall_Through MACRO L
ERRIF ((L-$) GT 3), "ERROR: FALL through to &L invalid"
ENDM
;******************************************************************************
;
; Assert_VM_Handle
;
; PARAMETERS:
; Handle_Register = Register that contains a VM handle
;
; ASSUMES:
; Debug_Test_Valid_Handle does not destroy any registers or flags
;
; EXIT:
; NOTHING MODIFIED (not even flags)
;
;------------------------------------------------------------------------------
Assert_VM_Handle MACRO R
IFDEF DEBUG
push ebx
mov ebx, R
VMMcall Debug_Test_Valid_Handle
pop ebx
ENDIF
ENDM
;******************************************************************************
;
; Trace_Out
;
;------------------------------------------------------------------------------
Trace_Out MACRO S, nocrlf
LOCAL Str_Off
IFDEF DEBUG
DATASEG
Str_Off db S
IFB <nocrlf>
db 0Dh,0Ah
ENDIF
db 0
CODESEG
pushfd
pushad
mov esi, OFFSET32 Str_Off
VMMcall Out_Debug_String
popad
popfd
ENDIF
ENDM
;******************************************************************************
;
; Debug_Out
;
;------------------------------------------------------------------------------
Debug_Out MACRO S,nocrlf
LOCAL Skip_Int1
IFDEF DEBUG
pushfd
Trace_Out <S>,nocrlf
VMMcall Test_Debug_Installed
jz SHORT Skip_Int1
int 1
Skip_Int1:
popfd
ENDIF
ENDM
;******************************************************************************
;
; Queue_Out
;
;------------------------------------------------------------------------------
Queue_Out MACRO S, V1, V2
LOCAL Str_Off
IFDEF DEBUG
DATASEG
Str_Off db S, 0Dh,0Ah, 0
CODESEG
pushfd
push esi
IFNB <V1>
IF TYPE V1 GT 0
push dword ptr V1
ELSE
push V1
ENDIF
ELSE
push eax ; dummy value1
ENDIF
IFNB <V2>
IF TYPE V2 GT 0
push dword ptr V2
ELSE
push V2
ENDIF
ELSE
push ebx ; dummy value2
ENDIF
mov esi, OFFSET32 Str_Off
VMMcall Queue_Debug_String
pop esi
popfd
ENDIF
ENDM
;******************************************************************************
;
; Mono_Out
;
;------------------------------------------------------------------------------
Mono_Out MACRO S, nocrlf
LOCAL Str_Off
IFDEF DEBUG
DATASEG
Str_Off db S
IFB <nocrlf>
db 0Dh,0Ah
ENDIF
db 0
CODESEG
pushfd
pushad
mov esi, OFFSET32 Str_Off
VMMcall Out_Mono_String
popad
popfd
ENDIF
ENDM
;******************************************************************************
;
; Mono_Out_At
;
;------------------------------------------------------------------------------
Mono_Out_At MACRO Row, Col, S, nocrlf
LOCAL Str_Off
IFDEF DEBUG
DATASEG
Str_Off db S
IFB <nocrlf>
db 0Dh,0Ah
ENDIF
db 0
CODESEG
pushfd
pushad
mov dx, (Row SHL 8)+Col
VMMcall Set_Mono_Cur_Pos
mov esi, OFFSET32 Str_Off
VMMcall Out_Mono_String
popad
popfd
ENDIF
ENDM
;******************************************************************************
;
; Assert_Ints_Disabled
;
;------------------------------------------------------------------------------
Assert_Ints_Disabled MACRO
LOCAL OK
IFDEF DEBUG
pushfd
test WORD PTR [esp], IF_Mask
jz SHORT OK
Debug_Out "ERROR: Ints enabled at Assert_Ints_Disabled"
OK:
popfd
ENDIF
ENDM
;******************************************************************************
;
; Assert_Ints_Enabled
;
;------------------------------------------------------------------------------
Assert_Ints_Enabled MACRO
LOCAL OK
IFDEF DEBUG
pushfd
test WORD PTR [esp], IF_Mask
jnz SHORT OK
Debug_Out "ERROR: Ints disabled at Assert_Ints_Enabled"
OK:
popfd
ENDIF
ENDM
;******************************************************************************
;
; Assert_Cur_VM_Handle (Register)
;
; DESCRIPTION:
;
; ENTRY:
;
; EXIT:
;
; USES:
;
;==============================================================================
Assert_Cur_VM_Handle MACRO R
LOCAL OK
IFDEF DEBUG
push ebx
mov ebx, R
VMMcall Debug_Test_Cur_VM
pop ebx
ENDIF
ENDM
Assert_Client_Ptr MACRO Reg
IFDEF DEBUG
push ebp
mov ebp, Reg
VMMcall Validate_Client_Ptr
pop ebp
ENDIF
ENDM
;******************************************************************************
Dump_Struc_Head MACRO
IFDEF DEBUG
Trace_Out " Base Address Offs Value Field name"
ENDIF
ENDM
Dump_Struc MACRO Base, X
IFDEF DEBUG
pushfd
pushad
lea esi, [Base]
mov ecx, X
lea edx, [esi+ecx]
IF SIZE X EQ 6
mov bx, WORD PTR [edx+4]
mov eax, DWORD PTR [edx]
Trace_Out "#ESI #EDX #CX #BX:#EAX &X"
ELSE
IF SIZE X EQ 4
mov eax, DWORD PTR [edx]
Trace_Out "#ESI #EDX #CX #EAX &X"
ELSE
IF SIZE X EQ 2
mov ax, WORD PTR [edx]
Trace_Out "#ESI #EDX #CX #AX &X"
ELSE
mov al, BYTE PTR [edx]
Trace_Out "#ESI #EDX #CX #AL &X"
ENDIF
ENDIF
ENDIF
popad
popfd
ENDIF
ENDM
BeginDoc
;******************************************************************************
;
; Begin_Touch_1st_Meg / End_Touch_1st_Meg
;
; DESCRIPTION:
; These macros should be used by VxDs that need to touch memory in
; the 1st megabyte. For example, if a VxD wanted to examine interrupt
; vector 21h, the code would look like this:
;
; Begin_Touch_1st_Meg
; mov eax, DWORD PTR ds:[21h*4]
; End_Touch_1st_Meg
;
; When building retail VxDs, these macros generate no code. When
; building debug VxDs these macros generate calls to Enable_Touch_1st_Meg
; and Disable_Touch_1st_Meg.
;
; ENTRY:
; None
;
; EXIT:
; None
;
; USES:
; Nothing
;
;==============================================================================
EndDoc
Begin_Touch_1st_Meg MACRO
IFDEF DEBUG
VMMcall Enable_Touch_1st_Meg
ENDIF
ENDM
;------------------------------------------------------------------------------
End_Touch_1st_Meg MACRO
IFDEF DEBUG
VMMcall Disable_Touch_1st_Meg
ENDIF
ENDM
POPSTATE
| Vorgefundene Kodierung: ASCII (7 bit) | 2
|