.globl	fpsim, fpsr, m.ext, m.lngi
ldfps = 170100^tst
/
/ ldfps(number);

.globl	_ldfps
_ldfps:
	mov	r5,-(sp)
	mov	sp,r5
jsr	pc, fpsim
	ldfps	4(r5)
	mov	(sp)+,r5
	rts	pc
