xref _MathIeeeSingBasBase

 xdef __ieeefltull
__ieeefltull:
 move.l  4(sp),d0
 move.l  a6,-(sp)
 move.l  _MathIeeeSingBasBase,a6
 jsr     -36(a6)
 tst.l   8(sp)
 bge.s   ll
 move.l  #$4f800000,d1
 jsr     -66(a6)
ll:
 move.l  (sp)+,a6
 rts