any.s

来自「UNIX v6源代码 这几乎是最经典的unix版本 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