More files!
diff --git a/tmac/tmac.cs b/tmac/tmac.cs
new file mode 100644
index 0000000..5bb76da
--- /dev/null
+++ b/tmac/tmac.cs
@@ -0,0 +1,1150 @@
+'''\" coversheet to match version 8/06/87
+'''\" from comp center 1.30 7/20/87
+'''\" 1/22/97 spacing change in addresses;
+'''\" email on separate line - mdm
+'''\" registers
+'''\" a - abstract continuation flag - 0 (no), >0 (yes)
+'''\" b - mercury selections counter
+'''\" c - distribution continuation flag - 0 (no), 1 (yes)
+'''\" d - flag for length calculation
+'''\" e - complete copy basic distribution length
+'''\" g - complete copy overflow distribution length
+'''\" h - cover sheet basic distribution length
+'''\" i - cover sheet overflow distribution length
+'''\" k - keyword flag - 0 (none), 1 (some) - reused as scratch
+'''\" l - number of vertical units per line - troff
+'''\" m - memorandum type flag - 1 TM, 2 IM, 3 TC
+'''\" n - document number counter
+'''\" o - title flag - 0 (no), 1 (yes - vertical size of title diversion)
+'''\" p - proprietary notice flag - 0 (none), 1 (default), 2(BR)
+'''\" r - security flag - 0 (no), 1 (yes)
+'''\" s - software flag - 0 (no), 1 (yes)
+'''\" t - mark title position
+'''\" u - author count
+'''\" q v w x y z- scratch - but remembered
+'''\" aa - ship to itds
+'''\" strings
+'''\" a) b)- mercury info
+'''\" d) - date
+'''\" k) - keywords
+'''\" N1 - first document number
+'''\" p) q) r)- proprietary 1
+'''\" s) - time stamp string
+'''\" t) - memo type (TM, IM, TC)
+'''\" v) - document nos
+'''\" w) - filing case nos
+'''\" x) - work project nos
+'''\" e( - earlier document
+'''\" m( n( o( p(- authors 1-3 sig
+'''\" r( - responsible person
+'''\" s( - S software string
+'''\" t( - memo type ("for Technical Memorandum", etc.)
+'''\" x( - Mailing Label or DRAFT
+'''\" N2 N3- 2nd 3rd document number
+'''\" Fi - up to 3 filing cases
+'''\" Xi - up to 3 work program numbers
+'''\" diversions
+'''\" WB - abstract
+'''\" ZI - author info section
+'''\" ZC - complete copy addressee primary
+'''\" ZO - complete copy addressee overflow
+'''\" ZS - cover sheet addressee primary
+'''\" ZD - cover sheet addressee overflow
+'''\" ZN - document number info
+'''\" WT - title
+'''\"
+'''\" initialization
+'''\"
+'''\" get ms if not loaded
+.if !\n(PS .so /usr/lib/tmac/tmac.s
+. \" to foil ms
+.if !'\*(d)'' \{\
+. tm You're trying to load the coversheet macros twice - havoc will result
+. tm I'm quitting to keep you from wasting paper
+. ex \}
+.rn FE F6
+.nr ST 0
+.nr CS 1
+.ch NP 16i
+.ch FO 16i
+.ch FX 16i
+.ch BT 16i
+.nr FM .01i
+.nr 1T 1
+.nr BE 1
+.nr PI 5n
+.if !\n(PD .nr PD 0.3v
+.pl 11i
+.de FT
+.fp 1 H
+.fp 2 HI
+.fp 3 HB
+.fp 4 HX
+.ps 10
+.vs 12
+..
+.de FB
+.ie !'\\*(TF'' .FP \\*(TF
+.el .FP times
+.ps 10
+.vs 12
+..
+.FT
+.de FE
+.F6
+.nr F4 +\\n(FP
+..
+.nr a 0 1
+.nr b 0 1
+.nr c 0
+.nr d 0
+.nr e 0
+.nr g 0
+.nr h 6
+.nr i 0
+.nr k 0
+.nr m 0
+.nr n 0 1
+.nr o 0
+.nr p 1
+.nr q 0
+.nr r 0
+.nr s 0
+.nr t 0
+.nr u 0 1
+.nr v 0
+.nr w 0
+.nr x 0
+.nr y 0
+.nr z 0
+.nr dv 0
+.if '\*(.T'aps' .nr dv 1
+'''\" initialize units per vertical space
+.nr l 120
+.nr lp 66
+.nr np 2 1
+.af np i
+.nr tp 2 1
+.nr tc 2
+.af tc i
+.nr la 0
+.nr a1 0
+.nr a2 0
+.nr ar 0
+.nr u! 1
+.nr ud 1
+.nr ra 1
+.di ZI
+.di
+.di ZN
+.di
+.di ZC
+.di
+.di ZO
+.di
+.di ZS
+.di
+.di ZD
+.di
+'''\"initialize date string - keep for 1st pg of tm
+.if \n(mo-0 .ds d) January
+.if \n(mo-1 .ds d) February
+.if \n(mo-2 .ds d) March
+.if \n(mo-3 .ds d) April
+.if \n(mo-4 .ds d) May
+.if \n(mo-5 .ds d) June
+.if \n(mo-6 .ds d) July
+.if \n(mo-7 .ds d) August
+.if \n(mo-8 .ds d) September
+.if \n(mo-9 .ds d) October
+.if \n(mo-10 .ds d) November
+.if \n(mo-11 .ds d) December
+.as d) " \n(dy, 20\n(yr
+.ds DY \*(d)
+''' \" initialize strings
+.ds m!
+.ds m(
+.ds n!
+.ds n(
+.ds o!
+.ds o(
+.ds x!
+.ds y!
+.ds z!
+''' \" initialize proprietary notice
+.ds o) "Lucent Technologies \(em PROPRIETARY
+.ds p) "Use pursuant to Company Instructions
+.ds q)
+.ds r)
+''' \" initialize trademark symbol
+.ds MT \v'-0.5m'\s-4TM\s+4\v'0.5m'
+.ds s) 0
+''' \"initialize csmacro version string
+.ds ve MCSL (07/12/90)
+....in 0
+'''\"
+''' \" macros to collect information
+'''\"
+.de DT \" macro for date
+'''\" store date if non-empty
+.if !'\\$1'' .ds d) \\$1 \\$2 \\$3 \\$4
+.ds DY \\$1 \\$2 \\$3 \\$4
+..
+.de TI \" macro for title -TI = mm(TL)
+.br
+.nr aa 0
+.nr TV 1
+.ds x( "Mailing Label \}
+.in 0
+.fi
+.ll 4.25i
+'''\" diversion for title ZT = mm(tI)
+.di WT
+..
+.de AH \" macro for author info AH = mm(AU)
+'''\" name loc dept ext room mail_addr company
+'''\" don't count author unless non-empty
+.br
+.di
+.if !'\\$1'' .nr u \\n+u
+.nr AV \\nu
+.if \\nu=1 \{\
+. br
+'''\" end title diversion on first author
+. di
+. nr o \\n(dn
+. ll
+. nf
+. ds d! \\$3
+. nr m2 \\$3/10 \}
+.ta 0.3i 3.i 4i 5.5i
+.br
+.ds D\\nu \\$2 \\$3
+.ds \\nuL \\$5, x\\$4
+'''\" append to author list ZI = mm(aV)
+.da ZI
+ \\$1 \\$2 \\$5 \\$4 \\$7
+.br
+.da
+.if !'\\$6'' \{\
+.da ZI
+ (\\$6)
+.br
+.da \}
+'''\" end append; info for signature lines
+.AA \\nu "\\$1" \\$3 \\$2 "\\$4" \\$5 \\$6
+.ta 0.5i 1.0i 1.5i 2.0i 2.5i
+..
+.de AA
+.\"ft 3
+.di M\\$1
+\\$2
+.di
+.di A\\$1
+\\$2
+.if !'\\$3'' Org. \\$3
+.if !'\\$4'' \\$4 \\$6
+.if !'\\$5'' \\$5
+.if !'\\$7'' \\$7
+.sp .05i
+.br
+.di
+.ft
+.sy echo \\$2 >/tmp/tt\\n($$
+.sy sed -f /usr/lib/tmac/name.sed /tmp/tt\\n($$ >/tmp/tx\\n($$
+.so /tmp/tx\\n($$
+.sy rm /tmp/tx\\n($$ /tmp/tt\\n($$
+.if \\$1<2 .ds T1 \\*(T1-gre
+.da G9
+\\$4-\\$3-\\*(T1
+.br
+.da
+.if !'\\*(d!'\\$3' \{\
+. nr u! \\n(u!+1
+. nr m3 \\$3/10
+. if !\\n(m2=\\n(m3 .nr ud \\n(ud+1 \}
+.ie \\$1<4 \{\
+. as m! \\l'2.25i'
+. as m( \\$2 \}
+.el .ie \\$1<7 \{\
+. as n! \\l'2.25i'
+. as n( \\$2 \}
+.el \{\
+. as o! \\l'2.25i'
+. as o( \\$2 \}
+..
+.de TO \"begin list of im to people
+.nr TO 1
+.di 1T
+..
+.de ET \"end list of im to people & output pg
+.di
+.SR
+..
+.de AP \" at&t responsible person AP = mm(rP)
+.br
+.di
+.if !'\\$1'' .ds r( \\$1
+.rm AP
+..
+.de SA \" macro for abstract info SA = mm(AS)
+.br
+.ie \\n(.$ \{\
+.ds a( \\$1
+.if '\\$1'no' .ds a(\}
+.el .ds a( ABSTRACT
+.nr CS 0
+.di
+.fi
+.nr LL 7.0i
+.FB
+.ft 1
+.di WB \" WB = mm(aS)
+..
+.de SE \" macro for end of abstract info SE = mm(AE)
+.br
+.di
+.nr la \\n(dn
+.nr CS 1
+.ll
+.FT
+.ft 1
+.nf
+..
+.de KW \" macro for keyword info KW = mm(OK)
+.ds k)
+.if !'\\$1'' .as k) \\$1
+.if !'\\$2'' .as k); \\$2
+.if !'\\$3'' .as k); \\$3
+.if !'\\$4'' .as k); \\$4
+.if !'\\$5'' .as k); \\$5
+.if !'\\$6'' .as k); \\$6
+.if !'\\$7'' .as k); \\$7
+.if !'\\$8'' .as k); \\$8
+.if !'\\$9'' .as k); \\$9
+'''\" set k flag if we have some keywords
+.ie !'\\*(k)'' .nr k 1
+.el .nr k 0
+..
+.de TY \" macro for document type TY = mm(MT)
+.if '\\$1'TM' \{\
+. nr m 1
+. ds t) TM
+. ds QF TECHNICAL MEMORANDUM
+. ds t( "for Technical Memorandum \}
+.if '\\$1'IM' \{\
+. nr m 2
+. ds t) IM
+. ds QF INTERNAL MEMORANDUM
+. ds t( "for Internal Memorandum \}
+.if '\\$1'TC' \{\
+. nr m 3
+. ds t) TC
+. ds QF TECHNICAL CORRESPONDENCE
+. ds t( "for Technical Correspondence \}
+.ie '\\$2'y' .nr s 1
+.el .nr s 0
+..
+.de NU \" macro for document number info NU = mm(dN fC wP)
+.ie \\ns=1 .ds s( S
+.el .ds s(
+.ie \\n(wp=0 \{\
+. ie '\\$5'' .ds CX 000000-0000
+. el .ds CX \\$5
+. ds X1 \\*(CX
+. nr wp \\n(wp+1 \}
+.el \{\
+. ds CX \\$5
+. if !'\\$5'' \{\
+. if \\n(wp=1 .ds X2 \\*(CX
+. if \\n(wp=2 .ds X3 \\*(CX
+. if \\n(wp=3 .ds X4 \\*(CX
+. if \\n(wp=4 .ds X5 \\*(CX
+. nr wp \\n(wp+1
+. ds x) s\}\}
+.if !'\\$4'' \{\
+. ie !\\n(fc=0 \{\
+. if \\n(fc=1 .ds F2 \\$4
+. if \\n(fc=2 .ds F3 \\$4
+. if \\n(fc=3 .ds F4 \\$4
+. if \\n(fc=4 .ds F5 \\$4
+. ds w) s
+. nr fc \\n(fc+1 \}
+. el \{\
+. ds F1 \\$4
+. nr fc \\n(fc+1 \} \}
+.ie !'\\$1'' \{\
+. ds NN \\$1-\\$2-\\$3\\*(t)\\*(s(
+. if \\nn=0 .ds N1 \\*(NN
+. if \\nn=1 \{\
+. ds v) s
+. ds N2 \\*(NN\}
+. if \\nn=2 .ds N3 \\*(NN
+. if \\nn=3 .ds N4 \\*(NN
+. if \\nn=4 .ds N5 \\*(NN
+. ie \\nn<4 .as x! \\l'2.25i'
+. el ie \\nn<7 .as y! \\l'2.25i'
+. el .as z! \\l'2.25i'
+. nr n \\n+n \}
+.if !'\\$6'' \{\
+. ie !\\n(a!=0 \{\
+. if \\n(a!=1 .as Z1 " \\$6
+. if \\n(a!=2 .as Z1 \\$6
+. nr a! \\n(a!+1 \}
+. el \{\
+. ds Z1 " \\$6
+. nr a! \\n(a!+1 \} \}
+.el .ds NN
+.ta 0.8i 3.5i 5.55i
+.br
+.da ZN \" ZN = mm(dM fC wO)
+ \\*(NN \\$4 \\*(CX
+.br
+.da
+.ta 0.5i 1.0i 1.5i
+..
+.de MY \" macro for mercury selections MY = mm(mE)
+.ds a)
+.ds b)
+.if '\\$1'y' \{\
+. as a) " CHM - Chemistry and Materials
+. nr b \\n+b \}
+.if '\\$2'y' \{\
+. as a) " CMM - Communications
+. nr b \\n+b \}
+.if '\\$3'y' \{\
+. as a) " CMP - Computing
+. nr b \\n+b
+. if \\nb=3 .rn a) b) \}
+.if '\\$4'y' \{\
+. as a) " ELC - Electronics
+. nr b \\n+b
+. if \\nb=3 .rn a) b) \}
+.if '\\$5'y' \{\
+. as a) " LFS - Life Sciences
+. nr b \\n+b
+. if \\nb=3 .rn a) b) \}
+.if '\\$6'y' \{\
+. as a) " MAS - Mathematics and Statistics
+. nr b \\n+b
+. if \\nb=3 .rn a) b) \}
+. if \\nb<6 \{\
+. if '\\$7'y' \{\
+. as a) " PHY - Physics
+. nr b \\n+b
+. if \\nb=3 .rn a) b) \} \}
+. if \\nb<6 \{\
+. if '\\$8'y' \{\
+. as a) " MAN - Manufacturing
+. nr b \\n+b \} \}
+.if \\nb=3 .rn b) a)
+..
+.de RL \" lucent distribution ok RL = mm(rA or fA)
+.if '\\$1'n' .nr ra 2
+.rm RL
+..
+.de ED \" earlier document number ED = mm(eD)
+.if !'\\$1'' .ds e( \\$1
+.rm ED
+..
+.de PR \" macro for proprietary marking PR = mm(PM)
+.if '\\$1'BP' .nr p 1
+.if '\\$1'BR' \{\
+. nr p 2
+. ds o) "Lucent Technologies \(em PROPRIETARY (RESTRICTED)
+. ds p) "Solely for authorized persons having a need to know
+. ds q) " pursuant to Company Instructions \}
+.if '\\$1'0' .nr p 0
+..
+.de GS \" GS = mm(gS)
+.nr r 1
+..
+.de CI
+..
+.de XE
+'''\" basic distribution leng-to be tailored-set e & h
+.if \\nd=0 \{\
+. nr d 1
+. if \\nr=0 .nr e \\ne+2
+. if \\nu<=3 .nr e \\ne+3
+. if \\nu<=6 .nr e \\ne+3
+. if \\nu<=9 .nr e \\ne+3
+. if \\nn<=3 .nr e \\ne+2
+. if \\nn<=6 .nr e \\ne+2
+. if \\nn<=9 .nr e \\ne+2
+. if \\n(ra<=2 .nr e \\ne-3
+. nr e \\ne+27
+. nr h \\ne \}
+..
+.de CO \" macro for complete copy addressees CO = mm(cC)
+.XE
+.ta 2.0i
+.nf
+.br
+.ie \\ne>0 \{\
+. da ZC \" ZC = mm(cA)
+. ds y( \\$1
+. ie '\\$1'y' .so /usr/lib/tmac/complet.1127
+. el .if !'\\$1'' .so /usr/lib/tmac/complet.\\*(y(
+. dt \\ne OC \}
+.el .da ZC
+..
+.de OC \" macro for complete copy overflow - OC = mm(cD)
+.ta 2.0i
+.br
+.da
+.da ZO \" ZO = mm(cO)
+.ie \\n(ar>0 .dt \\n(arv ZW
+.el .dt 55 ZW
+..
+.de ZW
+.br
+.da
+.ie \\n(dn>0 .g (\\n(dn)/\\nl+4
+.da CZ
+..
+.de CV \" macro for cover sheet only addresses CV = mm(cS)
+.XE
+.ta 2.0i
+.nf
+.br
+.ie \\nh>0 \{\
+. da ZS \" ZS = mm(dA)
+. ds y( \\$1
+. ie '\\$1'y' .so /usr/lib/tmac/cover.1127
+. el .if !'\\$1'' .so /usr/lib/tmac/cover.\\*(y(
+. dt \\nh OV \}
+.el .da ZD
+..
+.de OV \" macro for cover sheet only overflow OV = mm(cT)
+.ta 2.0i
+.br
+.da
+.da ZD \" ZD = mm(cO)
+.ie \\n(ar>0 .dt \\n(arv WW
+.el .dt 55 WW
+..
+.de WW
+.br
+.da
+.if \\n(dn>0 .nr i (\\n(dn)/\\nl+4 \" was ie with no el
+.da DZ
+..
+.de CE \" ending all distribution diversions CE = mm(cE)
+.br
+.if "\\n(.z"ZC" \{\
+. nr g 0
+. rm OC \}
+.if "\\n(.z"ZO" \{\
+. nr g -1
+. rm OC \}
+.if "\\n(.z"CZ" \{\
+. nr g -2
+. rm OC \}
+.if "\\n(.z"ZS" \{\
+. nr i 0
+. rm OV \}
+.if "\\n(.z"ZD" \{\
+. nr i -1
+. rm OV \}
+.if "\\n(.z"DZ" \{\
+. nr i -2
+. rm )V \}
+.da
+.if \\ng=-1 \{\
+. ie \\n(dn>0 .nr g (\\n(dn)/\\nl+4
+. el .nr g 0 \}
+.if \\ni=-1 \{\
+. ie \\n(dn>0 .nr i (\\n(dn)/\\nl+4
+. el .nr i 0 \}
+..
+'''\"
+'''\" macros to help format document
+'''\"
+.de HD
+.po .5i \"was .25
+.if "\\*(.T"aps" .tl '--''--'
+.sp|0.2i
+..
+.de FC \" footer macro FC = mm(fO)
+.pl 11.0i
+'bp
+..
+.de ST \" macro for abstract overflow trap ST = mm(yY)
+.ZB
+.rm ST \" ZB = mm(aT)
+..
+.de ZB
+.ch ST 16i \" macro for abstract overflow trap ZB = mm(aT)
+.if \\na>0 \{\
+. ft 2
+. ce
+(continued)
+. ft 1 \}
+.pl 11.0i
+.nr a \\n+a
+.rn ZB XX
+'bp
+.rn XX ZB
+.wh -0.35i ZB
+.HC \" HC = mm(cH)
+.HX \" HX = mm(tH)
+'sp 0.05i
+.ce
+.ft 3
+Abstract (continued)
+.ft 1
+.in 0.2i
+'sp 1
+.FB
+..
+.de TK \" macro for thick lines TKK = mm(tK)
+.ps 24
+\l'7.5i'
+.ps
+..
+.de HX \" macro for Title headings and text HX = mm(tH)
+.TK
+'sp 0.05i
+'''\" mark t - Title heading
+.mk t
+.ft 3
+Title:
+.ft
+'sp|\\ntu
+.in 0.7i
+.WT
+.in 0
+.ta 0.5i
+.nr q \\no/\\nl
+.ie \\nq>2 'sp|\\ntu+\\nq
+.el 'sp|\\ntu+2
+.TK
+. \" m1 - mark end of title section - save
+.mk m1
+..
+.de HC \" macro for continuation header HC = mm(cH)
+.nr np \\n+(np
+.nf
+.in 0
+.FT
+.ft 3
+.ta 4.80i
+.nr tc \\n(tp
+ \\*(N1\f2 (page \\n(np of \\n(tc)
+.sp 0.1i
+..
+.de DL \" macro for distribution list headers DL = mm(dH)
+.ft 3
+.ta 1.0i 4.75i
+ \\$1 \\$2
+.sp 0.05i
+.ft 1
+.ta 0.5i 1.0i
+..
+.de EJ \" macro for ejecting continuation page EJ = mm(eP)
+'bp
+.wh 0 HD
+'''\" put out continuation page header & title section
+.HC
+.HX
+..
+.de CP \" macro for continuation page CP = mm(cP)
+'''\" calc vert. units for cc overflow (if any)
+.ie \\nv<=\\n(.t .nr v 1
+.el .nr v 0
+.if \\nv=1 .if \\nw<=\\n(.t .nr v 2
+. \" check if cont page needs to be ejected
+.in 0
+.if \\nc=1 \{\
+. \" - if no abstract overflow
+. if \\na=0 .EJ
+. if \\na>0 \{\
+. \"or if abstract over but no room for list overfl
+. ie \\nv<2 .EJ
+. \" just tk line if abstract over & room for list
+. el .TK \}
+. FT
+. ie \\ne=0 \{\
+. if \\ng>4 .if \\ni>4 .DL "Complete Copy" "Cover Sheet Only"
+. if \\ng>4 .if !\\ni>4 .DL "Complete Copy" ""
+. if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only" \}
+. el \{\
+. if \\ng>4 .if \\ni>4 .DL "Complete Copy (continued)" "Cover Sheet Only (continued)"1
+. if \\ng>4 .if !\\ni>4 .DL "Complete Copy (continued)" ""
+. if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only (continued)" \}
+. mk z
+. nr q \\n(.t/\\nl
+'''\" put out complete copy list overflow
+. in 0.2i
+. ZO
+. in 0
+. mk x
+. sp|\\nzu
+. in 4i
+'''\" put out cover sheet list overflow
+. ZD
+. mk y
+. in 0
+. if \\nx-\\ny .sp|\\nxu
+. TK \}
+..
+.de ZP \"compute total pages and diversion lengths
+'''\" calculate vert. units for cc overflow (if any)
+.ie \\ng>4 .nr v (\\ng)*\\nl
+.el .nr v 0
+'''\" also for cs overflow (if any)
+.ie \\ni>4 .nr w (\\ni)*\\nl
+.el .nr w 0
+.ie \\nv>\\nw .nr j \\nv
+.el .nr j \\nw
+. \" set c=1 if either g or i >0
+.if \\ng>4 .nr c 1
+.if \\ni>4 .nr c 1
+. \" calculate total pages in job (default 2)
+. \" a1 - page 1 portion abstract (units)
+.nr a1 \\nyu-\\nxu-1v
+.ie \\n(la>\\n(a1 \{\
+. \" ar - remainder abstract (units)
+. nr ar \\n(la-\\n(a1
+. nr tp \\n+(tp
+. \" a2 - available continuation page space
+. \" m1 is mark after tk line after title
+. \" 2v for Abstract (continued) + one blank
+. nr a2 11.0i-\\n(m1-2v
+. ZZ \}
+.el .if \\nc>0 .nr tp \\n+(tp
+..
+.de ZZ \" ZZ = mm(t1)
+.ie \\n(ar>\\n(a2 \{\
+. nr ar \\n(ar-\\n(a2
+. nr tp \\n+(tp
+. ZZ \}
+.el .if \\n(ar+\\nj>\\n(a2 .nr tp \\n+(tp
+..
+'''\"
+'''\" main macro to handle output of cover sheet
+'''\" mm(CS)
+.de SC
+.nr CS 0
+.nr ST 1
+.if \\nu=0 \{\
+. tm WARNING: author must be supplied \}
+.if \\no=0 \{\
+. tm WARNING: document title must be supplied \}
+.if \\nm=0 \{\
+. tm WARNING: memorandum type undefined or unknown \}
+.if \\nm=1 .if \\nb=0 \{\
+. tm WARNING: technical memoranda must have at least one mercury class \}
+.if \\nn=0 \{\
+. tm WARNING: document number must be supplied \}
+.XE
+.ll 7.5i
+.ft 1
+.if \\n(nl .bp
+.in 0
+.HD
+'''\" the rs is to restore spacing - ditches big space at top
+.rs
+.sp1
+.sp 0.05i
+.nf
+.ps 16
+.ft 3
+.ta 4.85i
+. \" put out page 1 heading
+ Document Cover Sheet
+.wh 0 HD
+.sp 0.1i
+.ta 0.15i 4.55i
+ \s36\(FA\s0 \\*(t(
+.ft
+.ps 10
+.HX
+.sp 0.05i
+.ft 3
+.ie \\nu>1 .ds u) s
+.el .ds u)
+.ta 0.5i 3.0i 3.95i 5.25i
+ Author\\*(u) (Computer Address) Location Phone Number Company (if other than BL)
+.ft
+'''\" output author info
+.ZI
+.if !'\\*(r('' \{\
+. ta 0.3i 2.6i
+ \\*(r( (Responsible BL Person) \}
+.TK
+.sp 0.05i
+.ft 3
+.ta 1.0i 3.3i 5.55i
+ Document No\\*(v). Filing Case No\\*(w). Project No\\*(x).
+.ft
+.sp 0.05i
+'''\" output document number
+.ZN
+.TK
+'''\" output keywords if they exist
+.if \\nk>0 \{\
+. ft 3
+Keywords:
+. ft
+. sp 0.05i
+. ti 0.2i
+\\*(k)
+. TK \}
+'''\" output mercury info if it exists
+.if \\nb>0 \{\
+. ft 3
+MERCURY Announcement Bulletin Sections
+. ft
+. sp 0.05i
+. ta 0.6i 3.1i 5.6i
+. ps 8
+. if \\nb>3 \\*(b)
+\\*(a)
+. ps
+. TK \}
+.ft 3
+Abstract
+.ft
+.mk x
+.nr b1 \\nx/\\n(.v+1
+.nr b2 (\\n(b1*\\n(.v)-\\nx
+.sp \\n(b2u
+.mk x
+'''\" calculate position (19v includes 2v to print version at bottom of page)
+.nr y \\n(lpv-19v
+.if \\n(F4>0 .nr y \\ny-\\n(F4
+.sp|\\nyu
+.sp -1
+.ZP
+'''\" handle abstract page 1 continuation
+.ie \\n(la>\\n(a1 \{\
+. ce
+. ft2
+(continued on page iii)
+. ft1
+. br \}
+.el .sp1
+.if \\n(F4>0 \{\
+. FA
+. FG \}
+.TK
+.ps 8
+.vs 10
+.nr qq \\$1+\\$2+\\n(tp
+\f3Total Pages\f1 (including document cover sheet): \\s+2\\n(qq\\s-2
+.ie !'\\*(e('' \{\
+Supersedes or amends document number \\*(e(. \}
+.el .sp
+.ps
+.vs
+.mk z
+.sp .67i
+'''\" output proprietary notice if it exists
+.if \\np>0 \{\
+.ft 2
+.ti (4i-\\w'\\*(o)'u)/2u
+\\*(o)
+.ft
+.ti (4i-\\w'\\*(p)'u)/2u
+\\*(p)
+.ti (4i-\\w'\\*(q)'u)/2u
+\\*(q) \}
+.sp |\\nzu+11v
+.ta 5.35i
+\\s8\\*(ve\\s0
+.ie !'\\*(s)'' \{\
+\s8Timestamp: \\*(s)\s0 BELL LABORATORIES \}
+.el \{\
+ BELL LABORATORIES \}
+.sp|\\nzu
+.sp 1
+.ft 3
+.ti 5.25i
+\\*(x(
+.ft
+.sp|\\nxu
+.in 0.2i
+.nf
+'''\" abstract
+.if !\\n(la=\\n(a1 \{\
+. wh -0.25i ST \}
+.pl \\nyu
+.ta 0.5i 1.0i 1.5i 2.0i 2.5i
+.FB
+.ft 1
+'''\" output the abstract
+.WB
+.if \\n(la=\\n(a1 .sp-1
+.rn ZB XX
+.wh -0.25i FC
+'''\" output continuation page
+.CP
+'bp
+.FT
+.ft 1
+.in 0
+.wh 0 HD
+.nf
+.ft 3
+.ta 5.00i
+.nr tc \\n(tp
+Initial Distribution Specifications \\*(N1\f2 (page ii of \\n(tc)\f3
+.ft 1
+.TK
+.if \\ne>0 \{\
+. DL " Complete Copy" " Cover Sheet Only"
+. mk z
+'''\" put out complete copy list
+. in 0.2i
+. ZC
+. in 0
+. if !\\ng=0 \{\
+. ft 2
+. ti 1.25i
+(continued)
+. ft 1 \}
+. sp|\\nzu
+. in 4i
+'''\" put out cover sheet list
+. ZS
+. if !\\ni=0 \{\
+. ft 2
+. ti 4.75i
+(continued)
+. ft 1 \}
+. in 0
+'''\" starter space value - then tailor
+. sp|5
+. sp \\ne
+. TK \}
+.if \\nr=1 \{\
+\f3Government Security Classified\f1
+. ft 1
+. sp -0.05i
+. TK \}
+\f3Future Lucent Technologies Distribution by ITDS\f1
+.ti 0.5i
+.sp 0.05i
+.ie \\n(ra=2 \{\
+\f3DO NOT RELEASE\f1 to any Lucent Technologies employee without appropriate approval for each request. \}
+.el \{\
+\f3RELEASE\f1 to any Lucent Technologies employee (excluding contract employees). \}
+.TK
+'''\" put out author signature section
+.ft 3
+Author Signature\\*(u)
+.ft 1
+.sp1
+.ta 2.635i 5.25i
+\\*(m!
+.ta 0.25i 2.875i 5.5i
+\\*(m(
+.if \\nu>3 \{\
+. sp 0.1i
+. ta 2.635i 5.25i
+\\*(n!
+. ta 0.25i 2.875i 5.5i
+\\*(n( \}
+.if \\nu>6 \{\
+. sp 0.1i
+. ta 2.635i 5.25i
+\\*(o!
+. ta 0.25i 2.875i 5.5i
+\\*(o( \}
+.sp -0.1i
+.TK
+'''\" output organizational approval section
+.ie \\np>1 \{\
+\f3Organizational Approval\f1 (Department Head approval \f3required\ff1 for \f2\\*(o)\f1.) \}
+.el \{\
+\f3Organizational Approval\f1 (Optional) \}
+.sp 1
+.ta 2.635i 5.25i
+\\*(x!
+. ta 0.25i 2.875i 5.5i
+\\*(Z1
+.if \\nn>3 \{\
+. sp .1i
+.ta 2.635i 5.25i
+\\*(y! \}
+.if \\nn>6 \{\
+. sp .1i
+\\*(z! \}
+.sp -0.1i
+.TK
+'''\" recipient section always output
+.ft 3
+For Use by Recipient of Cover Sheet:
+.ft 1
+.ps -3
+.vs -4
+.sp.05i
+.mk z
+ Computing network users may order copies via the \f2library \-k\f1 command;
+ for information, type \f2man library\f1 after the UNIX prompt.
+'''.sp1
+.rn fo xx
+ Otherwise:
+ Enter PAN if BL (or SS# if non-BL). \l'1.5i'
+ Return this sheet to any ITDS location.
+.sp|\\nzu
+.in 4i
+Internal Technical Document Service
+'''.sp1
+.ta 1i 2i 3i
+( ) AK 2H-28 ( ) IH 7M-103 ( ) DR 2F-19 ( ) NW-ITDS
+( ) ALC 1B-102 ( ) MV 1L-19 ( ) INH 1C-114 ( ) PR 5-2120
+( ) CB 30-2011 ( ) WH 3E-204 ( ) IW 2Z-156
+( ) HO 4F-112 ( ) MT 3B-117
+.in
+.ps
+.vs
+.SR
+..
+. \"IZ - initialization
+.de IZ
+.FB
+.nr TN 0
+.em EM
+.po 1i
+.nr PO 1i
+.if \\n(FM=0 .nr FM 1i
+.nr YY 0-\\n(FMu
+.if !\\n(PD .if n nr PD 1v
+.if t .if !\\n(PD .nr PD 0.3v
+.wh 0 NP
+.wh \\n(.pu-\\n(FMu FO
+.ch FO 16i
+.wh \\n(.pu-\\n(FMu FX
+.ch FO \\n(.pu-\\n(FMu
+.if t .wh -\\n(FMu/2u BT
+.if n .wh -\\n(FMu/2u-1v BT
+..
+.\" macro to restore ms foiling
+.de SR
+.nr BE 0
+.nr 1T 1
+.nr FM 0
+.nr PD 0
+.nr HM 0
+.nr KG 0
+.nr FP 0
+.nr GA 0
+.nr FP 0
+.\" changed rn F5 FE added rn FJ FS
+.rn FK FE
+.rn FJ FS
+.if '\\$1'' .bp
+.if !'\\$1'' \{\
+.di ZA
+.ce
+\\*(a(
+.sp
+.WB
+.di
+.rn ZA WB\}
+.nr FC -1
+.nr % 1
+.IZ
+.rm IZ
+.if '\\$1'' .RT
+.ds MN \\*(N1 \\*(N2 \\*(N3 \\*(N4 \\*(N5
+.nr MM \\nn
+.nr MC \\n(fc
+.nr MG \\n(wp
+.nr NA \\nu
+.if '\\n(ST'1' \{\
+'''.so /usr/lib/tmac/tmac.rscover XXX
+.so \*(.P/lib/tmac/tmac.rscover
+. \" a line for troff to eat
+.S1 \}
+.ll 6i
+.nr LL 6i
+.rr a b c d e f g h i j k
+.rr l m n o p q r s t u
+.rr v w x y z np tp nc tc
+.rr ud u! m2 dv
+.rr lp np la a1 a2 ar wp fc m1
+.rm DT TI AH SE KW TY NU MY
+.rm PR CI CO OC CV OV CE HD
+.rm FC ST TK HX HC DL EJ
+.rm CP SC a) b) k) N1 p) q) r)
+.rm N2 N3 N4 N5 X1 X2 X3 X4 X5
+.rm X1 X2 X3 X4 X5 F1 F2 F3 F4
+.rm F5
+.rm d) o) s) ve m! n! o! e( r(
+.rm x! y! z! x( d! ve u)
+.rm t) w) x) y) z) a( b( c( m(
+.rm n( o( p( s( t( SA ZI ZC ZO
+.rm ZS ZD ZN FT FB CX NN GS
+.rm ZB XX ZP ZZ
+.rm TM IM MF MR LT OK RP TR
+.rm TX AU AX AI AE SY S2 S0
+.rm S3
+..
+.de RP
+.nr ST 2
+.SS
+..
+.de TR
+.nr ST 3
+.ds MN \\$1
+.SS
+..
+.de SS \"RP or TR rename the world so old macros called
+.rm SG
+.nr CS 0
+.nr BE 0
+.nr 1T 0
+.nr FM 0
+.nr PD 0
+.nr HM 0
+.nr KG 0
+.nr FP 0
+.nr GA 0
+.nr FP 0
+.ll 6i
+.nr LL 6i
+.\" changed rn F5 FE added rn FJ FS
+.rn F6 FE
+.nr FC -1
+.nr % 1
+.IZ
+.rm IZ
+.pn 0
+.de TI
+.TL
+\\..
+.de SA
+.AB \\\\$1
+\\..
+.de SE
+.AE
+\\..
+.de AH
+.AU
+\\\\$1
+\\..
+.de DT
+.ND \\\\$1 \\\\$2 \\\\$3
+\\..
+.br
+.rr a b c d e f g h i j k
+.rr l m n o p q r s t u
+.rr v w x y z np tp nc tc
+.rr ud u! m2 dv
+.rr lp np la a1 a2 ar wp fc m1
+.rm DT KW TY NU MY
+.rm PR CI OC OV HD
+.rm FC ST TK HX HC DL EJ
+.rm CP SC a) b) k) N1 p) q) r)
+.rm d) o) s) ve m! n! o! e( r(
+.rm x! y! z! x( d! ve u)
+.rm t) w) x) y) z) a( b( c( m(
+.rm n( o( p( s( t( ZI ZC ZO
+.rm ZS ZD ZN FT FB CX NN GS
+.rm ZB XX ZP ZZ
+.rm TM IM MF MR LT
+..
