home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / gnu / libsrc87 / _cmpsf2.s < prev    next >
Encoding:
Text File  |  1993-07-30  |  2.4 KB  |  136 lines
  1. | single floating point compare routine
  2. |
  3. | written by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  4. | Based on a 68k floating point packet from Kai-Uwe Bloem, itself based
  5. | on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  6. | 
  7. | Revision 2.0: olaf 12-92.
  8. |
  9.  
  10.     .text
  11.     .even
  12.     .globl    ___eqsf2, ___nesf2
  13.     .globl    ___gtsf2, ___lesf2
  14.     .globl    ___gesf2, ___ltsf2
  15.     | additional entry points for gcc 1.X    
  16.     .globl    __cmpsf2, ___cmpsf2
  17.  
  18. __cmpsf2:
  19. ___cmpsf2:
  20. ___eqsf2:
  21. ___nesf2:
  22.     moveml    sp@(4),d0-d1    | get numbers to compare with
  23.     tstl    d0        | check sign bit
  24.     bpl    1f
  25.     negl    d0
  26.     bchg    #31,d0        | toggle sign bit
  27.  
  28. 1:    tstl    d1        | check sign bit
  29.     bpl    2f
  30.     negl    d1        | negate
  31.     bchg    #31,d1        | toggle sign bit
  32.  
  33. 2:    cmpl    d1,d0
  34.     bne    4f
  35.     bclr    #31,d1
  36.     cmpl    #0x7f800000,d1        | NaN is not equal NaN !
  37.     bgt    4f
  38.     clrl    d0
  39.     rts
  40.  
  41. 4:    moveql    #1,d0
  42.     rts
  43.  
  44. ___gtsf2:
  45.     moveml    sp@(4),d0-d1    | get numbers to compare with
  46.     tstl    d0        | check sign bit
  47.     bpl    1f
  48.     negl    d0        | negate
  49.     bchg    #31,d0        | toggle sign bit
  50.  
  51. 1:    tstl    d1        | check sign bit
  52.     bpl    2f
  53.     negl    d1        | negate
  54.     bchg    #31,d1        | toggle sign bit
  55.  
  56. 2:    cmpl    d1,d0
  57.     bgt    4f        | d0 > d1 Test if NaN (should be false!)
  58. 3:    clrl    d0        | Test is false.
  59.     rts
  60.  
  61. 4:    bclr    #31,d0        
  62.     cmpl    #0x7f800000,d0    | First operand == NaN =?
  63.     bgt    3b
  64.     moveql    #1,d0        | Test True
  65.     rts
  66.  
  67. ___lesf2:
  68.     moveml    sp@(4),d0-d1    | get numbers to compare with
  69.     tstl    d0        | check sign bit
  70.     bpl    1f
  71.     negl    d0        | negate
  72.     bchg    #31,d0        | toggle sign bit
  73.  
  74. 1:    tstl    d1        | check sign bit
  75.     bpl    2f
  76.     negl    d1        | negate
  77.     bchg    #31,d1        | toggle sign bit
  78.  
  79. 2:    cmpl    d1,d0
  80.     ble    4f
  81. 3:    moveql    #1,d0        | Test is false
  82.     rts
  83. 4:    bclr    #31,d0        
  84.     cmpl    #0x7f800000,d0    | First operand == NaN =?
  85.     bgt    3b
  86.     clrl    d0        | Test true
  87.     rts
  88.  
  89. ___gesf2:
  90.     moveml    sp@(4),d0-d1    | get numbers to compare with
  91.     tstl    d0        | check sign bit
  92.     bpl    1f
  93.     negl    d0        | negate
  94.     bchg    #31,d0        | toggle sign bit
  95.  
  96. 1:    tstl    d1        | check sign bit
  97.     bpl    2f
  98.     negl    d1        | negate
  99.     bchg    #31,d1        | toggle sign bit
  100.  
  101. 2:    cmpl    d1,d0
  102.     bge    4f
  103. 3:    moveql    #-1,d0        | False
  104.     rts
  105.  
  106. 4:    bclr    #31,d0        
  107.     cmpl    #0x7f800000,d0    | First operand == NaN =?
  108.     bgt    3b
  109.     clrl    d0        | Test True
  110.     rts
  111.  
  112. ___ltsf2:
  113.     moveml    sp@(4),d0-d1    | get numbers to compare with
  114.     tstl    d0        | check sign bit
  115.     bpl    1f
  116.     negl    d0        | negate
  117.     bchg    #31,d0        | toggle sign bit
  118.  
  119. 1:    tstl    d1        | check sign bit
  120.     bpl    2f
  121.     negl    d1        | negate
  122.     bchg    #31,d1        | toggle sign bit
  123.  
  124. 2:    cmpl    d1,d0
  125.     blt    4f
  126. 3:    clrl    d0
  127.     rts
  128. 4:    bclr    #31,d0        
  129.     cmpl    #0x7f800000,d0    | First operand == NaN =?
  130.     bgt    3b
  131. 5:    moveql    #-1,d0        | Test True
  132.     rts
  133.  
  134.  
  135.  
  136.