1972_stuff/s1/frag0

Find at most related files.
including files from this version of Unix. 
dska
	bne	3f
	mov	$obuf,2f+2
	br	2f
3:
	mov	r4,iblk
	mov	fin,r0
	sys	seek; iblk: -1; 0
	mov	fin,r0
	sys	read; ibuf; 512.
2:
	movb	ibuf(r3),r0
	movb	r0,(r1)+
	cmp	r0,$'\n
	beq	1f
	inc	r3
	bit	$777,r3
	bne	2b
	add	$512.,r4
	br	1b
1:
	mov	(sp)+,r3
	rts	r5

9:	jmp  error

filnam:
	mov	$filebuf,r4
	jsr	r5,getc
	cmp	r1,$'\n
	beq	2f
	cmp	r1,$' /
	bne	9b
1:
	jsr	r5,getc
	cmp	r1,$' /
	beq	1b
	cmp	r1,$'\n
	beq	2f
	movb	r1,(r4)+
	cmp	r4,$filebuf+filsiz
	blo	1b
	br	9b
2:
	cmp	r4,$filebuf
	beq	4f
	clrb	(r4)
	tst	eflag
	beq	3f
	clr	eflag
1:
	mov	$filebuf,r3
	mov	$filsav,r4
2:
	movb	(r3)+,(r4)+
	bne	2b
3:
	tstb	filsav
	beq	1b
	rts	r5
4:
	tstb	filsav
	beq	9b
	mov	$filsav,r3
	mov	$filebuf,r4
	br	2b

rdfile:
	mov	$linebuf,r4
1:
	jsr	r5,fchar
	movb	r1,(r4)+
	cmp	r1,$'\n
	beq	1f
	cmp	r4,$elinbuf
	blo	1b
	br	9b
1:
	rts	r5

fchar:
	dec	filec
	blt	1f
	movb	*filep,r1
	inc	filep
	tst	r1
	beq	fchar
	rts	r5
1:
	mov	f,r0
	sys	read; fbuf; efbuf-fbuf
	bes	9b
	add	r0,count
	mov	r0,filec
	beq	1f
	mov	$fbuf,filep
	br	fchar
1:
	mov	f,r0
	sys	close
	jsr	r5,printn
	jmp	advanc

delete:
	jsr	r5,nonzero
	mov	addr1,r3
	add	r3,dol
	mov	addr2,r4
	sub	r4,dol
	sub	$2,dol
	tst	(r4)+
1:
	mov	(r4)+,(r3)+
	bne	1b
	jsr	r5,setbrk
	rts	r5

inite:
	movb	$'a,qetmp+8
1:
	sys	stat; qetmp; linebuf
	bec	2f
	sys	creat; qetmp; 10
	bec	1f
2:
	incb	qetmp+8
	cmpb	qetmp+8,$'z
	blos	1b
	br	e1
1:
	mov	r0,fout
	sys	open; qetmp; 0
	bes	e1
	mov	r0,fin
	mov	$buffer,r0
	mov	r0,zero
	mov	r0,dol
	mov	r0,dot
	jsr	r5,setbrk
	mov	$-1,iblk
	mov	$1,oblkp
	clr	dska
	mov	$kname,r0
	mov	r0,kp
1:
	clr	(r0)+
	cmp	r0,$ekname
	blos	1b
	rts	r5

e1:
	jsr	r5,print; qbadf
	sys	exit

terme:
	mov	fin,r0
	sys	close
	mov	fout,r0
	sys	close
	sys	unlink; qetmp
	rts	r5

setbrk:
	mov	dol,-(sp)
	add	$514.,(sp)
	bic	$777,(sp)
	cmp	(sp),0f
	beq	1f
	mov	(sp),0f
	sys	break; 0:..
1:
	tst	(sp)+
	rts	r5

b	qetmp+8,$'z
	blos	1b
	br	e1
1:
	mov	r0,fout
	sys	open; qetmp; 0
	bes	e1
	mov	r0,fin
	mov	$buffer,r0
	mov	r0,zero
	mov	r0,dol
	mov	r0,dot
	jsr	r5,setbrk
	mov	$-1,iblk
	mov	$1,oblkp
	clr	dska
	mov	$kname,r0
	mov	r0/ ed3 -- text editor

compile:
	mov	r1,compt
	mov	r1,prect
	mov	$exprbuf,r3
	jsr	r5,switch; prect
	jsr	r5,cop; 2
	br	cadv

prect:
	00;	ceof1
	'^;	cadv1
prect1:
	'*;	cerr
	0

cadv1:
	jsr	r5,switch; prect1	/ ^* case

