mach/sun3/libce/cmf8.s

   1 .sect .text; .sect .rom; .sect .data; .sect .bss
   2 .sect .text
   3 .define cmf8
   4 cmf8:
   5         move.l  (sp)+,a1
   6         lea     (8,sp),a0
   7         move.l  (a0),d0
   8         move.l  (4,a0),d1
   9         move.l  (sp)+,(a0)
  10         move.l  (sp)+,(4,a0)
  11         move.l  a1,-(sp)
  12         jsr     (Fcmpd)
  13         blt     1f
  14         bgt     2f
  15         clr.l   (8,sp)
  16 3:
  17         move.l  (sp)+,a1
  18         tst.l   (sp)+
  19         jmp     (a1)
  20 1:
  21         move.l  #-1,(8,sp)
  22         bra     3b
  23 2:
  24         move.l  #1,(8,sp)
  25         bra     3b
  26