arch/m68k-all/stdc/math/s_fpclassify-881.s

   1 #    Copyright © 2018, The AROS Development Team. All rights reserved.
   2 #    $Id$
   3 #include "aros/m68k/asm.h"
   4
   5         .text
   6         .balign 4
   7         .globl  AROS_SLIB_ENTRY(fpclassify881, STDC, 113)
   8         _FUNCTION(AROS_SLIB_ENTRY(fpclassify881, STDC, 113))
   9
  10 AROS_SLIB_ENTRY(fpclassify881, STDC, 113):
  11         fmove.s %d0,%fp0
  12         ftst.x  %fp0
  13         moveq   #7,%d1
  14         fmove.l %fpsr,%d0
  15         rol.l   #8,%d0
  16         and.l   %d1,%d0
  17         rts