/ double modf(x, *fp)/ double x, *fp;/ return fractional part/ stash integer part (as double).globl	_modf.globl	csv, cretone	= 040200_modf:	jsr	r5,csv	movf	4(r5),fr0	modf	$one,fr0	movf	fr1,*12.(r5)	jmp	cret