home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / vbcc / machines / amiga68k / libsrc / AmigaLib / CoerceMethod.s < prev    next >
Encoding:
Text File  |  1998-06-24  |  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.