cadv:
	jsr	r5,switch; compt
	jsr	r5,cop; 4
	jsr	r5,getc
	movb	r1,(r3)+
	cmp	r3,$eexprbuf
	blo	cadv
	br	cerr

compt:
	00;	ceof
	'\\;	cesc
	'\n;	cerr
	'.;	cdot
	'*;	cast
	'$;	cdol
	'[;	cccl
	0

ceof:
	clrb	(r3)+
	cmp	r3,$eexprbuf-1
	bhis	cerr
	movb	$1,(r3)+
	rts	r5

ceof1:
	tst	(r3)
	beq	cerr
	rts	r5

cesc:
	jsr	r5,cop; 4
	jsr	r5,getc
	cmp	r1,$'\n
	beq	cerr
	movb	r1,(r3)+
	cmp	r3,$eexprbuf
	blo	cadv

cerr:
	clr	exprbuf
	jmp	9b

cdot:
	jsr	r5,cop; 8.
	br	cadv

cdol:
	jsr	r5,getc
	mov	r1,peekc
	cmp	r1,compt
	beq	1f
	jsr	r5,cop; 4
	movb	$'$,(r3)+
	cmp	r3,$eexprbuf
	blo	cadv
	br	cerr
1:
	jsr	r5,cop; 20.
	br	cadv

cccl:
	jsr	r5,cop; 12.
	jsr	r5,getc
	cmp	r1,$'^
	bne	1f
	movb	*f,r1
	add	$4,r1
	movb	r1,*f
	jsr	r5,getc
1:
	cmp	r1,$'\n
	beq	cerr
	movb	r1,(r3)+
	cmp	r3,$eexprbuf-1
	bhis	cerr
	jsr	r5,getc
	cmp	r1,$']
	bne	1b
	clrb	(r3)+
	br	cadv

cast:
	bisb	$2,*f
	br	cadv

cop:
	mov	r3,f
	movb	(r5)+,(r3)+
	cmp	r3,$eexprbuf
	bhis	cerr
	tstb	(r5)+
	rts	r5

gexecute:
	cmpb	exprbuf,$2
	beq	1f
	rts	r5		/ ^ in global substitute
1:
	mov	$linebuf,r3
	mov	$subbuf,r4
1:
	movb	(r4)+,(r3)
	cmpb	(r3)+,$'\n
	bne	1b
	mov	loc2,r4
	add	$linebuf-subbuf,r4
	mov	r4,locs
	br	1f

execute:
	jsr	r5,getline
	mov	$linebuf,r4
	clr	locs
1:
	mov	r4,loc1
	mov	$exprbuf,r3

eadv:
	movb	(r3)+,r1
	jmp	*1f(r1)
1:
	eeof
	ecmf
	echr
	echrs
	edot
	edots
	eccl
	eccls
	enccl
	enccls
	edol

eeof:
	mov	r4,loc2

eeof1:
	tst	(r5)+
efail:
	rts	r5

ecmf:
	mov	r3,-(sp)
	mov	r4,-(sp)
	jsr	r5,eadv
		br 1f
	mov	(sp)+,loc1
	tst	(sp)+
	br	eeof1
1:
	mov	(sp)+,r4
	mov	(sp)+,r3
	cmpb	(r4)+,$'\n
	bne	ecmf
	br	efail

echr:
	cmpb	(r3)+,(r4)+
	beq	eadv
	br	efail

echrs:
	movb	(r3)+,r1
	mov	r4,-(sp)
1:
	cmpb	(r4)+,r1
	beq	1b
	br	east

edot:
	cmpb	(r4)+,$'\n
	bne	eadv
	br	efail

edots:
	mov	r4,-(sp)
1:
	cmpb	(r4)+,$'\n
	bne	1b
	br	east

eccl:
	jsr	r5,cclas; 0
		br efail
	br	eadv

enccl:
	jsr	r5,cclas; 1
		br efail
	br	eadv

enccls:
	mov	pc,0f
	br	1f

eccls:
	clr	0f
1:
	mov	r4,-(sp)
	mov	r3,-(sp)
2:
	jsr	r5,cclas; 0:0
		br 1f
	mov	(sp),r3
	br	2b
1:
	tst	(sp)+
	br	east

edol:
	cmpb	(r4),$'\n
	beq	eadv
	br	efail

east:
	dec	r4
	mov	r3,-(sp)
	mov	r4,-(sp)
	jsr	r5,eadv
		br 1f
	cmp	r4,locs
	bne	2f
	mov	r4,4(sp)
	br	1f
2:
	add	$6,sp
	br	eeof1
