arch/m68k-all/mathieeesingbas/fpu.S

   1 \r
   2         #include "aros/m68k/asm.h"\r
   3 \r
   4         .chip 68040\r
   5         .text\r
   6         .balign 4\r
   7         .globl  AROS_SLIB_ENTRY(Mul_6888x,MathIeeeSingBas,13)\r
   8         .type   AROS_SLIB_ENTRY(Mul_6888x,MathIeeeSingBas,13),@function\r
   9 AROS_SLIB_ENTRY(Mul_6888x,MathIeeeSingBas,13):\r
  10         fmove.s %d0,%fp0\r
  11         fmul.s %d1,%fp0\r
  12         fmove.s %fp0,%d0\r
  13         rts\r
  14 \r
  15         .balign 4\r
  16         .globl  AROS_SLIB_ENTRY(Div_6888x,MathIeeeSingBas,14)\r
  17         .type   AROS_SLIB_ENTRY(Div_6888x,MathIeeeSingBas,14),@function\r
  18 AROS_SLIB_ENTRY(Div_6888x,MathIeeeSingBas,14):\r
  19         fmove.s %d0,%fp0\r
  20         fdiv.s %d1,%fp0\r
  21         fmove.s %fp0,%d0\r
  22         rts\r
  23 \r
  24         .balign 4\r
  25         .globl  AROS_SLIB_ENTRY(Add_6888x,MathIeeeSingBas,11)\r
  26         .type   AROS_SLIB_ENTRY(Add_6888x,MathIeeeSingBas,11),@function\r
  27 AROS_SLIB_ENTRY(Add_6888x,MathIeeeSingBas,11):\r
  28         fmove.s %d0,%fp0\r
  29         fadd.s %d1,%fp0\r
  30         fmove.s %fp0,%d0\r
  31         rts\r
  32 \r
  33         .balign 4\r
  34         .globl  AROS_SLIB_ENTRY(Sub_6888x,MathIeeeSingBas,12)\r
  35         .type   AROS_SLIB_ENTRY(Sub_6888x,MathIeeeSingBas,12),@function\r
  36 AROS_SLIB_ENTRY(Sub_6888x,MathIeeeSingBas,12):\r
  37         fmove.s %d0,%fp0\r
  38         fsub.s %d1,%fp0\r
  39         fmove.s %fp0,%d0\r
  40         rts\r
  41 \r
  42         .balign 4\r
  43         .globl  AROS_SLIB_ENTRY(Neg_6888x,MathIeeeSingBas,10)\r
  44         .type   AROS_SLIB_ENTRY(Neg_6888x,MathIeeeSingBas,10),@function\r
  45 AROS_SLIB_ENTRY(Neg_6888x,MathIeeeSingBas,10):\r
  46         fneg.s %d0,%fp0\r
  47         fmove.s %fp0,%d0\r
  48         rts\r
  49 \r
  50         .balign 4\r
  51         .globl  AROS_SLIB_ENTRY(Abs_6888x,MathIeeeSingBas,9)\r
  52         .type   AROS_SLIB_ENTRY(Abs_6888x,MathIeeeSingBas,9),@function\r
  53 AROS_SLIB_ENTRY(Abs_6888x,MathIeeeSingBas,9):\r
  54         fabs.s %d0,%fp0\r
  55         fmove.s %fp0,%d0\r
  56         rts\r
  57 \r
  58         .balign 4\r
  59         .globl  AROS_SLIB_ENTRY(Fix_6888x,MathIeeeSingBas,5)\r
  60         .type   AROS_SLIB_ENTRY(Fix_6888x,MathIeeeSingBas,5),@function\r
  61 AROS_SLIB_ENTRY(Fix_6888x,MathIeeeSingBas,5):\r
  62         fmove.s %d0,%fp0\r
  63         fmove.l %fp0,%d0\r
  64         rts\r
  65 \r
  66         .balign 4\r
  67         .globl  AROS_SLIB_ENTRY(Flt_6888x,MathIeeeSingBas,6)\r
  68         .type   AROS_SLIB_ENTRY(Flt_6888x,MathIeeeSingBas,6),@function\r
  69 AROS_SLIB_ENTRY(Flt_6888x,MathIeeeSingBas,6):\r
  70         fmove.l %d0,%fp0\r
  71         fmove.s %fp0,%d0\r
  72         rts\r
  73 \r
  74         .globl init_6888x_single\r
  75 init_6888x_single:\r
  76         /* Round to nearest, single precision */\r
  77         moveq #0,%d0\r
  78         move.w #0x00+0x40,%d0\r
  79         fmove.l %d0,%fpcr\r
  80         rts