1/ stmouse.s, a handler that preserves A0 across the call, and calls 2/ two mouse routines. 3/ 4/ 31-Dec-1987 Jeff Lomicka 5/ 6/ mymouse( hdr1, hdr2) calls both handlers with A0 and stack parameter 7/ 8 .globl mymouse_ 9 .globl first_mhandler_ 10 .globl second_mhandler_ 11 .shri 12mymouse_: / Replacement mouse handler 13 move.l a0, -(a7) / Save value for second handler 14 move.l a0, -(a7) / Pass to first handler 15 movea.l first_mhandler_, a1 / Pick up second handler 16 jsr (a1) / Call first handler 17 addq $4,a7 / Recover stack 18 movea.l (a7), a0 / Recover A0 19 movea.l second_mhandler_, a1 / Pick up second handler 20 jsr (a1) 21 addq $4,a7 / Recover stack 22 rts 23