arch/m68k-all/mathffp/sptst.S

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id: SPTst.S
   4
   5     Desc: mathffp/SPTst m68k version. Generates correct 680x0 flags.
   6     Lang: english
   7 */
   8
   9     #include "aros/m68k/asm.h"
  10
  11     .text
  12     .balign 4
  13     .globl  AROS_SLIB_ENTRY(SPTst,Mathffp,8)
  14     .globl  AROS_SLIB_ENTRY(SPCmp,Mathffp,7)
  15 AROS_SLIB_ENTRY(SPTst,Mathffp,8):
  16
  17         moveq   #0,%d0
  18         /* == 0? */
  19         tst.b   %d1
  20         beq.s   .done
  21         /* >0? */
  22         moveq   #1,%d0
  23         tst.b   %d1
  24         bpl.s   .done
  25         /* <0 */
  26         moveq   #-1,%d0
  27         tst.b   %d1
  28 .done:
  29         rts