nroff1.s

Version 6 Unix 核心源代码 Version 6 Unix 核心源代码

/
/

/ nroff1 -- text formatter

/	rts = 104000
	signal = 48.
	nop = 000240

	jmp	ibuf
.data
ibuf: /init code in ibuf+obuf
	cmp	sp,$end
	bhi	1f
	jsr	r5,string; emes1
	sys	exit
1:
	clr	r0
	jsr	pc,ttyn
	cmpb	r0,$'x
	bne	0f
	inc	iflg
	mov	$1,r0
	jsr	pc,ttyn
0:
	movb	r0,ttyx+8
	clr	r0
	jsr	pc,mesg
	sys	open; ttyx; 2
	bes	0f
	mov	r0,ttyid
	mov	r0,ttyod
0:
	mov	ttyid,r0
	sys	gtty; ttys
	sys	signal; 1; place
	sys	signal; 2; place
	bit	$1,r0
	beq	0f
	sys	signal; 2; 1	/no deletes
	sys	signal; 3; 1	/no quits
	sys	signal; 1; 1	/allow hangup
0:
	mov	$'%,rlist
	mov	$"nl,rlist+2
	mov	$"dn,rlist+4
	mov	$"yr,rlist+6
	mov	$"mo,rlist+8.
	mov	$"dy,rlist+10.
	mov	$"dw,rlist+12.
	mov	$"hp,rlist+14.
	mov	sp,r0
	jsr	pc,makebf
	sys	open; suffil; 0
	bes	1f
	mov	r0,suff
	sys	seek; 20; 0
	bes	1f
	mov	suff,r0
	sys	read; suftab; 2*26.
1:
	clr	r0
	mov	(sp)+,argc
	dec	argc
	ble	4f
1:
	tst	(sp)+
	mov	(sp),r4
	cmpb	(r4)+,$'+
	bne	2f
	jsr	r5,pnum; pfrom
	br	3f
2:
	cmpb	-1(r4),$'-
	bne	2f
	tstb	(r4)
	beq	4f
	cmpb	(r4),$'m
	bne	0f
	mov	$nextf1,r0
	tstb	(r4)+
8:
	movb	(r4)+,(r0)+
	bne	8b
	inc	nx
	inc	mflg
	br	3f
0:
	cmpb	(r4),$'r
	bne	0f
	tstb	(r4)+
	movb	(r4)+,r0
	beq	3f
	jsr	pc,findr
	mov	r1,-(sp)
	mov	r4,ibufp
	mov	$-1,eibuf
	jsr	pc,atoi
	mov	(sp)+,r1
	mov	r0,(r1)
	clr	ch
	br	3f
0:
	cmpb	(r4),$'s
	bne	0f
	inc	stop
	br	3f
0:
	cmpb	(r4),$'o
	bne	0f
	inc	old
	br	3f
0:
	cmpb	(r4),$'i
	bne	0f
	inc	stdi
	br	3f
0:
	cmpb	(r4),$'q
	bne	0f
	inc	quiet
	br	3f
0:
	cmpb	(r4),$'h
	bne	0f
	clr	slow
	br	3f
0:
	cmpb	(r4),$'n
	bne	0f
	inc	r4
	jsr	r5,pnum; npn
	br	3f
0:
	jsr	r5,pnum; pto
3:
	dec	argc
	bgt	1b
2:
4:
/	tst	index
/	beq	1f
/	sys	creat; indf; 666
/	mov	r0,indid
1:
/	mov	$nop,get1a
	clr	init
	mov	$ibuf,ibufp
	mov	$ibuf,eibuf
	mov	sp,argp
	clr	r0
1:
	movb	r0,trtab(r0)
	inc	r0
	cmp	r0,$128.
	bne	1b
	movb	$040,trtab+014
	mov	sp,ssp
	mov	$70.,vlist+6
	jsr	pc,ctime
	mov	$-1,nl
	mov	$end,enda
	clr	ioff
	jmp	loop
makebf:
	tst	(r0)+
	mov	(r0),r0
	cmpb	(r0),$'a
	bne	0f
	mov	$bfn1,r0
	mov	r0,7f
	mov	r0,8f
	mov	r0,9f
