arch/m68k-all/mathieeesingtrans/fpu.S

   1
   2         #include "aros/m68k/asm.h"
   3
   4         .chip 68040
   5         .text
   6         .balign 4
   7         .globl  AROS_SLIB_ENTRY(ATan_6888x,MathIeeeSingTrans,5)
   8         .type   AROS_SLIB_ENTRY(ATan_6888x,MathIeeeSingTrans,5),@function
   9 AROS_SLIB_ENTRY(ATan_6888x,MathIeeeSingTrans,5):
  10         fatan.s %d0,%fp0
  11         fmove.s %fp0,%d0
  12         rts
  13
  14         .balign 4
  15         .globl  AROS_SLIB_ENTRY(Sin_6888x,MathIeeeSingTrans,6)
  16         .type   AROS_SLIB_ENTRY(Sin_6888x,MathIeeeSingTrans,6),@function
  17 AROS_SLIB_ENTRY(Sin_6888x,MathIeeeSingTrans,6):
  18         fsin.s %d0,%fp0
  19         fmove.s %fp0,%d0
  20         rts
  21
  22         .balign 4
  23         .globl  AROS_SLIB_ENTRY(Cos_6888x,MathIeeeSingTrans,7)
  24         .type   AROS_SLIB_ENTRY(Cos_6888x,MathIeeeSingTrans,7),@function
  25 AROS_SLIB_ENTRY(Cos_6888x,MathIeeeSingTrans,7):
  26         fcos.s %d0,%fp0
  27         fmove.s %fp0,%d0
  28         rts
  29
  30         .balign 4
  31         .globl  AROS_SLIB_ENTRY(Tan_6888x,MathIeeeSingTrans,8)
  32         .type   AROS_SLIB_ENTRY(Tan_6888x,MathIeeeSingTrans,8),@function
  33 AROS_SLIB_ENTRY(Tan_6888x,MathIeeeSingTrans,8):
  34         ftan.s %d0,%fp0
  35         fmove.s %fp0,%d0
  36         rts
  37
  38         .balign 4
  39         .globl  AROS_SLIB_ENTRY(Sincos_6888x,MathIeeeSingTrans,9)
  40         .type   AROS_SLIB_ENTRY(Sincos_6888x,MathIeeeSingTrans,9),@function
  41 AROS_SLIB_ENTRY(Sincos_6888x,MathIeeeSingTrans,9):
  42         fsincos.s %d0,%fp1,%fp0
  43         fmove.s %fp1,%a0@
  44         fmove.s %fp0,%d0
  45         rts
  46
  47         .balign 4
  48         .globl  AROS_SLIB_ENTRY(Sinh_6888x,MathIeeeSingTrans,10)
  49         .type   AROS_SLIB_ENTRY(Sinh_6888x,MathIeeeSingTrans,10),@function
  50 AROS_SLIB_ENTRY(Sinh_6888x,MathIeeeSingTrans,10):
  51         fsinh.s %d0,%fp0
  52         fmove.s %fp0,%d0
  53         rts
  54
  55         .balign 4
  56         .globl  AROS_SLIB_ENTRY(Cosh_6888x,MathIeeeSingTrans,11)
  57         .type   AROS_SLIB_ENTRY(Cosh_6888x,MathIeeeSingTrans,11),@function
  58 AROS_SLIB_ENTRY(Cosh_6888x,MathIeeeSingTrans,11):
  59         fcosh.s %d0,%fp0
  60         fmove.s %fp0,%d0
  61         rts
  62
  63         .balign 4
  64         .globl  AROS_SLIB_ENTRY(Tanh_6888x,MathIeeeSingTrans,12)
  65         .type   AROS_SLIB_ENTRY(Tanh_6888x,MathIeeeSingTrans,12),@function
  66 AROS_SLIB_ENTRY(Tanh_6888x,MathIeeeSingTrans,12):
  67         ftanh.s %d0,%fp0
  68         fmove.s %fp0,%d0
  69         rts
  70
  71         .balign 4
  72         .globl  AROS_SLIB_ENTRY(Exp_6888x,MathIeeeSingTrans,13)
  73         .type   AROS_SLIB_ENTRY(Exp_6888x,MathIeeeSingTrans,13),@function
  74 AROS_SLIB_ENTRY(Exp_6888x,MathIeeeSingTrans,13):
  75         fetox.s %d0,%fp0
  76         fmove.s %fp0,%d0
  77         rts
  78
  79         .balign 4
  80         .globl  AROS_SLIB_ENTRY(Log_6888x,MathIeeeSingTrans,14)
  81         .type   AROS_SLIB_ENTRY(Log_6888x,MathIeeeSingTrans,14),@function
  82 AROS_SLIB_ENTRY(Log_6888x,MathIeeeSingTrans,14):
  83         flogn.s %d0,%fp0
  84         fmove.s %fp0,%d0
  85         rts
  86
  87 /*
  88
  89 Pow does not exist, use software
  90
  91         .balign 4
  92         .globl  AROS_SLIB_ENTRY(Pow_6888x,MathIeeeSingTrans,15)
  93         .type   AROS_SLIB_ENTRY(Pow_6888x,MathIeeeSingTrans,15),@function
  94 AROS_SLIB_ENTRY(Pow_6888x,MathIeeeSingTrans,15):
  95 */
  96
  97         .balign 4
  98         .globl  AROS_SLIB_ENTRY(Sqrt_6888x,MathIeeeSingTrans,16)
  99         .type   AROS_SLIB_ENTRY(Sqrt_6888x,MathIeeeSingTrans,16),@function
 100 AROS_SLIB_ENTRY(Sqrt_6888x,MathIeeeSingTrans,16):
 101         fsqrt.s %d0,%fp0
 102         fmove.s %fp0,%d0
 103         rts
 104
 105 /*
 106         .balign 4
 107         .globl  AROS_SLIB_ENTRY(Tieee_6888x,MathIeeeSingTrans,17)
 108         .type   AROS_SLIB_ENTRY(Tieee_6888x,MathIeeeSingTrans,17),@function
 109 AROS_SLIB_ENTRY(Tieee_6888x,MathIeeeSingTrans,17):
 110         rts
 111
 112         .balign 4
 113         .globl  AROS_SLIB_ENTRY(Fieee_6888x,MathIeeeSingTrans,18)
 114         .type   AROS_SLIB_ENTRY(Fieee_6888x,MathIeeeSingTrans,18),@function
 115 AROS_SLIB_ENTRY(Fieee_6888x,MathIeeeSingTrans,18):
 116         rts
 117 */
 118
 119         .balign 4
 120         .globl  AROS_SLIB_ENTRY(Asin_6888x,MathIeeeSingTrans,19)
 121         .type   AROS_SLIB_ENTRY(Asin_6888x,MathIeeeSingTrans,19),@function
 122 AROS_SLIB_ENTRY(Asin_6888x,MathIeeeSingTrans,19):
 123         fasin.s %d0,%fp0
 124         fmove.s %fp0,%d0
 125         rts
 126
 127         .balign 4
 128         .globl  AROS_SLIB_ENTRY(Acos_6888x,MathIeeeSingTrans,20)
 129         .type   AROS_SLIB_ENTRY(Acos_6888x,MathIeeeSingTrans,20),@function
 130 AROS_SLIB_ENTRY(Acos_6888x,MathIeeeSingTrans,20):
 131         facos.s %d0,%fp0
 132         fmove.s %fp0,%d0
 133         rts
 134
 135         .balign 4
 136         .globl  AROS_SLIB_ENTRY(Log10_6888x,MathIeeeSingTrans,21)
 137         .type   AROS_SLIB_ENTRY(Log10_6888x,MathIeeeSingTrans,21),@function
 138 AROS_SLIB_ENTRY(Log10_6888x,MathIeeeSingTrans,21):
 139         flog10.s %d0,%fp0
 140         fmove.s %fp0,%d0
 141         rts