
		AREA	|ARM$$code|,CODE,READONLY

		GET	OSLib:OSLib.Hdr.OS

		ENTRY

mod_base	DCD	0
		DCD	mod_init - mod_base
		DCD	mod_fin - mod_base
		DCD	0
		DCD	mod_title - mod_base
		DCD	mod_help - mod_base
		DCD	0
		DCD	0
		DCD	0
		DCD	0
		DCD	0
		DCD	0
		DCD	mod_flags - mod_base
mod_flags	DCD	1

mod_title	=	"LHMouse",0
mod_help	=	"LHMouse",9,"1.00 (15 Mar 2004)",0
		ALIGN

mod_init	MOV	R6,R14
		MOV	R0,#&13
		ADR	R1,keyv_handler
		MOV	R2,#0
		SWI	XOS_Claim
		MOV	PC,R6

mod_fin		MOV	R6,R14
		MOV	R0,#&13
		ADR	R1,keyv_handler
		MOV	R2,#0
		SWI	XOS_Release
		MOV	PC,R6

keyv_handler	TEQ	R0,#1
		TEQNE	R0,#2
		MOVNE	PC,R14
		TEQ	R1,#&70
		TEQNE	R1,#&72
		EOREQ	R1,R1,#2
		MOV	PC,R14

		END