/	mov	r0,place1
0:
	sys	stat; 8:bfn; stbuf
	bec	2f
	sys	creat; 9:bfn; 600
	bec	1f
2:
	incb	bfn1+3
	cmpb	bfn1+3,$'z
	blos	0b
	jmp	place
1:
	mov	r0,ibf
	mov	$blockend,r0
	sub	$block,r0
	cmp	r0,$1024.
	blos	1f
	4
1:
	mov	r0,blocksize
	clr	-(sp)
2:
	mov	ibf,r0
	sys	write; block; 1024.
	inc	(sp)
	cmp	(sp),nev
	ble	2b

	mov	(sp)+,r3
	mpy	$1024.,r3
	mov	r3,nextb
	mov	r3,first
	mov	ibf,r0
	sys	close
	sys	open; 7:bfn; 2
	jes	place
	mov	r0,ibf
	mov	r0,ibf1
	cmp	$bfn1,7b
	beq	1f
	sys	unlink; bfn
1:
	rts	pc

ctime:
	sys	time
	sub	$18000.,r1 /5hrs for est
	sbc	r0
	ashc	$-2,r0
	div	$21600.,r0
	inc	r0
	mov	r0,dy
/	mov	r1,fd
	add	$3,r0
	mov	r0,r1
	sxt	r0
	div	$7,r0
	inc	r1
	mov	r1,dw
3:
	mov	yr,r1
	sxt	r0
	div	$4,r0
	mov	$28.,ms+2
	tst	r1
	bne	0f
	mov	$29.,ms+2
0:
	clr	r0
1:
	cmp	dy,ms(r0)
	ble	2f
	sub	ms(r0),dy
	tst	(r0)+
	cmp	r0,$24.
	blt	1b
	inc	yr
	mov	yr,r1
	br	3b
2:
	asr	r0
	inc	r0
	mov	r0,mo
	rts	pc
ms: 31.;28.;31.;30.;31.;30.;31.;31.;30.;31.;30.;31.

pnum:
	clr	-(sp)
	clr	r3
1:
	movb	(r4)+,r0
	sub	$'0,r0
	cmp	r0,$9
	bhi	1f
	inc	(sp)
	mpy	$10.,r3
	add	r0,r3
	br	1b
1:
	mov	r3,r0
	tst	(sp)+
	beq	2f
	mov	r0,*(r5)+
1:
	rts	r5
2:
	tst	(r5)+
	br	1b

emes1: <Too many files.\n\0>
.even
obuf=ibuf+512.
.=ibuf+1024.
.text
loop:
	clr	nlflg
	clr	nflush
	clr	nb
	mov	ilistp,r1
	jsr	pc,getch1
	mov	r0,ch
	cmp	ilistp,r1
	beq	1f
	tst	ejf
	beq	1f
	cmp	ilistp,ejl
	bhi	1f
	mov	ilistp,ejl
	inc	nflush
	jsr	pc,newline
	br	loop
1:
	jsr	pc,getchar
	tst	pendt
	bne	0f
	tst	lit
	ble	1f
	cmp	frame,litlev
	bhi	1f
	dec	lit
	br	0f
1:
	cmpb	r0,cc
	beq	3f
	cmpb	r0,c2
	beq	2f
	cmpb	r0,tch
	beq	4f
	cmpb	r0,$002
	beq	6f
0:
	movb	r0,ch
	jsr	pc,text
	br	loop
4:
	inc	tflg
	inc	copyf
0:
	jsr	pc,getchar
	mov	r0,r5
	jsr	pc,putchar
	cmp	r5,$'\n
	bne	0b
	clr	tflg
	clr	copyf
	br	loop
2:
	inc	nb
3:
	jsr	pc,control
5:
	jsr	pc,flushi
	br	loop
6:
	inc	raw
	jsr	pc,get1
	movb	r0,xpc
	clr	nlflg
0:
	jsr	pc,get1
	cmpb	r0,xpc
	beq	7f
	jsr	pc,pchar2
	br	0b
7:
	clr	raw
	jbr	loop

mesg:
	tst	r0
	bne	setsame
	sys	stat; ttyx; stbuf
	mov	stbuf+4,0f
	mov	0f,1f
	bic	$22,0f
	sys	0;7f
.data
7:	sys	chmod; ttyx; 0:..
.text
	rts	pc
