mach/sun3/libce/fif8.s

   1 .sect .text; .sect .rom; .sect .data; .sect .bss
   2 .sect .text
   3 .define fif8
   4 fif8:
   5         move.l  (4,sp),d0
   6         move.l  (8,sp),d1
   7         lea     (12,sp),a0
   8         jsr     (Fmuld)         ! result in d0/d1
   9         lea     (4,sp),a0       ! build stack for modf
  10         move.l  a0,-(sp)
  11         move.l  d1,-(sp)
  12         move.l  d0,-(sp)
  13         jsr     (_modf)
  14         lea     (12,sp),sp
  15         move.l  d0,(12,sp)
  16         move.l  d1,(16,sp)
  17         rts