home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / CCDL122.ZIP / CLIBS / MATH / 68K / ATAN2.SRC < prev    next >
Encoding:
Text File  |  1996-06-13  |  389 b   |  30 lines
  1.     XDEF _atan
  2.     section code
  3. _atan:
  4.     fmove.d    (a0),FP0
  5.     fmove.d    (8,a0),FP1
  6.     clr.l     d0
  7.     clr.l    d1
  8.     ftst.x    fp0
  9.     fbge.b    m1
  10.     addq    #1,d0
  11. m1:
  12.     ftst.x    fp1
  13.     fbge.b    m2
  14.     addq    #1,d1
  15. m2:
  16.     fdiv.x    fp0,fp1
  17.           fatan.x    FP1,FP0
  18.     fabs.x    fp0
  19.     tst.b    d0
  20.     fbeq    testneg
  21. d0ne:
  22.     fmovecr.X    #0,fp1        ; PI
  23.     fsub.x    fp0,fp1
  24.     fmove.x    fp1,fp0
  25. testneg:
  26.     tst.b    d1
  27.     beq.b    out
  28.     fneg.x    fp0
  29. out:
  30.     rts