mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
28 lines
430 B
ArmAsm
28 lines
430 B
ArmAsm
*
|
|
* Floating Point Float to Long Routine :
|
|
* Front End to FFP Floating Point Package.
|
|
*
|
|
* long
|
|
* fpftol(fparg)
|
|
* double fparg;
|
|
*
|
|
* Condition Codes : V bit signifies Overflow
|
|
*
|
|
* Return : Fixed Point representation of Floating Point Number
|
|
*
|
|
.globl fpftol
|
|
.globl _fpftol
|
|
.globl ffpfpi
|
|
.text
|
|
fpftol:
|
|
_fpftol:
|
|
~~fpftol:
|
|
link r14,#-4
|
|
movem.l d3-d7,-(sp)
|
|
move.l 8(r14),r7
|
|
jsr ffpfpi
|
|
move.l r7,r0
|
|
movem.l (sp)+,d3-d7
|
|
unlk r14
|
|
rts
|