mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
26 lines
331 B
ArmAsm
26 lines
331 B
ArmAsm
*
|
|
* Floating Point Hyperbolic tangent:
|
|
* Front End to FFP Floating Point Package.
|
|
*
|
|
* double
|
|
* tanh(farg)
|
|
* double farg;
|
|
*
|
|
* Returns : negated Floating point number
|
|
*
|
|
.globl _tanh
|
|
.globl ffptanh
|
|
.text
|
|
fptanh:
|
|
_tanh:
|
|
~~tanh:
|
|
link r14,#-4
|
|
move.l d7,-(sp)
|
|
move.l 8(r14),r7
|
|
jsr ffptanh
|
|
move.l r7,r0
|
|
move.l (sp)+,d7
|
|
unlk r14
|
|
rts
|
|
|