Files
Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v101/c/libe/fpltof.s
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

26 lines
382 B
ArmAsm

*
* Floating Point Long to Float Routine :
* Front End to IEEE Floating Point Package.
*
* double
* fpltof(larg)
* long larg;
*
* Return : Floating Point representation of Long Fixed point integer
*
.globl fpltof
.globl _fpltof
.globl iefifp
.text
fpltof:
_fpltof:
~~fpltof:
link r14,#-4
movem.l d7,-(sp)
move.l 8(r14),r7
jsr iefifp
move.l r7,r0
movem.l (sp)+,d7
unlk r14
rts