mach/sun3/libce/fef8.s

   1 .sect .text; .sect .rom; .sect .data; .sect .bss
   2 .sect .text
   3 .define fef8
   4 fef8:
   5         move.l  (4,sp),d0
   6         move.l  (8,sp),d1
   7         lea     (8,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         move.l  (sp),a0
  14         move.l  d0,(4,sp)
  15         move.l  (8,sp),d0
  16         move.l  d1,(8,sp)
  17         move.l  d0,(sp)
  18         jmp     (a0)
  19