Source file: /~heha/hsn/t_und_m.zip/SRC/MOUSEDRV.ASM

;Können kein PASCAL nehmen, weil der USER.MessageBox anbindet -> Ladefehler!

	model	small,pascal
	P386
	locals	@@

public Inquire,Enable,Disable,MouseGetIntVect,WEP

MouseH_Device_ID=37FCh		;{probehalber!}

DATASEG
VxDEntry	dd	?

CODESEG
Inquire proc windows pascal far
arg @@lpMouseInfo: DWORD
	;mov	ax,seg @data
	;mov	ds,ax
	les	bx,[@@lpMouseInfo]
	mov	ah,1
	call	[VxDEntry]
	ret
Inquire endp

Enable proc windows pascal far
arg @@IntProc: DWORD
	les	bx,[@@IntProc]
	mov	ah,2
	call	[VxDEntry]
	ret
Enable endp

Disable proc windows pascal far
	mov	ah,3
	call	[VxDEntry]
	ret
Disable endp

MouseGetIntVect proc windows pascal far
	mov	ah,4
	call	[VxDEntry]
	ret
MouseGetIntVect endp

startup proc windows pascal far
	mov	di,offset WEP
	push	cs
	pop	es
	mov	bx,MouseH_Device_ID
	mov	ax,1684h
	int	2Fh
	mov	word ptr [VxDEntry],di
	mov	word ptr [VxDEntry+2],es
	ret
startup endp

WEP:	retf

	end	startup