home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Mint / mntlib32.zoo / _isnan.s < prev    next >
Text File  |  1993-01-14  |  556b  |  34 lines
  1. | double floating point predicates as proposed by IEEE (appendix)
  2. |
  3. |  Isnan(x)  returns true iff x is a NaN
  4. |  Finite(x) returns trus iff x is finite (i.e. not an infiniy or a NaN)
  5. |
  6. | written by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  7. |
  8. | Revision 1.0 olaf 12-92
  9. | 
  10.     .text
  11.     .even
  12.     .globl    _Isnan
  13.     .globl    _Finite
  14.  
  15. _Isnan:    moveml    sp@(4),d0/d1
  16.     bclr    #31,d0
  17.     cmpl    #0x7ff00000,d0
  18.     ble    No
  19.     tstl    d1
  20.     beq    No
  21.     moveql    #1,d0
  22.     rts
  23. No:    clrl    d0
  24.     rts
  25.  
  26. _Finite: moveml    sp@(4),d0/d1
  27.     bclr    #31,d0
  28.     cmpl    #0x7ff00000,d0
  29.     blt    Yes
  30.     clrl    d0
  31.     rts
  32. Yes:    moveql    #1,d0
  33.     rts
  34.