mach/sun3/libce/cif.s

   1 .sect .text; .sect .rom; .sect .data; .sect .bss
   2 .sect .text
   3 .define cif
   4 cif:
   5         move.l  (sp)+,a0
   6         move.l  (sp)+,d1
   7         move.l  (sp)+,d0        ! should be 4
   8         cmp.l   #4,d1
   9         bne     1f
  10         move.l  (sp),d0
  11         move.l  a0,-(sp)
  12         jsr     (Fflts)
  13         move.l  d0,(4,sp)
  14         rts
  15 1:
  16         move.l  (sp),d0
  17         tst.l   -(sp)
  18         move.l  a0,-(sp)
  19         jsr     (Ffltd)
  20         move.l  d1,(8,sp)
  21         move.l  d0,(4,sp)
  22         rts
  23