home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / UE311C.ZIP / STMOUSE.S < prev    next >
Text File  |  1990-08-16  |  666b  |  23 lines
  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
  12. mymouse_:            / 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.