bundle.s

UNIX v6源代码 这几乎是最经典的unix版本 unix操作系统设计和莱昂氏unix源代码分析都是用的该版

f = r5
g = r4
.globl g1
.globl pbundle,iget
.globl succ
.globl bundle,reduce

reduce:
	jsr	pc,iget
	mov	(r0),r1
	mov	g,r0
	asl	r1
	sub	r1,r0
	br	1f
	br	1f
bundle:
	mov	f,r0
	add	$g1,r0
1:
	jsr	pc,pbundle
	tst	r0
	beq	1f
	mov	r0,(g)+
1:
	jmp	succ