setsame:
	sys	0;7f
.data
7:	sys	chmod; ttyx; 1:..
.text
	rts	pc

stringfl:
	jsr	pc,flush
string:
	mov	r0,-(sp)
	mov	r1,-(sp)
	mov	r2,-(sp)
	mov	(r5)+,r1
	mov	r1,r2
	mov	r1,9f
1:
	tstb	(r1)+
	bne	1b
	dec	r1
	sub	r2,r1
	mov	r1,1f
	mov	ttyod,r0
	cmp	r0,ibf
	beq	2f
0:
	sys	0;7f
.data
7:	sys	write; 9:..; 1:..
.text
	bes	2f
1:
	mov	(sp)+,r2
	mov	(sp)+,r1
	mov	(sp)+,r0
	rts	r5
2:
	sys	creat; tmfile; 666
	bes	1b
	mov	r0,ttyod
	br	0b

flushi:
	tst	nflush
	bne	1f
	clr	ch
	tst	nlflg
	bne	1f
	tst	donef
	beq	2f
	cmp	$ilist,ilistp
	beq	1f
2:
	jsr	pc,getchar
	br	flushi
1:
	rts	pc

gettchar:
	tst	ul
	ble	getchar
	tst	ulstate
	beq	3f
	tst	bsc
	bgt	1f
	tst	ulc
	bgt	2f
	clr	ulstate
	br	3f
1:
	dec	bsc
	mov	$010,r0
	rts	pc
2:
	dec	ulc
	mov	$'_,r0
	rts	pc
3:
	jsr	pc,getchar
	cmp	r0,$016
	beq	4f
	cmp	r0,$017
	beq	4f
	cmp	r0,$'0
	blt	1f
	cmp	r0,$'9
	ble	2f
	cmp	r0,$'A
	blt	1f
	cmp	r0,$'Z
	ble	2f
	cmp	r0,$'a
	blt	1f
	cmp	r0,$'z
	ble	2f
1:
	tst	ulc
	ble	4f
3:
	mov	$1,ulstate
	mov	r0,ch
	br	gettchar
2:
	inc	bsc
	inc	ulc
4:
	tst	r0
	rts	pc

rtnch:
	mov	ch,r0
	clr	ch
	tst	r0
	rts	pc

getchar:
	mov	r1,-(sp)
1:
	jsr	pc,getch1
	bmi	2f
	cmpb	r0,fc
	bne	2f
	tst	copyf
	bne	2f
	jsr	pc,setfield
	br	1b
2:
	mov	(sp)+,r1
	tst	r0
	rts	pc
getch1:
	tst	ch
	bne	rtnch
	mov	r1,-(sp)
1:
	jsr	pc,getch0
	bmi	2f
	tst	copyf
	bne	2f
	cmpb	r0,$030 /\w
	bne	2f
	jsr	r5,setwd;getch0
	br	1b
2:
	jsr	pc,width
	add	r1,column
	mov	(sp)+,r1
	tst	r0
	rts	pc

getch0:
	tst	ch
	bne	rtnch
1:
	tst	nlflg
	beq	1f
	mov	$'\n,r0
	rts	pc
1:
	mov	r1,-(sp)
1:
	jsr	pc,get1
	cmpb	r0,eschar
	bne	2f
	jsr	pc,get1
	jsr	r5,switch; esctab
	cmpb	r0,$'\n
	bne	3f
/	clr	column
	br	1b
2:
	cmp	r0,$033  /prefix
	bne	3f
	jsr	pc,get1
	jsr	r5,switch; pfxtab
3:
	cmpb	r0,$376 /comment
	bne	2f
0:
	jsr	pc,get1
	bmi	0b
	cmpb	r0,$012
	bne	0b
2:
	cmpb	numc,r0
	bne	2f
	clr	r1
	jsr	pc,setn
	br	1b
2:
	cmpb	r0,$372	/mark hor place
	bne	2f
	tst	copyf
	bne	2f
	mov	r0,r1
	jsr	pc,setn
	jsr	pc,findr
	jeq	1b
	mov	column,(r1)
	jbr	1b
2:
	cmpb	r0,$025	/text string
	bne	2f
	jsr	pc,setstr
	br	1b
2:
	cmpb	dolc,r0
	bne	2f
	jsr	pc,seta
	br	1b
