mach/sun3/libce/fef4.s

   1 .sect .text; .sect .rom; .sect .data; .sect .bss
   2 .sect .text
   3 .define fef4
   4 fef4:
   5         move.l  (4,sp),d0
   6         jsr     (Fstod)         ! convert to double
   7         lea     (4,sp),a0       ! build stack for frexp
   8         move.l  a0,-(sp)
   9         move.l  d1,-(sp)
  10         move.l  d0,-(sp)
  11         jsr     (_frexp)
  12         lea     (12,sp),sp
  13         jsr     (Fdtos)         ! convert result to single
  14         move.l  (sp),a0
  15         move.l  (4,sp),d1
  16         move.l  d0,(4,sp)
  17         move.l  d1,(sp)
  18         jmp     (a0)
  19