V6/usr/source/s1/fed2.s

Find at most related files.
including files from this version of Unix. 
/
/
ed:
	mov	(sp)+,r3
	ble	error
econ:
	sys	stat; ftemp; buffer
	bec	2f
	sys	creat; ftemp; 666
	mov	r0,tmpw
	sys	open; ftemp; 0
	mov	r0,tmpr
	br	1f
2:
	cmpb	$'z,ftemp+9.
	bne	2f
	mov	$1,r0
	sys	write; erm; 23.
	jmp	loop
2:
	incb	ftemp+9.
	br	econ
1:
	mov	(sp),r0
	jsr	pc,getspq
	bes	3f
	mov	r0,r4
	mov	r2,r1
	jsr	pc,rewind
	mov	$buffer,r2
1:
	jsr	pc,getchar
	bes	1f
	movb	r0,(r2)+
	br	1b
1:
	movb	$'\n,(r2)+
	jsr	pc,output
	mov	r4,r1
	jsr	pc,rewind
2:
	mov	$buffer,r2
1:
	jsr	pc,getchar
	bes	1f
	movb	r0,(r2)+
	cmp	r2,$bufend
	blo	1b
	mov	tmpw,r0
	sys	write; buffer; 512.
	br	2b
1:
	sub	$buffer,r2
	beq	4f
	mov	r2,0f
	mov	tmpw,r0
	sys	write; buffer; 0:..
4:
	tst	iflag
	beq	1f
	mov	tmpw,r0
	sys	close
	mov	tmpr,r0
	sys	close
	sys	unlink; ftemp
	jmp	loop
1:
	mov	tmpw,r0
	sys	close
	sys	fork
	br	5f
	mov	r1,-(sp)
	sys	wait
	sys	signal; 2; inter
	mov	(sp)+,r1
	mov	a(r1),w(r1)
2:
	mov	tmpr,r0
	sys	read; buffer; 512.
	tst	r0
	beq	2f
	add	$buffer,r0
	mov	r0,bufend
	mov	$buffer,r2
1:
	movb	(r2)+,r0
	jsr	pc,putchar
	cmp	r2,bufend
	blo	1b
	br	2b
2:
	mov	tmpr,r0
	sys	close
	sys	unlink; ftemp
	tst	iflag
	beq	1f
	jmp	loop
1:
	tst	qflag
	bgt	1f
	tst	(sp)+
	dec	r3
	bgt	1f
	jmp	loop
1:	jmp	econ
	jmp	loop
3:
	mov	(sp),r2
	mov	$2,r0
	jsr	pc,allocate
1:
	tstb	(r2)
	beq	1f
	movb	(r2)+,r0
	jsr	pc,putchar
	br	1b
1:
	mov	r1,r0
	mov	asmem,r1
	jsr	pc,putword
	mov	$2,r0
	jsr	pc,allocate
	mov	r1,r0
	mov	asmem,r1
	jsr	pc,putword
	mov	r0,r1
	br	4b
5:
	mov	$2,r0
1:
	sys	close
	inc	r0
	cmp	r0,$10.
	blo	1b
	sys	exec; edd; eda
	sys	exit
eda:	edd; ftemp; 0
edd:	</bin/ed\0>
	.even
ftemp:	</tmp/ftmpa\0>
erm:	<Cannot open temp. file\n>
	.even
tmpw:	.=.+2
tmpr:	.=.+2
/
/	remove a 'file' from memory
/
remove:
	mov	(sp)+,r3
	bgt	5f
	mov	$1,vflag
	mov	asmem,r1
	jsr	pc,rewind
	mov	r(r1),-(sp)
4:
	tst	iflag
	beq	1f
	jmp	loop
1:
	jsr	pc,getword
	bes	4f
	mov	r0,r2
	jsr	pc,ask
	bec	1f
	mov	r(r1),(sp)
	br	4b
1:
	jsr	pc,getword
	br	2f
5:
	mov	(sp),r0
	jsr	pc,getspq
	bec	2f
	tst	qflag
	blt	6f
	mov	(sp),r1
	jsr	pc,nothere
	br	3f
2:
	mov	r0,r1
	jsr	pc,release
	mov	r2,r1
	jsr	pc,release
	jsr	pc,rm
3:
	tst	vflag
	bne	3f
	tst	iflag
	beq	1f
	jmp	loop
1:
	tst	qflag
	bgt	5b
6:
	tst	(sp)+
	dec	r3
	bgt	5b
	jmp	loop
3:
	mov	asmem,r1
	mov	(sp),r(r1)
	br	4b
4:
	tst	(sp)+
	jmp	loop
/
/	rename a 'file'
/
rename:
	mov	(sp)+,r3
	bne	1f
	jmp	error
1:
	sub	$2,r3
	blt	1f
5:
	mov	(sp),r0
	jsr	pc,getsp
	bes	4f
	tst	(sp)+
	sub	$4,r(r1)
	mov	(sp),r0
	mov	r2,-(sp)
	mov	r(r1),-(sp)
	jsr	pc,getsp
	bes	3f
	mov	r2,-(sp)
	mov	r0,r1
	jsr	pc,release
	jsr	pc,rm
	mov	(sp)+,r0
	mov	(sp)+,r(r1)
	jsr	pc,alterword
	mov	(sp)+,r1
	jsr	pc,release
	br	5f
3:
	mov	(sp)+,r(r1)
	mov	(sp)+,r1
	jsr	pc,release
	mov	$2,r0
	jsr	pc,allocate
	mov	(sp)+,r2
