mach/sun3/libce/cfu.s

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