home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / vbcc / machines / amiga68k / libsrc / math / math_040o / atan.s < prev    next >
Encoding:
Text File  |  1998-06-24  |  212 b   |  15 lines
  1.  fpu 1
  2.  
  3.  xref _MathIeeeDoubTransBase
  4.  
  5.  xdef _atan
  6. _atan:
  7.  movem.l 4(sp),d0-d1
  8.  move.l  a6,-(sp)
  9.  move.l  _MathIeeeDoubTransBase,a6
  10.  jsr     -30(a6)
  11.  movem.l  d0-d1,-(a7)
  12.  fmove.d (a7)+,fp0
  13.  move.l  (sp)+,a6
  14.  rts
  15.