2:
	movb	(r2)+,r0
	beq	2f
	jsr	pc,putchar
	br	2b
2:
	mov	r1,r0
	mov	asmem,r1
	jsr	pc,alterword
5:
	tst	iflag
	beq	2f
	jmp	loop
2:
	tst	r3
	beq	2f
	sub	$2,r3
	bge	5b
1:
	tst	(sp)+
	jmp	error
2:
	jmp	loop
4:
	mov	(sp)+,r1
	jsr	pc,nothere
	tst	(sp)+
	br	5b
/
/	list contents of asmem
/
list:
	mov	$buffer,r2
	movb	$'\n,(r2)+
	jsr	pc,output
	mov	(sp)+,r3
	beq	1f
	mov	$1,vflag
5:
	tst	iflag
	beq	2f
	jmp	loop
2:
	mov	(sp),r0
	jsr	pc,getspq
	bes	4f
	mov	r2,r1
	br	3f
1:
	mov	asmem,r1
	jsr	pc,fsfile
	sub	$2,r(r1)
2:
	tst	iflag
	bne	2f
	jsr	pc,backword
	bes	2f
	mov	r0,r1
3:
	jsr	pc,getn
	movb	$'\n,(r2)+
	jsr	pc,output
	tst	vflag
	bne	1f
	mov	asmem,r1
	sub	$2,r(r1)
	br	2b
1:
	tst	qflag
	bgt	5b
4:
	tst	(sp)+
	dec	r3
	bgt	5b
2:
	mov	$buffer,r2
	movb	$'\n,(r2)+
	jsr	pc,output
	jmp	loop
/
/	list a 'file
/
listf:
	mov	(sp)+,r3
	bgt	4f
	jmp	error
4:
	mov	(sp),r0
	jsr	pc,getspq
	bes	3f
	mov	r0,r4
	mov	r2,r1
	jsr	pc,rewind
	mov	$buffer,r2
	movb	$'\n,(r2)+
1:
	jsr	pc,getchar
	bes	1f
	movb	r0,(r2)+
	cmp	r2,$bufend
	blo	1b
	jsr	pc,output
	br	1b
1:
	mov	r4,r1
	jsr	pc,rewind
	movb	$':,(r2)+
	cmp	r2,$bufend
	blo	2f
	jsr	pc,output
2:
	movb	$'\n,(r2)+
1:
	tst	iflag
	beq	2f
	jmp	loop
2:
	cmp	r2,$bufend
	blo	2f
	jsr	pc,output
2:
	jsr	pc,getchar
	bes	1f
	movb	r0,(r2)+
	br	1b
1:
	jsr	pc,output
3:
	tst	qflag
	bgt	4b
	tst	(sp)+
	dec	r3
	bgt	4b
	mov	$buffer,r2
	movb	$'\n,(r2)+
	jsr	pc,output
	jmp	loop
/
fin:
	jsr	pc,flush
	jsr	pc,whead
	4
q:
	jsr	pc,flush
	jsr	pc,whead
	sys	exit
memck:	mov	(sp)+,r3
2:
	ble	2f
	mov	(sp)+,r1
	cmpb	(r1),$'p
	bne	1f
	bis	$1,vflag
	br	3f
1:
	cmpb	(r1),$'f
	bne	3f
	bis	$2,vflag
3:
	dec	r3
	br	2b
2:
	clr	freeh
	mov	$freeb,r2
1:
	clr	(r2)+
	cmp	r2,$freen
	blo	1b
	mov	$headers,r2
2:
	cmp	l(r2),$hsz
	beq	6f
	jsr	pc,ck
	bec	1f
	cmp	r2,asmem
	beq	1f
	mov	asmem,r1
	jsr	pc,rewind
	clr	r3
4:
	inc	r3
	jsr	pc,getword
	bes	5f
	cmp	r0,r2
	bne	4b
6:
	inc	freeh
1:
cont:
	add	$8.,r2
	cmp	r2,$headend-4
	blo	2b
	mov	asmem,r1
	jsr	pc,rewind
4:
	jsr	pc,getword
	bes	4f
	tst	r(r0)
	beq	2f
	mov	r0,r2
	jsr	pc,ck
	bes	4b
2:
	sub	$hblk,r0
	jsr	r5,oct
	mov	$1,r0
	sys	write; re; 24.
	cmp	vflag,$1
	beq	4b
	bit	$1,r3
	beq	2f
	jsr	pc,getword
	mov	r0,r1
	jsr	pc,release
	br	3f
2:
	jsr	pc,backword
	add	$4,r(r1)
	mov	r0,r1
	jsr	pc,release
3:
	jsr	pc,rm
	clr	r3
	br	4b
4:
	mov	freeh,r0
	jsr	r5,decml
	mov	$1,r0
	sys	write; frh; 14.
	mov	$freeb,r2
	mov	$1,r3
6:
	cmp	r2,$freen
	bhis	6f
	mov	(r2)+,r0
	beq	3f
	jsr	r5,decml
	mov	$1,r0
	sys	write; frb; 18.
	mov	r3,r0
	jsr	r5,decml
	mov	$1,r0
	sys	write; lf; 1.
3:
	asl	r3
	br	6b
6:
	mov	$1,r0
	sys	write; lf; 1.
	jmp	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:	< header not accounted for\n>
re:	< part of asmem released\n>
lf:	<\n>
frh:	< free headers\n >
frb:	< free blocks size >
endc:	.even