2:
	cmpb	r0,$026 /font indicator
	bne	2f
	jsr	pc,get1
	br	1b
2:
	cmpb	r0,$027 /point size
	bne	2f
	jsr	pc,eatps
	br	1b
2:
	cmpb	r0,$021 /spead line
	bne	2f
	tst	copyf
	bne	2f
	inc	spread
	br	1b
2:
	cmpb	r0,$006 /repeat
	bne	2f
	jsr	pc,setrpt
	br	1b
2:
	cmp	r0,$'\n
	bne	3f
	inc	nlflg
	clr	column
	tst	ip
	bne	3f
	inc	iline
3:
	mov	(sp)+,r1
	tst	r0
	rts	pc

eatps:
	jsr	pc,get1
	cmpb	r0,$'+
	beq	0f
	cmpb	r0,$'-
	beq	0f
	sub	$'0,r0
	ble	1f
	cmp	r0,$3
	bgt	1f
0:
	jsr	pc,get1
1:
	rts	pc

.data
esctab:
.byte '*, 025  /text string
.byte 'n, 034  /number char
.byte '$, 020  /dollar char
eschar:
.byte '\\, 134 /backslash
.byte 'e,  013 /printable escape char
.byte 'f, 026  /font indicator
.byte 's, 027  /point size
.byte '&, 037 /filler
.byte 't, 011  /hor tab
.byte '!, 024  /transparent char
.byte 'p, 021  /spread line
.byte 'c, 005 /interrupted text
.byte 'k, 372 /mk hor
/ 014 hidden tab replacement character
.byte ' , 014 /\(space)
.byte 'x, 016  /SO (extra chars)
.byte 'y, 017  /SI (normal characters)
.byte 'l, 0177 /delete
.byte 'd, 032  /hlf (down)
.byte 'u, 035  /hlr (up)
.byte 'r, 036  /flr (reverse)
.byte 'a, 001  /leader char
.byte ':, 003 /lem char
.byte '?, 002 /raw trans
.byte '", 376 /comment
.byte 'w, 030  /width size char
.byte 0, 0
.text

pfxtab:
   .byte '7, 036  /flr
   .byte '8, 035  /hlr
   .byte '9, 032  /hlf
   .byte '1, 026  /set hor tabs
   .byte '2, 027  /clr hor tabs
   .byte 0,0
pfxtab1:

switch:
	mov	r1,-(sp)
	mov	(r5)+,r1
1:
	cmpb	(r1)+,r0
	beq	1f
	tstb	(r1)+
	bne	1b
	cmp	r1,$pfxtab
	ble	0f
	cmp	r1,$pfxtab1
	bgt	0f
	mov	$037,r0
0:
	mov	(sp)+,r1
	rts	r5
1:
	movb	(r1)+,r0
	mov	(sp)+,r1
	rts	r5

get1:
	tst	nspace
	ble	1f
	dec	nspace
	mov	rchar,r0
	rts	pc
1:
	mov	r1,-(sp)
4:
	tst	cp
	beq	2f
	movb	*cp,r0
	bne	1f
	clr	cp
	br	4b
1:
	inc	cp
	br	8f
2:
	tst	ap
	beq	2f
	movb	*ap,r0
	bne	1f
	clr	ap
	br	4b
1:
	inc	ap
	br	8f
2:
	cmp	$-1,ip
	bne	1f
	jsr	pc,rdtty
	br	8f
1:
	tst	ip
	beq	5f
	jsr	pc,rbf
	br	8f
5:
	tst	donef
	beq	0f
	jmp	done
0:
	tst	nx
	bne	0f
3:
	mov	ibufp,r1
	cmp	r1,eibuf
	bne	3f
	cmp	r1,$-1
	beq	3f
0:
	tst	nfo
	bne	2f
1:
	jsr	pc,nextfile
	bne	3b
2:
	clr	nx
	mov	ifile,r0
	sys	read; ibuf; 512.
	bes	1b
	tst	r0
	beq	1b
	mov	$ibuf,r1
	add	r1,r0
	mov	r0,eibuf
