amin0.s

Version 6 Unix 核心源代码 Version 6 Unix 核心源代码

/
/

/ min0 & amin0 fortran functions

.globl	amin0.
.globl	min0.

.globl	retrn
.globl	temp

min0.:	temp
	.+2
	mov	pc,r2
	br	1f

amin0.:	temp
	.+2
	clr	r2
1:
	setf
	setl
	mov	*2(sp),r0		/ arg count
	mov	r3,r1
	tst	(r1)+			/ argpp
	movif	*(r1)+,r1
	br	2f
1:
	movif	*(r1)+,r0
	cmpf	r0,r1
	cfcc
	bge	2f
	movf	r0,r1
2:
	dec	r0
	bgt	1b
	tst	r2
	bne	1f
	movf	r1,temp
	br	2f
1:
	movfi	r1,temp
2:
	jmp	retrn