|
|
PAGE 58,132;******************************************************************************TITLE SAGE - SAGE VxD;******************************************************************************;; Title: SAGE.ASM - SAGE VxD;; Version: 0.060;; Date: 04/18/95;; Author: Bob Eichenlaub ;;------------------------------------------------------------------------------;; Change log:;; DATE REV DESCRIPTION; ----------- --- -----------------------------------------------------------; 04/18/95 Initial version - be; 07/06/95 serial IRQ detection - be; credit to rjc for the basic approach; 05/23/97 [darrenmi] major clean-up and support multiple clients; for IE4;;==============================================================================
.386p
;******************************************************************************; I N C L U D E S;******************************************************************************
.XLIST INCLUDE VMM.Inc INCLUDE VWIN32.Inc INCLUDE VPICD.Inc WIN41SERVICES equ 1 ; need _SHELL_Update_User_Activity_Ex service INCLUDE SHELL.Inc INCLUDE VXDLDR.Inc INCLUDE regdef.Inc INCLUDE Debug.Inc INCLUDE Sage.Inc .LIST
;public SAGE_Update_User_Activity
;******************************************************************************; V I R T U A L D E V I C E D E C L A R A T I O N;------------------------------------------------------------------------------; The VxD declaration statement defines the VxD name, version number,; control proc entry point, VxD ID, initialization order, and VM API ; entry points.;; - Defined VxD ID: See VXDID.TXT for more information; - Init order: If serial port detection is enabled then this Vxd MUST loaded; before VCOMM.VxD and after VPICD.VxD,; See VMM.INC for the complete; definition of the init order of the standard devices.; ;******************************************************************************
Declare_Virtual_Device sage, 1, 0, SAGE_Control, VSageID, UNDEFINED_INIT_ORDER
;******************************************************************************; D A T A;******************************************************************************
;; Locked data;VxD_LOCKED_DATA_SEG
Window_List dd 0, 0, 0, 0, 0, 0, 0, 0cClients dd 0 ; number of valid windows in window listTime_Out_Idle dd 10000 ; the interval between message postsTime_Out_Handle dd 0 ; Handle to the global time out we createPtrSHELL_SUUAE_INFO dd 0 ; pointer to the SHELL_SUUAE_INFO structurePrevActiveDisplay dd 0 ; last screen or user input activityPrevActiveSystem dd 0 ; last system activityHooked_Proc dd 0 ; shell's user_activity entry that we hooked
; Fake user activity info structure in case on Win95.FakeSUUAE_INFO _SHELL_SUUAE_INFO <0,0,0,0,0>
VxD_LOCKED_DATA_ENDS
;******************************************************************************; C O D E;------------------------------------------------------------------------------; The 'body' of the VxD is in the standard code segment.;******************************************************************************
VxD_CODE_SEG
BeginProc SAGE_Start_Idle_Timer
push esi
; check to see if we've already got a timer mov esi, [Time_Out_Handle] test esi, esi jnz start1
; get a timer mov eax, [Time_Out_Idle] mov esi, OFFSET32 SAGE_User_Idle_Check VMMCall Set_Global_Time_Out mov [Time_Out_Handle], esi
start1: pop esi ret
EndProc SAGE_Start_Idle_Timer
BeginProc SAGE_Stop_Idle_Timer
push esi
; check to see if we have a timer mov esi, [Time_Out_Handle] test esi, esi jz stop1
; kill it VMMCall Cancel_Time_Out xor esi, esi mov [Time_Out_Handle], esi
stop1: pop esi ret
EndProc SAGE_Stop_Idle_Timer
;******************************************************************************;; SAGE_Device_IO;; DESCRIPTION:; This is the routine that is called when the CreateFile or; DeviceIoControl is made;; ENTRY:; ESI = Pointer to args (see VWIN32.INC for struct definition);; EXIT:; EAX = return value;; USES:; flags;;==============================================================================
BeginProc SAGE_Device_IO
mov ecx, [esi.dwIOControlCode] test ecx, ecx jnz next1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ; DIOC_GETVERSION ;
; obtain a pointer to the shell vxd's activity timer info cmp [PtrSHELL_SUUAE_INFO], 0 jne short getver1 VxDCall SHELL_Get_Version cmp eax, 040Ah jae short haveSUUAEX
; Running on Win95 so we don't have SHELL_Update_User_Activty_Ex service, ; hook the shell vxd's activity service to watch activity. mov esi, offset32 SAGE_Update_User_Activity GetVxDServiceOrdinal eax, SHELL_Update_User_Activity VMMCall Hook_Device_Service mov eax, offset32 FakeSUUAE_INFO jmp short setSUUAE_INFO
haveSUUAEX: VxDCall _SHELL_Update_User_Activity_Ex, <SUUAE_CONTINUOUS OR SUUAE_CONTINUOUS_CHECK>setSUUAE_INFO: mov [PtrSHELL_SUUAE_INFO], eax ; (eax) = ptr to SHELL_SUAAE_INFO structure getver1: xor eax, eax ; success ret
next1: cmp ecx,-1 jne next2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ; DIOC_CLOSE ;
; see if we have clients to close cmp [cClients], 0 jz close1
; we do... see if it's the last one... dec [cClients] cmp [cClients], 0 jnz close1
; last client going away - clean up call SAGE_Stop_Idle_Timer
cmp [PtrSHELL_SUUAE_INFO], offset32 FakeSUUAE_INFO jne short close1
; unhook activity service GetVxDServiceOrdinal eax,SHELL_Update_User_Activity mov esi, offset32 SAGE_Update_User_Activity VMMCall Unhook_Device_Service xor eax, eax mov [PtrSHELL_SUUAE_INFO], eax ; clear pointer
close1: xor eax,eax ; success ret
next2: cmp ecx,1 jne next3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ; Set handle and timeout ; mov ebx, [esi.lpvInBuffer]
; Try to find window handle mov eax, [ebx] mov ecx, [cClients] test ecx, ecx jz addtolist
ioloop: cmp eax, [Window_List + 4 * ecx - 4] je timeout
dec ecx jnz ioloop
; Can't find it - add it to window list mov ecx, [cClients] cmp ecx, 8 jnl timeout
addtolist: inc [cClients] mov [Window_List + 4 * ecx], eax
timeout: ; update timeout if specified mov eax, [ebx+8] test eax, eax jz config1
mov [Time_Out_Idle], eax
config1: call SAGE_Start_Idle_Timer
xor eax, eax ; success retnext3: cmp ecx, 2 jne next4
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ; Query last activity ; mov ebx, [esi.lpvInBuffer] mov edx, [PtrSHELL_SUUAE_INFO] .errnz ssiHoldSystem-ssiHoldDisplay-1 cmp word ptr [edx].ssiHoldDisplay, 0 jne short lact1 ; system or display in "hold" state mov eax, [edx].ssiTimeLastActiveDisplay cmp eax, [edx].ssiTimeLastActiveSystem jae short lact2 mov eax, [edx].ssiTimeLastActiveSystem jmp short lact2
lact1: VMMCall Get_Last_Updated_System_Timelact2: mov [ebx], eax xor eax, eax ret
next4:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ; some unsupported value... ; mov eax, ERROR_NOT_SUPPORTED ret
EndProc SAGE_Device_IO
VxD_CODE_ENDS
;******************************************************************************; P A G E L O C K E D C O D E;------------------------------------------------------------------------------; Memory is a scarce resource. Use this only where necessary.;******************************************************************************VxD_LOCKED_CODE_SEG
;******************************************************************************;; SAGE_Control;; DESCRIPTION:;; This is a call-back routine to handle the messages that are sent; to VxD's to control system operation. Every VxD needs this function; regardless if messages are processed or not. The control proc must; be in the LOCKED code segment.;; The Control_Dispatch macro used in this procedure simplifies; the handling of messages. To handle a particular message, add; a Control_Dispatch statement with the message name, followed; by the procedure that should handle the message. ;; ENTRY:; EAX = Message number; EBX = VM Handle;;==============================================================================
BeginProc SAGE_Control
Control_Dispatch W32_DEVICEIOCONTROL, SAGE_Device_IO clc ret
EndProc SAGE_Control
BeginDoc;******************************************************************************;; SAGE_Update_User_Activity;; DESCRIPTION:;; This service is called by VMD, VKD to tell us that user input occured; ENTRY: None; EXIT: None; USES: NONE;==============================================================================EndDocBeginProc SAGE_Update_User_Activity, HOOK_PROC, Hooked_Proc
push eax
; save off the time VMMCall Get_Last_Updated_System_Time mov [FakeSUUAE_INFO.ssiTimeLastActiveDisplay], eax
pop eax jmp Hooked_Proc
EndProc SAGE_Update_User_Activity
VxD_LOCKED_CODE_ENDS
VxD_PAGEABLE_CODE_SEG
;******************************************************************************;; SAGE_User_Idle_Check;; DESCRIPTION:;; This checks if key/mouse or serial port (comm) event has occurred.;; Entry:; None; Exit:; None; Uses:; ALL;******************************************************************************
BeginProc SAGE_User_Idle_Check,High_Freq,PUBLIC ; ; clear handle ; xor ecx, ecx mov [Time_Out_Handle], ecx ; ; check for idleness ; mov eax, [PtrSHELL_SUUAE_INFO] ; (eax) = ptr to SHELL_SUAAE_INFO structure .errnz ssiHoldSystem-ssiHoldDisplay-1 cmp word ptr [eax].ssiHoldDisplay, 0 jne short holdActive ; system or display in "hold" state mov ecx, [eax].ssiTimeLastActiveDisplay mov edx, [eax].ssiTimeLastActiveSystem cmp ecx, [PrevActiveDisplay] jne notIdle ; display activity changed cmp edx, [PrevActiveSystem] je ResetTimer ; no display or system activity since last time
; ; Not idle so post a message to all clients who want to know ; notIdle: mov [PrevActiveDisplay], ecx ; update idle times for next time mov [PrevActiveSystem], edxholdActive: xor eax, eax mov ecx, [cClients] test ecx, ecx jz ResetTimer
loop0:
; get next window mov ebx, [4 * ecx + Window_List - 4]
; skip if it's -1 cmp ebx, -1 je loop1 ; post message push ecx VxDCall _SHELL_PostMessage, <ebx, WM_SAGE_MSG, eax, eax, eax, eax> pop ecx
loop1: dec ecx jnz loop0
; ; reset the timer so we check again later ; ResetTimer: call SAGE_Start_Idle_Timer ret EndProc SAGE_User_Idle_Check
VxD_PAGEABLE_CODE_ENDS
;******************************************************************************; R E A L M O D E C O D E;******************************************************************************
;******************************************************************************;; Real mode initialization code;; DESCRIPTION:; This code is called when the system is still in real mode, and; the VxDs are being loaded.;; This routine as coded shows how a VxD (with a defined VxD ID); could check to see if it was being loaded twice, and abort the ; second without an error message. Note that this would require; that the VxD have an ID other than Undefined_Device_ID. See; the file VXDID.TXT more details.;; ENTRY:; AX = VMM Version; BX = Flags; Bit 0: duplicate device ID already loaded ; Bit 1: duplicate ID was from the INT 2F device list; Bit 2: this device is from the INT 2F device list; EDX = Reference data from INT 2F response, or 0; SI = Environment segment, passed from MS-DOS;; EXIT:; BX = ptr to list of pages to exclude (0, if none); SI = ptr to list of instance data items (0, if none); EDX = DWORD of reference data to be passed to protect mode init;;==============================================================================
VxD_REAL_INIT_SEG
BeginProc SAGE_Real_Init_Proc
test bx, Duplicate_Device_ID ; check for already loaded jnz short duplicate ; jump if so
xor bx, bx ; no exclusion table xor si, si ; no instance data table xor edx, edx ; no reference data
mov ax, Device_Load_Ok ret
duplicate: mov ax, Abort_Device_Load + No_Fail_Message ret
EndProc SAGE_Real_Init_Proc
VxD_REAL_INIT_ENDS
END
|
