/// r6 -- real arithmetic.globl	rad4.globl	rad8.globl	rsb4.globl	rsb8.globl	rmp4.globl	rmp8.globl	rdv4.globl	rdv8.globl	rng4.globl	rng8.globl	r4r8.globl	r8r4.globl	i4r4.globl	i2r4.globl	r4i4.globl	r8i2.globl	i2r8.globl	r4i2.globl	i4r8.globl	r8i4.globl	rerrrad8:	setd	br	1frad4:	setf1:	movf	(sp)+,fr0	addf	(sp)+,fr0	br	storersb8:	setd	br	1frsb4:	setf1:	movf	(sp)+,fr0	negf	fr0	addf	(sp)+,fr0	br	storermp8:	setd	br	1frmp4:	setf1:	movf	(sp)+,fr0	mulf	(sp)+,fr0	br	storerdv8:	setd	br	1frdv4:	setf1:	movf	(sp)+,fr1	movf	(sp)+,fr0	divf	fr1,fr0store:	movf	fr0,-(sp)	jmp	*(r4)+rng8:	setd	br	1frng4:	setf1:	negf	(sp)	jmp	*(r4)+r8r4:	setd	br	1fr4r8:	setf1:	movf	(sp)+,fr0	movfo	fr0,-(sp)	jmp	*(r4)+i2r8:	seti	br	1fi4r8:	setl1:	setd	br	2fi2r4:	seti	br	1fi4r4:	setl1:	setf2:	movif	(sp)+,fr0	movf	fr0,-(sp)	jmp	*(r4)+r8i2:	seti	br	1fr8i4:	setl1:	setd	br	2fr4i2:	seti	br	1fr4i4:	setl1:	setf2:	movf	(sp)+,fr0	movfi	fr0,-(sp)	jmp	*(r4)+