mach/sun3/libce/cuf.s

   1 .sect .text; .sect .rom; .sect .data; .sect .bss
   2 .define cuf
   3 .sect .rom
   4 L1:     .data4 0x41f00000, 0x0
   5 .sect .text
   6 cuf:
   7         move.l  (sp)+,a0
   8         move.l  (sp)+,d1
   9         move.l  (sp)+,d0        ! should be 4
  10         cmp.l   #4,d1
  11         bne     1f
  12         move.l  (sp),d0
  13         move.l  a0,-(sp)
  14         jsr     (Fflts)
  15         tst.l   d0
  16         bpl     2f
  17         move.l  #0x4f800000,d1
  18         jsr     (Fadds)
  19 2:
  20         move.l  d0,(4,sp)
  21         rts
  22 1:
  23         move.l  (sp),d0
  24         tst.l   -(sp)
  25         move.l  a0,-(sp)
  26         jsr     (Ffltd)
  27         tst.l   d0
  28         bpl     2f
  29         lea     (L1),a0
  30         jsr     (Faddd)
  31 2:
  32         move.l  d1,(8,sp)
  33         move.l  d0,(4,sp)
  34         rts