xref _MathIeeeSingBasBase

 xdef __ieeefixlu
__ieeefixlu:
 move.l  a6,-(sp)
 move.l  _MathIeeeSingBasBase,a6
 move.l  8(sp),d0
 move.l  #$4f000000,d1
 jsr     -42(a6)
 tst.l   d0         ; noetig?
 bge.s   ll
 move.l  8(sp),d0
 jsr     -30(a6)
 move.l  (sp)+,a6
 rts
ll:
 move.l  8(sp),d0
 move.l  #$4f000000,d1
 jsr     -72(a6)
 jsr     -30(a6)
 eor.l   #-2147483648,d0
 move.l  (sp)+,a6
 rts