mach/sun3/libce/cff.s

   1 .sect .text; .sect .rom; .sect .data; .sect .bss
   2 .sect .text
   3 .define cff
   4 cff:
   5         move.l  (sp)+,a0
   6         move.l  (sp)+,d1
   7         move.l  (sp)+,d0
   8         cmp.l   d0,d1
   9         beq     2f
  10         cmp.l   #4,d0
  11         bne     1f
  12         move.l  (sp),d0
  13         tst.l   -(sp)
  14         move.l  a0,-(sp)
  15         jsr     (Fstod)
  16         move.l  d0,(4,sp)
  17         move.l  d1,(8,sp)
  18 2:
  19         rts
  20 1:
  21         move.l  (sp),d0
  22         move.l  (4,sp),d1
  23         move.l  a0,(sp)
  24         jsr     (Fdtos)
  25         move.l  d0,(4,sp)
  26         rts