home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Mint / mntlib25.zoo / _negdf2.s < prev    next >
Text File  |  1992-12-12  |  531b  |  25 lines
  1. | double floating point negation routine
  2. |
  3. | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  4. | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  5. |
  6. |
  7. | Revision 1.1, kub 12-89 :
  8. | Ported over to 68k assembler
  9. |
  10. | Revision 1.0:
  11. | original 8088 code from P.S.Housel
  12.  
  13.     .text
  14.     .even
  15.     .globl    __negdf2, ___negdf2
  16.  
  17. __negdf2:            | floating point negate
  18. ___negdf2:
  19.     movel    sp@(4),d0    | do not negate if operand is 0.0
  20.     orl    sp@(8),d0
  21.     moveml    sp@(4),d0-d1    | get number
  22.     beq    0f
  23.     bchg    #31,d0        | flip sign bit
  24. 0:    rts
  25.