1 13f7391e 2004-05-15 devnull '''\" @(#)dcs:csmacros 2.3 5/2/89
2 13f7391e 2004-05-15 devnull '''\" registers
3 13f7391e 2004-05-15 devnull '''\" a - abstract continuation flag - 0 (no), >0 (yes - number of overflow pages)
4 13f7391e 2004-05-15 devnull '''\" b - mercury selections counter
5 13f7391e 2004-05-15 devnull '''\" c - distribution continuation flag - 0 (no), 1 (yes)
6 13f7391e 2004-05-15 devnull '''\" d - distribution length calculation flag - 0 (no), 1 (yes)
7 13f7391e 2004-05-15 devnull '''\" e - complete copy basic distribution length
8 13f7391e 2004-05-15 devnull '''\" g - complete copy overflow distribution length
9 13f7391e 2004-05-15 devnull '''\" h - cover sheet basic distribution length
10 13f7391e 2004-05-15 devnull '''\" i - cover sheet overflow distribution length
11 13f7391e 2004-05-15 devnull '''\" j - scratch
12 13f7391e 2004-05-15 devnull '''\" k - keyword flag - 0 (none), 1 (some)
13 13f7391e 2004-05-15 devnull '''\" l - number of vertical units per line - troff and nroff
14 13f7391e 2004-05-15 devnull '''\" m - memorandum type flag - 1 TM, 2 IM, 3 TC
15 13f7391e 2004-05-15 devnull '''\" n - document number counter
16 13f7391e 2004-05-15 devnull '''\" o - title flag - 0 (no), 1 (yes - vertical size of title diversion)
17 13f7391e 2004-05-15 devnull '''\" p - proprietary notice flag - 0 (none), 1 (default notice), 2(BR)
18 13f7391e 2004-05-15 devnull '''\" q - scratch
19 13f7391e 2004-05-15 devnull '''\" r - security flag - 0 (no), 1 (yes)
20 13f7391e 2004-05-15 devnull '''\" s - software flag - 0 (no), 1 (yes)
21 13f7391e 2004-05-15 devnull '''\" t - mark title position
22 13f7391e 2004-05-15 devnull '''\" u - author count
23 13f7391e 2004-05-15 devnull '''\" v - scratch
24 13f7391e 2004-05-15 devnull '''\" w - scratch
25 13f7391e 2004-05-15 devnull '''\" x - mark scratch position
26 13f7391e 2004-05-15 devnull '''\" y - mark scratch position
27 13f7391e 2004-05-15 devnull '''\" z - mark scratch position
28 13f7391e 2004-05-15 devnull '''\" ra - release to Lucent flag - 0 (no decision), 1 (yes), 2 (no)
29 13f7391e 2004-05-15 devnull '''\" an - length abstract footnote diversion
30 13f7391e 2004-05-15 devnull '''\" fn - length footnote diversion
31 13f7391e 2004-05-15 devnull '''\" as - "in abstract" flag - 0 (no), 1 (yes)
32 13f7391e 2004-05-15 devnull '''\" ds - "in display" flag - 0 (no), 1 (yes)
33 13f7391e 2004-05-15 devnull '''\" fs - "in footnote" flag - 0 (no), 1 (yes)
34 13f7391e 2004-05-15 devnull '''\" bd - block center display flag - 0 (no), 1 (yes)
35 13f7391e 2004-05-15 devnull '''\" dv - device flag - 0 (default), 1 (APS-5), 2 (i10), 3 (xerox), 4 (i300), 5 (qms1200), 6 (postscript)
36 13f7391e 2004-05-15 devnull '''\" lp - lines per page (nroff - xerox)
37 13f7391e 2004-05-15 devnull '''\" tp - total pages (decimal)
38 13f7391e 2004-05-15 devnull '''\" tc - total pages (in small roman)
39 13f7391e 2004-05-15 devnull '''\" np - page number this page (decimal)
40 13f7391e 2004-05-15 devnull '''\" nc - page number this page (in small roman)
41 13f7391e 2004-05-15 devnull '''\" lt - vertical size of title diversion (in lines)
42 13f7391e 2004-05-15 devnull '''\" lo - vertical size of copy overflow trap (in lines)
43 13f7391e 2004-05-15 devnull '''\" la - vertical size of abstract diversion
44 13f7391e 2004-05-15 devnull '''\" a1 - vertical size of page 1 portion of abstract
45 13f7391e 2004-05-15 devnull '''\" a2 - vertical size of overflow page portion of abstract
46 13f7391e 2004-05-15 devnull '''\" ar - vertical size remainder of abstract
47 13f7391e 2004-05-15 devnull '''\" fi - save current fill/no-fill (.u)
48 13f7391e 2004-05-15 devnull '''\" in - save current indent (.i)
49 13f7391e 2004-05-15 devnull '''\" si - standard indent - ens (for paragraphs, displays & equations)
50 13f7391e 2004-05-15 devnull '''\" ps - initial point size (.s)
51 13f7391e 2004-05-15 devnull '''\" ts - temp point size (only in S macro)
52 13f7391e 2004-05-15 devnull '''\" vs - initial vertical spacing (.v)
53 13f7391e 2004-05-15 devnull '''\" tv - temp vertical spacing (only in S macro)
54 13f7391e 2004-05-15 devnull '''\" b1, b2 - scratch calculations
55 13f7391e 2004-05-15 devnull '''\" g1, g2, g3, g4, g5 - complete copy overflow - additional diversion lengths
56 13f7391e 2004-05-15 devnull '''\" i1, i2, i3, i4, i5 - cover sheet only overflow - additional diversionlengths
57 13f7391e 2004-05-15 devnull '''\" m1 - mark scratch position
58 13f7391e 2004-05-15 devnull '''\" :b, :c, :d, :e - scratch (lists only)
59 13f7391e 2004-05-15 devnull '''\" :h - SA macro only
60 13f7391e 2004-05-15 devnull '''\" ls - nested list level (lists only)
61 13f7391e 2004-05-15 devnull '''\" dt - display type (displays & equations)
62 13f7391e 2004-05-15 devnull '''\" fc - filing case flag
63 13f7391e 2004-05-15 devnull '''\" wp - work project number flag
64 13f7391e 2004-05-15 devnull '''\" en - entity flag - 1 (BL), 2 (IS), 3 (TI), 4 (CH)
65 13f7391e 2004-05-15 devnull '''\" lg - Lucent logo flag - 0 (not defined), 1 (defined)
66 13f7391e 2004-05-15 devnull '''\" oa - organizational approval name counter
67 13f7391e 2004-05-15 devnull '''\" aa - ship to itds
68 13f7391e 2004-05-15 devnull '''\" strings
69 13f7391e 2004-05-15 devnull '''\" a) - mercury info
70 13f7391e 2004-05-15 devnull '''\" b) - mercury info
71 13f7391e 2004-05-15 devnull '''\" c) - mercury info
72 13f7391e 2004-05-15 devnull '''\" e) - equation label
73 13f7391e 2004-05-15 devnull '''\" k) - keywords
74 13f7391e 2004-05-15 devnull '''\" m) - Mailing Label/DRAFT
75 13f7391e 2004-05-15 devnull '''\" n) - first document number
76 13f7391e 2004-05-15 devnull '''\" o) - proprietary classification heading
77 13f7391e 2004-05-15 devnull '''\" p) - proprietary string 1
78 13f7391e 2004-05-15 devnull '''\" q) - " " 2
79 13f7391e 2004-05-15 devnull '''\" r) - " " 3
80 13f7391e 2004-05-15 devnull '''\" s) - timestamp string
81 13f7391e 2004-05-15 devnull '''\" t) - memo type (TM, IM, TC)
82 13f7391e 2004-05-15 devnull '''\" u) - trailing s if multiple author
83 13f7391e 2004-05-15 devnull '''\" v) - trailing s if multiple document number
84 13f7391e 2004-05-15 devnull '''\" w) - trailing s if multiple filing case
85 13f7391e 2004-05-15 devnull '''\" x) - trailing s if multiple work project number
86 13f7391e 2004-05-15 devnull '''\" y) - used in lists
87 13f7391e 2004-05-15 devnull '''\" z) - used in lists
88 13f7391e 2004-05-15 devnull '''\" a( -
89 13f7391e 2004-05-15 devnull '''\" e( - earlier document number
90 13f7391e 2004-05-15 devnull '''\" m( - authors 1-3 sig
91 13f7391e 2004-05-15 devnull '''\" n( - authors 4-6 sig
92 13f7391e 2004-05-15 devnull '''\" o( - authors 7-9 sig
93 13f7391e 2004-05-15 devnull '''\" p( - authors 10-12 sig
94 13f7391e 2004-05-15 devnull '''\" r( - responsible person
95 13f7391e 2004-05-15 devnull '''\" s( - S software string
96 13f7391e 2004-05-15 devnull '''\" t( - memo type ("for Technical Memorandum", etc.)
97 13f7391e 2004-05-15 devnull '''\" u( - organizational approval 1-3 sig
98 13f7391e 2004-05-15 devnull '''\" v( - organizational approval 4-6 sig
99 13f7391e 2004-05-15 devnull '''\" w( - organizational approval 7-9 sig
100 13f7391e 2004-05-15 devnull '''\" x( - organizational approval 10-12 sig
101 13f7391e 2004-05-15 devnull '''\" Tm - trademark
102 13f7391e 2004-05-15 devnull '''\" lG - Lucent logo
103 13f7391e 2004-05-15 devnull '''\" 10 - used in equations
104 13f7391e 2004-05-15 devnull '''\" ve - csmacros version
105 13f7391e 2004-05-15 devnull '''\" e1,e2,e3,e4 - entity info
106 13f7391e 2004-05-15 devnull '''\" diversions
107 13f7391e 2004-05-15 devnull '''\" aS - abstract
108 13f7391e 2004-05-15 devnull '''\" aV - author info section
109 13f7391e 2004-05-15 devnull '''\" cA - complete copy addressee primary
110 13f7391e 2004-05-15 devnull '''\" cO - complete copy addressee overflow
111 13f7391e 2004-05-15 devnull '''\" cU, cV, cW, cX, cY, cZ - complete copy addressee overflow (previously lost)
112 13f7391e 2004-05-15 devnull '''\" dA - cover sheet addressee primary
113 13f7391e 2004-05-15 devnull '''\" dO - cover sheet addressee overflow
114 13f7391e 2004-05-15 devnull '''\" dU, dV, dW, dX, dY, dZ - cover sheet only addressee overflow (previously lost)
115 13f7391e 2004-05-15 devnull '''\" dM - document number info
116 13f7391e 2004-05-15 devnull '''\" dS - display
117 13f7391e 2004-05-15 devnull '''\" eQ - equation
118 13f7391e 2004-05-15 devnull '''\" fB - filing case info
119 13f7391e 2004-05-15 devnull '''\" tI - title
120 13f7391e 2004-05-15 devnull '''\" wO - work project number info
121 13f7391e 2004-05-15 devnull '''\" aN - abstract footnote
122 13f7391e 2004-05-15 devnull '''\" fN - footnote
124 13f7391e 2004-05-15 devnull '''\" macros to collect information
125 13f7391e 2004-05-15 devnull '''\" aC - Lucent company
126 13f7391e 2004-05-15 devnull '''\" tS - timestamp
127 13f7391e 2004-05-15 devnull '''\" TL - title
128 13f7391e 2004-05-15 devnull '''\" AU - author
129 13f7391e 2004-05-15 devnull '''\" FS - footnote start
130 13f7391e 2004-05-15 devnull '''\" FE - footnote end
131 13f7391e 2004-05-15 devnull '''\" AS - abstract start
132 13f7391e 2004-05-15 devnull '''\" AE - abstract end
133 13f7391e 2004-05-15 devnull '''\" OK - keyword info
134 13f7391e 2004-05-15 devnull '''\" MT - document type
135 13f7391e 2004-05-15 devnull '''\" dN - document number info
136 13f7391e 2004-05-15 devnull '''\" oA - organization approval name
137 13f7391e 2004-05-15 devnull '''\" eD - earlier document number
138 13f7391e 2004-05-15 devnull '''\" fC - filing case
139 13f7391e 2004-05-15 devnull '''\" fD - full date
140 13f7391e 2004-05-15 devnull '''\" wP - work project info
141 13f7391e 2004-05-15 devnull '''\" mE - mercury selections (7 argument version)
142 13f7391e 2004-05-15 devnull '''\" mC - mercury codes (three argument version)
143 13f7391e 2004-05-15 devnull '''\" Mc - mercury codes (one argument version)
144 13f7391e 2004-05-15 devnull '''\" PM - proprietary marking
145 13f7391e 2004-05-15 devnull '''\" gS - government security
146 13f7391e 2004-05-15 devnull '''\" rA - release to Lucent employees (superceded by fA)
147 13f7391e 2004-05-15 devnull '''\" fA - future Lucent distribution (supercedes rA)
148 13f7391e 2004-05-15 devnull '''\" sF - software-related
149 13f7391e 2004-05-15 devnull '''\" cC - complete copy addressee list start
150 13f7391e 2004-05-15 devnull '''\" cD - complete copy overflow
151 13f7391e 2004-05-15 devnull '''\" cS - cover sheet only addressee list start
152 13f7391e 2004-05-15 devnull '''\" cT - cover sheet only overflow
153 13f7391e 2004-05-15 devnull '''\" zZ - complete copy overflow (previously lost)
154 13f7391e 2004-05-15 devnull '''\" fF - complete copy overflow (aux)
155 13f7391e 2004-05-15 devnull '''\" wW - cover sheet overflow (previously lost)
156 13f7391e 2004-05-15 devnull '''\" gG - cover sheet only overflow (aux)
157 13f7391e 2004-05-15 devnull '''\" cE - addressee list end
158 13f7391e 2004-05-15 devnull '''\" eE - addressee list end (aux)
159 13f7391e 2004-05-15 devnull '''\" macros to help format document
160 13f7391e 2004-05-15 devnull '''\" B - change to bold font
161 13f7391e 2004-05-15 devnull '''\" I - change to italic font
162 13f7391e 2004-05-15 devnull '''\" R - change to roman font
163 13f7391e 2004-05-15 devnull '''\" S - set point size and vertical spacing
164 13f7391e 2004-05-15 devnull '''\" sP - space 1 vertical space
165 13f7391e 2004-05-15 devnull '''\" P - paragraph
166 13f7391e 2004-05-15 devnull '''\" HC - set hyphenation indicator
167 13f7391e 2004-05-15 devnull '''\" iN - font and size re-initialization
168 13f7391e 2004-05-15 devnull '''\" DS - display start
169 13f7391e 2004-05-15 devnull '''\" DE - display end
170 13f7391e 2004-05-15 devnull '''\" EQ - equation start
171 13f7391e 2004-05-15 devnull '''\" EN - equation end
172 13f7391e 2004-05-15 devnull '''\" VL - variable-item list
173 13f7391e 2004-05-15 devnull '''\" ML - marked list
174 13f7391e 2004-05-15 devnull '''\" LI - list item
175 13f7391e 2004-05-15 devnull '''\" LE - list end
176 13f7391e 2004-05-15 devnull '''\" hD - header
177 13f7391e 2004-05-15 devnull '''\" fO - footer
178 13f7391e 2004-05-15 devnull '''\" yY - abstract overflow
179 13f7391e 2004-05-15 devnull '''\" aT - abstract overflow trap
180 13f7391e 2004-05-15 devnull '''\" tK - thick lines
181 13f7391e 2004-05-15 devnull '''\" bE - empty box
182 13f7391e 2004-05-15 devnull '''\" bX - box with X
183 13f7391e 2004-05-15 devnull '''\" tH - title heading
184 13f7391e 2004-05-15 devnull '''\" cH - continuation header
185 13f7391e 2004-05-15 devnull '''\" dH - distribution list headers
186 13f7391e 2004-05-15 devnull '''\" oH - overflow distribution list headers
187 13f7391e 2004-05-15 devnull '''\" eP - eject distribution continuation page
188 13f7391e 2004-05-15 devnull '''\" cP - continuation page
189 13f7391e 2004-05-15 devnull '''\" dP - continuation page (aux)
190 13f7391e 2004-05-15 devnull '''\" tP - compute pages and diversion lengths
191 13f7391e 2004-05-15 devnull '''\" t1 - " "
192 13f7391e 2004-05-15 devnull '''\" dL - compute basic distribution length
193 13f7391e 2004-05-15 devnull '''\" CS - output cover sheet
194 13f7391e 2004-05-15 devnull '''\" initialization
196 13f7391e 2004-05-15 devnull '''\" registers
197 13f7391e 2004-05-15 devnull .nr a 0 1
198 13f7391e 2004-05-15 devnull .nr b 0 1
203 13f7391e 2004-05-15 devnull .nr g1 0
204 13f7391e 2004-05-15 devnull .nr g2 0
205 13f7391e 2004-05-15 devnull .nr g3 0
206 13f7391e 2004-05-15 devnull .nr g4 0
207 13f7391e 2004-05-15 devnull .nr g5 0
210 13f7391e 2004-05-15 devnull .nr i1 0
211 13f7391e 2004-05-15 devnull .nr i2 0
212 13f7391e 2004-05-15 devnull .nr i3 0
213 13f7391e 2004-05-15 devnull .nr i4 0
214 13f7391e 2004-05-15 devnull .nr i5 0
218 13f7391e 2004-05-15 devnull .nr n 0 1
225 13f7391e 2004-05-15 devnull .nr u 0 1
231 13f7391e 2004-05-15 devnull .nr an 0
232 13f7391e 2004-05-15 devnull .nr fn 0
233 13f7391e 2004-05-15 devnull .nr as 0
234 13f7391e 2004-05-15 devnull .nr ds 0
235 13f7391e 2004-05-15 devnull .nr fs 0
236 13f7391e 2004-05-15 devnull .nr bd 0
237 13f7391e 2004-05-15 devnull .nr tp 0
238 13f7391e 2004-05-15 devnull .nr tc 0
239 13f7391e 2004-05-15 devnull .af tc i
240 13f7391e 2004-05-15 devnull .nr np 2
241 13f7391e 2004-05-15 devnull .nr nc 2
242 13f7391e 2004-05-15 devnull .af nc i
243 13f7391e 2004-05-15 devnull .nr la 0
244 13f7391e 2004-05-15 devnull .nr a1 0
245 13f7391e 2004-05-15 devnull .nr a2 0
246 13f7391e 2004-05-15 devnull .nr ar 0
247 13f7391e 2004-05-15 devnull .nr fi 0
248 13f7391e 2004-05-15 devnull .nr in 0
249 13f7391e 2004-05-15 devnull .nr :b 0
250 13f7391e 2004-05-15 devnull .nr :c 0
251 13f7391e 2004-05-15 devnull .nr :d 0
252 13f7391e 2004-05-15 devnull .nr :e 0
253 13f7391e 2004-05-15 devnull .nr :h 0
254 13f7391e 2004-05-15 devnull .nr ls 0 1
255 13f7391e 2004-05-15 devnull .nr dt 0
256 13f7391e 2004-05-15 devnull .nr fc 0 1
257 13f7391e 2004-05-15 devnull .nr wp 0 1
258 13f7391e 2004-05-15 devnull .nr en 1
259 13f7391e 2004-05-15 devnull .nr lg 0
260 13f7391e 2004-05-15 devnull .nr ra 0
261 13f7391e 2004-05-15 devnull .nr oa 0 1
262 13f7391e 2004-05-15 devnull '''\" initialize lines per page
263 13f7391e 2004-05-15 devnull .nr lp 66
264 13f7391e 2004-05-15 devnull .if n .nr lp 65
265 13f7391e 2004-05-15 devnull '''\" initialize device register
266 13f7391e 2004-05-15 devnull .nr dv 0
267 13f7391e 2004-05-15 devnull .if '\*(.T'aps' .nr dv 1
268 13f7391e 2004-05-15 devnull .if '\*(.T'i10' .nr dv 2
269 13f7391e 2004-05-15 devnull .if '\*(.T'X97.tim10p' .nr dv 3
270 13f7391e 2004-05-15 devnull .if '\*(.T'X97.tim12p' .nr dv 3
271 13f7391e 2004-05-15 devnull .if '\*(.T'X97.ti10p' .nr dv 3
272 13f7391e 2004-05-15 devnull .if '\*(.T'X97.ti12p' .nr dv 3
273 13f7391e 2004-05-15 devnull .if '\*(.T'i300' .nr dv 4
274 13f7391e 2004-05-15 devnull .if '\*(.T'qms' .nr dv 5
275 13f7391e 2004-05-15 devnull .if '\*(.T'post' .nr dv 6
276 13f7391e 2004-05-15 devnull '''\" initialize font positions
277 13f7391e 2004-05-15 devnull .ie \n(dv=3 \{\
281 13f7391e 2004-05-15 devnull .fp 4 I \}
282 13f7391e 2004-05-15 devnull .el .ie \n(dv=5 \{\
286 13f7391e 2004-05-15 devnull .fp 4 S \}
289 13f7391e 2004-05-15 devnull .fp 2 HI
290 13f7391e 2004-05-15 devnull .fp 3 HB
291 13f7391e 2004-05-15 devnull .fp 4 HX \}
292 13f7391e 2004-05-15 devnull '''\" initialize units per vertical space
293 13f7391e 2004-05-15 devnull .if t .nr l 120
294 13f7391e 2004-05-15 devnull .if \n(dv=2 .nr l 40
295 13f7391e 2004-05-15 devnull .if \n(dv=3 .nr l 50
296 13f7391e 2004-05-15 devnull .if \n(dv=5 .nr l 50
297 13f7391e 2004-05-15 devnull .if n .nr l 40
298 13f7391e 2004-05-15 devnull '''\" initialize standard indent
299 13f7391e 2004-05-15 devnull .nr si 5
300 13f7391e 2004-05-15 devnull '''\" diversions
341 13f7391e 2004-05-15 devnull '''\" initialize Lucent logo
342 13f7391e 2004-05-15 devnull '''\" eventually substitute LH for Lb (DWB 2)
343 13f7391e 2004-05-15 devnull .ie \n(dv=5 .ds lG \s10\f(ATx\fP\f\\nv\fP\s0
344 13f7391e 2004-05-15 devnull .el .ds lG \s36\(LH\s0
345 13f7391e 2004-05-15 devnull '''\" initialize entity strings
346 13f7391e 2004-05-15 devnull .ds e1 "LUCENT-BL
347 13f7391e 2004-05-15 devnull .ds e2 "LUCENT
348 13f7391e 2004-05-15 devnull .ds e3 "LUCENT BELL LABORATORIES
349 13f7391e 2004-05-15 devnull .ds e4 "Department Head
350 13f7391e 2004-05-15 devnull '''\" initialize trademark symbol string
351 13f7391e 2004-05-15 devnull .if t .ds Tm \v'-0.5m'\s-4TM\s+4\v'0.5m'
352 13f7391e 2004-05-15 devnull .if n .ds Tm \uTM\d
353 13f7391e 2004-05-15 devnull '''\" initialize timestamp string
354 13f7391e 2004-05-15 devnull .ds s) 0
355 13f7391e 2004-05-15 devnull '''\" initialize responsible person string
356 13f7391e 2004-05-15 devnull .ds r( 0
357 13f7391e 2004-05-15 devnull '''\" initialize earlier document number string
358 13f7391e 2004-05-15 devnull .ds e( 0
359 13f7391e 2004-05-15 devnull '''\" initialize csmacro version string
360 13f7391e 2004-05-15 devnull .ds ve MCS (04/30/89)
361 13f7391e 2004-05-15 devnull '''\" initialize point size, vertical space & indent
362 13f7391e 2004-05-15 devnull .nr ps 10
363 13f7391e 2004-05-15 devnull .ps \\n(ps
364 13f7391e 2004-05-15 devnull .nr vs 12
365 13f7391e 2004-05-15 devnull .if t .vs \\n(vsp
368 13f7391e 2004-05-15 devnull '''\" macros to collect information
370 13f7391e 2004-05-15 devnull .de aC \" macro for Lucent company (entity)
371 13f7391e 2004-05-15 devnull . \" set en=1 if BL (default)
372 13f7391e 2004-05-15 devnull . \" set en=2 if IS
373 13f7391e 2004-05-15 devnull . \" set en=3 if TI
374 13f7391e 2004-05-15 devnull . \" set en=4 if CH (Corporate Headquarters)
375 13f7391e 2004-05-15 devnull .if '\\$1'BL' .nr en 1
376 13f7391e 2004-05-15 devnull .if '\\$1'IS' .nr en 2
377 13f7391e 2004-05-15 devnull .if '\\$1'TI' .nr en 3
378 13f7391e 2004-05-15 devnull .if '\\$1'CH' .nr en 4
379 13f7391e 2004-05-15 devnull .if \\n(en=1 \{\
380 13f7391e 2004-05-15 devnull .ds e1 "LUCENT-BL
381 13f7391e 2004-05-15 devnull .ds e2 "LUCENT
382 13f7391e 2004-05-15 devnull .ds e3 "LUCENT BELL LABORATORIES
383 13f7391e 2004-05-15 devnull .ds e4 "Department Head
385 13f7391e 2004-05-15 devnull .if \\n(en=2 \{\
386 13f7391e 2004-05-15 devnull .ds e1 "LUCENT-IS
387 13f7391e 2004-05-15 devnull .ds e2 "LUCENT
388 13f7391e 2004-05-15 devnull .ds e3 "LUCENT INFORMATION SYSTEMS
389 13f7391e 2004-05-15 devnull .ds e4 "Department Head
391 13f7391e 2004-05-15 devnull .if \\n(en=3 \{\
392 13f7391e 2004-05-15 devnull .ds e1 "Lucent Technologies, Inc.
393 13f7391e 2004-05-15 devnull .ds e2 "Lucent
394 13f7391e 2004-05-15 devnull .ds e3 "LUCENT TECHNOLOGIES, INC.
395 13f7391e 2004-05-15 devnull .ds e4 "Manager
397 13f7391e 2004-05-15 devnull .if \\n(en=4 \{\
398 13f7391e 2004-05-15 devnull .ds e1 "Lucent
399 13f7391e 2004-05-15 devnull .ds e2 "Lucent
400 13f7391e 2004-05-15 devnull .ds e3 " Lucent
401 13f7391e 2004-05-15 devnull .ds e4 "Department Head
405 13f7391e 2004-05-15 devnull .de tS \" macro for timestamp
406 13f7391e 2004-05-15 devnull '''\" if timestamp string=0, store arg #1 if non-empty.
407 13f7391e 2004-05-15 devnull .if '\\*(s)'0' \{\
408 13f7391e 2004-05-15 devnull .if !'\\$1'' \{\
409 13f7391e 2004-05-15 devnull .ie '\\$2'1' .ds s) "D R A F T
410 13f7391e 2004-05-15 devnull .el .ds s) "Timestamp: \\$1 \} \}
412 13f7391e 2004-05-15 devnull .de TL \" macro for title
413 13f7391e 2004-05-15 devnull .if \\nu>0 \{\
414 13f7391e 2004-05-15 devnull .tm ERROR: coversheet file set up incorrectly - document title must be supplied before author
418 13f7391e 2004-05-15 devnull .nr aa 1 \" set default to send cover to ITDS
419 13f7391e 2004-05-15 devnull .ie !'\\n(.F'stdin' \{\
420 13f7391e 2004-05-15 devnull . ie !'\\n(.F'-' \{\
421 13f7391e 2004-05-15 devnull . sy /usr/lib/tmac/timestamp \\n(.F>/tmp/tp\\n($$
422 13f7391e 2004-05-15 devnull . so /tmp/tp\\n($$
423 13f7391e 2004-05-15 devnull . sy /bin/rm /tmp/tp\\n($$
424 13f7391e 2004-05-15 devnull . br \} \" don't remove br - gets around troff bug
425 13f7391e 2004-05-15 devnull . el \{\
426 13f7391e 2004-05-15 devnull . nr aa 0
427 13f7391e 2004-05-15 devnull . tm Coversheet not sent to library. input is '-' \} \}
429 13f7391e 2004-05-15 devnull . nr aa 0
430 13f7391e 2004-05-15 devnull . tm Coversheet not sent to library. input is 'stdin' \}
431 13f7391e 2004-05-15 devnull .ie '\\$1'' \{\
432 13f7391e 2004-05-15 devnull . ds m) "Mailing Label \}
434 13f7391e 2004-05-15 devnull . nr aa 0
435 13f7391e 2004-05-15 devnull . tm Coversheet not sent to library. DRAFT document
436 13f7391e 2004-05-15 devnull . ds m) \\s+2DRAFT\\s-2 \} \}
437 13f7391e 2004-05-15 devnull .ll 6.0i
438 13f7391e 2004-05-15 devnull '''\" diversion for title
442 13f7391e 2004-05-15 devnull .de AU \" macro for author info
443 13f7391e 2004-05-15 devnull '''\" don't count author unless non-empty
444 13f7391e 2004-05-15 devnull .if !\\$1 .nr u \\n+u
445 13f7391e 2004-05-15 devnull .if \\nu=1 \{\
447 13f7391e 2004-05-15 devnull '''\" end title diversion on first author
449 13f7391e 2004-05-15 devnull .nr lt (\\n(dn)/(\\nl)
450 13f7391e 2004-05-15 devnull .nr o \\n(dn
453 13f7391e 2004-05-15 devnull .ta 0.3i 2.6i 3.0i 4.0i 5.4i
455 13f7391e 2004-05-15 devnull '''\" append to author list
457 13f7391e 2004-05-15 devnull \\$1 \\$3 \\$6 \\$5 \\$7
460 13f7391e 2004-05-15 devnull '''\" end append; info for signature lines
461 13f7391e 2004-05-15 devnull .if \\nu=1 .ds m( \\$1
462 13f7391e 2004-05-15 devnull .if \\nu=2 .as m( \\$1
463 13f7391e 2004-05-15 devnull .if \\nu=3 .as m( \\$1
464 13f7391e 2004-05-15 devnull .if \\nu=4 .ds n( \\$1
465 13f7391e 2004-05-15 devnull .if \\nu=5 .as n( \\$1
466 13f7391e 2004-05-15 devnull .if \\nu=6 .as n( \\$1
467 13f7391e 2004-05-15 devnull .if \\nu=7 .ds o( \\$1
468 13f7391e 2004-05-15 devnull .if \\nu=8 .as o( \\$1
469 13f7391e 2004-05-15 devnull .if \\nu=9 .as o( \\$1
470 13f7391e 2004-05-15 devnull .if \\nu=10 .ds p( \\$1
471 13f7391e 2004-05-15 devnull .if \\nu=11 .as p( \\$1
472 13f7391e 2004-05-15 devnull .if \\nu=12 .as p( \\$1
474 13f7391e 2004-05-15 devnull .de rP \" macro for responsible person
475 13f7391e 2004-05-15 devnull .if !'\\$1'' .ds r( \\$1
478 13f7391e 2004-05-15 devnull .de FS \" macro for footnote start
479 13f7391e 2004-05-15 devnull .if \\n(fs>0 \{\
480 13f7391e 2004-05-15 devnull .tm Footnote within footnote - illegal.
482 13f7391e 2004-05-15 devnull .if \\n(ds>0 \{\
483 13f7391e 2004-05-15 devnull .tm Footnote within display - illegal.
485 13f7391e 2004-05-15 devnull .nr fs 1
488 13f7391e 2004-05-15 devnull .ll 6.4i
490 13f7391e 2004-05-15 devnull .if t .vs 10p
492 13f7391e 2004-05-15 devnull .ie \\n(as>0 .da aN
495 13f7391e 2004-05-15 devnull .if \\n(fn=0 \{\
497 13f7391e 2004-05-15 devnull .if n __________
498 13f7391e 2004-05-15 devnull .if t \l'1i'
499 13f7391e 2004-05-15 devnull .br \} \}
500 13f7391e 2004-05-15 devnull .if \\n(.$=1 \\$1
502 13f7391e 2004-05-15 devnull .de FE \" macro for footnote end
505 13f7391e 2004-05-15 devnull .ie \\n(as>0 .nr an \\n(dn+\\n(an
506 13f7391e 2004-05-15 devnull .el .nr fn \\n(dn+\\n(fn
508 13f7391e 2004-05-15 devnull .nr fs 0
510 13f7391e 2004-05-15 devnull .de AS \" macro for abstract info
511 13f7391e 2004-05-15 devnull .nr as 1
514 13f7391e 2004-05-15 devnull .ll 7.0i
515 13f7391e 2004-05-15 devnull .ta 0.5i 1.0i 1.5i
519 13f7391e 2004-05-15 devnull .de AE \" macro for end of abstract info
522 13f7391e 2004-05-15 devnull .nr la \\n(dn
524 13f7391e 2004-05-15 devnull .if \\n(an>0 \{\
528 13f7391e 2004-05-15 devnull .if n __________
529 13f7391e 2004-05-15 devnull .if t \l'1i'
536 13f7391e 2004-05-15 devnull .nr la \\n(la+\\n(dn \}
541 13f7391e 2004-05-15 devnull .nr as 0
542 13f7391e 2004-05-15 devnull .rm DS DE EQ EN VL ML LI LE
543 13f7391e 2004-05-15 devnull .rm dS eQ
544 13f7391e 2004-05-15 devnull .rm B I R S sP P
545 13f7391e 2004-05-15 devnull .rm FS FE AE
547 13f7391e 2004-05-15 devnull .de OK \" macro for keyword info
549 13f7391e 2004-05-15 devnull .if !\\$1 .as k) \\$1
550 13f7391e 2004-05-15 devnull .if !\\$2 .as k); \\$2
551 13f7391e 2004-05-15 devnull .if !\\$3 .as k); \\$3
552 13f7391e 2004-05-15 devnull .if !\\$4 .as k); \\$4
553 13f7391e 2004-05-15 devnull .if !\\$5 .as k); \\$5
554 13f7391e 2004-05-15 devnull .if !\\$6 .as k); \\$6
555 13f7391e 2004-05-15 devnull .if !\\$7 .as k); \\$7
556 13f7391e 2004-05-15 devnull .if !\\$8 .as k); \\$8
557 13f7391e 2004-05-15 devnull .if !\\$9 .as k); \\$9
558 13f7391e 2004-05-15 devnull '''\" set k flag if we have some keywords
559 13f7391e 2004-05-15 devnull .ie !\\*(k) .nr k 1
560 13f7391e 2004-05-15 devnull .el .nr k 0
563 13f7391e 2004-05-15 devnull .de MT \" macro for document type
564 13f7391e 2004-05-15 devnull .if '\\$1'1' \{\
566 13f7391e 2004-05-15 devnull .ds t) TM
567 13f7391e 2004-05-15 devnull .ds t( "for Technical Memorandum\}
568 13f7391e 2004-05-15 devnull .if '\\$1'2' \{\
570 13f7391e 2004-05-15 devnull .ds t) IM
571 13f7391e 2004-05-15 devnull .ds t( "for Internal Memorandum\}
572 13f7391e 2004-05-15 devnull .if '\\$1'3' \{\
574 13f7391e 2004-05-15 devnull .ds t) TC
575 13f7391e 2004-05-15 devnull .ds t( "for Technical Correspondence\}
578 13f7391e 2004-05-15 devnull .de dN \" macro for document number info
579 13f7391e 2004-05-15 devnull .ie \\ns=1 .ds s( S
580 13f7391e 2004-05-15 devnull .el .ds s(
581 13f7391e 2004-05-15 devnull .ta 0.8i
584 13f7391e 2004-05-15 devnull .if !'\\$1'' \{\
585 13f7391e 2004-05-15 devnull \\$1\\*(t)\\*(s(
586 13f7391e 2004-05-15 devnull .nr n \\n+n
587 13f7391e 2004-05-15 devnull '''\" \" save first document number
588 13f7391e 2004-05-15 devnull .if \\nn=1 .ds n) \\$1\\*(t)\\*(s( \}
592 13f7391e 2004-05-15 devnull .de oA \" macro for organizational approval names(s)
593 13f7391e 2004-05-15 devnull .nr oa \\n+(oa
594 13f7391e 2004-05-15 devnull .if \\n(oa=1 .ds u( \\$1
595 13f7391e 2004-05-15 devnull .if \\n(oa=2 .as u( \\$1
596 13f7391e 2004-05-15 devnull .if \\n(oa=3 .as u( \\$1
597 13f7391e 2004-05-15 devnull .if \\n(oa=4 .ds v( \\$1
598 13f7391e 2004-05-15 devnull .if \\n(oa=5 .as v( \\$1
599 13f7391e 2004-05-15 devnull .if \\n(oa=6 .as v( \\$1
600 13f7391e 2004-05-15 devnull .if \\n(oa=7 .ds w( \\$1
601 13f7391e 2004-05-15 devnull .if \\n(oa=8 .as w( \\$1
602 13f7391e 2004-05-15 devnull .if \\n(oa=9 .as w( \\$1
603 13f7391e 2004-05-15 devnull .if \\n(oa=10 .ds x( \\$1
604 13f7391e 2004-05-15 devnull .if \\n(oa=11 .as x( \\$1
605 13f7391e 2004-05-15 devnull .if \\n(oa=12 .as x( \\$1
607 13f7391e 2004-05-15 devnull .de fC \" macro for filing case info
608 13f7391e 2004-05-15 devnull .ta 3.5i
611 13f7391e 2004-05-15 devnull .if !'\\$1'' \{\
612 13f7391e 2004-05-15 devnull .nr fc \\n+(fc
617 13f7391e 2004-05-15 devnull .de fD \" macro for full date info
618 13f7391e 2004-05-15 devnull .if !'\\$1'' .fC \\$1 \" use .fC macro underneath
620 13f7391e 2004-05-15 devnull .de wP \" macro for work project info
621 13f7391e 2004-05-15 devnull .ta 5.5i
624 13f7391e 2004-05-15 devnull .if !'\\$1'' \{\
625 13f7391e 2004-05-15 devnull .nr wp \\n+(wp
630 13f7391e 2004-05-15 devnull .de mC \" macro for mercury selections - three argument version
631 13f7391e 2004-05-15 devnull .if !'\\$1'' .Mc \\$1
632 13f7391e 2004-05-15 devnull .if !'\\$2'' .Mc \\$2
633 13f7391e 2004-05-15 devnull .if !'\\$3'' .Mc \\$3
635 13f7391e 2004-05-15 devnull .de Mc \" macro for mercury selections - one argument
637 13f7391e 2004-05-15 devnull .if \\nb<3 \{\
638 13f7391e 2004-05-15 devnull .ie '\\$1'CHM' .ds c) " CHM - Chemistry and Materials
639 13f7391e 2004-05-15 devnull .el .ie '\\$1'chm' .ds c) " CHM - Chemistry and Materials
640 13f7391e 2004-05-15 devnull .el .ie '\\$1'CMM' .ds c) " CMM - Communications
641 13f7391e 2004-05-15 devnull .el .ie '\\$1'cmm' .ds c) " CMM - Communications
642 13f7391e 2004-05-15 devnull .el .ie '\\$1'CMP' .ds c) " CMP - Computing
643 13f7391e 2004-05-15 devnull .el .ie '\\$1'cmp' .ds c) " CMP - Computing
644 13f7391e 2004-05-15 devnull .el .ie '\\$1'ELC' .ds c) " ELC - Electronics
645 13f7391e 2004-05-15 devnull .el .ie '\\$1'elc' .ds c) " ELC - Electronics
646 13f7391e 2004-05-15 devnull .el .ie '\\$1'LFS' .ds c) " LFS - Life Sciences
647 13f7391e 2004-05-15 devnull .el .ie '\\$1'lfs' .ds c) " LFS - Life Sciences
648 13f7391e 2004-05-15 devnull .el .ie '\\$1'MAN' .ds c) " MAN - Manufacturing
649 13f7391e 2004-05-15 devnull .el .ie '\\$1'man' .ds c) " MAN - Manufacturing
650 13f7391e 2004-05-15 devnull .el .ie '\\$1'MAS' .ds c) " MAS - Mathematics and Statistics
651 13f7391e 2004-05-15 devnull .el .ie '\\$1'mas' .ds c) " MAS - Mathematics and Statistics
652 13f7391e 2004-05-15 devnull .el .ie '\\$1'MKT' .ds c) " MKT - Marketing
653 13f7391e 2004-05-15 devnull .el .ie '\\$1'mkt' .ds c) " MKT - Marketing
654 13f7391e 2004-05-15 devnull .el .ie '\\$1'PHY' .ds c) " PHY - Physics
655 13f7391e 2004-05-15 devnull .el .ie '\\$1'phy' .ds c) " PHY - Physics
656 13f7391e 2004-05-15 devnull .el .ie '\\$1'STD' .ds c) " STD - Standards
657 13f7391e 2004-05-15 devnull .el .ie '\\$1'std' .ds c) " STD - Standards
658 13f7391e 2004-05-15 devnull .el .ie '\\$1'PRP' .ds c) " PRP - Product Realization Process
659 13f7391e 2004-05-15 devnull .el .ie '\\$1'prp' .ds c) " PRP - Product Realization Process
660 13f7391e 2004-05-15 devnull .el .ie '\\$1'QLT' .ds c) " QLT - Quality
661 13f7391e 2004-05-15 devnull .el .if '\\$1'qlt' .ds c) " QLT - Quality
662 13f7391e 2004-05-15 devnull .ie '\\*(c)'' .tm WARNING: \\$1 - unknown mercury selection
664 13f7391e 2004-05-15 devnull .nr b \\n+b
665 13f7391e 2004-05-15 devnull .if t .as a) \\*(c)
666 13f7391e 2004-05-15 devnull .if n \{\
667 13f7391e 2004-05-15 devnull .ie \\nb=3 \{\
668 13f7391e 2004-05-15 devnull .rn a) b)
669 13f7391e 2004-05-15 devnull .ds a) \\*(c) \}
670 13f7391e 2004-05-15 devnull .el .as a) \\*(c)\}\}\}
672 13f7391e 2004-05-15 devnull .de mE \" macro for mercury selections
676 13f7391e 2004-05-15 devnull '''\" either 'y' or '1' arguments honored
678 13f7391e 2004-05-15 devnull .if '\\$1'y' .nr q 1
679 13f7391e 2004-05-15 devnull .if '\\$1'1' .nr q 1
680 13f7391e 2004-05-15 devnull .if \\nq=1 \{\
681 13f7391e 2004-05-15 devnull .as a) " CHM - Chemistry and Materials
682 13f7391e 2004-05-15 devnull .nr b \\n+b \}
684 13f7391e 2004-05-15 devnull .if '\\$2'y' .nr q 1
685 13f7391e 2004-05-15 devnull .if '\\$2'1' .nr q 1
686 13f7391e 2004-05-15 devnull .if \\nq=1 \{\
687 13f7391e 2004-05-15 devnull .as a) " CMM - Communications
688 13f7391e 2004-05-15 devnull .nr b \\n+b
689 13f7391e 2004-05-15 devnull .if n \{\
690 13f7391e 2004-05-15 devnull .if \\nb=2 .rn a) b) \} \}
692 13f7391e 2004-05-15 devnull .if '\\$3'y' .nr q 1
693 13f7391e 2004-05-15 devnull .if '\\$3'1' .nr q 1
694 13f7391e 2004-05-15 devnull .if \\nq=1 \{\
695 13f7391e 2004-05-15 devnull .as a) " CMP - Computing
696 13f7391e 2004-05-15 devnull .nr b \\n+b
697 13f7391e 2004-05-15 devnull .if t \{\
698 13f7391e 2004-05-15 devnull .if \\nb=3 .rn a) b) \}
699 13f7391e 2004-05-15 devnull .if n \{\
700 13f7391e 2004-05-15 devnull .if \\nb=2 .rn a) b) \} \}
702 13f7391e 2004-05-15 devnull .if '\\$4'y' .nr q 1
703 13f7391e 2004-05-15 devnull .if '\\$4'1' .nr q 1
704 13f7391e 2004-05-15 devnull .if \\nq=1 \{\
705 13f7391e 2004-05-15 devnull .as a) " ELC - Electronics
706 13f7391e 2004-05-15 devnull .nr b \\n+b
707 13f7391e 2004-05-15 devnull .if t \{\
708 13f7391e 2004-05-15 devnull .if \\nb=3 .rn a) b) \}
709 13f7391e 2004-05-15 devnull .if n \{\
710 13f7391e 2004-05-15 devnull .if \\nb=4 \{\
711 13f7391e 2004-05-15 devnull .rn b) c)
712 13f7391e 2004-05-15 devnull .rn a) b) \}
713 13f7391e 2004-05-15 devnull .if \\nb=2 .rn a) b) \} \}
715 13f7391e 2004-05-15 devnull .if '\\$5'y' .nr q 1
716 13f7391e 2004-05-15 devnull .if '\\$5'1' .nr q 1
717 13f7391e 2004-05-15 devnull .if \\nq=1 \{\
718 13f7391e 2004-05-15 devnull .as a) " LFS - Life Sciences
719 13f7391e 2004-05-15 devnull .nr b \\n+b
720 13f7391e 2004-05-15 devnull .if t \{\
721 13f7391e 2004-05-15 devnull .if \\nb=3 .rn a) b) \}
722 13f7391e 2004-05-15 devnull .if n \{\
723 13f7391e 2004-05-15 devnull .if \\nb=4 \{\
724 13f7391e 2004-05-15 devnull .rn b) c)
725 13f7391e 2004-05-15 devnull .rn a) b) \}
726 13f7391e 2004-05-15 devnull .if \\nb=2 .rn a) b) \} \}
728 13f7391e 2004-05-15 devnull .if '\\$6'y' .nr q 1
729 13f7391e 2004-05-15 devnull .if '\\$6'1' .nr q 1
730 13f7391e 2004-05-15 devnull .if \\nq=1 \{\
731 13f7391e 2004-05-15 devnull .as a) " MAS - Mathematics and Statistics
732 13f7391e 2004-05-15 devnull .nr b \\n+b
733 13f7391e 2004-05-15 devnull .if t \{\
734 13f7391e 2004-05-15 devnull .if \\nb=3 .rn a) b) \}
735 13f7391e 2004-05-15 devnull .if n \{\
736 13f7391e 2004-05-15 devnull .if \\nb=4 \{\
737 13f7391e 2004-05-15 devnull .rn b) c)
738 13f7391e 2004-05-15 devnull .rn a) b) \}
739 13f7391e 2004-05-15 devnull .if \\nb=2 .rn a) b) \} \}
740 13f7391e 2004-05-15 devnull .if \\nb<6 \{\
742 13f7391e 2004-05-15 devnull .if '\\$7'y' .nr q 1
743 13f7391e 2004-05-15 devnull .if '\\$7'1' .nr q 1
744 13f7391e 2004-05-15 devnull .if \\nq=1 \{\
745 13f7391e 2004-05-15 devnull .as a) " PHY - Physics
746 13f7391e 2004-05-15 devnull .nr b \\n+b
747 13f7391e 2004-05-15 devnull .if t \{\
748 13f7391e 2004-05-15 devnull .if \\nb=3 .rn a) b) \}
749 13f7391e 2004-05-15 devnull .if n \{\
750 13f7391e 2004-05-15 devnull .if \\nb=4 \{\
751 13f7391e 2004-05-15 devnull .rn b) c)
752 13f7391e 2004-05-15 devnull .rn a) b) \}
753 13f7391e 2004-05-15 devnull .if \\nb=2 .rn a) b) \} \} \}
754 13f7391e 2004-05-15 devnull .if t \{\
755 13f7391e 2004-05-15 devnull .if \\nb=3 .rn b) a) \}
756 13f7391e 2004-05-15 devnull .if n \{\
757 13f7391e 2004-05-15 devnull .if \\nb=4 \{\
758 13f7391e 2004-05-15 devnull .rn b) a)
759 13f7391e 2004-05-15 devnull .rn c) b) \}
760 13f7391e 2004-05-15 devnull .if \\nb=2 .rn b) a) \}
763 13f7391e 2004-05-15 devnull .de eD \" macro for earlier document number
764 13f7391e 2004-05-15 devnull .if !'\\$1'' .ds e( \\$1
767 13f7391e 2004-05-15 devnull .de PM \" macro for proprietary marking
768 13f7391e 2004-05-15 devnull . \" arg 1 - RS or BR or IR or TR or R - restricted
769 13f7391e 2004-05-15 devnull .if '\\$1'RS' .nr p 2
770 13f7391e 2004-05-15 devnull .if '\\$1'BR' .nr p 2
771 13f7391e 2004-05-15 devnull .if '\\$1'IR' .nr p 2
772 13f7391e 2004-05-15 devnull .if '\\$1'TR' .nr p 2
773 13f7391e 2004-05-15 devnull .if '\\$1'R' .nr p 2
776 13f7391e 2004-05-15 devnull .de gS \" macro for government security classified
780 13f7391e 2004-05-15 devnull .de rA \" macros for release to Lucent employees
781 13f7391e 2004-05-15 devnull . \" superceded by .fA macro 072087
782 13f7391e 2004-05-15 devnull .nr ra 1
785 13f7391e 2004-05-15 devnull .de fA \" macro for future Lucent distribution
786 13f7391e 2004-05-15 devnull . \" arg 1 = 'y' or 'Y' or 'n' or 'N'
787 13f7391e 2004-05-15 devnull .if '\\$1'y' .nr ra 1
788 13f7391e 2004-05-15 devnull .if '\\$1'Y' .nr ra 1
789 13f7391e 2004-05-15 devnull .if '\\$1'n' .nr ra 2
790 13f7391e 2004-05-15 devnull .if '\\$1'N' .nr ra 2
793 13f7391e 2004-05-15 devnull .de sF \" macro for software-related document
800 13f7391e 2004-05-15 devnull .de dL \" macro for calculating basic distribution length
801 13f7391e 2004-05-15 devnull '''\" call once only - from .cC, .cS, or .CS
802 13f7391e 2004-05-15 devnull .if \\nd=0 \{\
804 13f7391e 2004-05-15 devnull '''\" calculate space considerations
805 13f7391e 2004-05-15 devnull '''\" basic distribution length - to be tailored - set e and h
806 13f7391e 2004-05-15 devnull .if \\nr=0 .nr e \\ne+2
807 13f7391e 2004-05-15 devnull .if \\nu<=3 .nr e \\ne+3
808 13f7391e 2004-05-15 devnull .if \\nu<=6 .nr e \\ne+3
809 13f7391e 2004-05-15 devnull .if \\nu<=9 .nr e \\ne+3
810 13f7391e 2004-05-15 devnull .if (((\\n(oa>0)&(\\n(oa<=3)):((\\nn<=3)&(\\n(oa=0))) .nr e \\ne+3
811 13f7391e 2004-05-15 devnull .if (((\\n(oa>0)&(\\n(oa<=6)):((\\nn<=6)&(\\n(oa=0))) .nr e \\ne+3
812 13f7391e 2004-05-15 devnull .if (((\\n(oa>0)&(\\n(oa<=9)):((\\nn<=9)&(\\n(oa=0))) .nr e \\ne+3
813 13f7391e 2004-05-15 devnull '''\" nroff: if p=2, 1 extra line under Org Approval
814 13f7391e 2004-05-15 devnull .if n .if \\np=2 .nr e \\ne-1
815 13f7391e 2004-05-15 devnull '''\" Future Lucent Distribution handling
816 13f7391e 2004-05-15 devnull .if ((\\n(ra<2)&(\\np=2)) \{\
817 13f7391e 2004-05-15 devnull .nr ra 2
818 13f7391e 2004-05-15 devnull .tm WARNING: Future Lucent Distribution by ITDS - PROPRIETARY (RESTRICTED) document MAY NOT BE RELEASED without appropriate approval for each request; coversheet has been modified accordingly\}
819 13f7391e 2004-05-15 devnull .if \\n(ra=0 \{\
820 13f7391e 2004-05-15 devnull .tm WARNING: Future Lucent Distribution by ITDS: missing or invalid .fA macro; indicate desired action by checking yes or no box on page 2 of coversheet; next time include .fA macro with y or n argument \}
821 13f7391e 2004-05-15 devnull '''\" at least 3 lines for Future Lucent Distribution section (more for nroff negative and ra=0)
822 13f7391e 2004-05-15 devnull '''\" \" next 2 lines for yes/no boxes; remove when .fA macro becomes mandatory
823 13f7391e 2004-05-15 devnull .if t .if \\n(ra=0 .nr e \\ne-4
824 13f7391e 2004-05-15 devnull .if n .if \\n(ra=0 .nr e \\ne-5
825 13f7391e 2004-05-15 devnull .if \\n(ra=1 .nr e \\ne-3
826 13f7391e 2004-05-15 devnull .if t .if \\n(ra=2 .nr e \\ne-3
827 13f7391e 2004-05-15 devnull .if n .if \\n(ra=2 .nr e \\ne-4
828 13f7391e 2004-05-15 devnull '''\" increment number on next two lines to drop text lower on page 2
829 13f7391e 2004-05-15 devnull .if t .nr e \\ne+23
830 13f7391e 2004-05-15 devnull .if n .nr e \\ne+21
831 13f7391e 2004-05-15 devnull .if n \{\
832 13f7391e 2004-05-15 devnull '''\" if page 2 text changes, change values in next 3 lines
833 13f7391e 2004-05-15 devnull .if \\ne<4 \{\
834 13f7391e 2004-05-15 devnull .tm ERROR: insufficient space to format cover sheet; use "docsend -Taps" \
835 13f7391e 2004-05-15 devnull for APS-5, "docsend -Ti10" for imagen, or "docsend -TX97" - \
836 13f7391e 2004-05-15 devnull or use stockroom cover sheet
838 13f7391e 2004-05-15 devnull .ie \\ne<8 .nr e 0
839 13f7391e 2004-05-15 devnull .el .nr e \\ne-7 \}
840 13f7391e 2004-05-15 devnull .nr h \\ne
844 13f7391e 2004-05-15 devnull .de cC \" macro for handling complete copy addressees
846 13f7391e 2004-05-15 devnull .ta 2.0i
849 13f7391e 2004-05-15 devnull .ie \\ne>0 \{\
851 13f7391e 2004-05-15 devnull .dt \\nev cD \}
852 13f7391e 2004-05-15 devnull .el .da cO
855 13f7391e 2004-05-15 devnull .de cD \" macro for handling complete copy address overflow
856 13f7391e 2004-05-15 devnull .ta 2.0i
860 13f7391e 2004-05-15 devnull .nr lo 56-\\n(lt
861 13f7391e 2004-05-15 devnull .dt \\n(lo zZ
863 13f7391e 2004-05-15 devnull .de zZ \" macro for handling previously lost complete copy address overflow
864 13f7391e 2004-05-15 devnull . \" provide 5 additional continuation pages (6 in all - approx 350 names)
865 13f7391e 2004-05-15 devnull .ie "\\n(.z"cO" .fF "g" "cU"
866 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cU" .fF "g1" "cV"
867 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cV" .fF "g2" "cW"
868 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cW" .fF "g3" "cX"
869 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cX" .fF "g4" "cY"
870 13f7391e 2004-05-15 devnull .el .if "\\n(.z"cY" .fF "g5" "cZ"
872 13f7391e 2004-05-15 devnull .de fF \" aux macro for handling previously lost complete copy address overflow
873 13f7391e 2004-05-15 devnull .ta 2.0i
876 13f7391e 2004-05-15 devnull .ie \\n(dn>0 \{\
877 13f7391e 2004-05-15 devnull .nr \\$1 (\\n(dn)/\\nl+4
878 13f7391e 2004-05-15 devnull .da \\$2
879 13f7391e 2004-05-15 devnull .nr lo 56-\\n(lt
880 13f7391e 2004-05-15 devnull .dt \\n(lo zZ \}
882 13f7391e 2004-05-15 devnull .nr \\$1 0
883 13f7391e 2004-05-15 devnull .da cZ \}
885 13f7391e 2004-05-15 devnull .de cS \" macro for handling cover sheet only addresses
887 13f7391e 2004-05-15 devnull .ta 2.0i
890 13f7391e 2004-05-15 devnull .ie \\nh>0 \{\
892 13f7391e 2004-05-15 devnull .dt \\nhv cT \}
893 13f7391e 2004-05-15 devnull .el .da dO
896 13f7391e 2004-05-15 devnull .de cT \" macro for handling cover sheet address overflow
897 13f7391e 2004-05-15 devnull .ta 2.0i
901 13f7391e 2004-05-15 devnull .nr lo 56-\\n(lt
902 13f7391e 2004-05-15 devnull .dt \\n(lo wW
904 13f7391e 2004-05-15 devnull .de wW \" macro for handling previously lost cover sheet only address overflow
905 13f7391e 2004-05-15 devnull . \" provide 5 additional continuation pages (6 in all - approx 350 names)
906 13f7391e 2004-05-15 devnull .ie "\\n(.z"dO" .gG "i" "dU"
907 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dU" .gG "i1" "dV"
908 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dV" .gG "i2" "dW"
909 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dW" .gG "i3" "dX"
910 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dX" .gG "i4" "dY"
911 13f7391e 2004-05-15 devnull .el .if "\\n(.z"dY" .gG "i5" "dZ"
913 13f7391e 2004-05-15 devnull .de gG \" aux macro for handling previously lost cover sheet only address overflow
914 13f7391e 2004-05-15 devnull .ta 2.0i
917 13f7391e 2004-05-15 devnull .ie \\n(dn>0 \{\
918 13f7391e 2004-05-15 devnull .nr \\$1 (\\n(dn)/\\nl+4
919 13f7391e 2004-05-15 devnull .da \\$2
920 13f7391e 2004-05-15 devnull .nr lo 56-\\n(lt
921 13f7391e 2004-05-15 devnull .dt \\n(lo wW \}
923 13f7391e 2004-05-15 devnull .nr \\$1 0
924 13f7391e 2004-05-15 devnull .da dZ \}
926 13f7391e 2004-05-15 devnull .de cE \" macro for ending all distribution diversions
928 13f7391e 2004-05-15 devnull .ie "\\n(.z"cA" \{\
930 13f7391e 2004-05-15 devnull .rm cD \}
931 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cO" .eE "g" "cD"
932 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cU" .eE "g1" "cD"
933 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cV" .eE "g2" "cD"
934 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cW" .eE "g3" "cD"
935 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cX" .eE "g4" "cD"
936 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cY" .eE "g5" "cD"
937 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"cZ" \{\
939 13f7391e 2004-05-15 devnull .rm cD \}
940 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dA" \{\
942 13f7391e 2004-05-15 devnull .rm cT \}
943 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dO" .eE "i" "cT"
944 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dU" .eE "i1" "cT"
945 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dV" .eE "i2" "cT"
946 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dW" .eE "i3" "cT"
947 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dX" .eE "i4" "cT"
948 13f7391e 2004-05-15 devnull .el .ie "\\n(.z"dY" .eE "i5" "cT"
949 13f7391e 2004-05-15 devnull .el .if "\\n(.z"dZ" \{\
951 13f7391e 2004-05-15 devnull .rm cT \}
953 13f7391e 2004-05-15 devnull .de eE \" aux macro for ending all distribution diversions
955 13f7391e 2004-05-15 devnull .ie \\n(dn>0 .nr \\$1 (\\n(dn)/\\nl+4
956 13f7391e 2004-05-15 devnull .el .nr \\$1 0
957 13f7391e 2004-05-15 devnull .rm \\$2
960 13f7391e 2004-05-15 devnull '''\" macros to help format document
963 13f7391e 2004-05-15 devnull .ie\\n(.$ .nr ;G \\n(.f
964 13f7391e 2004-05-15 devnull .el.ft 3
965 13f7391e 2004-05-15 devnull .if\\n(.$ .if !\\n(.$-2 \&\f3\\$1\fP\\$2
966 13f7391e 2004-05-15 devnull .if\\n(.$-2 \{.ds }i
967 13f7391e 2004-05-15 devnull .if\\n(.f2 .ds }i \^
968 13f7391e 2004-05-15 devnull .ds}I \&\f3\\$1\fP\\$2\\*(}i
970 13f7391e 2004-05-15 devnull .if\\n(.$-2 .if !\\n(.$-4 \\*(}I\f3\\$3\fP\\$4
971 13f7391e 2004-05-15 devnull .if\\n(.$-4 .if !\\n(.$-6 \\*(}I\f3\\$3\fP\\$4\\*(}i\f3\\$5\fP\\$6
972 13f7391e 2004-05-15 devnull .if\\n(.$ .ft \\n(;G
975 13f7391e 2004-05-15 devnull .ie\\n(.$ .nr ;G \\n(.f
976 13f7391e 2004-05-15 devnull .el.ft 2
977 13f7391e 2004-05-15 devnull .if\\n(.$ .if !\\n(.$-1 \&\f2\\$1
978 13f7391e 2004-05-15 devnull .if\\n(.$-1 \{.ds }i \^
979 13f7391e 2004-05-15 devnull .if\\n(.f2 .ds }i
980 13f7391e 2004-05-15 devnull .ds}I \&
981 13f7391e 2004-05-15 devnull .if\w\\$1 .ds }I \&\f2\\$1\fP\\*(}i
983 13f7391e 2004-05-15 devnull .if\\n(.$-1 .if !\\n(.$-3 \\*(}I\\$2\f2\\$3
984 13f7391e 2004-05-15 devnull .if\\n(.$-3 .if !\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5
985 13f7391e 2004-05-15 devnull .if\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5\fP\\*(}i\\$6
986 13f7391e 2004-05-15 devnull .if\\n(.$ .ft \\n(;G
989 13f7391e 2004-05-15 devnull .nr;G \\n(.f
990 13f7391e 2004-05-15 devnull .}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
993 13f7391e 2004-05-15 devnull .nr;G \\n(.f
994 13f7391e 2004-05-15 devnull .}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
997 13f7391e 2004-05-15 devnull .nr;G \\n(.f
998 13f7391e 2004-05-15 devnull .}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
1001 13f7391e 2004-05-15 devnull .nr;G \\n(.f
1002 13f7391e 2004-05-15 devnull .}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
1005 13f7391e 2004-05-15 devnull .nr;G \\n(.f
1006 13f7391e 2004-05-15 devnull .}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
1009 13f7391e 2004-05-15 devnull .nr;G \\n(.f
1010 13f7391e 2004-05-15 devnull .}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6"
1014 13f7391e 2004-05-15 devnull .if\\$12 .if !\\$5 .ds }i\^
1015 13f7391e 2004-05-15 devnull .ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(}i" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9"
1016 13f7391e 2004-05-15 devnull .el\\$3
1017 13f7391e 2004-05-15 devnull .ft\\n(;G
1023 13f7391e 2004-05-15 devnull .de S \" set point size and vertical spacing
1024 13f7391e 2004-05-15 devnull .ie \\n(.$=0 \{\
1026 13f7391e 2004-05-15 devnull .if t .vs \}
1027 13f7391e 2004-05-15 devnull .el \{\
1028 13f7391e 2004-05-15 devnull .ie \w\(ts\\$1\(ts \{\
1029 13f7391e 2004-05-15 devnull .ie 0\\$1-99 .nr ts \\n(ps
1030 13f7391e 2004-05-15 devnull .el .nr ts \\$1 \}
1031 13f7391e 2004-05-15 devnull .el .nr ts \\n(.s
1032 13f7391e 2004-05-15 devnull .ps \\n(ts
1033 13f7391e 2004-05-15 devnull .if \\n(.$=1 .if t \{\
1034 13f7391e 2004-05-15 devnull .nr tv \\n(.s+2
1035 13f7391e 2004-05-15 devnull .vs \\n(tvp \}
1036 13f7391e 2004-05-15 devnull .if \\n(.$>1 .if t \{\
1037 13f7391e 2004-05-15 devnull .ie \w\(ts\\$2\(ts \{\
1038 13f7391e 2004-05-15 devnull .ie 0\\$2-99 .nr tv \\n(.s+2
1039 13f7391e 2004-05-15 devnull .el .nr tv \\$2 \}
1040 13f7391e 2004-05-15 devnull .el .nr tv \\n(.v
1041 13f7391e 2004-05-15 devnull .vs \\n(tvp \} \}
1043 13f7391e 2004-05-15 devnull .de sP \" space 1 blank line (vertical space)
1044 13f7391e 2004-05-15 devnull .if n .sp 1
1045 13f7391e 2004-05-15 devnull .if t .sp 0.5
1047 13f7391e 2004-05-15 devnull .de P \" paragraph - (default - left-adjusted)
1048 13f7391e 2004-05-15 devnull . \" arg #1=0 - left-adjusted
1049 13f7391e 2004-05-15 devnull . \" arg #1=1 - indent standard amount
1050 13f7391e 2004-05-15 devnull .ne 1.1
1052 13f7391e 2004-05-15 devnull .if (\\n(.$>0)&(0\\$1=1) .ti +\\n(sin
1054 13f7391e 2004-05-15 devnull .de HC \" set hyphenation indicator
1056 13f7391e 2004-05-15 devnull .hc\\$1
1059 13f7391e 2004-05-15 devnull .hc\\$1
1062 13f7391e 2004-05-15 devnull .hc\\$1
1065 13f7391e 2004-05-15 devnull .de SA \" macro for right-adjustment
1066 13f7391e 2004-05-15 devnull .if \\n(.$ \{\
1067 13f7391e 2004-05-15 devnull .if \\$1-1 .tm WARNING: SA: bad arg:\\$1
1068 13f7391e 2004-05-15 devnull .nr :h 0\\$1 \}
1070 13f7391e 2004-05-15 devnull .if \\n(:h 'ad
1072 13f7391e 2004-05-15 devnull .de iN \" macro for font and size re-initialization
1074 13f7391e 2004-05-15 devnull .ps \\n(ps
1075 13f7391e 2004-05-15 devnull .if t .vs \\n(vsp
1077 13f7391e 2004-05-15 devnull .de DS \" macro for display start
1078 13f7391e 2004-05-15 devnull .if \\n(ds>0 \{\
1079 13f7391e 2004-05-15 devnull .tm Display within display - illegal.
1081 13f7391e 2004-05-15 devnull .if \\n(fs>0 \{\
1082 13f7391e 2004-05-15 devnull .tm Display within footnote - illegal.
1084 13f7391e 2004-05-15 devnull .nr in \\n(.i
1085 13f7391e 2004-05-15 devnull .nr fi \\n(.u
1089 13f7391e 2004-05-15 devnull .ll 7.0i
1091 13f7391e 2004-05-15 devnull .in \\n(inu
1093 13f7391e 2004-05-15 devnull .if \\n(.$>1 \{\
1094 13f7391e 2004-05-15 devnull .if '\\$2'F' .nr dt 4
1095 13f7391e 2004-05-15 devnull .if '\\$2'1' .nr dt 4
1096 13f7391e 2004-05-15 devnull .if \\n(dt=4 .fi \}
1097 13f7391e 2004-05-15 devnull .if \\n(.$>2 .ll-0\\$3
1098 13f7391e 2004-05-15 devnull .nr dt 0
1099 13f7391e 2004-05-15 devnull .nr bd 0
1100 13f7391e 2004-05-15 devnull .if '\\$1'I' .nr dt 1
1101 13f7391e 2004-05-15 devnull .if '\\$1'1' .nr dt 1
1102 13f7391e 2004-05-15 devnull .if \\n(dt=1 .in \\n(sin
1103 13f7391e 2004-05-15 devnull .if '\\$1'C' .nr dt 2
1104 13f7391e 2004-05-15 devnull .if '\\$1'2' .nr dt 2
1105 13f7391e 2004-05-15 devnull .if \\n(dt=2 .ce 1000
1106 13f7391e 2004-05-15 devnull .if '\\$1'CB' .nr dt 3
1107 13f7391e 2004-05-15 devnull .if '\\$1'3' .nr dt 3
1108 13f7391e 2004-05-15 devnull .if \\n(dt=3 \{\
1109 13f7391e 2004-05-15 devnull .nr bd 1
1110 13f7391e 2004-05-15 devnull .di dS \}
1111 13f7391e 2004-05-15 devnull .nr ds 1
1113 13f7391e 2004-05-15 devnull .de DE \" macro for display end
1115 13f7391e 2004-05-15 devnull .ie \\n(ds=0 .tm DE: no active DS
1116 13f7391e 2004-05-15 devnull .el \{\
1118 13f7391e 2004-05-15 devnull .if \\n(bd>0 \{\
1120 13f7391e 2004-05-15 devnull .if \\n(dl>\\n(bd .nr bd \\n(dl
1121 13f7391e 2004-05-15 devnull .if \\n(bd<\\n(.l .in (\\n(.lu-\\n(bdu)/2u
1122 13f7391e 2004-05-15 devnull .nr dt \\n(.l-\\n(.i
1123 13f7391e 2004-05-15 devnull .ta \\n(dtuR
1126 13f7391e 2004-05-15 devnull .nr bd 0
1127 13f7391e 2004-05-15 devnull .nr ds 0
1128 13f7391e 2004-05-15 devnull .nr dt 0
1130 13f7391e 2004-05-15 devnull .in \\n(inu
1132 13f7391e 2004-05-15 devnull .ie \\n(fi=0 .nf
1133 13f7391e 2004-05-15 devnull .el .fi \}
1135 13f7391e 2004-05-15 devnull .de EQ \" macro for equation start
1136 13f7391e 2004-05-15 devnull .ds e) \\$1
1139 13f7391e 2004-05-15 devnull .de EN \" macro for equation end
1143 13f7391e 2004-05-15 devnull .lt \\n(.lu
1145 13f7391e 2004-05-15 devnull .if \w\(ts\\*(10\\*(e)\(ts \{\
1146 13f7391e 2004-05-15 devnull .ie \\n(bd>0 \{\
1147 13f7391e 2004-05-15 devnull .if \\n(bd<\w\(ts\\*(10\(ts .nr bd \w\(ts\\*(10\(ts
1148 13f7391e 2004-05-15 devnull \!\\*(10\h'\\\\n(.lu-\w\(ts\\*(10\\*(e)u\(ts-\\\\n(.iu'\\*(e)
1150 13f7391e 2004-05-15 devnull .el .ie \\n(dt=2 .tl \(ts\(ts\\*(10\(ts\\*(e)\(ts
1151 13f7391e 2004-05-15 devnull .el .ie \\n(dt=1 .tl \(ts\h'\\n(sin'\\*(10\(ts\(ts\\*(e)\(ts
1152 13f7391e 2004-05-15 devnull .el .if \\n(dt=0 .tl \(ts\\*(10\(ts\(ts\\*(e)\(ts
1157 13f7391e 2004-05-15 devnull .de VL \" macro for variable-item lists
1158 13f7391e 2004-05-15 devnull .if \\n(ls>0 \{\
1159 13f7391e 2004-05-15 devnull .tm VL: lists may not be nested
1161 13f7391e 2004-05-15 devnull .ie \\n(.$<1 .tm WARNING: VL: text-indent not defined
1162 13f7391e 2004-05-15 devnull .el \{\
1163 13f7391e 2004-05-15 devnull .nr in \\n(.i
1164 13f7391e 2004-05-15 devnull .nr :b \\n(.iu+0\\$1n
1165 13f7391e 2004-05-15 devnull .nr :c \\n(.iu+0\\$2n
1166 13f7391e 2004-05-15 devnull .ds y) \&
1167 13f7391e 2004-05-15 devnull .ie \\n(.$=3 .nr :d 1
1168 13f7391e 2004-05-15 devnull .el .nr :d 0
1169 13f7391e 2004-05-15 devnull .if \\n(:d=1 .sP
1171 13f7391e 2004-05-15 devnull .nr ls +1
1174 13f7391e 2004-05-15 devnull .de ML \" macro for marked list
1175 13f7391e 2004-05-15 devnull .if \\n(ls>0 \{\
1176 13f7391e 2004-05-15 devnull .tm ML: lists may not be nexted
1178 13f7391e 2004-05-15 devnull .ie \\n(.$<1 .tm ML: mark not defined
1179 13f7391e 2004-05-15 devnull .el \{\
1180 13f7391e 2004-05-15 devnull .nr in \\n(.i
1181 13f7391e 2004-05-15 devnull .ds y) \\$1
1182 13f7391e 2004-05-15 devnull .ie (\\n(.$>1)&(\\$2>0) .nr :b \\n(.iu+0\\$2n
1183 13f7391e 2004-05-15 devnull .el .nr :b \\n(.iu+\w\(ts\\*(y)\(tsu+1n
1184 13f7391e 2004-05-15 devnull .nr :c \\n(:bu-1n-\w\(ts\\*(y)\(tsu
1185 13f7391e 2004-05-15 devnull .ie \\n(.$=3 .nr :d 1
1186 13f7391e 2004-05-15 devnull .el .nr :d 0
1187 13f7391e 2004-05-15 devnull .if \\n(:d=1 .sP
1189 13f7391e 2004-05-15 devnull .in \\n(:bu
1190 13f7391e 2004-05-15 devnull .nr ls +1
1193 13f7391e 2004-05-15 devnull .de BL \" macro for bullet list - using marked list
1194 13f7391e 2004-05-15 devnull .ie \\n(.$=2 .ML \\(bu \\$1 \\$2
1195 13f7391e 2004-05-15 devnull .el .ie \\n(.$=1 .ML \\(bu \\$1
1196 13f7391e 2004-05-15 devnull .el .ML \\(bu
1198 13f7391e 2004-05-15 devnull .de LI \" macro for list item
1199 13f7391e 2004-05-15 devnull .ie \\n(ls=0 .tm LI: no active lists
1200 13f7391e 2004-05-15 devnull .el \{\
1201 13f7391e 2004-05-15 devnull .ds z) \\*(y)
1202 13f7391e 2004-05-15 devnull .if \\n(.$=1 .ds z) \\$1
1203 13f7391e 2004-05-15 devnull .if \\n(.$=2 .ds z) \\$1\&\\*(z)
1204 13f7391e 2004-05-15 devnull .if \\n(:d=0 .sP
1205 13f7391e 2004-05-15 devnull .in \\n(:bu
1206 13f7391e 2004-05-15 devnull .ti \\n(:cu
1207 13f7391e 2004-05-15 devnull .nr :e \w\(ts\\*(z)\(ts
1208 13f7391e 2004-05-15 devnull \\*(z)\h'\\n(:bu-\\n(:cu-\\n(:eu'\c \}
1210 13f7391e 2004-05-15 devnull .de LE \" macro for list end
1211 13f7391e 2004-05-15 devnull .ie \\n(ls=0 .tm LE: no active list
1212 13f7391e 2004-05-15 devnull .el \{\
1214 13f7391e 2004-05-15 devnull .nr ls -1
1215 13f7391e 2004-05-15 devnull 'in \\n(inu
1216 13f7391e 2004-05-15 devnull 'ti \\n(inu
1217 13f7391e 2004-05-15 devnull .if \\n(.$>0 .sP \}
1219 13f7391e 2004-05-15 devnull .de hD \" header macro
1220 13f7391e 2004-05-15 devnull '''\" page offset 0.6i for XEROX & DASI; 0.25i for all other devices
1221 13f7391e 2004-05-15 devnull '''\" cut marks for APS only
1222 13f7391e 2004-05-15 devnull .po 0.25i
1223 13f7391e 2004-05-15 devnull .if \\n(dv=3 .po 0.6i
1224 13f7391e 2004-05-15 devnull .if n .po 0.6i
1225 13f7391e 2004-05-15 devnull .if \\n(dv=1 .tl '\(rn''\(rn'
1226 13f7391e 2004-05-15 devnull .if t 'sp|0.2i
1227 13f7391e 2004-05-15 devnull .if n 'sp|1
1229 13f7391e 2004-05-15 devnull .de fO \" footer macro
1230 13f7391e 2004-05-15 devnull .if t .pl 11.0i
1231 13f7391e 2004-05-15 devnull .if n .pl \\n(lp
1234 13f7391e 2004-05-15 devnull .de yY \" macro for abstract overflow - line -1
1238 13f7391e 2004-05-15 devnull .de aT \" macro for abstract overflow trap
1239 13f7391e 2004-05-15 devnull . \" register a counts overflow pages
1240 13f7391e 2004-05-15 devnull .if \\na>0 \{\
1243 13f7391e 2004-05-15 devnull (continued)
1244 13f7391e 2004-05-15 devnull .ft 1 \}
1245 13f7391e 2004-05-15 devnull .if t .pl 11.0i
1246 13f7391e 2004-05-15 devnull .if n .pl \\n(lp
1247 13f7391e 2004-05-15 devnull .nr a \\n+a
1248 13f7391e 2004-05-15 devnull .rn aT xX
1250 13f7391e 2004-05-15 devnull .rn xX aT
1251 13f7391e 2004-05-15 devnull .if n .wh -2 aT
1252 13f7391e 2004-05-15 devnull .if t .wh -0.55i aT
1255 13f7391e 2004-05-15 devnull .if t 'sp 0.05i
1258 13f7391e 2004-05-15 devnull Abstract (continued)
1260 13f7391e 2004-05-15 devnull .in 0.2i
1263 13f7391e 2004-05-15 devnull .de tK \" macro for thick lines
1265 13f7391e 2004-05-15 devnull \l'7.5i'
1268 13f7391e 2004-05-15 devnull .de bE \" macro for empty box
1270 13f7391e 2004-05-15 devnull .if t \\(sq
1271 13f7391e 2004-05-15 devnull .if n [ ]
1274 13f7391e 2004-05-15 devnull .de bX \" macro for box with x
1276 13f7391e 2004-05-15 devnull .if t \\o'\(mu\(sq'
1277 13f7391e 2004-05-15 devnull .if n [x]
1280 13f7391e 2004-05-15 devnull .de tH \" macro for Title heading and text
1281 13f7391e 2004-05-15 devnull . \" called from aT and eP and CS
1283 13f7391e 2004-05-15 devnull .if t 'sp 0.05i
1284 13f7391e 2004-05-15 devnull '''\" mark t - Title heading
1289 13f7391e 2004-05-15 devnull 'sp|\\ntu
1290 13f7391e 2004-05-15 devnull .in 0.7i
1293 13f7391e 2004-05-15 devnull .ta 0.5i
1294 13f7391e 2004-05-15 devnull .nr q \\no/\\nl
1295 13f7391e 2004-05-15 devnull .ie \\nq>2 'sp|\\ntu+\\nq
1296 13f7391e 2004-05-15 devnull .el 'sp|\\ntu+2
1298 13f7391e 2004-05-15 devnull . \" m1 - mark end of title section - save
1301 13f7391e 2004-05-15 devnull .de cH \" macro for abstract or distribution list continuation header
1302 13f7391e 2004-05-15 devnull . \" called from aT and eP
1303 13f7391e 2004-05-15 devnull . \" calculate this page number
1304 13f7391e 2004-05-15 devnull .nr np \\n(np+1
1308 13f7391e 2004-05-15 devnull .ta 7.5iR
1309 13f7391e 2004-05-15 devnull .nr tc \\n(tp
1310 13f7391e 2004-05-15 devnull .nr nc \\n(np
1311 13f7391e 2004-05-15 devnull \\*(n)\f2 (page \\n(nc of \\n(tc)
1313 13f7391e 2004-05-15 devnull .if t 'sp 0.1i
1315 13f7391e 2004-05-15 devnull .de dH \" macro for distribution list headers
1316 13f7391e 2004-05-15 devnull . \" called from cP and CS
1318 13f7391e 2004-05-15 devnull .ta 1.0i 4.75i
1319 13f7391e 2004-05-15 devnull \\$1 \\$2
1320 13f7391e 2004-05-15 devnull .if t .sp 0.05i
1322 13f7391e 2004-05-15 devnull .ta 0.5i 1.0i
1324 13f7391e 2004-05-15 devnull .de oH \" macro for final overflow distribution list headers
1325 13f7391e 2004-05-15 devnull . \" called from cP
1326 13f7391e 2004-05-15 devnull .if \\$1>4 .if \\$2>4 .dH "Complete Copy (continued)" "Cover Sheet Only (continued)"
1327 13f7391e 2004-05-15 devnull .if \\$1>4 .if !\\$2>4 .dH "Complete Copy (continued)" ""
1328 13f7391e 2004-05-15 devnull .if !\\$1>4 .if \\$2>4 .dH "" "Cover Sheet Only (continued)"
1330 13f7391e 2004-05-15 devnull .de eP \" macro for ejecting distribution continuation page
1331 13f7391e 2004-05-15 devnull . \" called from cP
1333 13f7391e 2004-05-15 devnull .wh 0 hD
1334 13f7391e 2004-05-15 devnull '''\" put out continuation page header & title section
1338 13f7391e 2004-05-15 devnull .de cP \" macro for continuation (distribution list) page
1339 13f7391e 2004-05-15 devnull . \" called from CS
1340 13f7391e 2004-05-15 devnull . \" if any distribution overflow will fit before next trap, set v=2
1341 13f7391e 2004-05-15 devnull .ie \\nv<=\\n(.t .nr v 1
1342 13f7391e 2004-05-15 devnull .el .nr v 0
1343 13f7391e 2004-05-15 devnull .if \\nv=1 .if \\nw<=\\n(.t .nr v 2
1344 13f7391e 2004-05-15 devnull . \" check whether continuation page needs to be ejected
1346 13f7391e 2004-05-15 devnull .if \\nc=1 \{\
1347 13f7391e 2004-05-15 devnull . \" - if no abstract overflow
1348 13f7391e 2004-05-15 devnull .if \\na=0 .eP
1349 13f7391e 2004-05-15 devnull .if \\na>0 \{\
1350 13f7391e 2004-05-15 devnull . \" - or if abstract overflow - but not enough room for list overflow
1351 13f7391e 2004-05-15 devnull .ie \\nv<2 .eP
1352 13f7391e 2004-05-15 devnull . \" just a thick line if abstract overflow AND enough room for list
1353 13f7391e 2004-05-15 devnull .el .tK \}
1354 13f7391e 2004-05-15 devnull .ie \\ne=0 \{\
1355 13f7391e 2004-05-15 devnull .if \\ng>4 .if \\ni>4 .dH "Complete Copy" "Cover Sheet Only"
1356 13f7391e 2004-05-15 devnull .if \\ng>4 .if !\\ni>4 .dH "Complete Copy" ""
1357 13f7391e 2004-05-15 devnull .if !\\ng>4 .if \\ni>4 .dH "" "Cover Sheet Only" \}
1358 13f7391e 2004-05-15 devnull .el .oH \\ng \\ni
1360 13f7391e 2004-05-15 devnull .nr q \\n(.t/\\nl
1361 13f7391e 2004-05-15 devnull '''\" put out complete copy list overflow
1362 13f7391e 2004-05-15 devnull .in 0.2i
1366 13f7391e 2004-05-15 devnull .if !\\n(g1=0 \{\
1368 13f7391e 2004-05-15 devnull .ti 1.25i
1369 13f7391e 2004-05-15 devnull (continued)
1370 13f7391e 2004-05-15 devnull .ft 1 \}
1372 13f7391e 2004-05-15 devnull .sp|\\nzu
1373 13f7391e 2004-05-15 devnull .in 4.0i
1374 13f7391e 2004-05-15 devnull '''\" put out cover sheet list overflow
1377 13f7391e 2004-05-15 devnull .if !\\n(i1=0 \{\
1379 13f7391e 2004-05-15 devnull .ti 5.00i
1380 13f7391e 2004-05-15 devnull (continued)
1381 13f7391e 2004-05-15 devnull .ft 1 \}
1383 13f7391e 2004-05-15 devnull .if ((\\n(g1>0):(\\n(i1>0)) .dP "\\n(g1" "\\n(i1" "cU" "\\n(g2" "dU" "\\n(i2"
1384 13f7391e 2004-05-15 devnull .if ((\\n(g2>0):(\\n(i2>0)) .dP "\\n(g2" "\\n(i2" "cV" "\\n(g3" "dV" "\\n(i3"
1385 13f7391e 2004-05-15 devnull .if ((\\n(g3>0):(\\n(i3>0)) .dP "\\n(g3" "\\n(i3" "cW" "\\n(g4" "dW" "\\n(i4"
1386 13f7391e 2004-05-15 devnull .if ((\\n(g4>0):(\\n(i4>0)) .dP "\\n(g4" "\\n(i4" "cX" "\\n(g5" "dX" "\\n(i5"
1387 13f7391e 2004-05-15 devnull .if ((\\n(g5>0):(\\n(i5>0)) \{\
1389 13f7391e 2004-05-15 devnull .oH \\n(g5 \\n(i5
1391 13f7391e 2004-05-15 devnull .in 0.2i
1396 13f7391e 2004-05-15 devnull .sp|\\nzu
1397 13f7391e 2004-05-15 devnull .in 4.0i
1400 13f7391e 2004-05-15 devnull .mk y \}
1402 13f7391e 2004-05-15 devnull .if \\nx-\\ny .sp|\\nxu
1405 13f7391e 2004-05-15 devnull .de dP \" macro to handle one continuation page
1407 13f7391e 2004-05-15 devnull .oH \\$1 \\$2
1409 13f7391e 2004-05-15 devnull .in 0.2i
1412 13f7391e 2004-05-15 devnull .rm \\$3
1413 13f7391e 2004-05-15 devnull .if !\\$4=0 \{\
1415 13f7391e 2004-05-15 devnull .ti 1.25i
1416 13f7391e 2004-05-15 devnull (continued)
1417 13f7391e 2004-05-15 devnull .ft 1 \}
1419 13f7391e 2004-05-15 devnull .sp|\\nzu
1420 13f7391e 2004-05-15 devnull .in 4.0i
1422 13f7391e 2004-05-15 devnull .rm \\$5
1423 13f7391e 2004-05-15 devnull .if !\\$6=0 \{\
1425 13f7391e 2004-05-15 devnull .ti 5.00i
1426 13f7391e 2004-05-15 devnull (continued)
1427 13f7391e 2004-05-15 devnull .ft 1 \}
1430 13f7391e 2004-05-15 devnull .de tP \" macro to compute total pages and diversion lengths
1431 13f7391e 2004-05-15 devnull '''\" calculate vert. units needed to handle cc overflow (if any)
1432 13f7391e 2004-05-15 devnull '''\" called from CS macro
1433 13f7391e 2004-05-15 devnull .ie \\ng>4 .nr v (\\ng)*\\nl
1434 13f7391e 2004-05-15 devnull .el .nr v 0
1435 13f7391e 2004-05-15 devnull '''\" also for cs overflow (if any)
1436 13f7391e 2004-05-15 devnull .ie \\ni>4 .nr w (\\ni)*\\nl
1437 13f7391e 2004-05-15 devnull .el .nr w 0
1438 13f7391e 2004-05-15 devnull .ie \\nv>\\nw .nr j \\nv
1439 13f7391e 2004-05-15 devnull .el .nr j \\nw
1440 13f7391e 2004-05-15 devnull . \" set c=1 if either g or i >0
1441 13f7391e 2004-05-15 devnull .if \\ng>4 .nr c 1
1442 13f7391e 2004-05-15 devnull .if \\ni>4 .nr c 1
1443 13f7391e 2004-05-15 devnull . \" calculate total pages in job (default 2)
1444 13f7391e 2004-05-15 devnull .nr tp 2
1445 13f7391e 2004-05-15 devnull . \" a1 - page 1 portion abstract (units)
1446 13f7391e 2004-05-15 devnull .nr a1 \\nyu-\\nxu-1v
1447 13f7391e 2004-05-15 devnull .ie \\n(la>\\n(a1 \{\
1448 13f7391e 2004-05-15 devnull . \" ar - remainder abstract (units)
1449 13f7391e 2004-05-15 devnull .nr ar \\n(la-\\n(a1
1450 13f7391e 2004-05-15 devnull .nr tp \\n(tp+1
1451 13f7391e 2004-05-15 devnull . \" a2 - available continuation page space
1452 13f7391e 2004-05-15 devnull . \" m1 is mark after thick line following title/date
1453 13f7391e 2004-05-15 devnull . \" 2v are lines for Abstract (continued) and one blank line
1454 13f7391e 2004-05-15 devnull .if t .nr a2 11.0i-\\n(m1-3v
1455 13f7391e 2004-05-15 devnull .if n .nr a2 \\n(lpv-\\n(m1-3v
1457 13f7391e 2004-05-15 devnull .el .if \\nc>0 .nr tp \\n(tp+1
1458 13f7391e 2004-05-15 devnull .if ((\\n(g1>4):(\\n(i1>4)) .nr tp \\n(tp+1
1459 13f7391e 2004-05-15 devnull .if ((\\n(g2>4):(\\n(i2>4)) .nr tp \\n(tp+1
1460 13f7391e 2004-05-15 devnull .if ((\\n(g3>4):(\\n(i3>4)) .nr tp \\n(tp+1
1461 13f7391e 2004-05-15 devnull .if ((\\n(g4>4):(\\n(i4>4)) .nr tp \\n(tp+1
1462 13f7391e 2004-05-15 devnull .if ((\\n(g5>4):(\\n(i5>4)) .nr tp \\n(tp+1
1465 13f7391e 2004-05-15 devnull .ie \\n(ar>\\n(a2 \{\
1466 13f7391e 2004-05-15 devnull .nr ar \\n(ar-\\n(a2
1467 13f7391e 2004-05-15 devnull .nr tp \\n(tp+1
1469 13f7391e 2004-05-15 devnull .el .if \\n(ar+\\nj>\\n(a2 .nr tp \\n(tp+1
1472 13f7391e 2004-05-15 devnull '''\" main macro to handle output of cover sheet
1475 13f7391e 2004-05-15 devnull .if \\nu=0 \{\
1476 13f7391e 2004-05-15 devnull .tm ERROR: author must be supplied
1478 13f7391e 2004-05-15 devnull .if \\no=0 \{\
1479 13f7391e 2004-05-15 devnull .tm ERROR: document title must be supplied
1481 13f7391e 2004-05-15 devnull .if \\nm=0 \{\
1482 13f7391e 2004-05-15 devnull .tm ERROR: memorandum type undefined or unknown
1484 13f7391e 2004-05-15 devnull .if ((\\nm=1)&(\\np=1)) .if \\nb=0 \{\
1485 13f7391e 2004-05-15 devnull .tm ERROR: must have at least one mercury classification with technical memorandum
1487 13f7391e 2004-05-15 devnull .if \\nn=0 \{\
1488 13f7391e 2004-05-15 devnull .tm ERROR: document number must be supplied
1490 13f7391e 2004-05-15 devnull .if \\n(la=0 .if \\nm<3 \{\
1491 13f7391e 2004-05-15 devnull .tm ERROR: abstract must be supplied for technical and internal memoranda
1493 13f7391e 2004-05-15 devnull .if \\nb>3 \{\
1494 13f7391e 2004-05-15 devnull .tm ERROR: no more than 3 mercury classifications may be selected
1496 13f7391e 2004-05-15 devnull .if \\n(fc=0 \{\
1497 13f7391e 2004-05-15 devnull .if \\n(en<3 \{\
1498 13f7391e 2004-05-15 devnull .tm ERROR: filing case must be supplied
1500 13f7391e 2004-05-15 devnull .if \\n(en=3 \{\
1501 13f7391e 2004-05-15 devnull .tm ERROR: full date must be supplied
1502 13f7391e 2004-05-15 devnull .ab \}\}
1503 13f7391e 2004-05-15 devnull .if \\n(wp=0 \{\
1504 13f7391e 2004-05-15 devnull .tm ERROR: work project number must be supplied
1507 13f7391e 2004-05-15 devnull .ll 7.5i
1509 13f7391e 2004-05-15 devnull .if \\n(nl .bp
1512 13f7391e 2004-05-15 devnull '''\" put out 1 blank line where timestamp used to be
1514 13f7391e 2004-05-15 devnull .if t .sp 0.05i
1518 13f7391e 2004-05-15 devnull . \" put out page 1 heading
1519 13f7391e 2004-05-15 devnull '''\" if Lucent logo not defined, put out Lucent string
1520 13f7391e 2004-05-15 devnull '''\" also put out memorandum type
1521 13f7391e 2004-05-15 devnull .ie ((\\n(dv=5)) \{\
1522 13f7391e 2004-05-15 devnull .ie '\f(AT'' .nr lg 0
1523 13f7391e 2004-05-15 devnull .el .nr lg 1 \}
1524 13f7391e 2004-05-15 devnull .el \{\
1525 13f7391e 2004-05-15 devnull .ie '\*(lG'' .nr lg 0
1526 13f7391e 2004-05-15 devnull .el .nr lg 1 \}
1527 13f7391e 2004-05-15 devnull .ie ((\\n(lg=0)) \{\
1528 13f7391e 2004-05-15 devnull .ta 7.5iR
1529 13f7391e 2004-05-15 devnull \\*(e2 Document Cover Sheet
1530 13f7391e 2004-05-15 devnull .wh 0 hD
1531 13f7391e 2004-05-15 devnull .if t .sp 0.1i
1532 13f7391e 2004-05-15 devnull \\*(t(\}
1533 13f7391e 2004-05-15 devnull .el \{\
1534 13f7391e 2004-05-15 devnull .ta 7.5iR
1535 13f7391e 2004-05-15 devnull Document Cover Sheet
1536 13f7391e 2004-05-15 devnull .wh 0 hD
1537 13f7391e 2004-05-15 devnull .if t .sp 0.1i
1538 13f7391e 2004-05-15 devnull .if \\n(dv=5 \{\
1540 13f7391e 2004-05-15 devnull .nr v \n(.f
1541 13f7391e 2004-05-15 devnull .ft P \}
1542 13f7391e 2004-05-15 devnull .ta 0.25i 7.5iR
1543 13f7391e 2004-05-15 devnull \\*(lG \\*(t(\}
1547 13f7391e 2004-05-15 devnull .if t .sp 0.05i
1549 13f7391e 2004-05-15 devnull .ie \\nu>1 .ds u) s
1550 13f7391e 2004-05-15 devnull .el .ds u)
1551 13f7391e 2004-05-15 devnull .if !\\n(en=3 \{\
1552 13f7391e 2004-05-15 devnull .ta 0.5i 2.75i 4.0i 4.7i
1553 13f7391e 2004-05-15 devnull Author\\*(u) Location Ext. Company (if other than \\*(e1)
1555 13f7391e 2004-05-15 devnull .if \\n(en=3 \{\
1556 13f7391e 2004-05-15 devnull .ta 0.5i 2.75i 4.0i 5.0i
1557 13f7391e 2004-05-15 devnull Author\\*(u) Location Ext. Company (if other than
1558 13f7391e 2004-05-15 devnull .if t \\*(e3)
1559 13f7391e 2004-05-15 devnull .if n \\*(e3)
1562 13f7391e 2004-05-15 devnull '''\" output author info
1564 13f7391e 2004-05-15 devnull .if !'\\*(r('0' \{\
1565 13f7391e 2004-05-15 devnull .ta 0.3i 2.6i
1566 13f7391e 2004-05-15 devnull \\*(r( (Responsible \\*(e1 Person)\}
1567 13f7391e 2004-05-15 devnull .rm aV AU
1569 13f7391e 2004-05-15 devnull .if t .sp 0.05i
1571 13f7391e 2004-05-15 devnull .ie \\nn>1 .ds v) s
1572 13f7391e 2004-05-15 devnull .el .ds v)
1573 13f7391e 2004-05-15 devnull .ie \\n(fc>1 .ds w) s
1574 13f7391e 2004-05-15 devnull .el .ds w)
1575 13f7391e 2004-05-15 devnull .ie \\n(wp>1 .ds x) s
1576 13f7391e 2004-05-15 devnull .el .ds x)
1577 13f7391e 2004-05-15 devnull .ta 1.0i 3.3i 5.55i
1578 13f7391e 2004-05-15 devnull .if \\n(en=1 \{\
1579 13f7391e 2004-05-15 devnull Document No\\*(v). Filing Case No\\*(w). Project No\\*(x).
1581 13f7391e 2004-05-15 devnull .if \\n(en=2 \{\
1582 13f7391e 2004-05-15 devnull Document No\\*(v). Filing Case No\\*(w). Project No\\*(x).
1584 13f7391e 2004-05-15 devnull .if \\n(en=3 \{\
1585 13f7391e 2004-05-15 devnull .if t .ta 1.0i 3.4i 4.7i
1586 13f7391e 2004-05-15 devnull .if n .ta 1.0i 3.4i 4.5i
1587 13f7391e 2004-05-15 devnull Document No\\*(v). Full Date Time Charge (or Project Code) No\\*(x).
1589 13f7391e 2004-05-15 devnull .if \\n(en=4 \{\
1590 13f7391e 2004-05-15 devnull .if t .ta 1.0i 3.4i 5.2i
1591 13f7391e 2004-05-15 devnull .if n .ta 1.0i 3.4i 5.0i
1592 13f7391e 2004-05-15 devnull Document No\\*(v). Filing Case No\\*(w). Time Charge (or Case) No\\*(x).
1595 13f7391e 2004-05-15 devnull .if t .sp 0.05i
1597 13f7391e 2004-05-15 devnull '''\" output document number
1599 13f7391e 2004-05-15 devnull .rm dN dM
1601 13f7391e 2004-05-15 devnull .sp|\\ntu
1602 13f7391e 2004-05-15 devnull '''\" output filing case info (or full date)
1604 13f7391e 2004-05-15 devnull .rm fB fC
1606 13f7391e 2004-05-15 devnull .sp|\\ntu
1607 13f7391e 2004-05-15 devnull '''\" output work project number info
1609 13f7391e 2004-05-15 devnull .rm wO wP
1611 13f7391e 2004-05-15 devnull .if \\ny>\\nx .nr x \\ny
1612 13f7391e 2004-05-15 devnull .if \\nz>\\nx .nr x \\nz
1613 13f7391e 2004-05-15 devnull .sp|\\nxu
1615 13f7391e 2004-05-15 devnull '''\" output keywords if they exist
1616 13f7391e 2004-05-15 devnull .if \\nk>0 \{\
1618 13f7391e 2004-05-15 devnull Keywords:
1620 13f7391e 2004-05-15 devnull .if t .sp 0.05i
1621 13f7391e 2004-05-15 devnull .in 0.2i
1627 13f7391e 2004-05-15 devnull '''\" output mercury info if it exists
1628 13f7391e 2004-05-15 devnull .if \\nb>0 \{\
1630 13f7391e 2004-05-15 devnull MERCURY Announcement Bulletin Sections
1632 13f7391e 2004-05-15 devnull .if t \{\
1633 13f7391e 2004-05-15 devnull .sp 0.05i
1634 13f7391e 2004-05-15 devnull .ta 0.6i 3.1i 5.6i
1638 13f7391e 2004-05-15 devnull .if n \{\
1639 13f7391e 2004-05-15 devnull .ta 0.5i 4.1i
1640 13f7391e 2004-05-15 devnull .if \\nb>2 \\*(b)
1646 13f7391e 2004-05-15 devnull Abstract
1649 13f7391e 2004-05-15 devnull .if t \{\
1650 13f7391e 2004-05-15 devnull .nr b1 \\nx/\\n(.v+1
1651 13f7391e 2004-05-15 devnull .nr b2 (\\n(b1*\\n(.v)-\\nx
1652 13f7391e 2004-05-15 devnull .sp \\n(b2u
1653 13f7391e 2004-05-15 devnull .mk x \}
1654 13f7391e 2004-05-15 devnull '''\" calculate position (19v includes 2v to print version at bottom of page)
1655 13f7391e 2004-05-15 devnull '''\" followed by timestamp and 1v line
1656 13f7391e 2004-05-15 devnull .nr y \\n(lpv-19v-\\n(fnu
1657 13f7391e 2004-05-15 devnull .sp|\\nyu
1660 13f7391e 2004-05-15 devnull '''\" handle abstract page 1 continuation
1661 13f7391e 2004-05-15 devnull .ie \\n(la>\\n(a1 \{\
1664 13f7391e 2004-05-15 devnull (continued on page iii)
1667 13f7391e 2004-05-15 devnull .el .sp1
1670 13f7391e 2004-05-15 devnull .if t .vs 10p
1671 13f7391e 2004-05-15 devnull .nr z 0
1672 13f7391e 2004-05-15 devnull .if '\\$1'' .nr z 1
1673 13f7391e 2004-05-15 devnull .if !'\\$2'' .nr z 1
1674 13f7391e 2004-05-15 devnull .if !'\\$3'' .nr z 1
1675 13f7391e 2004-05-15 devnull .if !'\\$4'' .nr z 1
1676 13f7391e 2004-05-15 devnull .if !'\\$5'' .nr z 1
1677 13f7391e 2004-05-15 devnull .if !'\\$6'' .nr z 1
1678 13f7391e 2004-05-15 devnull .if \\nz=1 \{\
1679 13f7391e 2004-05-15 devnull .tm WARNING: provide total document page count in first argument of .CS macro; all other arguments ignored; do NOT include coversheet pages in this count. \}
1680 13f7391e 2004-05-15 devnull .nr z 0
1681 13f7391e 2004-05-15 devnull .if !'\\$1'' .nr z \\nz+\\$1
1682 13f7391e 2004-05-15 devnull .nr z \\nz+\\n(tp
1683 13f7391e 2004-05-15 devnull .tm Total Pages = \\nz
1684 13f7391e 2004-05-15 devnull .ie '\*(.T'X97.tim10p'\{\
1685 13f7391e 2004-05-15 devnull Total Pages (including document cover sheet): \\s+2\\nz\\s-2
1686 13f7391e 2004-05-15 devnull .if !\\*(e('0' \{\
1687 13f7391e 2004-05-15 devnull Supersedes or amends document number \\*(e(. \}
1688 13f7391e 2004-05-15 devnull .el .sp1 \}
1689 13f7391e 2004-05-15 devnull .el \{\
1690 13f7391e 2004-05-15 devnull \f3Total Pages\f1 (including document cover sheet): \\s+2\\nz\\s-2
1691 13f7391e 2004-05-15 devnull .if !'\\*(e('0' \{\
1692 13f7391e 2004-05-15 devnull \f3Supersedes\f1 or amends document number \\*(e(. \}
1693 13f7391e 2004-05-15 devnull .el .sp1 \}
1695 13f7391e 2004-05-15 devnull .if t .vs
1696 13f7391e 2004-05-15 devnull .if \\n(fn>0 \{\
1703 13f7391e 2004-05-15 devnull .if t .sp 0.67i
1704 13f7391e 2004-05-15 devnull .if n .sp 4
1705 13f7391e 2004-05-15 devnull '''\" output proprietary notice if it exists
1706 13f7391e 2004-05-15 devnull .if \\np=1 \{\
1707 13f7391e 2004-05-15 devnull .ds o) LUCENT \- PROPRIETARY
1708 13f7391e 2004-05-15 devnull .ds p) "Use pursuant to Company Instructions
1712 13f7391e 2004-05-15 devnull .if n .ti 14
1713 13f7391e 2004-05-15 devnull .if t .ti 1.65i
1716 13f7391e 2004-05-15 devnull .if n .ti 5
1717 13f7391e 2004-05-15 devnull .if t .ti 1.25i
1718 13f7391e 2004-05-15 devnull \\*(p) \}
1719 13f7391e 2004-05-15 devnull .if \\np=2 \{\
1720 13f7391e 2004-05-15 devnull .ds o) LUCENT \- PROPRIETARY (RESTRICTED)
1721 13f7391e 2004-05-15 devnull .ds p) "Solely for authorized persons having a need to know
1722 13f7391e 2004-05-15 devnull .ds q) "pursuant to Company Instructions
1724 13f7391e 2004-05-15 devnull .if n .ti 10
1725 13f7391e 2004-05-15 devnull .if t .ti 1.25i
1728 13f7391e 2004-05-15 devnull .if n .ti 0
1729 13f7391e 2004-05-15 devnull .if t .ti 0.875i
1731 13f7391e 2004-05-15 devnull .if n .ti 10
1732 13f7391e 2004-05-15 devnull .if t .ti 1.375i
1733 13f7391e 2004-05-15 devnull \\*(q) \}
1734 13f7391e 2004-05-15 devnull '''\" output csmacros version
1735 13f7391e 2004-05-15 devnull .sp |\\nzu+11v
1736 13f7391e 2004-05-15 devnull .ta 7.5iR
1737 13f7391e 2004-05-15 devnull \\s8\\*(ve\\s0
1738 13f7391e 2004-05-15 devnull '''\" put out timestamp (if non-empty) and company identifier
1739 13f7391e 2004-05-15 devnull .ie !'\\*(s)'0' \{\
1740 13f7391e 2004-05-15 devnull \\s8\\*(s)\\s0 \\*(e3 \}
1741 13f7391e 2004-05-15 devnull .el " \\*(e3
1742 13f7391e 2004-05-15 devnull .sp|\\nzu
1745 13f7391e 2004-05-15 devnull .ti 5.25i
1748 13f7391e 2004-05-15 devnull .sp|\\nxu
1749 13f7391e 2004-05-15 devnull .in 0.2i
1751 13f7391e 2004-05-15 devnull '''\" abstract
1752 13f7391e 2004-05-15 devnull .if \\n(la>\\n(a1 \{\
1753 13f7391e 2004-05-15 devnull .if n .wh -1 yY
1754 13f7391e 2004-05-15 devnull .if t .wh -0.25i yY \}
1755 13f7391e 2004-05-15 devnull .pl \\nyu
1756 13f7391e 2004-05-15 devnull .ta 0.5i 1.0i 1.5i 2.0i 2.5i
1757 13f7391e 2004-05-15 devnull '''\" output the abstract
1760 13f7391e 2004-05-15 devnull .if !\\n(la>\\n(a1 .sp-1
1761 13f7391e 2004-05-15 devnull .rn aT xX
1762 13f7391e 2004-05-15 devnull .if t .wh -0.25i fO
1763 13f7391e 2004-05-15 devnull .if n .wh -1 fO
1764 13f7391e 2004-05-15 devnull '''\" output continuation pages
1769 13f7391e 2004-05-15 devnull .wh 0 hD
1772 13f7391e 2004-05-15 devnull .ta 7.5iR
1773 13f7391e 2004-05-15 devnull .nr tc \\n(tp
1774 13f7391e 2004-05-15 devnull Initial Distribution Specifications \\*(n)\f2 (page ii of \\n(tc)\f3
1777 13f7391e 2004-05-15 devnull .if \\ne>0 \{\
1778 13f7391e 2004-05-15 devnull .dH " Complete Copy" " Cover Sheet Only"
1780 13f7391e 2004-05-15 devnull '''\" put out complete copy list
1781 13f7391e 2004-05-15 devnull .in 0.2i
1785 13f7391e 2004-05-15 devnull .if !\\ng=0 \{\
1787 13f7391e 2004-05-15 devnull .ti 1.25i
1788 13f7391e 2004-05-15 devnull (continued)
1789 13f7391e 2004-05-15 devnull .ft 1 \}
1790 13f7391e 2004-05-15 devnull .sp|\\nzu
1791 13f7391e 2004-05-15 devnull .in 4.0i
1792 13f7391e 2004-05-15 devnull '''\" put out cover sheet list
1795 13f7391e 2004-05-15 devnull .if !\\ni=0 \{\
1797 13f7391e 2004-05-15 devnull .ti 5.00i
1798 13f7391e 2004-05-15 devnull (continued)
1799 13f7391e 2004-05-15 devnull .ft 1 \}
1801 13f7391e 2004-05-15 devnull '''\" starter space value - then tailor according to basic distribution length
1803 13f7391e 2004-05-15 devnull .sp \\ne
1805 13f7391e 2004-05-15 devnull '''\" put out security section if selected
1806 13f7391e 2004-05-15 devnull .if \\nr=1 \{\
1807 13f7391e 2004-05-15 devnull \f3Government Security Classified\f1
1809 13f7391e 2004-05-15 devnull .if t .sp -0.05i
1811 13f7391e 2004-05-15 devnull \f3Future Lucent Distribution by ITDS\f1
1812 13f7391e 2004-05-15 devnull .if \\n(ra>0 \{\
1813 13f7391e 2004-05-15 devnull .ti 0.5i
1814 13f7391e 2004-05-15 devnull .if t .sp 0.05i
1815 13f7391e 2004-05-15 devnull .ie \\n(ra=2 \{\
1816 13f7391e 2004-05-15 devnull .if t \f3DO NOT RELEASE\f1 to any Lucent employee without appropriate approval for each request.
1817 13f7391e 2004-05-15 devnull .if n \{\
1818 13f7391e 2004-05-15 devnull \f3DO NOT RELEASE\f1 to any Lucent employee without appropriate approval
1820 13f7391e 2004-05-15 devnull .ti 1.0i
1821 13f7391e 2004-05-15 devnull for each request.\}\}
1822 13f7391e 2004-05-15 devnull .el \{\
1823 13f7391e 2004-05-15 devnull \f3RELEASE\f1 to any Lucent employee (excluding contract employees).
1824 13f7391e 2004-05-15 devnull .br \}\}
1825 13f7391e 2004-05-15 devnull '''\" next 41 lines for yes/no boxes; remove when .fA macro becomes mandatory
1826 13f7391e 2004-05-15 devnull .if \\n(ra=0 \{\
1827 13f7391e 2004-05-15 devnull .if t \{\
1829 13f7391e 2004-05-15 devnull .ti 0.1i
1831 13f7391e 2004-05-15 devnull .sp|\\nzu
1832 13f7391e 2004-05-15 devnull .ti 0.25i
1833 13f7391e 2004-05-15 devnull Yes, \f3RELEASE\f1 to any Lucent employee (excluding
1834 13f7391e 2004-05-15 devnull .sp|\\nzu
1835 13f7391e 2004-05-15 devnull .ti 4.1i
1837 13f7391e 2004-05-15 devnull .sp|\\nzu
1838 13f7391e 2004-05-15 devnull .ti 4.25i
1839 13f7391e 2004-05-15 devnull No, \f3DO NOT RELEASE\f1 to any Lucent employee
1841 13f7391e 2004-05-15 devnull .ti 0.35i
1842 13f7391e 2004-05-15 devnull contract employees).
1843 13f7391e 2004-05-15 devnull .sp|\\nzu
1844 13f7391e 2004-05-15 devnull .ti 4.35i
1845 13f7391e 2004-05-15 devnull without obtaining appropriate approval.\}
1846 13f7391e 2004-05-15 devnull .if n \{\
1848 13f7391e 2004-05-15 devnull .ti 0.1i
1850 13f7391e 2004-05-15 devnull .sp|\\nzu
1851 13f7391e 2004-05-15 devnull .ti 0.4i
1852 13f7391e 2004-05-15 devnull Yes, \f3RELEASE\f1 to any Lucent employee
1853 13f7391e 2004-05-15 devnull .sp|\\nzu
1854 13f7391e 2004-05-15 devnull .ti 4.1i
1856 13f7391e 2004-05-15 devnull .sp|\\nzu
1857 13f7391e 2004-05-15 devnull .ti 4.4i
1858 13f7391e 2004-05-15 devnull No, \f3DO NOT RELEASE\f1 to any Lucent
1860 13f7391e 2004-05-15 devnull .ti 0.5i
1861 13f7391e 2004-05-15 devnull (except contract employees).
1862 13f7391e 2004-05-15 devnull .ti 4.5i
1863 13f7391e 2004-05-15 devnull .sp|\\nzu
1864 13f7391e 2004-05-15 devnull employee without obtaining
1865 13f7391e 2004-05-15 devnull .ti 4.5i
1866 13f7391e 2004-05-15 devnull appropriate approval.\}\}
1867 13f7391e 2004-05-15 devnull .if t .sp -0.05i
1870 13f7391e 2004-05-15 devnull Author Signature\\*(u)
1873 13f7391e 2004-05-15 devnull .ta 2.625i 5.25i
1874 13f7391e 2004-05-15 devnull \l'2.25i' \l'2.25i' \l'2.25i'
1875 13f7391e 2004-05-15 devnull .ta 0.25i 2.875i 5.5i
1877 13f7391e 2004-05-15 devnull .if \\nu>3 \{\
1879 13f7391e 2004-05-15 devnull .ta 2.635i 5.25i
1880 13f7391e 2004-05-15 devnull \l'2.25i' \l'2.25i' \l'2.25i'
1881 13f7391e 2004-05-15 devnull .ta 0.25i 2.875i 5.5i
1882 13f7391e 2004-05-15 devnull \\*(n( \}
1883 13f7391e 2004-05-15 devnull .if \\nu>6 \{\
1885 13f7391e 2004-05-15 devnull .ta 2.635i 5.25i
1886 13f7391e 2004-05-15 devnull \l'2.25i' \l'2.25i' \l'2.25i'
1887 13f7391e 2004-05-15 devnull .ta 0.25i 2.875i 5.5i
1888 13f7391e 2004-05-15 devnull \\*(o( \}
1889 13f7391e 2004-05-15 devnull .if \\nu>9 \{\
1891 13f7391e 2004-05-15 devnull .ta 2.635i 5.25i
1892 13f7391e 2004-05-15 devnull \l'2.25i' \l'2.25i' \l'2.25i'
1893 13f7391e 2004-05-15 devnull .ta 0.25i 2.875i 5.5i
1894 13f7391e 2004-05-15 devnull \\*(p( \}
1895 13f7391e 2004-05-15 devnull .if t .sp -0.1i
1897 13f7391e 2004-05-15 devnull '''\" output organizational approval section
1898 13f7391e 2004-05-15 devnull .ie \\np>1 \{\
1899 13f7391e 2004-05-15 devnull .if t \{\
1900 13f7391e 2004-05-15 devnull \f3Organizational Approval\f1 (\\*(e4 approval \f3required\f1 for \f2\\*(o)\f1.) \}
1901 13f7391e 2004-05-15 devnull .if n \{\
1902 13f7391e 2004-05-15 devnull \f3Organizational Approval\f1
1903 13f7391e 2004-05-15 devnull .ti 0.5i
1904 13f7391e 2004-05-15 devnull \\*(e4 approval \f3required\f1 for \f2\\*(o)\f1. \}
1906 13f7391e 2004-05-15 devnull .el \{\
1907 13f7391e 2004-05-15 devnull \f3Organizational Approval\f1 (Optional) \}
1909 13f7391e 2004-05-15 devnull .ta 2.625i 5.25i
1910 13f7391e 2004-05-15 devnull \l'2.25i' \l'2.25i' \l'2.25i'
1911 13f7391e 2004-05-15 devnull .ta 0.25i 2.875i 5.5i
1913 13f7391e 2004-05-15 devnull .if ((\\n(oa>3):((\\nn>3)&(\\n(oa=0))) \{\
1915 13f7391e 2004-05-15 devnull .ta 2.625i 5.25i
1916 13f7391e 2004-05-15 devnull \l'2.25i' \l'2.25i' \l'2.25i'
1917 13f7391e 2004-05-15 devnull .ta 0.25i 2.875i 5.5i
1918 13f7391e 2004-05-15 devnull \\*(v( \}
1919 13f7391e 2004-05-15 devnull .if ((\\n(oa>6):((\\nn>6)&(\\n(oa=0))) \{\
1921 13f7391e 2004-05-15 devnull .ta 2.625i 5.25i
1922 13f7391e 2004-05-15 devnull \l'2.25i' \l'2.25i' \l'2.25i'
1923 13f7391e 2004-05-15 devnull .ta 0.25i 2.875i 5.5i
1924 13f7391e 2004-05-15 devnull \\*(w( \}
1925 13f7391e 2004-05-15 devnull .if ((\\n(oa>9):((\\nn>9)&(\\n(oa=0))) \{\
1927 13f7391e 2004-05-15 devnull .ta 2.625i 5.25i
1928 13f7391e 2004-05-15 devnull \l'2.25i' \l'2.25i' \l'2.25i'
1929 13f7391e 2004-05-15 devnull .ta 0.25i 2.875i 5.5i
1930 13f7391e 2004-05-15 devnull \\*(x( \}
1931 13f7391e 2004-05-15 devnull .if t .sp -0.1i
1933 13f7391e 2004-05-15 devnull '''\" recipient section always output
1935 13f7391e 2004-05-15 devnull For Use by Recipient of Cover Sheet:
1937 13f7391e 2004-05-15 devnull .if t \{\
1942 13f7391e 2004-05-15 devnull Computing network users may order copies via the \f2library -1\f1 command;
1943 13f7391e 2004-05-15 devnull for information, type \f2man library\f1 after the UNIX\(rg system prompt.
1945 13f7391e 2004-05-15 devnull .rn fo xx
1946 13f7391e 2004-05-15 devnull Otherwise:
1947 13f7391e 2004-05-15 devnull Enter PAN if Lucent-BL (or SS# if non-Lucent-BL). \l'1.5i'
1948 13f7391e 2004-05-15 devnull Return this sheet to any ITDS location.
1949 13f7391e 2004-05-15 devnull .sp|\\nzu
1950 13f7391e 2004-05-15 devnull .in 4.0i
1951 13f7391e 2004-05-15 devnull Internal Technical Document Service
1953 13f7391e 2004-05-15 devnull .ta 0.9i 1.8i 2.7i
1954 13f7391e 2004-05-15 devnull ( ) AK 2H-28 ( ) IH 7M-103 ( ) DR 2F-19 ( ) NW-ITDS
1955 13f7391e 2004-05-15 devnull ( ) ALC 1B-102 ( ) MV 3L-19 ( ) INH 1C-114 ( ) PR 5-2120
1956 13f7391e 2004-05-15 devnull ( ) CB 1L-220 ( ) WH 3E-204 ( ) IW 2Z-156
1957 13f7391e 2004-05-15 devnull ( ) HO 4F-112 ( ) MT 2C-131
1959 13f7391e 2004-05-15 devnull .if n \{\
1960 13f7391e 2004-05-15 devnull Computing network users may order copies via the \f2library -1\f1 command;
1961 13f7391e 2004-05-15 devnull for information, type \f2man library\f1 after the UNIX system prompt.
1962 13f7391e 2004-05-15 devnull Otherwise:
1965 13f7391e 2004-05-15 devnull .rn fo xx
1966 13f7391e 2004-05-15 devnull 1 Enter PAN if Lucent-BL (or SS# if
1967 13f7391e 2004-05-15 devnull non-Lucent-BL).
1968 13f7391e 2004-05-15 devnull \l'2.0i'
1969 13f7391e 2004-05-15 devnull 2 Return this sheet to any
1970 13f7391e 2004-05-15 devnull ITDS location.
1971 13f7391e 2004-05-15 devnull .sp|\\nzu
1972 13f7391e 2004-05-15 devnull .in 4.0i
1973 13f7391e 2004-05-15 devnull Internal Technical Document Service
1975 13f7391e 2004-05-15 devnull .ta 1.75i
1976 13f7391e 2004-05-15 devnull .if \\n(en=1 \{\
1977 13f7391e 2004-05-15 devnull ( ) AK 2H-28 ( ) IH 7M-103
1978 13f7391e 2004-05-15 devnull ( ) ALC 1B-102 ( ) MV 3L-19
1979 13f7391e 2004-05-15 devnull ( ) CB 1L-220 ( ) WH 3E-204
1980 13f7391e 2004-05-15 devnull ( ) HO 4F-112 \}
1981 13f7391e 2004-05-15 devnull .if \\n(en=2 \{\
1982 13f7391e 2004-05-15 devnull ( ) DR 2F-19
1983 13f7391e 2004-05-15 devnull ( ) INH 1C-114
1984 13f7391e 2004-05-15 devnull ( ) IW 2Z-156
1985 13f7391e 2004-05-15 devnull ( ) MT 2C-131 \}
1986 13f7391e 2004-05-15 devnull .if \\n(en=3 \{\
1987 13f7391e 2004-05-15 devnull ( ) NW-ITDS \}
1988 13f7391e 2004-05-15 devnull .if \\n(en=4 \{\
1989 13f7391e 2004-05-15 devnull ( ) PR5-2120 \}
1991 13f7391e 2004-05-15 devnull .if \\n(aa \{\
1992 13f7391e 2004-05-15 devnull . sy pwd >/tmp/sx\\n($$
1993 13f7391e 2004-05-15 devnull . sy sed "s/^/cd /" /tmp/sx\\n($$ >/tmp/sc\\n($$
1994 13f7391e 2004-05-15 devnull . sy echo "/usr/lib/tmac/sendcover" \\n(.F \\n(qq >>/tmp/sc\\n($$
1995 13f7391e 2004-05-15 devnull . sy echo "rm" /tmp/sx\\n($$ /tmp/sc\\n($$>>/tmp/sc\\n($$
1996 13f7391e 2004-05-15 devnull . sy sh /tmp/sc\\n($$&
1997 13f7391e 2004-05-15 devnull . br \}
1998 13f7391e 2004-05-15 devnull .rr a b c e g h i j k
1999 13f7391e 2004-05-15 devnull .rr l m n o p q r s t
2000 13f7391e 2004-05-15 devnull .rr u v w x y z
2001 13f7391e 2004-05-15 devnull .rr an fn as ds fs bd dv lp
2002 13f7391e 2004-05-15 devnull .rr tp np la a1 a2 ar fi
2003 13f7391e 2004-05-15 devnull .rr in si ps ts vs tv b1 b2 m1
2004 13f7391e 2004-05-15 devnull .rr :b :c :d :e ls dt fc wp
2005 13f7391e 2004-05-15 devnull .rr g1 g2 g3 g4 g5 i1 i2 i3 i4 i5
2006 13f7391e 2004-05-15 devnull .rm a) b) c) e) k) n) o) p) q)
2007 13f7391e 2004-05-15 devnull .rm r) s) t) u) v) w) x) y) z)
2008 13f7391e 2004-05-15 devnull .rm a( b( m( n( o( p( s( t(
2009 13f7391e 2004-05-15 devnull .rm tc nc Tm 10 ve
2010 13f7391e 2004-05-15 devnull .rm hD fO aT tK bE bX tH cH
2011 13f7391e 2004-05-15 devnull .rm dH eP cP tP t1 CS tI tS cE
2012 13f7391e 2004-05-15 devnull .rm cZ dZ eE fF gG oH dP
2014 13f7391e 2004-05-15 devnull '''\" end of csmacros
