1972_stuff/s1/frag63

Find at most related files.
including files from this version of Unix. 
/* exit -- end runcom */

main() {
	seek(0, 0, 2);
}
\n>
lf:	<\n>
frh:	< free headers\n >
frb:	< free blocks size >
endc:	.even
loop
5:
	mov	r2,r0
	sub	$hblk,r0
	jsr	r5,oct
	mov	$1,r0
	sys	write; un; 26.
	tst	vflag
	beq	1b
	mov	r2,r1
	cmp	vflag,$2
	beq	3f
	jsr	pc,rewind
	mov	$buffer,r2
2:
	jsr	pc,getchar
	bes	2f
	movb	r0,(r2)+
	cmp	r2,$buffer+80.
	blo	2b
	jsr	pc,output
	br	2b
2:
	movb	$'\n,(r2)+
	jsr	pc,output
	mov	r1,r2
	cmp	vflag,$1
	bne	3f
	jmp	cont
3:
	jsr	pc,release
	jmp	cont
/
interrupt: 4
/
un:	< hea