3:
	movb	(r1)+,r0
	bic	$!377,r0
	inc	ioff
	mov	r1,ibufp
	tst	raw
	bne	6f
	cmpb	r0,$040
	bhis	8f
	mov	r0,-(sp)
	mov	cbits,r0
	mov	cbits+2,r1
	ashc	(sp),r0
	bmi	0f
	clr	(sp)
0:
	mov	(sp)+,r0
8:
	tst	raw1
	bne	6f
	cmp	r0,$004
	beq	4b
	tst	copyf
	bne	6f
	cmpb	r0,$011	/tab
	bne	0f
	mov	tabc,rchar
	br	1f
0:
	cmpb	r0,$001
	bne	6f
	mov	dotc,rchar
1:
	cmpb	r0,fc
	beq	6f
	cmpb	r0,padc
	beq	6f
	mov	(sp)+,r1
	mov	$tabtab,r0
	inc	nspace
1:
	tst	(r0)
	jeq	get1
	cmp	column,(r0)+
	bge	1b
	mov	-(r0),nspace
	sub	column,nspace
	jbr	get1
6:
/get1a:	br	7f
	tst	init
	bne	7f
	tst	r0
	jeq	4b
7:
	mov	(sp)+,r1
	tst	r0
	rts	pc
cbits: 040743;20 /001,007-012,033 (soh,bel,bs,tab,nl,so,si,esc)
/cbits: 041743;20 /001,006-012,033 (soh,ack,bel,bs,tab,nl,so,si,esc)

edone:
	mov	$stk,frame
	clr	ip
done:
	clr	app
	clr	ds
	mov	em,r0
	beq	0f
	clr	em
	mov	pc,donef
	mov	frame,-(sp)
	jsr	pc,cont1
	cmp	(sp)+,frame
	bne	1f
0:
	tst	nfo
	beq	3f
	clr	op
	clr	mflg
	tst	woff
	beq	0f
	clr	r0
	jsr	pc,wbt
0:
	clr	pendnf
	tst	pendw
	beq	0f
	clr	*pendw
	clr	pendw
0:
	cmp	$1,donef
	beq	done1
	mov	$1,donef
	clr	ip
	mov	$ilist,ilistp
	jsr	pc,rbreak
	inc	nflush
	mov	$ilist,r0
	jsr	pc,eject
1:
	mov	ssp,sp
	jmp	loop
done1:
/	tst	pendb
/	bne	0b
	tst	nl
	beq	1f
	jsr	pc,newline
	br	1b
1:
3:
done2:
	jsr	pc,flush
place:
	sys	signal; 2; 1
	tst	quiet
	beq	1f
	bis	$10,ttym
	mov	ttyid,r0
	sys	stty; ttys
1:
	mov	$1,r0
	jsr	pc,mesg
	mov	outid,r0
	sys	close
	sys	wait
	sys	exit

nextfile:
	mov	ifile,r0
	beq	1f
	sys	close
1:
	tst	nx
	beq	2f
	mov	$nextf,r0
	br	3f
2:
	cmp	ifp,$ifl
	beq	1f
	jsr	pc,popf
	bne	nextfile
	tst	pc
	rts	pc
1:
	dec	argc
	blt	4f
	mov	*argp,r0
	add	$2,argp
3:
	mov	r0,5f
	cmpb	(r0)+,$'-
	bne	0f
	tstb	(r0)
	bne	0f
	clr	r0
	br	1f
0:
	sys	0;7f
.data
7:	sys	open; 5:..; 0
.text
	bec	1f
	sub	mflg,nfo
	jgt	done
	jsr	r5,string; omes
	mov	5b,8f
	jmp	7f
.data
7:	jsr	r5,string; 8:..
	jmp	6f
.text
6:
	jsr	r5,string; 9f
	jbr	done
1:
	clr	iline
	inc	nfo
	mov	r0,ifile
	clr	ioff
	rts	pc
4:
	sub	mflg,nfo
	beq	0f
	tst	stdi
	jeq	done
0:
	clr	iline
	clr	mflg
	inc	nfo
	clr	stdi
	clr	ifile
	clr	ioff
	rts	pc
omes: <Cannot open: \0>
9: <\n\0>
.even

popf:
	clr	-(sp)
	mov	ifp,r1
	cmp	r1,$ifl
	beq	1f
	sub	$2,ifp
	mov	-(r1),ifile
	mov	[offl-ifl](r1),ioff
	mov	ioff,0f
	bic	$777,0f
	mov	ifile,r0
	beq	4f
	sys	0;7f
