mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
46 lines
1.0 KiB
ArmAsm
46 lines
1.0 KiB
ArmAsm
*
|
||
* Floating Point Multiplication :
|
||
* Front End to IEEE Floating Point Package.
|
||
*
|
||
* double
|
||
* fpmul(multiplier,multiplicand)
|
||
* double multiplier, multiplicand;
|
||
*
|
||
* Return : Result of Floating Point Multiply
|
||
*
|
||
.globl fpmul
|
||
.globl _fpmul
|
||
.globl fpmult
|
||
.globl _fpmult
|
||
.globl iefmul
|
||
.text
|
||
fpmult:
|
||
_fpmult:
|
||
fpmul:
|
||
_fpmul:
|
||
~~fpmul:
|
||
link r14,#-4
|
||
movem.l d6-d7,-(sp)
|
||
move.l 8(r14),r7
|
||
move.l 12(r14),r6
|
||
jsr iefmul
|
||
move.l r7,r0
|
||
movem.l (sp)+,d6-d7
|
||
unlk r14
|
||
rts
|
||
|
||
l
|
||
move.l r7,r0
|
||
movem.l (sp)+,d6-d7
|
||
unlk r14
|
||
rts
|
||
|
||
l
|
||
move.l r7,r0
|
||
movem.l (sp)+,d6-d7
|
||
unlk r14
|
||
rts
|
||
|
||
l
|
||
move.l r7,r0
|
||
movem.l (sp)+,d6-d7
|
||
unlk r14
|
||
rts
|
||
|
||
|