/// rf -- real comparisons.globl	rlt4.globl	rle4.globl	req4.globl	rne4.globl	rge4.globl	rgt4rlt4:	jsr	pc,compar	blt	one	br	zerorle4:	jsr	pc,compar	ble	one	br	zeroreq4:	jsr	pc,compar	beq	one	br	zerorne4:	jsr	pc,compar	bne	one	br	zerorge4:	jsr	pc,compar	bge	one	br	zerorgt4:	jsr	pc,compar	bgt	one	br	zeroone:	mov	$1,-(sp)	jmp	*(r4)+zero:	clr	-(sp)	jmp	*(r4)+compar:	mov	(sp)+,r0	setf	movf	(sp)+,r0	cmpf	(sp)+,r0	cfcc	jmp	(r0)