mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-24 08:54:17 +00:00
Upload
Digital Research
This commit is contained in:
25
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v103/libe/sinh.s
Normal file
25
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v103/libe/sinh.s
Normal file
@@ -0,0 +1,25 @@
|
||||
|
||||
*
|
||||
* Floating Point Hyperbolic sine:
|
||||
* Front End to FFP Floating Point Package.
|
||||
*
|
||||
* double
|
||||
* sinh(farg)
|
||||
* double farg;
|
||||
*
|
||||
* Returns : negated Floating point number
|
||||
*
|
||||
.globl _sinh
|
||||
.globl iefsinh
|
||||
.text
|
||||
fpsinh:
|
||||
_sinh:
|
||||
~~sinh:
|
||||
link r14,#-4
|
||||
move.l d7,-(sp)
|
||||
move.l 8(r14),r7
|
||||
jsr iefsinh
|
||||
move.l r7,r0
|
||||
move.l (sp)+,d7
|
||||
unlk r14
|
||||
rts
|
||||
Reference in New Issue
Block a user