Digital Research
This commit is contained in:
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions

View File

@@ -0,0 +1,25 @@
*
* Floating Point Logarithm :
* Front End to FFP Floating Point Package.
*
* double
* log(x)
* double x;
*
* Returns : the floating point logarithm
*
.globl log
.globl _log
.globl ffplog
.text
log:
_log:
~~log:
link r14,#-4
movem.l d7,-(sp)
move.l 8(r14),r7
jsr ffplog
move.l r7,r0
movem.l (sp)+,d7
unlk r14
rts