1:
	mov	(sp)+,r4
	mov	(sp)+,r3
	cmp	r4,(sp)
	bhi	east
	tst	(sp)+
	br	efail

cclas:
	movb	(r4)+,r1
	cmp	r1,$'\n
	beq	2f
1:
	cmpb	r1,(r3)+
	beq	1f
	tstb	(r3)
	bne	1b
	tst	(r5)+
	beq	3f
2:
	tst	(r5)+
	br	3f
1:
	tst	(r5)+
	beq	2b
3:
	tstb	(r3)+
	bne	3b
	rts	r5

8:	jmp	advanc
9:	jmp	error

dosub:
	mov	$linebuf,r1
	mov	$subbuf,r2
	mov	$rhsbuf,r3
1:
	cmp	r1,loc1
	beq	1f
	movb	(r1)+,(r2)+
	br	1b
1:
	movb	(r3)+,r0
	beq	1f
	cmp	r0,$'&
	bne	3f
	mov	r1,r4
2:
	cmp	r4,loc2
	beq	1b
	movb	(r4)+,(r2)+
	cmp	r2,$esubbuf
	blo	2b
	br	9b
3:
	bic	$200,r0
	movb	r0,(r2)+
	cmp	r2,$esubbuf
	blo	1b
	br	9b
1:
	mov	r4,r1
	mov	r2,loc2
1:
	movb	(r1)+,r0
	movb	r0,(r2)+
	cmp	r0,$'\n
	beq	1f
	cmp	r2,$esubbuf
	blo	1b
	br	9b
1:
	mov	addr1,dot
	rts	r5

switch:
	jsr	r5,getc
	mov	(r5)+,r4
1:
	tst	(r4)
	beq	1f
	cmp	r1,(r4)+
	beq	2f
	tst	(r4)+
	br	1b
1:
	mov	r1,peekc
	rts	r5
2:
	mov	(sp)+,r5
	jmp	*(r4)

getc:
	mov	peekc,r1
	bne	1f
	tst	gflag
	beq	2f
	movb	*gbufp,r1
	beq	8b
	inc	gbufp
	br	1f
2:
	clr	r0
	sys	read; ch; 1
	bes	2f
	tst	r0
	beq	2f
	mov	ch,r1
	beq	getc
1:
	clr	peekc
	rts	r5
2:
	jmp	cq1

print:
	mov	(r5),r0
	jsr	r5,size
	mov	r4,0f
	mov	(r5)+,0f-2
	mov	$1,r0
	sys	write; 0; 0:0
	rts	r5

size:
	clr	r4
1:
	inc	r4
	cmpb	(r0)+,$'\n
	bne	1b
	rts	r5

qex:	<!\n>
qetmp:	</tmp/etma\0>
qbadf:	<tmp file\n>
qerr:	<?\n>
qed:	<Editing System\n>
prompt:	<*>
.even
peekc:	0
eflag:	0
gbufp:	gbuf-1
kp:	kname

	.bss
kname:	.=.+18.
ekname:	.=.+2
nl:	.=.+2
kaddr:	.=.+18.
ekaddr:	.=.+2
oblkp:	.=.+2
zero:	.=.+2
dol:	.=.+2
dot:	.=.+2
gsp:	.=.+2
shflg:	.=.+2
exprbuf:.=.+128.; eexprbuf:
fin:	.=.+2
fout:	.=.+2
ch:	.=.+2
fch:	.=.+2
pflag:	.=.+2
gflag:	.=.+2
addr:	.=.+2
addr1:	.=.+2
addr2:	.=.+2
gsubf:	.=.+2
loc1:	.=.+2
loc2:	.=.+2
locs:	.=.+2
adrflg:	.=.+2
f:	.=.+2
minflg:	.=.+2
count:	.=.+2
filec:	.=.+2
filep:	.=.+2
linebuf:.=.+512.; elinbuf:
fbuf:subbuf:.=.+512.; efbuf: esubbuf:
rhsbuf:	.=.+256.; erhsbuf:
filsiz = 64.
filebuf:.=.+filsiz
filsav:	.=.+filsiz+2
gz: .=.+2
gbuf:	.=.+100.; egbuf:
buffer: ebuffer = buffer+6000.

.=.+2
dot:	.=.+2
gsp:	.=.+2
shflg:	.=.+2
exprbuf:.=.+128.; eexprbuf:
fin:	.=.+2
fout:	.=.+2
ch:	.=.+2
fch:	.=.+2
pflag:	.=.+2
gflag:	.=.+2
addr:	.=.+2
addr1:	.=.+2
addr2:	.=.+2
gsubf:	.=.+2
loc1