home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource4 / 250_01 / tanh.s < prev   
Encoding:
Text File  |  1987-10-29  |  512 b   |  29 lines
  1.     .ttl    "tanh.s"
  2.  
  3. * MC68020/MC68881 IEEE Format Single Precision Routines
  4. *
  5. * Written by: Edmund H. Ramm
  6. *
  7. * _tanh entry point for single prec. hyperbolic tangent, op. in 4(sp)
  8. *
  9. *     sp     4
  10. *    ---------------
  11. *    | ret  |  x   |
  12.  
  13.  
  14.     .text
  15.     .globl    _tanh
  16.  
  17.  
  18. _tanh:
  19. *
  20. *    on exit, d0, = tanh( 4(sp) )
  21. *
  22. *    ftanh.s    4(sp),fp0        * fp0 <-- tanh( 4(sp) )
  23.     dc.w    $f22f,$4409,$0004
  24. *    fmove.s    fp0,d0            * d0 <-- hyp. tangent
  25.     dc.w    $f200,$6400
  26.     rts
  27.  
  28.     .end
  29.