arch/m68k-all/mathieeesingbas/fpu.S

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