ra.s

来自「莱昂氏UNIX源代码分析UNIXv6src.tar.gz」· S 代码 · 共 44 行

/
/

/ ra -- fortran runtime --  real ** real

.globl	rpr4
.globl	rpr8

.globl	log
.globl	exp
.globl	rerr

rpr8:
	setd
	br	1f

rpr4:
	setf

1:
	seti
	movf	(sp)+,fr1
	movf	(sp)+,fr0
	cfcc
	beq	3f			/ 0**x
	movf	fr1,-(sp)
	jsr	pc,log
	bes	error
	mulf	(sp)+,fr0
	jsr	pc,exp
	bes	error
2:
	movf	fr0,-(sp)
	jmp	*(r4)+

3:
	tstf	r1
	cfcc
	bgt	2b

error:
	jsr	r5,rerr; 17.