1972_stuff/s1/frag66

Find at most related files.
including files from this version of Unix. 
:
	mov	r1,-(sp)
	mov	r0,r1
	clr	r0
	div	$8.,r0
	mov	r1,-(sp)
	add	$'0,(sp)
	tst	r0
	beq	1f
	jsr	r5,oct
1:
	movb	(sp)+,ch
	mov	$1,r0
	sys	write; ch; 1
	mov	(sp)+,r1
	rts	r5

decml:
	mov	r1,-(sp)
	mov	r0,r1
	clr	r0
	div	$10.,r0
	mov	r1,-(sp)
	add	$'0,(sp)
	tst	r0
	beq	1f
	jsr	r5,decml
1:
	movb	(sp)+,ch
	mov	$1,r0
	sys	write; ch; 1
	mov	(sp)+,r1
	rts	r5
/
/
iflag:	0
qflag:	0
vflag:	0
	.data
err4:	< not in memory.\n>
err1:	<Cannot open file >
end1:	.even
	.bss
freeh:	.=.+2
freeb:	.=.+32.
freen:
ch:	.=.+2
strflg:	.=.+2
buffer:	.=.+512.
bufend:	.=.+2
argc = buffer + 20.
arg = buffer + 256.
fv:	.=.+2
	.text
r5,oct
1:
	movb	(sp)+,ch
	mov	$1,r0
	sys	write; ch; 1
	mov	(sp)+,r1
	rts	r5

decml:
	mov	r1,-(sp)
	mov	r0,r1
	clr	r0
	div	$10.,r0
	mov	r1,-(sp)
	add	$'0,(sp)
	tst	r0
	beq	1f
	jsr	r5,decml
1:
	movb	(sp)+,ch
	mov	$1,r0
	sys	write; ch; 1
	mov	(sp)+,r1
	rts	r5
/
/
iflag:	0
qflag:	0
vflag:	0
	.data
err4:	< not in memory.\n>
err1:	<Cannot open file >
end1:	.even
	.bss
freeh:	.=.+2
freeb:	.=.+32.
freen:
ch:	.=.+2
strflg