nice.s

来自「UNIX v6源代码 这几乎是最经典的unix版本 unix操作系统设计和莱」· S 代码 · 共 21 行

/
/

/ fortran nice subroutine

.globl	nice.
.globl	retrn, temp

nice.:
	temp
	.+2
	mov	$16.,r0
	tst	*2(sp)
	beq	1f
	mov	2(r3),r0
	mov	2(r0),r0
1:
	sys	nice
	jmp	retrn