mach/sun3/libce/cmf4.s

   1 .sect .text; .sect .rom; .sect .data; .sect .bss
   2 .sect .text
   3 .define cmf4
   4 cmf4:
   5         move.l  (sp)+,a0
   6         move.l  (sp)+,d1
   7         move.l  (sp),d0
   8         move.l  a0,-(sp)
   9         jsr     (Fcmps)
  10         blt     1f
  11         bgt     2f
  12         clr.l   (4,sp)
  13         rts
  14 1:
  15         move.l  #-1,(4,sp)
  16         rts
  17 2:
  18         move.l  #1,(4,sp)
  19         rts
  20