V6/usr/source/tmg/tmgb/append.s

Find at most related files.
including files from this version of Unix. 
.globl succ
.globl putcstr,iget
.globl append

append:
	jsr	pc,iget
	mov	r0,-(sp)
1:
	movb	*(sp),r0
	beq	1f
	jsr	pc,putcstr
	inc	(sp)
	br	1b
1:
	tst	(sp)+
	jmp	succ