aboutsummaryrefslogtreecommitdiff
path: root/tmac/tmac.soft
diff options
context:
space:
mode:
Diffstat (limited to 'tmac/tmac.soft')
-rw-r--r--tmac/tmac.soft1031
1 files changed, 1031 insertions, 0 deletions
diff --git a/tmac/tmac.soft b/tmac/tmac.soft
new file mode 100644
index 00000000..83aa05ea
--- /dev/null
+++ b/tmac/tmac.soft
@@ -0,0 +1,1031 @@
+.\" From mel Sat Sep 16 14:46:23 1978
+.\" the GE macro places figures.
+.\" G8 is zero until the figure is placed
+.\" G5 is non-zero if there was an argument
+.\" on GS which specifies
+.\" 1 - top
+.\" 2 - bottom
+.\" 3 - next page
+.\" 4 - at this point
+.\" the macros HN - top next pge
+.\" HT - top this page
+.\" HB - bottom this page
+.\" HH : here on this page
+.\" The current algorithm is: if it does not fit,
+.\" top next page; otherwise if no arg to GS
+.\" put it at top or bottom of this page, whichever
+.\" is closer (there is a threshold of half the figure
+.\" size or something)
+.\" if arg to GS is given it governs.
+.\"
+.de Vx \" volume, number, Month, year, page 1, page n, top title(s) in one blast (bwk)
+.\" also needs DY for date received as 31 July 1978
+.ds VN \\$1
+.ds NU \\$2
+.ds mo \\$3
+.if "\\$3"January" .ds MO JANUARY
+.if "\\$3"February" .ds MO FEBRUARY
+.if "\\$3"March" .ds MO MARCH
+.if "\\$3"April" .ds MO APRIL
+.if "\\$3"May" .ds MO MAY
+.if "\\$3"June" .ds MO JUNE
+.if "\\$3"July" .ds MO JULY
+.if "\\$3"August" .ds MO AUGUST
+.if "\\$3"September" .ds MO SEPTEMBER
+.if "\\$3"October" .ds MO OCTOBER
+.if "\\$3"November" .ds MO NOVEMBER
+.if "\\$3"December" .ds MO DECEMBER
+.nr yr \\$4
+.nr P \\$5-1
+.nr P< \\$5
+.pn \\$5
+.nr P> \\$6
+.ds Tl \\$7
+.ds Tr \\$8
+..
+.de PS \" start picture (bwk)
+. \" $1 is height, $2 is width in units
+.if t .SP .3
+.in (\\n(.lu-\\$2u)/2u
+.ne \\$1u
+..
+.de PE \" end of picture
+.in
+.if t .SP .6
+..
+.di XX
+.nr Q1 0
+.rn ne NE
+.de ne
+.nr NB \\$1v
+.if \\n(.t<\\n(NB \{\
+.dt \\n(.du+4u \\*(DT
+.sp\}
+..
+.ds Co \s12\v'.2m'\(co\v'-.2m'\s0 20\\n(yr by John Wiley & Sons, Ltd.
+.de CO
+.ps 8
+.vs 9p
+.nf
+SOFTWARE\(emPRACTICE AND EXPERIENCE, VOL. \\*(VN(\\*(NU), \\n(P<-\\n(P> (\\*(MO 20\\n(yr)
+.fi
+.ft 1
+.lt \\n(LLu
+.ps \\n(PS
+.vs \\n(VSp
+..
+.nr BS 1
+.de IZ
+.if \\n(PS=0 .nr PS 10
+.if \\n(VS=0 .nr VS 12
+.if \\n(PL=0 .nr PL 10.25i
+.if \\n(LP=0 .nr LP 8i
+.if \\n(LL=0 .nr LL 5.6i
+.if \\n(LS=0 .nr LS 0.9v
+.if \\n(JS=0 .nr JS 0.5v
+.nr ZI 0.3i
+.nr ZJ 0.3i
+.ps \\n(PS
+.vs \\n(VSp
+.pl \\n(PLu
+.ll \\n(LLu
+.nr L4 \\n(LPu-\\n(LSu
+.dt \\n(L4u EP
+.ds DT EP
+.em EM
+..
+.de TL
+.IZ
+.rm IZ
+.CO
+.SP .5i
+.ps 16
+.ft 1
+.vs 30p
+.br
+.if \\n(.d=0 .nr TP 1
+.if \\n(.t<4v .nr TO 1
+.di TX
+.nr FR 0
+.nr IT 1
+.na
+.ll \\n(LLu-.5i
+..
+.de ET
+.br
+.di
+.dt \\n(L4u \\*(DT
+.ad
+.ll \\n(LLu
+.ce 100
+.nf
+.TX
+.rm TX
+.fi
+.nr IT 0
+..
+.de AU
+.if \\n(IT>0 .ET
+.ft 1
+.br
+.sp .6
+.ps 8
+.vs \\n(VSp
+.ce 100
+..
+.de AI
+.sp 3p
+.ps 8
+.ft 2
+.ce 100
+..
+.de RD
+.ps -1
+.ce
+.if \\n(.n>\\n(.l .tm Too many authors on a line
+..
+.de AB
+.ce 0
+.nr AB 1
+.ft 3
+.ce
+.SP .2i
+SUMMARY
+.ps \\n(PS
+.vs \\n(VSp
+.SP .5v
+..
+.de AE
+.ft 1
+.nr AB 0
+.nr FR 0
+.nr HI 1
+.SP .8v
+..
+.de OK
+.br
+.ft 1
+.ps 6
+KEY WORDS \c
+.ps 7
+..
+.de PP
+.RT
+.if \\n(.i>0 .SP \\n(JSu
+.in 0
+.if \\n(FR=0 .ps \\n(PS
+.ti +2n
+.if \\n(AB=0 .ft 1
+.nr FR 1
+..
+.de LP
+.RT
+.if \\n(.i>0 .SP \\n(JSu
+.in 0
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.if \\n(AB=0 .ft 1
+..
+.de IP
+.ce 0
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.if \\n(.i=0 .SP .5v
+.in \\n(ZJu
+.ti -\\n(ZIu
+\\$1\h'|\\n(ZIu'\c
+..
+.de JP
+.ce 0
+.\".if \\n(.d>0 .if \\n(.d<1.5v .if \\n(HI=0 .tm Top widow page \\n% (JP)
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.if \\n(.i=0 .SP \\n(JSu
+.in \\n(ZJu
+.ti -.4i
+.if \\n(.f=1 \h'0.3i-\w"(\f2\\$1\|\fP)"u'(\f2\\$1\|\fP)\h'|.4i'\c
+.if \\n(.f=2 \h'0.3i-\w"(\f2\\$1\^\fP)"u'(\f2\\$1\^\fP)\h'|.4i'\c
+..
+.de SH
+.nr HQ \\n(HI
+.RT
+.in 0
+.nr HI \\n(HQ
+.ne 2v+\\n(.Vu
+.ft 3
+.if \\n(HI=0 .if \\n(.d>0 .SP 1.25v
+.if \\n(HI>0 .if \\n(.d>0 .if \\n(FR>0 .sp 1
+.nr FR 1
+.nr HI 1
+..
+.de EP
+.di
+.nr L1 \\n(dn
+.ev 1
+.ce 0
+.ll \\n(LLu
+.br
+.rs
+.sp .75i-1v
+.if \\n(TP=0 .PT
+.if \\n(TP>0 .sp
+.nr TO 0
+.sp 1
+.nr P1 \\n(LP-\\n(L1
+.nf
+.nr P1 -\\n(G1
+.nr P1 -\\n(G2
+.if \\n(P1<0 .nr Q1 0
+.if \\n(EX=1 .nr Q1 0 \" don't pad on last page of article
+.nr P3 \\n(P1
+.if \\n(G1>0 .GT
+.if \\n(G1>0 .if \\n(EX=0 .sp \\n(P1u
+.if \\n(G1>0 .if \\n(EX=0 .nr P1 0
+.rm GT
+.if \\n(G1>0 .nr Q1 0 \" if top figure, pad below
+.if \\n(G2>0 .nr Q1 0 \" if bottom figure pad above
+.if \\nB .tm Page \\n%: pad \\n(P3 space \\n(Q1 places, top \\n(G1, bot \\n(G2
+.XX
+.nf
+.if \\n(G2>0 .if \\n(P1>0 .sp \\n(P1u
+.if \\n(G2>0 .nr P1 0
+.if \\n(G2>0 .GB
+.nr G1 0
+.nr G2 0
+.if \\n(EX>0 .if \\n(P1>0 .sp \\n(P1u
+.if \\nB .tm Bottom of page \\n% at \\n(nl
+.rm GB
+.PF
+.bp
+.nr TQ \\n(TP
+.nr TP 0
+.nr G1 \\n(G3
+.rn GN GT
+.nr G3 0
+.ev
+.nr FP 0
+.nr Q1 0
+.nr L4 \\n(LPu-\\n(LSu
+.if \\n(G1>(\\n(L4-1i) .FB \" full page figure
+.nr L4 -\\n(G1
+.nr LX \\n%
+.af LX 1
+.ie \\n(LX<=26 .af LX a
+.el \{.nr LX -26
+.af LX A\}
+.nr L4 -\\n(C\\n(LXu
+.di XX
+.dt \\n(L4u EP
+.ds DT EP
+..
+.de FB
+.if \\nB .tm Full page figure on page \\n%
+.ev 1
+.rs
+.sp .75i-1v
+.PT
+.rs
+.GT
+.rm GT
+.nr G1 0
+.PF
+.bp
+.ev
+..
+.de CP \" cut text on page arg1 by arg2
+.nr C2 \\$2v
+.nr C1 \\$1
+.af C1 1
+.if \\n(C1>52 .tm Page>52, gok what happens.
+.ie \\n(C1<=26 .af C1 a
+.el \{.nr C1 -26
+.af C1 A\}
+.if \\n(C2>0 .nr C\\n(C1 \\n(C2
+..
+.de SP
+.if \\n(.t<\\$1 .\\*(DT
+.if \\n(.d>0 .ST \\$1
+..
+.de ST
+.sp \\$1
+.nr Q1 +1
+\!.FI
+..
+.de FI
+.nr P4 0
+.if \\n(Q1>0 .nr P4 3*((\\n(P1/3)/\\n(Q1)
+.sp \\n(P4u
+.if \\n(P4>1v .tm Padding of \\n(P4u exceeds one space page \\n%
+.nr P1 -\\n(P4
+.nr Q1 -1
+..
+.de CL \" change length: add/sub lines this page
+.nr CN \\$1v
+.nr L4 \\n(L4+\\n(CN
+.dt \\n(L4u EP
+..
+.de GS
+. \"argument positions: 1 top here, 2 bottom here, 3 next page, 4 right here
+.if \\n(.$>0 .if \\$1=4 .br
+.ev 1
+.di GD
+.ll \\n(LLu
+.if \n(KK=0 .ps \\n(PS-2
+.if \n(KK=0 .vs \\n(VSp-4p
+.nr G5 0
+.if \\n(.$>0 .nr G5 \\$1
+.fi
+..
+.de GE
+.br
+.di
+.nf
+.nr G0 \\n(dn
+.nr G0 +1v
+.nr G8 0 \" not placed
+.if \\n(KG=0 .if \\n(G8=0 .if \\n(G0>\\n(.t .HN
+.if \\n(G8=0 .if \\n(G5=0 .if \\n(G0>2*\\n(.d .if \\n(G1=0 .HT
+.if \\n(G8=0 .if \\n(G5=0 .if 3*\\n(G0>2*\\n(.t .if \\n(G2=0 .HB
+.if \\n(G8=0 .if \\n(G5=0 .HH
+.if \\n(G8=0 .if \\n(G5=1 .HT
+.if \\n(G8=0 .if \\n(G5=2 .HB
+.if \\n(G8=0 .if \\n(G5=3 .HN
+.if \\n(G8=0 .if \\n(G5=4 .HH
+.rm GD
+.ps \\n(PS
+.vs \\n(VSp
+.ev
+..
+.de FS
+.GS 2
+.br
+.if \\n(FP=0 \{\
+.vs 2p
+.br
+\l'.75i'
+.vs
+.sp 2p
+.nr FP 1
+.br\}
+..
+.de FE
+.GE
+..
+.de KS
+.if \\n(KK=0 .GS 4
+.nr KK 1
+.nr KG 1
+..
+.de KE
+.if \\n(KK>0 .GE
+.nr KK 0
+.nr KG 0 \" KG on if not a floating display
+..
+.de HN
+.if \\n(G3>0 .tm Two figures pushed to next page.
+.da GN
+.GD
+.sp 1
+.di
+.nr G3 \\n(dn
+.nr G8 1
+..
+.de HT
+.nr L4 -\\n(G0
+.dt \\n(L4u \\*(DT
+.da GT
+.GD
+.sp
+.di
+.nr G1 +\\n(dn
+.nr G8 1
+..
+.de HB
+.da GB
+.if \\n(FP=0 .sp
+.GD
+.di
+.nr G2 +\\n(dn
+.nr G8 1
+.nr L4 -\\n(dn
+.dt \\n(L4u \\*(DT
+..
+.de HH
+.SP .5v
+.if \\n(G0>\\n(.t .if \\n(KK>0 .sp 10i
+.GD
+.SP .5v
+.nr G8 1
+..
+.de RR
+.ce 0
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.ft 1
+.in .3i
+.if \\n(.$ .ti -.3i
+.if \\n(.$ \\$1\ \ \c
+..
+.de RF
+.SP 2v
+.ps \\n(PS-2
+.vs \\n(VS-3
+.ne 3v
+.ce
+.ps -1
+REFERENCES
+.sp 3p
+..
+.de PT
+.if \\n(PF>0 .af % 1
+.if \\n(Pf>0 .if o .tl ""\s7\\*(Tr\s0"\s10\\n%"
+.if \\n(Pf>0 .if e .tl "\s10\\n%"\s7\\*(Tl\s0""
+..
+.de PF
+.sp 1v
+.lt \\n(.lu
+.nr Ss \\n(.s
+.nr Sf \\n(.f
+.ps 9
+.af NU 01
+.af VN 01
+.af P< 0001
+.nr VN \\*(VN
+.nr NU \\*(NU
+.\" price = 1.00 if <= 10 pages, otherwise .10/page.
+.nr p1 (1+\\n(P>-\\n(P<)*10
+.if \\n(p1<100 .nr p1 100
+.nr p2 \\n(p1%100
+.nr p1 \\n(p1/100
+.ds pr \\n(p1.\\n(p2
+.if \\n(Pf=0 .tl "\s90038-0644/\\n(yr/\\n(NU\\n(VN-\\n(P<$0\\*(pr""\f2Received \\*(DY\f1\s0"
+.if \\n(Pf=0 \s9\\*(Co\s0
+.af % 1
+.nr Pf \\n(Pf+1
+.ft \\n(Sf
+.ps \\n(Ss
+..
+.de EQ \"equation, breakout and display
+.nr EF \\n(.u
+.ds EE \\h'.5i' \" default for indent is .5 inch
+.nr LE 1 \" 1 is center, 0 is I or L
+.ds EL \\$1
+.if "\\$1"L" .ds EL \\$2
+.if "\\$1"L" .nr LE 0
+.if "\\$1"C" .ds EL \\$2
+.if "\\$1"I" .nr LE 0
+.if "\\$1"I" .ds EE \\h'.5i'
+.if "\\$1"I" .if !"\\$3"" .ds EE \\h'\\$3'
+.if "\\$1"I" .ds EL \\$2
+.ev 1
+.di EZ
+..
+.\" -----------------------------
+.de EN \" end of a displayed equation
+.if !"\\n(.z"EZ" .tm EN not preceded by EQ, disaster follows.
+.br
+.ce 0
+.di
+.rm EZ
+.ev
+.nr ZN 1
+.if "\\*(10"" .nr ZN 0
+.if \\n(ZN=0 .if !"\\*(EL"" .nr ZN 1
+.lt \\n(.lu
+.br
+.if \\n(ZN>0 .if !\\n(.d=\\n(PE .SP 0.5
+.pc
+.if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
+.if \\n(ZN>0 .if \\n(LE>0 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
+.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
+.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\\\t\\*(EL
+.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w'\\*(10' .nr BD \\w'\\*(10'
+.lt \\n(LLu
+.pc %
+.br
+.if \\n(ZN>0 .if \\n(EF>0 .fi
+.rm EL
+.if \\n(ZN>0 .SP 0.5
+.nr PE \\n(.d
+.rm 10
+..
+.de B
+.if \\n(.$>0 \\$3\f3\\$1\fP\\$2
+.if \\n(.$=0 .ft 3
+..
+.de I
+.if \\n(.$>0 \\$3\f2\\$1\fP\^\\$2
+.if \\n(.$=0 .ft 2
+..
+.de R
+.ft 1
+..
+.de EM
+.br
+.nr EX 1
+.wh -1p .CM
+.sp 100
+..
+.de TS
+.nf
+.sp .5v
+..
+.de TE
+.fi
+.sp .5v
+..
+.de CM
+.po 0
+.tl '\(ru'''
+.po
+..
+.wh 0 CM
+.de RT
+.br
+.\".if \\n(.d>0 .if \\n(.d<1.5v .if \\n(HI=0 .tm Top widow page \\n%
+.IZ
+.rm IZ
+.if "\\n(.z"PA" .tm Warning: are you missing a .P2?
+.if \\n(IT>0 .ET
+.ps \\n(PS
+.vs \\n(VSp
+.if \\n(HI .sp .5v
+.if \\n(HI .if \\n(.d<=1.5v .if \\n(G1=0 .sp .5v
+.nr HI 0
+.ce 0
+..
+. \"ACCENTS say \*'e or \*`e to get e acute or e grave
+.ds ' \h'\w'e'u*4/10'\z\(aa\h'-\w'e'u*4/10'
+.ds ` \h'\w'e'u*4/10'\z\(ga\h'-\w'e'u*4/10'
+. \"UMLAUT \*:u, etc.
+.ds : \v'-0.6m'\h'(1u-(\\n(.fu%2u))*0.13m+0.06m'\z.\h'0.2m'\z.\h'-((1u-(\\n(.fu%2u))*0.13m+0.26m)'\v'0.6m'
+. \"TILDE and CIRCUMFLEX
+.ds ^ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z^\h'|\\n:u'
+.ds ~ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z~\h'|\\n:u'
+. \"dotted arrow
+.ds > \v'-.1m'\s-4---\z-\v'.1m'\h'-.3m'\z>\s+4
+. \"czech symbol as in kucera & francis
+.ds C \h'.1m'\v'-0.6m'\s6\zv\s0\v'0.6m'\h'-.1m'
+..
+. \"NH - numbered heading
+.de NH
+.nr HQ \\n(HI
+.RT
+.nr HI \\n(HQ
+.ne 2v+\\n(.Vu
+.ft 1
+.if \\n(Nh=0 .SP 1.2v
+.nr Nh \\n(Nh+1
+.if \\n(HI=0 .if \\n(.d>0 .SP 1.5v
+.if \\n(HI>0 .if \\n(.d>0 .if \\n(FR>0 .sp 1
+.nr FR 1
+.nr HI 1
+.ce 100
+\\n(Nh. \c
+..
+. \"Ch - centered, unnumbered heading
+.de Ch
+.RT
+.ne 2v+\\n(.Vu
+.sp 1
+.ft 1
+.ce 100
+..
+. \"Lh - left-justified, unnumbered heading
+.de Lh
+.RT
+.ne 2v+\\n(.Vu
+.sp 1
+.ft 3
+..
+.de IH
+.nr H4 +1
+.ft 2
+\\n(H1.\\n(H2.\\n(H3.\\n(H4 \\$1
+.ft 1
+..
+.de UX
+.ie \\n(GA>0 \\$2\s-2UNIX\s0\\$1
+.el \{\
+.if n \\$2UNIX\(dg\\$1
+.if t \\$2\s-2UNIX\s0\(dg\\$1
+.FS
+\(dg \s-2UNIX\s0 is a registered trademark of X/Open.
+.FE
+.nr GA 1\}
+..
+.de Ux \" cap-small cap, not used
+.\" .ie \\n(GA>0 \\$2U\s-2NIX\s0\\$1
+.ie \\n(GA>0 \\$2\s-2UNIX\s0\\$1
+.el \{\
+.if n \\$2UNIX*\\$1
+.\".if t \\$2U\s-2NIX\s0*\\$1
+.if t \\$2\s-2UNIX\s0*\\$1
+.FS
+* \s-2UNIX\s0 is a registered trademark of X/Open.
+.FE
+.nr GA 1\}
+..
+.de US
+the
+.UX
+operating system
+..
+.so /usr/lib/tmac/tmac.sdisp
+.de KF
+.if \\n(KK=0 .GS
+.nr KK 1
+..
+.tr |\(or
+.de UL
+.if n .ul
+\&\\$3\f3\\$1\fP\&\\$2
+..
+.de UC
+\&\\$3\s-2\\$1\\s+2\&\\$2
+..
+.de Uc \" cap-small cap, not used
+.\" \&\\$4\\$1\s-2\\$2\s+2\&\\$3
+\&\\$4\s-2\\$1\\$2\s+2\&\\$3
+..
+.de IT
+.if n .ul
+\&\\$3\f2\\$1\fP\|\&\\$2
+..
+.de UP
+\&\\$3\\f3\s-2\\$1\s+2\f1\&\\$2
+..
+.de P1
+.nr PC \\n(.i
+.nf
+.di PA
+.lg 0
+.if n .ls 1
+.if n .ta 5 10 15 20 25 30 35 40 45 50 55 60
+.if t .ta .4i .8i 1.2i 1.6i 2i 2.4i 2.8i 3.2i 3.6i 4i 4.4i 4.8i 5.2i 5.6i
+.if t .tr -\-|\(bv'\(fm*\(**
+.if t .tr ~\(ap
+.tr _\(ru
+.if t .ss 20
+.ft 3
+.lg 0
+.ps 9
+.vs 12p
+.in 0
+..
+.de P2
+.if t .ss 12
+.ft R
+.if n .ls 2
+.tr --''^^!!**
+.lg
+.in \\n(PCu
+.di
+.if \\n(dl>(\\n(.l-\\n(.i) .tm Page \\n% program fragment too wide
+.nr PB \\n(.l-\\n(dl-\\n(.i-2n
+.if \\n(PB<0 .nr PB 0
+.nr PB \\n(PB/2
+. \" indent; don't center
+.nr PB .5i
+.in +\\n(PBu
+.nf
+.SP .5v
+.PA
+.SP .5v
+.in -\\n(PBu
+.fi
+.ps \\n(PS
+.vs \\n(VSp
+..
+.de X
+.ul
+\&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de Y
+.ti \\n(.yu*2u
+.ul
+\&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de QH
+.NH 2
+.ti 0
+.ft 2
+..
+.de PN
+.nr NQ \\n(.f
+\&\\$3\\f3\\$1\f\\n(NQ\\$2
+..
+.de ][
+.\".if \\n(.d>0 .if \\n(.d<1.5v .tm Top widow page \\n%
+.if \\$1>5 .tm Bad arg to ][
+.Fx \\*([D
+.[\\$1
+..
+.if n .ds [. [
+.if t .ds [. \s-2\v'-.4m'\f1
+.if n .ds .] ]
+.if t .ds .] \v'.4m'\s+2\fP
+.if n .ds [o ""
+.if n .ds [c ""
+.if t .ds [o `
+.if t .ds [c '
+.de [5 \" tm style
+.QP "\\*([F.\0"
+\\*([A,
+unpublished work
+(\\*([D).
+.in 0
+.RT
+..
+.de [0 \" other
+.QP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\f2\\*([T\\f1\c
+.if !"\\*([T"" .if !"\\*([O"" ,\
+.ie !"\\*([O"" \\*([O
+.el .if !"\\*([T"" \&.
+.if !"\\*([D"" \\*([D.
+.in 0
+.RT
+..
+.de [1 \" journal article
+.if "\\*([Q"This issue" .rm [V [N [D
+.if !"\\*([R"" .rm [C
+.QP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\*([o\\*([T,\\*([c
+.ft 2
+.if "\\*([V"" .if !"\\*([C"" \\*([J,
+.if "\\*([V"" .if "\\*([C"" .if !"\\*([Q"This issue" \\*([J
+.if "\\*([V"" .if "\\*([C"" .if "\\*([Q"This issue" \\*([J,
+.if !"\\*([V"" \\*([J,
+.ft 1
+.if !"\\*([V"" \{.if n Vol.\&
+\\f3\\*([V\\f1,\}
+.if !"\\*([N"" \\*([N,
+.if !"\\*([C"" \\*([C
+.if !"\\*([P"" \\*([P
+.if !"\\*([D"" (\\*([D).
+.in 0
+.RT
+..
+.de [2 \" book
+.QP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+\\f2\\*([T,\\f1
+\\*([I,
+.if !"\\*([D"" \\*([D\c
+.if !"\\*([Q"NP" \&.
+.if !"\\*([G"" Gov't. ordering no. \\*([G
+.if !"\\*([O"" \\*([O
+.in 0
+.RT
+..
+.de [4 \" report
+.if "\\*([I"Bell Laboratories" .rm [C
+.QP "\\*([F.\0"
+\\*([A, \\*([o\\*([T,\\*([c
+\\*([R\c
+.if !"\\*([G"" \& (\\*([G)\c
+.if !"\\*([I"" , \\*([I\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([D"" \\0(\\*([D)\c
+.if !"\\*([Q"NP" \&.
+.if !"\\*([O"" \\*([O
+.in 0
+.RT
+..
+.de [3 \" article in book
+.QP "\\*([F.\0"
+\\*([A, \\*([o\\*([T,\\*([c
+in \\f2\\*([B\\f1\c
+.if !"\\*([E"" , ed. \\*([E\c
+.if "\\*([E"" ,\c
+.if !"\\*([I"" \ \\*([I,\c
+.if !"\\*([P"" \ \\*([P
+.if !"\\*([D"" \ (\\*([D).
+.in 0
+.RT
+..
+.de ]<
+.SP 2v
+.ti 0
+.nf
+.ps -1
+.ce
+REFERENCES
+.ps
+.nr PS 8
+.nr VS 8
+.nr PI \w'\s8\0\0.\0'
+.sp .5v
+.fi
+.LP
+.rn RP IP
+..
+.de Fx \" fix date to discard all but year
+.ds [D \\$\\n(.$
+..
+.de ]>
+.sp
+..
+.de ]-
+.rm [V [P [A [T [N [C [B [O [R [I [E [Q [D [Q
+..
+.de QP
+.LP
+.in \\n(PIu
+.ta \\n(PIuR
+.ti 0
+\t\\$1\\c
+..
+.de LB
+.RT
+.nr ZB .4i
+.if !"\\$2"" .nr ZB \\$2n
+.in \\n(ZJu
+.ti -\\n(ZBu
+.ta \\n(ZBu
+\\$1\t\\c
+..
+.de RS
+.nr ZJ +.3i
+..
+.de RE
+.nr ZJ -.3i
+..
+.de RP
+.ce 0
+.if \\n(FR=0 .ps \\n(PS
+.nr FR 1
+.in .4i
+.ta .2i
+.if \\n(.$>0 .ti 0-.1i-\h'\w'\\$1'u'
+.if \\n(.$>0 \\$1\h'|.4i'\c
+..
+.ds s \s-2
+.de MH
+Bell Labs, 600 Mountain Avenue, Murray Hill, New Jersey 07974, U. S. A.
+..
+.de HO
+Bell Labs, Holmdel, New Jersey 07733, U. S. A.
+..
+.de WH
+Bell Labs, Whippany, New Jersey 07981, U. S. A.
+..
+.ds n \s+2
+.\" REFER macros .... citations
+.de []
+.][ \\$1
+..
+.de ][
+.if \\$1>5 .tm Bad arg to []
+.[\\$1
+..
+.if n .ds [. [
+.if t .ds [. \s-2\v'-.4m'\f1
+.if n .ds .] ]
+.if t .ds .] \v'.4m'\s+2\fP
+.if n .ds [o ""
+.if n .ds [c ""
+.if t .ds [o `
+.if t .ds [c '
+.\" the next lines deal with the problem of .[1] or [1].
+.\" refer will write "linexxx\*(<.[1]\*(>.
+.\" and either "<." or ">." should produce the .;
+.\" similarly for ,
+.if n .ds >. .
+.if t .ds <. .
+.if n .ds >, ,
+.if t .ds <, ,
+.de [5 \" tm style
+.FS
+.IP "\\*([F.\0"
+.nr %T 2
+\\*([A, \\f2\\*([T\\f1,
+.ie \\n(TN \\*([M.
+.el Bell Laboratories internal memorandum (\\*([D).
+.RT
+.FE
+..
+.de [0 \" other
+.FS
+.nr [: 0
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \{.nr [: 1
+\\*([A\c\}
+.if !"\\*([T"" \{.if \\n([:>0 ,
+.nr [: 1
+\\f2\\*([T\\f1\c\}
+.if !"\\*([O""\{.if \\n([:>0 ,
+.nr [: 1
+.if \\n([O>0 .nr [: 0
+\\*([O\c
+.if \\n([O>0 \& \c\}
+.if !"\\*([D"" \{.if \\n([:>0 ,
+.nr [: 1
+\\*([D\c\}
+.if \\n([:>0 \&.
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [1 \" journal article
+.nr %T 1 \" title font
+.FS
+.if !"\\*([R"" .rm [C
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\*([o\\*([T\\*([c,
+\\f2\\*([J\\f1\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([V"" .if n ,\& Vol.\&\c
+.if !"\\*([V"" ,\& \\f3\\*([V\\f1\c
+.if !"\\*([P"" \{\
+.ie \\n([P>0 , \&\c
+.el , \ \&\c
+\\*([P\c\}
+.if !"\\*([I"" .if "\\*([R"" , \\*([I\c
+.if !"\\*([O"" .if \\n([O=0 , \\*([O\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([O"" .if \\n([O>0 \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [2 \" book
+.FS
+.nr %T 2
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\f2\\*([T,\\f1
+\\*([I\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([G"" Gov't. ordering no. \\*([G.
+.if !"\\*([O"" \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [4 \" report
+.FS
+.if !"\\*([F"" .IP "\\*([F.\0"
+.nr %T 1
+\\*([A, \\*([o\\*([T\\*([c,
+\\*([R\c
+.if !"\\*([G"" \& (\\*([G)\c
+.if !"\\*([I"" , \\*([I\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([O"" \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de [3 \" article in book
+.FS
+.nr %T 1
+.if !"\\*([F"" .IP "\\*([F.\0"
+.if !"\\*([A"" \\*([A,
+.if !"\\*([T"" \\*([o\\*([T,\\*([c
+.if !"\\*([P"" \\*([P
+in \\f2\\*([B\\f1\c
+.if !"\\*([E"" , ed. \\*([E\c
+.if !"\\*([I"" , \\*([I\c
+.if !"\\*([C"" , \\*([C\c
+.if !"\\*([D"" \& (\\*([D)\c
+\&.
+.if !"\\*([O"" \\*([O
+.if !"\\*([%"" Cited p. \\*([%.
+.RT
+.FE
+..
+.de ]<
+.[<
+..
+.de [<
+.LP
+.rm FS FE
+..
+.de [>
+.]>
+..
+.de ]>
+.sp
+..
+.de ]-
+.[-
+..
+.de [-
+.rm [V [P [A [T
+.rm [N [C [B [O
+.rm [R [I [E [D
+.rm [G [%
+..
+.de ]]
+.\"this is never executed and just uses up an end-of-file bug.
+..