home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 250_01 / fpneg.s < prev    next >
Text File  |  1987-10-29  |  512b  |  28 lines
  1.     .ttl    "fabs.s"
  2.  
  3. * MC68020/MC68881 IEEE Format Single Precision Routines
  4. *
  5. * Written by: Edmund H. Ramm
  6. *
  7. * _fpneg entry point for single prec. negation, operand in 4(sp)
  8. *
  9. *     sp     4
  10. *    ---------------
  11. *    | ret  |  x   |
  12.  
  13.  
  14.     .text
  15.     .globl    _fpneg,fpneg
  16.  
  17.  
  18. _fpneg:
  19. fpneg:
  20. *
  21. * on exit, d0 = -( 4(sp) )
  22. *
  23.     move.l    4(sp),d0        * d0 <-- operand
  24.     bchg    #31,d0            * invert mantissa's sign
  25.     rts                * faster than MC68881's fneg
  26.  
  27.     .end
  28.