.data
7:	sys	seek; 0:..; 0
.text
	bes	2f
	mov	ifile,r0
	sys	read; ibuf; 512.
	bes	2f
	add	$ibuf,r0
	mov	r0,eibuf
	sub	ioff,0b
	mov	$ibuf,ibufp
	mov	ifile,r0
	jsr	pc,ttyn
	cmpb	r0,$'x
	bne	1f
	sub	0b,ibufp
	cmp	ibufp,eibuf
	blo	1f
2:
	inc	(sp)
1:
	tst	(sp)+
	rts	pc
4:
	jsr	pc,restbuf
	br	1b

savebuf:
	mov	$ibuf,r0
	mov	$xbuf,r1
	mov	ibufp,xbufp
	mov	eibuf,xeibuf
1:
	mov	(r0)+,(r1)+
	cmp	r0,eibuf
	blo	1b
	rts	pc

restbuf:
	mov	$xbuf,r0
	mov	$ibuf,r1
	mov	xbufp,ibufp
	mov	xeibuf,eibuf
1:
	mov	(r0)+,(r1)+
	cmp	r1,eibuf
	blo	1b
	rts	pc

putchar:
	bic	$!377,r0
	beq	2f
	tstb	r0
	bmi	pchar2
	cmpb	r0,$013 /\e
	bne	0f
	tst	op
	bne	0f
	movb	eschar,r0
	br	putchar
0:
	movb	trtab(r0),r0
	cmp	r0,$' 
	bne	1f
	inc	nsp
2:
	rts	pc
1:
	cmp	r0,$'\n
	bne	1f
	clr	nsp
	clr	ocol
	br	pchar1
1:
	mov	$011,-(sp)
1:
	tst	nsp
	beq	2f
	tst	slow
	bne	4f
	tst	op
	bne	4f
	jsr	pc,dsp
	cmp	nsp,r1
	blt	4f
	mov	$011,(sp)
	cmp	r1,$1
	bgt	8f
	mov	$040,(sp)
	dec	nsp
	br	9f
8:
	sub	r1,nsp
9:
	mov	r0,-(sp)
3:
	mov	2(sp),r0
	jsr	pc,pchar1
	mov	(sp)+,r0
	br	1b
4:
	mov	r0,-(sp)
	mov	$' ,r0
	jsr	pc,pchar1
	mov	(sp)+,r0
	dec	nsp
	bne	4b
2:
	tst	(sp)+
	cmp	r0,$026
	blt	2f
	cmp	r0,$037
	beq	3f
	bgt	2f
	mov	r0,-(sp)
	jsr	r5, switch; unpfx
	cmp	(sp)+,r0
	beq	2f
	mov	r0,-(sp)
	mov	$033,r0  /prefix
	jsr	pc,pchar1
	dec	ocol
	mov	(sp)+,r0
2:
pchar1:
	cmp	r0,$011
	bne	1f
	jsr	pc,dsp
	br	2f
1:
	jsr	pc,width
2:
	add	r1,ocol
pchar2:
	tst	op
	beq	1f
	mov	op,r1
	jsr	pc,wbf
	mov	r1,op
	br	3f
1:
	tst	tflg
	bne	1f
	cmp	pn,pfrom
	blt	3f
	clr	pfrom
1:
	movb	r0,*obufp
	inc	obufp
	cmp	obufp,$obuf+512.
	beq	flush
3:
	rts	pc

dsp:
	clr	r1
1:
	add	$8.,r1
	cmp	ocol,r1
	bgt	1b
	sub	ocol,r1
	bne	2f
	mov	$8.,r1
2:
	rts	pc

unpfx:
   .byte 032, '9
   .byte 035, '8
   .byte 036, '7
   .byte 031, '3
   .byte 030, '4
   .byte 026, '1
   .byte 027, '2
   .byte 0,0

flush:
	mov	obufp,r0
	sub	$obuf,r0
	mov	r0,0f
	mov	outid,r0
	sys	0;7f
.data
7:	sys	write; obuf; 0:0
.text
	jes	place
	inc	toolate
	mov	$obuf,obufp
	rts	pc

