arch/m68k-all/mathieeedoubtrans/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,MathIeeeDoubTrans, 5)
   8         .type   AROS_SLIB_ENTRY(ATan_6888x,MathIeeeDoubTrans, 5),@function
   9 AROS_SLIB_ENTRY(ATan_6888x,MathIeeeDoubTrans, 5):
  10         movem.l %d0-%d1,%sp@-
  11         fatan.d %sp@+,%fp0
  12         fmove.d %fp0,%sp@-
  13         movem.l %sp@+,%d0-%d1
  14         rts
  15
  16         .balign 4
  17         .globl  AROS_SLIB_ENTRY(Sin_6888x,MathIeeeDoubTrans, 6)
  18         .type   AROS_SLIB_ENTRY(Sin_6888x,MathIeeeDoubTrans, 6),@function
  19 AROS_SLIB_ENTRY(Sin_6888x,MathIeeeDoubTrans, 6):
  20         movem.l %d0-%d1,%sp@-
  21         fsin.d %sp@+,%fp0
  22         fmove.d %fp0,%sp@-
  23         movem.l %sp@+,%d0-%d1
  24         rts
  25
  26         .balign 4
  27         .globl  AROS_SLIB_ENTRY(Cos_6888x,MathIeeeDoubTrans, 7)
  28         .type   AROS_SLIB_ENTRY(Cos_6888x,MathIeeeDoubTrans, 7),@function
  29 AROS_SLIB_ENTRY(Cos_6888x,MathIeeeDoubTrans, 7):
  30         movem.l %d0-%d1,%sp@-
  31         fcos.d %sp@+,%fp0
  32         fmove.d %fp0,%sp@-
  33         movem.l %sp@+,%d0-%d1
  34         rts
  35
  36         .balign 4
  37         .globl  AROS_SLIB_ENTRY(Tan_6888x,MathIeeeDoubTrans, 8)
  38         .type   AROS_SLIB_ENTRY(Tan_6888x,MathIeeeDoubTrans, 8),@function
  39 AROS_SLIB_ENTRY(Tan_6888x,MathIeeeDoubTrans, 8):
  40         movem.l %d0-%d1,%sp@-
  41         ftan.d %sp@+,%fp0
  42         fmove.d %fp0,%sp@-
  43         movem.l %sp@+,%d0-%d1
  44         rts
  45
  46         .balign 4
  47         .globl  AROS_SLIB_ENTRY(Sincos_6888x,MathIeeeDoubTrans, 9)
  48         .type   AROS_SLIB_ENTRY(Sincos_6888x,MathIeeeDoubTrans, 9),@function
  49 AROS_SLIB_ENTRY(Sincos_6888x,MathIeeeDoubTrans, 9):
  50         movem.l %d0-%d1,%sp@-
  51         fsincos.d %sp@+,%fp1,%fp0
  52         fmove.d %fp1,%a0@
  53         fmove.d %fp0,%sp@-
  54         movem.l %sp@+,%d0-%d1
  55         rts
  56
  57         .balign 4
  58         .globl  AROS_SLIB_ENTRY(Sinh_6888x,MathIeeeDoubTrans, 10)
  59         .type   AROS_SLIB_ENTRY(Sinh_6888x,MathIeeeDoubTrans, 10),@function
  60 AROS_SLIB_ENTRY(Sinh_6888x,MathIeeeDoubTrans, 10):
  61         movem.l %d0-%d1,%sp@-
  62         fsinh.d %sp@+,%fp0
  63         fmove.d %fp0,%sp@-
  64         movem.l %sp@+,%d0-%d1
  65         rts
  66
  67         .balign 4
  68         .globl  AROS_SLIB_ENTRY(Cosh_6888x,MathIeeeDoubTrans, 11)
  69         .type   AROS_SLIB_ENTRY(Cosh_6888x,MathIeeeDoubTrans, 11),@function
  70 AROS_SLIB_ENTRY(Cosh_6888x,MathIeeeDoubTrans, 11):
  71         movem.l %d0-%d1,%sp@-
  72         fcosh.d %sp@+,%fp0
  73         fmove.d %fp0,%sp@-
  74         movem.l %sp@+,%d0-%d1
  75         rts
  76
  77         .balign 4
  78         .globl  AROS_SLIB_ENTRY(Tanh_6888x,MathIeeeDoubTrans, 12)
  79         .type   AROS_SLIB_ENTRY(Tanh_6888x,MathIeeeDoubTrans, 12),@function
  80 AROS_SLIB_ENTRY(Tanh_6888x,MathIeeeDoubTrans, 12):
  81         movem.l %d0-%d1,%sp@-
  82         ftanh.d %sp@+,%fp0
  83         fmove.d %fp0,%sp@-
  84         movem.l %sp@+,%d0-%d1
  85         rts
  86
  87         .balign 4
  88         .globl  AROS_SLIB_ENTRY(Exp_6888x,MathIeeeDoubTrans, 13)
  89         .type   AROS_SLIB_ENTRY(Exp_6888x,MathIeeeDoubTrans, 13),@function
  90 AROS_SLIB_ENTRY(Exp_6888x,MathIeeeDoubTrans, 13):
  91         movem.l %d0-%d1,%sp@-
  92         fetox.d %sp@+,%fp0
  93         fmove.d %fp0,%sp@-
  94         movem.l %sp@+,%d0-%d1
  95         rts
  96
  97         .balign 4
  98         .globl  AROS_SLIB_ENTRY(Log_6888x,MathIeeeDoubTrans, 14)
  99         .type   AROS_SLIB_ENTRY(Log_6888x,MathIeeeDoubTrans, 14),@function
 100 AROS_SLIB_ENTRY(Log_6888x,MathIeeeDoubTrans, 14):
 101         movem.l %d0-%d1,%sp@-
 102         flogn.d %sp@+,%fp0
 103         fmove.d %fp0,%sp@-
 104         movem.l %sp@+,%d0-%d1
 105         rts
 106
 107 /*
 108
 109 Pow does not exist, use software
 110
 111         .balign 4
 112         .globl  AROS_SLIB_ENTRY(Pow_6888x,MathIeeeDoubTrans,15)
 113         .type   AROS_SLIB_ENTRY(Pow_6888x,MathIeeeDoubTrans,15),@function
 114 AROS_SLIB_ENTRY(Pow_6888x,MathIeeeDoubTrans,15):
 115 */
 116
 117         .balign 4
 118         .globl  AROS_SLIB_ENTRY(Sqrt_6888x,MathIeeeDoubTrans,16)
 119         .type   AROS_SLIB_ENTRY(Sqrt_6888x,MathIeeeDoubTrans,16),@function
 120 AROS_SLIB_ENTRY(Sqrt_6888x,MathIeeeDoubTrans,16):
 121         movem.l %d0-%d1,%sp@-
 122         fsqrt.d %sp@+,%fp0
 123         fmove.d %fp0,%sp@-
 124         movem.l %sp@+,%d0-%d1
 125         rts
 126
 127         .balign 4
 128         .globl  AROS_SLIB_ENTRY(Tieee_6888x,MathIeeeDoubTrans,17)
 129         .type   AROS_SLIB_ENTRY(Tieee_6888x,MathIeeeDoubTrans,17),@function
 130 AROS_SLIB_ENTRY(Tieee_6888x,MathIeeeDoubTrans,17):
 131         movem.l %d0-%d1,%sp@-
 132         fmove.d %sp@+,%fp0
 133         fmove.s %fp0,%d0
 134         rts
 135
 136         .balign 4
 137         .globl  AROS_SLIB_ENTRY(Fieee_6888x,MathIeeeDoubTrans,18)
 138         .type   AROS_SLIB_ENTRY(Fieee_6888x,MathIeeeDoubTrans,18),@function
 139 AROS_SLIB_ENTRY(Fieee_6888x,MathIeeeDoubTrans,18):
 140         fmove.s %d0,%fp0
 141         fmove.d %fp0,%sp@-
 142         movem.l %sp@+,%d0-%d1
 143         rts
 144
 145         .balign 4
 146         .globl  AROS_SLIB_ENTRY(Asin_6888x,MathIeeeDoubTrans,19)
 147         .type   AROS_SLIB_ENTRY(Asin_6888x,MathIeeeDoubTrans,19),@function
 148 AROS_SLIB_ENTRY(Asin_6888x,MathIeeeDoubTrans,19):
 149         movem.l %d0-%d1,%sp@-
 150         fasin.d %sp@+,%fp0
 151         fmove.d %fp0,%sp@-
 152         movem.l %sp@+,%d0-%d1
 153         rts
 154
 155         .balign 4
 156         .globl  AROS_SLIB_ENTRY(Acos_6888x,MathIeeeDoubTrans,20)
 157         .type   AROS_SLIB_ENTRY(Acos_6888x,MathIeeeDoubTrans,20),@function
 158 AROS_SLIB_ENTRY(Acos_6888x,MathIeeeDoubTrans,20):
 159         movem.l %d0-%d1,%sp@-
 160         facos.d %sp@+,%fp0
 161         fmove.d %fp0,%sp@-
 162         movem.l %sp@+,%d0-%d1
 163         rts
 164
 165         .balign 4
 166         .globl  AROS_SLIB_ENTRY(Log10_6888x,MathIeeeDoubTrans,21)
 167         .type   AROS_SLIB_ENTRY(Log10_6888x,MathIeeeDoubTrans,21),@function
 168 AROS_SLIB_ENTRY(Log10_6888x,MathIeeeDoubTrans,21):
 169         movem.l %d0-%d1,%sp@-
 170         flog10.d %sp@+,%fp0
 171         fmove.d %fp0,%sp@-
 172         movem.l %sp@+,%d0-%d1
 173         rts