home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / c / vbcc / machines / amiga68k / libsrc / amigalib / coercemethod.s < prev    next >
Encoding:
Text File  |  1997-12-30  |  431 b   |  29 lines
  1.     section "CODE",code
  2.     cnop    0,4
  3.     xdef    _CoerceMethod
  4.     xdef    _CoerceMethodA
  5.  
  6. _CoerceMethod
  7.     lea     12(a7),a1
  8.     bra     L_CoerceMethod
  9.  
  10. _CoerceMethodA
  11.     move.l  12(a7),a1
  12.  
  13. L_CoerceMethod:
  14.     move.l  a2,-(a7)
  15.     movem.l 8(a7),a0/a2
  16.     move.l  a0,d0
  17.     beq     L_Null
  18.     move.l  a2,d0
  19.     beq     L_Null
  20.     bsr     L_Invoke
  21. L_Null
  22.     move.l  (a7)+,a2
  23.     rts
  24.  
  25. L_Invoke
  26.     move.l  8(a0),-(a7)
  27.     rts
  28.  
  29.