real.s

UNIX v6源代码 这几乎是最经典的unix版本 unix操作系统设计和莱昂氏unix源代码分析都是用的该版

/
/

/ real & dreal fortran function

.globl	real.
.globl	dreal.

.globl	retrn
.globl	temp

dreal.:	temp
	.+2
	setd
	br	1f

real.:	temp
	.+2
	setf
1:
	movf	*2(r3),r0
	movf	r0,temp
	jmp	retrn