any.s

来自「Version 6 Unix 核心源代码 Version 6 Unix 核心源」· S 代码 · 共 18 行

i = r3
f = r5
.globl x,j
.globl succ,fail
.globl	ctest,iget
.globl any

any:
	mov	j(f),-(sp)
	jsr	pc,iget
	jsr	pc,ctest
	bcs	1f
	mov	(sp)+,j(f)
	jmp	fail
1:
	tst	(sp)+
	jmp	succ