/	stmouse.s, a handler that preserves A0 across the call, and calls
/	two mouse routines.
/
/	31-Dec-1987	Jeff Lomicka
/
/	mymouse( hdr1, hdr2) calls both handlers with A0 and stack parameter
/
	.globl	mymouse_
	.globl	first_mhandler_
	.globl	second_mhandler_
	.shri
mymouse_:			/ Replacement mouse handler
	move.l	a0, -(a7)	/ Save value for second handler
	move.l	a0, -(a7)	/ Pass to first handler
	movea.l	first_mhandler_, a1	/ Pick up second handler
	jsr	(a1)		/ Call first handler
	addq	$4,a7		/ Recover stack
	movea.l	(a7), a0	/ Recover A0
	movea.l	second_mhandler_, a1	/ Pick up second handler
	jsr	(a1)
	addq	$4,a7		/ Recover stack
	rts
