modf.s

mips架构的bootloader,99左右的版本 但源代码现在没人更新了

/*************************************************************
 * File: lib/modf.s
 * Purpose: Part of C runtime library
 * Author: Phil Bunce ([e-mail])
 * Revision History:
 *	970304	Start of revision history
 */

#include "mips.h"

	.sdata
one:	.double 1.0
maxint:	.double 4.503599627370496000E15

	.text
	.globl modf
	.ent modf
modf:
	lwc1	$f7,maxint
	lwc1	$f6,maxint+4
	abs.d	$f0,$f12
	c.lt.d	$f0,$f6
	mfc1	t0,$f13
	bc1f	3f
	add.d	$f2,$f0,$f6
	sub.d	$f2,$f2,$f6
	c.le.d	$f2,$f0
	bc1t	1f
	lwc1	$f7,one
	lwc1	$f6,one+4
	sub.d	$f2,$f2,$f6
1:	bgez	t0,2f
	neg.d	$f2,$f2

2:	swc1	$f3,0(a2)
	swc1	$f2,4(a2)
	sub.d	$f0,$f12,$f2
	j	ra

3:	mtc1	zero,$f0
	mtc1	zero,$f1
	swc1	$f13,0(a2)
	swc1	$f12,4(a2)
	j	ra
	.end modf