home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
CMDS
/
memacs400_src.lzh
/
MEMACS400
/
SRC
/
stmouse.s
< prev
next >
Wrap
Text File
|
1996-04-25
|
644b
|
23 lines
/ 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