rdtty:
/	mov	sp,r1
/	sys	signal; 2; rdtty1
	clr	r0
	sys	read; char; 1
	tst	r0
	bne	2f
rdtty1:
/	mov	r1,sp
	jsr	pc,popi
rdtty2:
	clr	tty
	tst	quiet
	beq	0f
	bis	$10,ttym
	mov	ttyid,r0
	sys	stty; ttys
0:
	clr	r0
1:
/	sys	signal; 2; place
	rts pc
2:
	mov	char,r0
	cmpb	r0,$'\n
	beq	3f
	mov	$1,tty
	br	1b
3:
	inc	tty
	cmp	tty,$3
	beq	rdtty1
	br	1b

ttyn:
	mov	r1,-(sp)
	mov	$'x,-(sp)
	clr	-(sp)
	sys	fstat; ybuf
	bes	3f
	mov	ybuf+2,(sp)
	sys	open; dev; 0
	bes	3f
	mov	r0,r1
1:
	mov	r1,r0
	sys	read; ybuf; 16.
	bes	2f
	cmp	r0,$16.
	bne	2f
	mov	$ybuf,r0
	cmp	(r0)+,(sp)
	bne	1b
	cmp	(r0)+,$"tt
	bne	1b
	cmpb	(r0)+,$'y
	bne	1b
	tstb	(r0)+
	beq	1b
	cmpb	(r0),$'\0
	bne	1b
	movb	-(r0),2(sp)
2:
	mov	r1,r0
	sys	close
3:
	tst	(sp)+
	movb	(sp)+,r0
	mov	(sp)+,r1
	rts	pc
dev:	</dev\0>
.even

cont1:
	mov	r0,-(sp)
	mov	pc,r2
	br	0f
control:
	jsr	pc,getchar
	mov	r0,-(sp)
	jsr	pc,getchar
	cmpb	r0,$'\n
	beq	8f
	cmpb	r0,$' /
	bne	9f
8:
	mov	r0,ch
	clr	r0
9:
	swab	r0
	bis	(sp),r0
	clr	r2
0:
	mov	$contab,r1
1:
	mov	(r1)+,(sp)
	bic	$100000,(sp)
	cmp	r0,(sp)
	bne	4f
	mov	(r1),(sp)
	tst	-(r1)
	bpl	3f
	clr	*nxf
	tst	r2
	bne	2f
	jsr	pc,collect
2:
	jsr	pc,flushi
	jsr	pc,pushi
	beq	5f
	mov	(sp),ip
	br	5f
3:
	jmp	*(sp)+
4:
	cmp	(r1)+,$-1
	bne	1b
5:
	tst	(sp)+
	rts	pc

.data
contab:
<ad>; casead
<bp>; casebp
<pn>; casepn
<br>; casebr
<cc>; casecc
<c2>; casec2
<ce>; casece
<fi>; casefi
<in>; casein
<li>; caseli
<ll>; casell
<ls>; casels
<ns>; casens
<rs>; casers
<na>; casena
<ne>; casene
<nf>; casenf
<pl>; casepl
<sp>; casesp
<lv>; casesv
<sv>; casesv
<os>; caseos
<ta>; caseta
<ti>; caseti
<tr>; casetr
<ul>; caseul
<tl>; casetl
<lt>; caselt
<hc>; casehc
<hy>; casehy
<nh>; casenh
<nm>; casenm
<np>; casenp
<nn>; casenn
<ar>; casear
<ro>; casero
<RO>; caseroc
<nx>; casenx
<so>; caseso
<po>; casepo
<de>; casede
<ds>; caseds
<am>; caseam
<as>; caseas
<da>; caseda
<di>; casedi
<rm>; caserm
<rn>; casern
<ig>; caseig
<tc>; casetc
<ec>; caseec
<eo>; caseeo
<lc>; caselc
<nc>; casenc
<ev>; caseev
<if>; caseif
<wh>; casewh
<ch>; casech
<rd>; caserd
<tm>; casetm
<nr>; casenr
<mk>; casemk
<rt>; casert
<ab>; casest
<fl>; casefl
<ex>; done
<xh>; casexh
<em>; caseem
<fc>; casefc
<af>; caseaf
<pi>; casepi
<hw>; casehw
bnames: .=.+512.
-1; -1
.text