iabs.s

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

/
/

/ iabs fortran function

.globl	iabs.

.globl	retrn
.globl	temp

iabs.:	temp
	.+2
	setl
	setd
	movif	*2(r3),r0
	absf	r0
	movfi	r0,temp
	jmp	retrn