xref _MathIeeeDoubBasBase

 xdef __ieeefltuld
__ieeefltuld:   ;
 move.l  4(sp),d0
 movem.l d2/d3/a6,-(sp)
 move.l  _MathIeeeDoubBasBase,a6
 jsr     -36(a6)
 tst.l   16(sp)
 bge.s   ll
 move.l  #$41f00000,d2
 moveq   #0,d3
 jsr     -66(a6)
ll:
 movem.l (sp)+,d2/d3/a6
 rts