xref _MathIeeeDoubBasBase

 xdef __ieeefixdu
__ieeefixdu:
 movem.l  d2/d3/a6,-(sp)
 move.l  _MathIeeeDoubBasBase,a6
 movem.l 16(sp),d0-d1
 move.l  #$41e00000,d2
 moveq   #0,d3
 jsr     -42(a6)
 tst.l   d0             ; noetig?
 bge.s   ll
 movem.l 16(sp),d0-d1
 jsr     -30(a6)
 movem.l  (sp)+,d2/d3/a6
 rts
ll:
 movem.l 16(sp),d0-d1
 move.l  #$41e00000,d2
 moveq   #0,d3
 jsr     -72(a6)
 jsr     -30(a6)
 eor.l   #-2147483648,d0
 movem.l  (sp)+,d2/d3/a6
 rts