1 13f7391e 2004-05-15 devnull '''\" coversheet to match version 8/06/87
2 13f7391e 2004-05-15 devnull '''\" from comp center 1.30 7/20/87
3 13f7391e 2004-05-15 devnull '''\" 1/22/97 spacing change in addresses;
4 13f7391e 2004-05-15 devnull '''\" email on separate line - mdm
5 13f7391e 2004-05-15 devnull '''\" registers
6 13f7391e 2004-05-15 devnull '''\" a - abstract continuation flag - 0 (no), >0 (yes)
7 13f7391e 2004-05-15 devnull '''\" b - mercury selections counter
8 13f7391e 2004-05-15 devnull '''\" c - distribution continuation flag - 0 (no), 1 (yes)
9 13f7391e 2004-05-15 devnull '''\" d - flag for length calculation
10 13f7391e 2004-05-15 devnull '''\" e - complete copy basic distribution length
11 13f7391e 2004-05-15 devnull '''\" g - complete copy overflow distribution length
12 13f7391e 2004-05-15 devnull '''\" h - cover sheet basic distribution length
13 13f7391e 2004-05-15 devnull '''\" i - cover sheet overflow distribution length
14 13f7391e 2004-05-15 devnull '''\" k - keyword flag - 0 (none), 1 (some) - reused as scratch
15 13f7391e 2004-05-15 devnull '''\" l - number of vertical units per line - troff
16 13f7391e 2004-05-15 devnull '''\" m - memorandum type flag - 1 TM, 2 IM, 3 TC
17 13f7391e 2004-05-15 devnull '''\" n - document number counter
18 13f7391e 2004-05-15 devnull '''\" o - title flag - 0 (no), 1 (yes - vertical size of title diversion)
19 13f7391e 2004-05-15 devnull '''\" p - proprietary notice flag - 0 (none), 1 (default), 2(BR)
20 13f7391e 2004-05-15 devnull '''\" r - security flag - 0 (no), 1 (yes)
21 13f7391e 2004-05-15 devnull '''\" s - software flag - 0 (no), 1 (yes)
22 13f7391e 2004-05-15 devnull '''\" t - mark title position
23 13f7391e 2004-05-15 devnull '''\" u - author count
24 13f7391e 2004-05-15 devnull '''\" q v w x y z- scratch - but remembered
25 13f7391e 2004-05-15 devnull '''\" aa - ship to itds
26 13f7391e 2004-05-15 devnull '''\" strings
27 13f7391e 2004-05-15 devnull '''\" a) b)- mercury info
28 13f7391e 2004-05-15 devnull '''\" d) - date
29 13f7391e 2004-05-15 devnull '''\" k) - keywords
30 13f7391e 2004-05-15 devnull '''\" N1 - first document number
31 13f7391e 2004-05-15 devnull '''\" p) q) r)- proprietary 1
32 13f7391e 2004-05-15 devnull '''\" s) - time stamp string
33 13f7391e 2004-05-15 devnull '''\" t) - memo type (TM, IM, TC)
34 13f7391e 2004-05-15 devnull '''\" v) - document nos
35 13f7391e 2004-05-15 devnull '''\" w) - filing case nos
36 13f7391e 2004-05-15 devnull '''\" x) - work project nos
37 13f7391e 2004-05-15 devnull '''\" e( - earlier document
38 13f7391e 2004-05-15 devnull '''\" m( n( o( p(- authors 1-3 sig
39 13f7391e 2004-05-15 devnull '''\" r( - responsible person
40 13f7391e 2004-05-15 devnull '''\" s( - S software string
41 13f7391e 2004-05-15 devnull '''\" t( - memo type ("for Technical Memorandum", etc.)
42 13f7391e 2004-05-15 devnull '''\" x( - Mailing Label or DRAFT
43 13f7391e 2004-05-15 devnull '''\" N2 N3- 2nd 3rd document number
44 13f7391e 2004-05-15 devnull '''\" Fi - up to 3 filing cases
45 13f7391e 2004-05-15 devnull '''\" Xi - up to 3 work program numbers
46 13f7391e 2004-05-15 devnull '''\" diversions
47 13f7391e 2004-05-15 devnull '''\" WB - abstract
48 13f7391e 2004-05-15 devnull '''\" ZI - author info section
49 13f7391e 2004-05-15 devnull '''\" ZC - complete copy addressee primary
50 13f7391e 2004-05-15 devnull '''\" ZO - complete copy addressee overflow
51 13f7391e 2004-05-15 devnull '''\" ZS - cover sheet addressee primary
52 13f7391e 2004-05-15 devnull '''\" ZD - cover sheet addressee overflow
53 13f7391e 2004-05-15 devnull '''\" ZN - document number info
54 13f7391e 2004-05-15 devnull '''\" WT - title
56 13f7391e 2004-05-15 devnull '''\" initialization
58 13f7391e 2004-05-15 devnull '''\" get ms if not loaded
59 13f7391e 2004-05-15 devnull .if !\n(PS .so /usr/lib/tmac/tmac.s
60 13f7391e 2004-05-15 devnull . \" to foil ms
61 13f7391e 2004-05-15 devnull .if !'\*(d)'' \{\
62 13f7391e 2004-05-15 devnull . tm You're trying to load the coversheet macros twice - havoc will result
63 13f7391e 2004-05-15 devnull . tm I'm quitting to keep you from wasting paper
65 13f7391e 2004-05-15 devnull .rn FE F6
68 13f7391e 2004-05-15 devnull .ch NP 16i
69 13f7391e 2004-05-15 devnull .ch FO 16i
70 13f7391e 2004-05-15 devnull .ch FX 16i
71 13f7391e 2004-05-15 devnull .ch BT 16i
72 13f7391e 2004-05-15 devnull .nr FM .01i
75 13f7391e 2004-05-15 devnull .nr PI 5n
76 13f7391e 2004-05-15 devnull .if !\n(PD .nr PD 0.3v
87 13f7391e 2004-05-15 devnull .ie !'\\*(TF'' .FP \\*(TF
88 13f7391e 2004-05-15 devnull .el .FP times
95 13f7391e 2004-05-15 devnull .nr F4 +\\n(FP
97 13f7391e 2004-05-15 devnull .nr a 0 1
98 13f7391e 2004-05-15 devnull .nr b 0 1
107 13f7391e 2004-05-15 devnull .nr n 0 1
114 13f7391e 2004-05-15 devnull .nr u 0 1
120 13f7391e 2004-05-15 devnull .nr dv 0
121 13f7391e 2004-05-15 devnull .if '\*(.T'aps' .nr dv 1
122 13f7391e 2004-05-15 devnull '''\" initialize units per vertical space
123 13f7391e 2004-05-15 devnull .nr l 120
124 13f7391e 2004-05-15 devnull .nr lp 66
125 13f7391e 2004-05-15 devnull .nr np 2 1
126 13f7391e 2004-05-15 devnull .af np i
127 13f7391e 2004-05-15 devnull .nr tp 2 1
128 13f7391e 2004-05-15 devnull .nr tc 2
129 13f7391e 2004-05-15 devnull .af tc i
130 13f7391e 2004-05-15 devnull .nr la 0
131 13f7391e 2004-05-15 devnull .nr a1 0
132 13f7391e 2004-05-15 devnull .nr a2 0
133 13f7391e 2004-05-15 devnull .nr ar 0
134 13f7391e 2004-05-15 devnull .nr u! 1
135 13f7391e 2004-05-15 devnull .nr ud 1
136 13f7391e 2004-05-15 devnull .nr ra 1
149 13f7391e 2004-05-15 devnull '''\"initialize date string - keep for 1st pg of tm
150 13f7391e 2004-05-15 devnull .if \n(mo-0 .ds d) January
151 13f7391e 2004-05-15 devnull .if \n(mo-1 .ds d) February
152 13f7391e 2004-05-15 devnull .if \n(mo-2 .ds d) March
153 13f7391e 2004-05-15 devnull .if \n(mo-3 .ds d) April
154 13f7391e 2004-05-15 devnull .if \n(mo-4 .ds d) May
155 13f7391e 2004-05-15 devnull .if \n(mo-5 .ds d) June
156 13f7391e 2004-05-15 devnull .if \n(mo-6 .ds d) July
157 13f7391e 2004-05-15 devnull .if \n(mo-7 .ds d) August
158 13f7391e 2004-05-15 devnull .if \n(mo-8 .ds d) September
159 13f7391e 2004-05-15 devnull .if \n(mo-9 .ds d) October
160 13f7391e 2004-05-15 devnull .if \n(mo-10 .ds d) November
161 13f7391e 2004-05-15 devnull .if \n(mo-11 .ds d) December
162 13f7391e 2004-05-15 devnull .as d) " \n(dy, 20\n(yr
163 13f7391e 2004-05-15 devnull .ds DY \*(d)
164 13f7391e 2004-05-15 devnull ''' \" initialize strings
174 13f7391e 2004-05-15 devnull ''' \" initialize proprietary notice
175 13f7391e 2004-05-15 devnull .ds o) "Lucent Technologies \(em PROPRIETARY
176 13f7391e 2004-05-15 devnull .ds p) "Use pursuant to Company Instructions
179 13f7391e 2004-05-15 devnull ''' \" initialize trademark symbol
180 13f7391e 2004-05-15 devnull .ds MT \v'-0.5m'\s-4TM\s+4\v'0.5m'
181 13f7391e 2004-05-15 devnull .ds s) 0
182 13f7391e 2004-05-15 devnull ''' \"initialize csmacro version string
183 13f7391e 2004-05-15 devnull .ds ve MCSL (07/12/90)
184 13f7391e 2004-05-15 devnull ....in 0
186 13f7391e 2004-05-15 devnull ''' \" macros to collect information
188 13f7391e 2004-05-15 devnull .de DT \" macro for date
189 13f7391e 2004-05-15 devnull '''\" store date if non-empty
190 13f7391e 2004-05-15 devnull .if !'\\$1'' .ds d) \\$1 \\$2 \\$3 \\$4
191 13f7391e 2004-05-15 devnull .ds DY \\$1 \\$2 \\$3 \\$4
193 13f7391e 2004-05-15 devnull .de TI \" macro for title -TI = mm(TL)
195 13f7391e 2004-05-15 devnull .nr aa 0
196 13f7391e 2004-05-15 devnull .nr TV 1
197 13f7391e 2004-05-15 devnull .ds x( "Mailing Label \}
200 13f7391e 2004-05-15 devnull .ll 4.25i
201 13f7391e 2004-05-15 devnull '''\" diversion for title ZT = mm(tI)
204 13f7391e 2004-05-15 devnull .de AH \" macro for author info AH = mm(AU)
205 13f7391e 2004-05-15 devnull '''\" name loc dept ext room mail_addr company
206 13f7391e 2004-05-15 devnull '''\" don't count author unless non-empty
209 13f7391e 2004-05-15 devnull .if !'\\$1'' .nr u \\n+u
210 13f7391e 2004-05-15 devnull .nr AV \\nu
211 13f7391e 2004-05-15 devnull .if \\nu=1 \{\
213 13f7391e 2004-05-15 devnull '''\" end title diversion on first author
215 13f7391e 2004-05-15 devnull . nr o \\n(dn
218 13f7391e 2004-05-15 devnull . ds d! \\$3
219 13f7391e 2004-05-15 devnull . nr m2 \\$3/10 \}
220 13f7391e 2004-05-15 devnull .ta 0.3i 3.i 4i 5.5i
222 13f7391e 2004-05-15 devnull .ds D\\nu \\$2 \\$3
223 13f7391e 2004-05-15 devnull .ds \\nuL \\$5, x\\$4
224 13f7391e 2004-05-15 devnull '''\" append to author list ZI = mm(aV)
226 13f7391e 2004-05-15 devnull \\$1 \\$2 \\$5 \\$4 \\$7
229 13f7391e 2004-05-15 devnull .if !'\\$6'' \{\
234 13f7391e 2004-05-15 devnull '''\" end append; info for signature lines
235 13f7391e 2004-05-15 devnull .AA \\nu "\\$1" \\$3 \\$2 "\\$4" \\$5 \\$6
236 13f7391e 2004-05-15 devnull .ta 0.5i 1.0i 1.5i 2.0i 2.5i
240 13f7391e 2004-05-15 devnull .di M\\$1
243 13f7391e 2004-05-15 devnull .di A\\$1
245 13f7391e 2004-05-15 devnull .if !'\\$3'' Org. \\$3
246 13f7391e 2004-05-15 devnull .if !'\\$4'' \\$4 \\$6
247 13f7391e 2004-05-15 devnull .if !'\\$5'' \\$5
248 13f7391e 2004-05-15 devnull .if !'\\$7'' \\$7
249 13f7391e 2004-05-15 devnull .sp .05i
253 13f7391e 2004-05-15 devnull .sy echo \\$2 >/tmp/tt\\n($$
254 13f7391e 2004-05-15 devnull .sy sed -f /usr/lib/tmac/name.sed /tmp/tt\\n($$ >/tmp/tx\\n($$
255 13f7391e 2004-05-15 devnull .so /tmp/tx\\n($$
256 13f7391e 2004-05-15 devnull .sy rm /tmp/tx\\n($$ /tmp/tt\\n($$
257 13f7391e 2004-05-15 devnull .if \\$1<2 .ds T1 \\*(T1-gre
259 13f7391e 2004-05-15 devnull \\$4-\\$3-\\*(T1
262 13f7391e 2004-05-15 devnull .if !'\\*(d!'\\$3' \{\
263 13f7391e 2004-05-15 devnull . nr u! \\n(u!+1
264 13f7391e 2004-05-15 devnull . nr m3 \\$3/10
265 13f7391e 2004-05-15 devnull . if !\\n(m2=\\n(m3 .nr ud \\n(ud+1 \}
266 13f7391e 2004-05-15 devnull .ie \\$1<4 \{\
267 13f7391e 2004-05-15 devnull . as m! \\l'2.25i'
268 13f7391e 2004-05-15 devnull . as m( \\$2 \}
269 13f7391e 2004-05-15 devnull .el .ie \\$1<7 \{\
270 13f7391e 2004-05-15 devnull . as n! \\l'2.25i'
271 13f7391e 2004-05-15 devnull . as n( \\$2 \}
273 13f7391e 2004-05-15 devnull . as o! \\l'2.25i'
274 13f7391e 2004-05-15 devnull . as o( \\$2 \}
276 13f7391e 2004-05-15 devnull .de TO \"begin list of im to people
277 13f7391e 2004-05-15 devnull .nr TO 1
280 13f7391e 2004-05-15 devnull .de ET \"end list of im to people & output pg
284 13f7391e 2004-05-15 devnull .de AP \" at&t responsible person AP = mm(rP)
287 13f7391e 2004-05-15 devnull .if !'\\$1'' .ds r( \\$1
290 13f7391e 2004-05-15 devnull .de SA \" macro for abstract info SA = mm(AS)
292 13f7391e 2004-05-15 devnull .ie \\n(.$ \{\
293 13f7391e 2004-05-15 devnull .ds a( \\$1
294 13f7391e 2004-05-15 devnull .if '\\$1'no' .ds a(\}
295 13f7391e 2004-05-15 devnull .el .ds a( ABSTRACT
296 13f7391e 2004-05-15 devnull .nr CS 0
299 13f7391e 2004-05-15 devnull .nr LL 7.0i
302 13f7391e 2004-05-15 devnull .di WB \" WB = mm(aS)
304 13f7391e 2004-05-15 devnull .de SE \" macro for end of abstract info SE = mm(AE)
307 13f7391e 2004-05-15 devnull .nr la \\n(dn
308 13f7391e 2004-05-15 devnull .nr CS 1
314 13f7391e 2004-05-15 devnull .de KW \" macro for keyword info KW = mm(OK)
316 13f7391e 2004-05-15 devnull .if !'\\$1'' .as k) \\$1
317 13f7391e 2004-05-15 devnull .if !'\\$2'' .as k); \\$2
318 13f7391e 2004-05-15 devnull .if !'\\$3'' .as k); \\$3
319 13f7391e 2004-05-15 devnull .if !'\\$4'' .as k); \\$4
320 13f7391e 2004-05-15 devnull .if !'\\$5'' .as k); \\$5
321 13f7391e 2004-05-15 devnull .if !'\\$6'' .as k); \\$6
322 13f7391e 2004-05-15 devnull .if !'\\$7'' .as k); \\$7
323 13f7391e 2004-05-15 devnull .if !'\\$8'' .as k); \\$8
324 13f7391e 2004-05-15 devnull .if !'\\$9'' .as k); \\$9
325 13f7391e 2004-05-15 devnull '''\" set k flag if we have some keywords
326 13f7391e 2004-05-15 devnull .ie !'\\*(k)'' .nr k 1
327 13f7391e 2004-05-15 devnull .el .nr k 0
329 13f7391e 2004-05-15 devnull .de TY \" macro for document type TY = mm(MT)
330 13f7391e 2004-05-15 devnull .if '\\$1'TM' \{\
331 13f7391e 2004-05-15 devnull . nr m 1
332 13f7391e 2004-05-15 devnull . ds t) TM
333 13f7391e 2004-05-15 devnull . ds QF TECHNICAL MEMORANDUM
334 13f7391e 2004-05-15 devnull . ds t( "for Technical Memorandum \}
335 13f7391e 2004-05-15 devnull .if '\\$1'IM' \{\
336 13f7391e 2004-05-15 devnull . nr m 2
337 13f7391e 2004-05-15 devnull . ds t) IM
338 13f7391e 2004-05-15 devnull . ds QF INTERNAL MEMORANDUM
339 13f7391e 2004-05-15 devnull . ds t( "for Internal Memorandum \}
340 13f7391e 2004-05-15 devnull .if '\\$1'TC' \{\
341 13f7391e 2004-05-15 devnull . nr m 3
342 13f7391e 2004-05-15 devnull . ds t) TC
343 13f7391e 2004-05-15 devnull . ds QF TECHNICAL CORRESPONDENCE
344 13f7391e 2004-05-15 devnull . ds t( "for Technical Correspondence \}
345 13f7391e 2004-05-15 devnull .ie '\\$2'y' .nr s 1
346 13f7391e 2004-05-15 devnull .el .nr s 0
348 13f7391e 2004-05-15 devnull .de NU \" macro for document number info NU = mm(dN fC wP)
349 13f7391e 2004-05-15 devnull .ie \\ns=1 .ds s( S
350 13f7391e 2004-05-15 devnull .el .ds s(
351 13f7391e 2004-05-15 devnull .ie \\n(wp=0 \{\
352 13f7391e 2004-05-15 devnull . ie '\\$5'' .ds CX 000000-0000
353 13f7391e 2004-05-15 devnull . el .ds CX \\$5
354 13f7391e 2004-05-15 devnull . ds X1 \\*(CX
355 13f7391e 2004-05-15 devnull . nr wp \\n(wp+1 \}
357 13f7391e 2004-05-15 devnull . ds CX \\$5
358 13f7391e 2004-05-15 devnull . if !'\\$5'' \{\
359 13f7391e 2004-05-15 devnull . if \\n(wp=1 .ds X2 \\*(CX
360 13f7391e 2004-05-15 devnull . if \\n(wp=2 .ds X3 \\*(CX
361 13f7391e 2004-05-15 devnull . if \\n(wp=3 .ds X4 \\*(CX
362 13f7391e 2004-05-15 devnull . if \\n(wp=4 .ds X5 \\*(CX
363 13f7391e 2004-05-15 devnull . nr wp \\n(wp+1
364 13f7391e 2004-05-15 devnull . ds x) s\}\}
365 13f7391e 2004-05-15 devnull .if !'\\$4'' \{\
366 13f7391e 2004-05-15 devnull . ie !\\n(fc=0 \{\
367 13f7391e 2004-05-15 devnull . if \\n(fc=1 .ds F2 \\$4
368 13f7391e 2004-05-15 devnull . if \\n(fc=2 .ds F3 \\$4
369 13f7391e 2004-05-15 devnull . if \\n(fc=3 .ds F4 \\$4
370 13f7391e 2004-05-15 devnull . if \\n(fc=4 .ds F5 \\$4
371 13f7391e 2004-05-15 devnull . ds w) s
372 13f7391e 2004-05-15 devnull . nr fc \\n(fc+1 \}
373 13f7391e 2004-05-15 devnull . el \{\
374 13f7391e 2004-05-15 devnull . ds F1 \\$4
375 13f7391e 2004-05-15 devnull . nr fc \\n(fc+1 \} \}
376 13f7391e 2004-05-15 devnull .ie !'\\$1'' \{\
377 13f7391e 2004-05-15 devnull . ds NN \\$1-\\$2-\\$3\\*(t)\\*(s(
378 13f7391e 2004-05-15 devnull . if \\nn=0 .ds N1 \\*(NN
379 13f7391e 2004-05-15 devnull . if \\nn=1 \{\
380 13f7391e 2004-05-15 devnull . ds v) s
381 13f7391e 2004-05-15 devnull . ds N2 \\*(NN\}
382 13f7391e 2004-05-15 devnull . if \\nn=2 .ds N3 \\*(NN
383 13f7391e 2004-05-15 devnull . if \\nn=3 .ds N4 \\*(NN
384 13f7391e 2004-05-15 devnull . if \\nn=4 .ds N5 \\*(NN
385 13f7391e 2004-05-15 devnull . ie \\nn<4 .as x! \\l'2.25i'
386 13f7391e 2004-05-15 devnull . el ie \\nn<7 .as y! \\l'2.25i'
387 13f7391e 2004-05-15 devnull . el .as z! \\l'2.25i'
388 13f7391e 2004-05-15 devnull . nr n \\n+n \}
389 13f7391e 2004-05-15 devnull .if !'\\$6'' \{\
390 13f7391e 2004-05-15 devnull . ie !\\n(a!=0 \{\
391 13f7391e 2004-05-15 devnull . if \\n(a!=1 .as Z1 " \\$6
392 13f7391e 2004-05-15 devnull . if \\n(a!=2 .as Z1 \\$6
393 13f7391e 2004-05-15 devnull . nr a! \\n(a!+1 \}
394 13f7391e 2004-05-15 devnull . el \{\
395 13f7391e 2004-05-15 devnull . ds Z1 " \\$6
396 13f7391e 2004-05-15 devnull . nr a! \\n(a!+1 \} \}
397 13f7391e 2004-05-15 devnull .el .ds NN
398 13f7391e 2004-05-15 devnull .ta 0.8i 3.5i 5.55i
400 13f7391e 2004-05-15 devnull .da ZN \" ZN = mm(dM fC wO)
401 13f7391e 2004-05-15 devnull \\*(NN \\$4 \\*(CX
404 13f7391e 2004-05-15 devnull .ta 0.5i 1.0i 1.5i
406 13f7391e 2004-05-15 devnull .de MY \" macro for mercury selections MY = mm(mE)
409 13f7391e 2004-05-15 devnull .if '\\$1'y' \{\
410 13f7391e 2004-05-15 devnull . as a) " CHM - Chemistry and Materials
411 13f7391e 2004-05-15 devnull . nr b \\n+b \}
412 13f7391e 2004-05-15 devnull .if '\\$2'y' \{\
413 13f7391e 2004-05-15 devnull . as a) " CMM - Communications
414 13f7391e 2004-05-15 devnull . nr b \\n+b \}
415 13f7391e 2004-05-15 devnull .if '\\$3'y' \{\
416 13f7391e 2004-05-15 devnull . as a) " CMP - Computing
417 13f7391e 2004-05-15 devnull . nr b \\n+b
418 13f7391e 2004-05-15 devnull . if \\nb=3 .rn a) b) \}
419 13f7391e 2004-05-15 devnull .if '\\$4'y' \{\
420 13f7391e 2004-05-15 devnull . as a) " ELC - Electronics
421 13f7391e 2004-05-15 devnull . nr b \\n+b
422 13f7391e 2004-05-15 devnull . if \\nb=3 .rn a) b) \}
423 13f7391e 2004-05-15 devnull .if '\\$5'y' \{\
424 13f7391e 2004-05-15 devnull . as a) " LFS - Life Sciences
425 13f7391e 2004-05-15 devnull . nr b \\n+b
426 13f7391e 2004-05-15 devnull . if \\nb=3 .rn a) b) \}
427 13f7391e 2004-05-15 devnull .if '\\$6'y' \{\
428 13f7391e 2004-05-15 devnull . as a) " MAS - Mathematics and Statistics
429 13f7391e 2004-05-15 devnull . nr b \\n+b
430 13f7391e 2004-05-15 devnull . if \\nb=3 .rn a) b) \}
431 13f7391e 2004-05-15 devnull . if \\nb<6 \{\
432 13f7391e 2004-05-15 devnull . if '\\$7'y' \{\
433 13f7391e 2004-05-15 devnull . as a) " PHY - Physics
434 13f7391e 2004-05-15 devnull . nr b \\n+b
435 13f7391e 2004-05-15 devnull . if \\nb=3 .rn a) b) \} \}
436 13f7391e 2004-05-15 devnull . if \\nb<6 \{\
437 13f7391e 2004-05-15 devnull . if '\\$8'y' \{\
438 13f7391e 2004-05-15 devnull . as a) " MAN - Manufacturing
439 13f7391e 2004-05-15 devnull . nr b \\n+b \} \}
440 13f7391e 2004-05-15 devnull .if \\nb=3 .rn b) a)
442 13f7391e 2004-05-15 devnull .de RL \" lucent distribution ok RL = mm(rA or fA)
443 13f7391e 2004-05-15 devnull .if '\\$1'n' .nr ra 2
446 13f7391e 2004-05-15 devnull .de ED \" earlier document number ED = mm(eD)
447 13f7391e 2004-05-15 devnull .if !'\\$1'' .ds e( \\$1
450 13f7391e 2004-05-15 devnull .de PR \" macro for proprietary marking PR = mm(PM)
451 13f7391e 2004-05-15 devnull .if '\\$1'BP' .nr p 1
452 13f7391e 2004-05-15 devnull .if '\\$1'BR' \{\
453 13f7391e 2004-05-15 devnull . nr p 2
454 13f7391e 2004-05-15 devnull . ds o) "Lucent Technologies \(em PROPRIETARY (RESTRICTED)
455 13f7391e 2004-05-15 devnull . ds p) "Solely for authorized persons having a need to know
456 13f7391e 2004-05-15 devnull . ds q) " pursuant to Company Instructions \}
457 13f7391e 2004-05-15 devnull .if '\\$1'0' .nr p 0
459 13f7391e 2004-05-15 devnull .de GS \" GS = mm(gS)
465 13f7391e 2004-05-15 devnull '''\" basic distribution leng-to be tailored-set e & h
466 13f7391e 2004-05-15 devnull .if \\nd=0 \{\
467 13f7391e 2004-05-15 devnull . nr d 1
468 13f7391e 2004-05-15 devnull . if \\nr=0 .nr e \\ne+2
469 13f7391e 2004-05-15 devnull . if \\nu<=3 .nr e \\ne+3
470 13f7391e 2004-05-15 devnull . if \\nu<=6 .nr e \\ne+3
471 13f7391e 2004-05-15 devnull . if \\nu<=9 .nr e \\ne+3
472 13f7391e 2004-05-15 devnull . if \\nn<=3 .nr e \\ne+2
473 13f7391e 2004-05-15 devnull . if \\nn<=6 .nr e \\ne+2
474 13f7391e 2004-05-15 devnull . if \\nn<=9 .nr e \\ne+2
475 13f7391e 2004-05-15 devnull . if \\n(ra<=2 .nr e \\ne-3
476 13f7391e 2004-05-15 devnull . nr e \\ne+27
477 13f7391e 2004-05-15 devnull . nr h \\ne \}
479 13f7391e 2004-05-15 devnull .de CO \" macro for complete copy addressees CO = mm(cC)
481 13f7391e 2004-05-15 devnull .ta 2.0i
484 13f7391e 2004-05-15 devnull .ie \\ne>0 \{\
485 13f7391e 2004-05-15 devnull . da ZC \" ZC = mm(cA)
486 13f7391e 2004-05-15 devnull . ds y( \\$1
487 13f7391e 2004-05-15 devnull . ie '\\$1'y' .so /usr/lib/tmac/complet.1127
488 13f7391e 2004-05-15 devnull . el .if !'\\$1'' .so /usr/lib/tmac/complet.\\*(y(
489 13f7391e 2004-05-15 devnull . dt \\ne OC \}
490 13f7391e 2004-05-15 devnull .el .da ZC
492 13f7391e 2004-05-15 devnull .de OC \" macro for complete copy overflow - OC = mm(cD)
493 13f7391e 2004-05-15 devnull .ta 2.0i
496 13f7391e 2004-05-15 devnull .da ZO \" ZO = mm(cO)
497 13f7391e 2004-05-15 devnull .ie \\n(ar>0 .dt \\n(arv ZW
498 13f7391e 2004-05-15 devnull .el .dt 55 ZW
503 13f7391e 2004-05-15 devnull .ie \\n(dn>0 .g (\\n(dn)/\\nl+4
506 13f7391e 2004-05-15 devnull .de CV \" macro for cover sheet only addresses CV = mm(cS)
508 13f7391e 2004-05-15 devnull .ta 2.0i
511 13f7391e 2004-05-15 devnull .ie \\nh>0 \{\
512 13f7391e 2004-05-15 devnull . da ZS \" ZS = mm(dA)
513 13f7391e 2004-05-15 devnull . ds y( \\$1
514 13f7391e 2004-05-15 devnull . ie '\\$1'y' .so /usr/lib/tmac/cover.1127
515 13f7391e 2004-05-15 devnull . el .if !'\\$1'' .so /usr/lib/tmac/cover.\\*(y(
516 13f7391e 2004-05-15 devnull . dt \\nh OV \}
517 13f7391e 2004-05-15 devnull .el .da ZD
519 13f7391e 2004-05-15 devnull .de OV \" macro for cover sheet only overflow OV = mm(cT)
520 13f7391e 2004-05-15 devnull .ta 2.0i
523 13f7391e 2004-05-15 devnull .da ZD \" ZD = mm(cO)
524 13f7391e 2004-05-15 devnull .ie \\n(ar>0 .dt \\n(arv WW
525 13f7391e 2004-05-15 devnull .el .dt 55 WW
530 13f7391e 2004-05-15 devnull .if \\n(dn>0 .nr i (\\n(dn)/\\nl+4 \" was ie with no el
533 13f7391e 2004-05-15 devnull .de CE \" ending all distribution diversions CE = mm(cE)
535 13f7391e 2004-05-15 devnull .if "\\n(.z"ZC" \{\
536 13f7391e 2004-05-15 devnull . nr g 0
537 13f7391e 2004-05-15 devnull . rm OC \}
538 13f7391e 2004-05-15 devnull .if "\\n(.z"ZO" \{\
539 13f7391e 2004-05-15 devnull . nr g -1
540 13f7391e 2004-05-15 devnull . rm OC \}
541 13f7391e 2004-05-15 devnull .if "\\n(.z"CZ" \{\
542 13f7391e 2004-05-15 devnull . nr g -2
543 13f7391e 2004-05-15 devnull . rm OC \}
544 13f7391e 2004-05-15 devnull .if "\\n(.z"ZS" \{\
545 13f7391e 2004-05-15 devnull . nr i 0
546 13f7391e 2004-05-15 devnull . rm OV \}
547 13f7391e 2004-05-15 devnull .if "\\n(.z"ZD" \{\
548 13f7391e 2004-05-15 devnull . nr i -1
549 13f7391e 2004-05-15 devnull . rm OV \}
550 13f7391e 2004-05-15 devnull .if "\\n(.z"DZ" \{\
551 13f7391e 2004-05-15 devnull . nr i -2
552 13f7391e 2004-05-15 devnull . rm )V \}
554 13f7391e 2004-05-15 devnull .if \\ng=-1 \{\
555 13f7391e 2004-05-15 devnull . ie \\n(dn>0 .nr g (\\n(dn)/\\nl+4
556 13f7391e 2004-05-15 devnull . el .nr g 0 \}
557 13f7391e 2004-05-15 devnull .if \\ni=-1 \{\
558 13f7391e 2004-05-15 devnull . ie \\n(dn>0 .nr i (\\n(dn)/\\nl+4
559 13f7391e 2004-05-15 devnull . el .nr i 0 \}
562 13f7391e 2004-05-15 devnull '''\" macros to help format document
565 13f7391e 2004-05-15 devnull .po .5i \"was .25
566 13f7391e 2004-05-15 devnull .if "\\*(.T"aps" .tl '--''--'
567 13f7391e 2004-05-15 devnull .sp|0.2i
569 13f7391e 2004-05-15 devnull .de FC \" footer macro FC = mm(fO)
570 13f7391e 2004-05-15 devnull .pl 11.0i
573 13f7391e 2004-05-15 devnull .de ST \" macro for abstract overflow trap ST = mm(yY)
575 13f7391e 2004-05-15 devnull .rm ST \" ZB = mm(aT)
578 13f7391e 2004-05-15 devnull .ch ST 16i \" macro for abstract overflow trap ZB = mm(aT)
579 13f7391e 2004-05-15 devnull .if \\na>0 \{\
582 13f7391e 2004-05-15 devnull (continued)
583 13f7391e 2004-05-15 devnull . ft 1 \}
584 13f7391e 2004-05-15 devnull .pl 11.0i
585 13f7391e 2004-05-15 devnull .nr a \\n+a
586 13f7391e 2004-05-15 devnull .rn ZB XX
588 13f7391e 2004-05-15 devnull .rn XX ZB
589 13f7391e 2004-05-15 devnull .wh -0.35i ZB
590 13f7391e 2004-05-15 devnull .HC \" HC = mm(cH)
591 13f7391e 2004-05-15 devnull .HX \" HX = mm(tH)
592 13f7391e 2004-05-15 devnull 'sp 0.05i
595 13f7391e 2004-05-15 devnull Abstract (continued)
597 13f7391e 2004-05-15 devnull .in 0.2i
601 13f7391e 2004-05-15 devnull .de TK \" macro for thick lines TKK = mm(tK)
603 13f7391e 2004-05-15 devnull \l'7.5i'
606 13f7391e 2004-05-15 devnull .de HX \" macro for Title headings and text HX = mm(tH)
608 13f7391e 2004-05-15 devnull 'sp 0.05i
609 13f7391e 2004-05-15 devnull '''\" mark t - Title heading
614 13f7391e 2004-05-15 devnull 'sp|\\ntu
615 13f7391e 2004-05-15 devnull .in 0.7i
618 13f7391e 2004-05-15 devnull .ta 0.5i
619 13f7391e 2004-05-15 devnull .nr q \\no/\\nl
620 13f7391e 2004-05-15 devnull .ie \\nq>2 'sp|\\ntu+\\nq
621 13f7391e 2004-05-15 devnull .el 'sp|\\ntu+2
623 13f7391e 2004-05-15 devnull . \" m1 - mark end of title section - save
626 13f7391e 2004-05-15 devnull .de HC \" macro for continuation header HC = mm(cH)
627 13f7391e 2004-05-15 devnull .nr np \\n+(np
632 13f7391e 2004-05-15 devnull .ta 4.80i
633 13f7391e 2004-05-15 devnull .nr tc \\n(tp
634 13f7391e 2004-05-15 devnull \\*(N1\f2 (page \\n(np of \\n(tc)
635 13f7391e 2004-05-15 devnull .sp 0.1i
637 13f7391e 2004-05-15 devnull .de DL \" macro for distribution list headers DL = mm(dH)
639 13f7391e 2004-05-15 devnull .ta 1.0i 4.75i
640 13f7391e 2004-05-15 devnull \\$1 \\$2
641 13f7391e 2004-05-15 devnull .sp 0.05i
643 13f7391e 2004-05-15 devnull .ta 0.5i 1.0i
645 13f7391e 2004-05-15 devnull .de EJ \" macro for ejecting continuation page EJ = mm(eP)
647 13f7391e 2004-05-15 devnull .wh 0 HD
648 13f7391e 2004-05-15 devnull '''\" put out continuation page header & title section
652 13f7391e 2004-05-15 devnull .de CP \" macro for continuation page CP = mm(cP)
653 13f7391e 2004-05-15 devnull '''\" calc vert. units for cc overflow (if any)
654 13f7391e 2004-05-15 devnull .ie \\nv<=\\n(.t .nr v 1
655 13f7391e 2004-05-15 devnull .el .nr v 0
656 13f7391e 2004-05-15 devnull .if \\nv=1 .if \\nw<=\\n(.t .nr v 2
657 13f7391e 2004-05-15 devnull . \" check if cont page needs to be ejected
659 13f7391e 2004-05-15 devnull .if \\nc=1 \{\
660 13f7391e 2004-05-15 devnull . \" - if no abstract overflow
661 13f7391e 2004-05-15 devnull . if \\na=0 .EJ
662 13f7391e 2004-05-15 devnull . if \\na>0 \{\
663 13f7391e 2004-05-15 devnull . \"or if abstract over but no room for list overfl
664 13f7391e 2004-05-15 devnull . ie \\nv<2 .EJ
665 13f7391e 2004-05-15 devnull . \" just tk line if abstract over & room for list
666 13f7391e 2004-05-15 devnull . el .TK \}
668 13f7391e 2004-05-15 devnull . ie \\ne=0 \{\
669 13f7391e 2004-05-15 devnull . if \\ng>4 .if \\ni>4 .DL "Complete Copy" "Cover Sheet Only"
670 13f7391e 2004-05-15 devnull . if \\ng>4 .if !\\ni>4 .DL "Complete Copy" ""
671 13f7391e 2004-05-15 devnull . if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only" \}
672 13f7391e 2004-05-15 devnull . el \{\
673 13f7391e 2004-05-15 devnull . if \\ng>4 .if \\ni>4 .DL "Complete Copy (continued)" "Cover Sheet Only (continued)"1
674 13f7391e 2004-05-15 devnull . if \\ng>4 .if !\\ni>4 .DL "Complete Copy (continued)" ""
675 13f7391e 2004-05-15 devnull . if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only (continued)" \}
677 13f7391e 2004-05-15 devnull . nr q \\n(.t/\\nl
678 13f7391e 2004-05-15 devnull '''\" put out complete copy list overflow
679 13f7391e 2004-05-15 devnull . in 0.2i
683 13f7391e 2004-05-15 devnull . sp|\\nzu
685 13f7391e 2004-05-15 devnull '''\" put out cover sheet list overflow
689 13f7391e 2004-05-15 devnull . if \\nx-\\ny .sp|\\nxu
692 13f7391e 2004-05-15 devnull .de ZP \"compute total pages and diversion lengths
693 13f7391e 2004-05-15 devnull '''\" calculate vert. units for cc overflow (if any)
694 13f7391e 2004-05-15 devnull .ie \\ng>4 .nr v (\\ng)*\\nl
695 13f7391e 2004-05-15 devnull .el .nr v 0
696 13f7391e 2004-05-15 devnull '''\" also for cs overflow (if any)
697 13f7391e 2004-05-15 devnull .ie \\ni>4 .nr w (\\ni)*\\nl
698 13f7391e 2004-05-15 devnull .el .nr w 0
699 13f7391e 2004-05-15 devnull .ie \\nv>\\nw .nr j \\nv
700 13f7391e 2004-05-15 devnull .el .nr j \\nw
701 13f7391e 2004-05-15 devnull . \" set c=1 if either g or i >0
702 13f7391e 2004-05-15 devnull .if \\ng>4 .nr c 1
703 13f7391e 2004-05-15 devnull .if \\ni>4 .nr c 1
704 13f7391e 2004-05-15 devnull . \" calculate total pages in job (default 2)
705 13f7391e 2004-05-15 devnull . \" a1 - page 1 portion abstract (units)
706 13f7391e 2004-05-15 devnull .nr a1 \\nyu-\\nxu-1v
707 13f7391e 2004-05-15 devnull .ie \\n(la>\\n(a1 \{\
708 13f7391e 2004-05-15 devnull . \" ar - remainder abstract (units)
709 13f7391e 2004-05-15 devnull . nr ar \\n(la-\\n(a1
710 13f7391e 2004-05-15 devnull . nr tp \\n+(tp
711 13f7391e 2004-05-15 devnull . \" a2 - available continuation page space
712 13f7391e 2004-05-15 devnull . \" m1 is mark after tk line after title
713 13f7391e 2004-05-15 devnull . \" 2v for Abstract (continued) + one blank
714 13f7391e 2004-05-15 devnull . nr a2 11.0i-\\n(m1-2v
716 13f7391e 2004-05-15 devnull .el .if \\nc>0 .nr tp \\n+(tp
718 13f7391e 2004-05-15 devnull .de ZZ \" ZZ = mm(t1)
719 13f7391e 2004-05-15 devnull .ie \\n(ar>\\n(a2 \{\
720 13f7391e 2004-05-15 devnull . nr ar \\n(ar-\\n(a2
721 13f7391e 2004-05-15 devnull . nr tp \\n+(tp
723 13f7391e 2004-05-15 devnull .el .if \\n(ar+\\nj>\\n(a2 .nr tp \\n+(tp
726 13f7391e 2004-05-15 devnull '''\" main macro to handle output of cover sheet
727 13f7391e 2004-05-15 devnull '''\" mm(CS)
729 13f7391e 2004-05-15 devnull .nr CS 0
730 13f7391e 2004-05-15 devnull .nr ST 1
731 13f7391e 2004-05-15 devnull .if \\nu=0 \{\
732 13f7391e 2004-05-15 devnull . tm WARNING: author must be supplied \}
733 13f7391e 2004-05-15 devnull .if \\no=0 \{\
734 13f7391e 2004-05-15 devnull . tm WARNING: document title must be supplied \}
735 13f7391e 2004-05-15 devnull .if \\nm=0 \{\
736 13f7391e 2004-05-15 devnull . tm WARNING: memorandum type undefined or unknown \}
737 13f7391e 2004-05-15 devnull .if \\nm=1 .if \\nb=0 \{\
738 13f7391e 2004-05-15 devnull . tm WARNING: technical memoranda must have at least one mercury class \}
739 13f7391e 2004-05-15 devnull .if \\nn=0 \{\
740 13f7391e 2004-05-15 devnull . tm WARNING: document number must be supplied \}
742 13f7391e 2004-05-15 devnull .ll 7.5i
744 13f7391e 2004-05-15 devnull .if \\n(nl .bp
747 13f7391e 2004-05-15 devnull '''\" the rs is to restore spacing - ditches big space at top
750 13f7391e 2004-05-15 devnull .sp 0.05i
754 13f7391e 2004-05-15 devnull .ta 4.85i
755 13f7391e 2004-05-15 devnull . \" put out page 1 heading
756 13f7391e 2004-05-15 devnull Document Cover Sheet
757 13f7391e 2004-05-15 devnull .wh 0 HD
758 13f7391e 2004-05-15 devnull .sp 0.1i
759 13f7391e 2004-05-15 devnull .ta 0.15i 4.55i
760 13f7391e 2004-05-15 devnull \s36\(FA\s0 \\*(t(
764 13f7391e 2004-05-15 devnull .sp 0.05i
766 13f7391e 2004-05-15 devnull .ie \\nu>1 .ds u) s
767 13f7391e 2004-05-15 devnull .el .ds u)
768 13f7391e 2004-05-15 devnull .ta 0.5i 3.0i 3.95i 5.25i
769 13f7391e 2004-05-15 devnull Author\\*(u) (Computer Address) Location Phone Number Company (if other than BL)
771 13f7391e 2004-05-15 devnull '''\" output author info
773 13f7391e 2004-05-15 devnull .if !'\\*(r('' \{\
774 13f7391e 2004-05-15 devnull . ta 0.3i 2.6i
775 13f7391e 2004-05-15 devnull \\*(r( (Responsible BL Person) \}
777 13f7391e 2004-05-15 devnull .sp 0.05i
779 13f7391e 2004-05-15 devnull .ta 1.0i 3.3i 5.55i
780 13f7391e 2004-05-15 devnull Document No\\*(v). Filing Case No\\*(w). Project No\\*(x).
782 13f7391e 2004-05-15 devnull .sp 0.05i
783 13f7391e 2004-05-15 devnull '''\" output document number
786 13f7391e 2004-05-15 devnull '''\" output keywords if they exist
787 13f7391e 2004-05-15 devnull .if \\nk>0 \{\
789 13f7391e 2004-05-15 devnull Keywords:
791 13f7391e 2004-05-15 devnull . sp 0.05i
792 13f7391e 2004-05-15 devnull . ti 0.2i
795 13f7391e 2004-05-15 devnull '''\" output mercury info if it exists
796 13f7391e 2004-05-15 devnull .if \\nb>0 \{\
798 13f7391e 2004-05-15 devnull MERCURY Announcement Bulletin Sections
800 13f7391e 2004-05-15 devnull . sp 0.05i
801 13f7391e 2004-05-15 devnull . ta 0.6i 3.1i 5.6i
803 13f7391e 2004-05-15 devnull . if \\nb>3 \\*(b)
808 13f7391e 2004-05-15 devnull Abstract
811 13f7391e 2004-05-15 devnull .nr b1 \\nx/\\n(.v+1
812 13f7391e 2004-05-15 devnull .nr b2 (\\n(b1*\\n(.v)-\\nx
813 13f7391e 2004-05-15 devnull .sp \\n(b2u
815 13f7391e 2004-05-15 devnull '''\" calculate position (19v includes 2v to print version at bottom of page)
816 13f7391e 2004-05-15 devnull .nr y \\n(lpv-19v
817 13f7391e 2004-05-15 devnull .if \\n(F4>0 .nr y \\ny-\\n(F4
818 13f7391e 2004-05-15 devnull .sp|\\nyu
821 13f7391e 2004-05-15 devnull '''\" handle abstract page 1 continuation
822 13f7391e 2004-05-15 devnull .ie \\n(la>\\n(a1 \{\
825 13f7391e 2004-05-15 devnull (continued on page iii)
828 13f7391e 2004-05-15 devnull .el .sp1
829 13f7391e 2004-05-15 devnull .if \\n(F4>0 \{\
835 13f7391e 2004-05-15 devnull .nr qq \\$1+\\$2+\\n(tp
836 13f7391e 2004-05-15 devnull \f3Total Pages\f1 (including document cover sheet): \\s+2\\n(qq\\s-2
837 13f7391e 2004-05-15 devnull .ie !'\\*(e('' \{\
838 13f7391e 2004-05-15 devnull Supersedes or amends document number \\*(e(. \}
843 13f7391e 2004-05-15 devnull .sp .67i
844 13f7391e 2004-05-15 devnull '''\" output proprietary notice if it exists
845 13f7391e 2004-05-15 devnull .if \\np>0 \{\
847 13f7391e 2004-05-15 devnull .ti (4i-\\w'\\*(o)'u)/2u
850 13f7391e 2004-05-15 devnull .ti (4i-\\w'\\*(p)'u)/2u
852 13f7391e 2004-05-15 devnull .ti (4i-\\w'\\*(q)'u)/2u
853 13f7391e 2004-05-15 devnull \\*(q) \}
854 13f7391e 2004-05-15 devnull .sp |\\nzu+11v
855 13f7391e 2004-05-15 devnull .ta 5.35i
856 13f7391e 2004-05-15 devnull \\s8\\*(ve\\s0
857 13f7391e 2004-05-15 devnull .ie !'\\*(s)'' \{\
858 13f7391e 2004-05-15 devnull \s8Timestamp: \\*(s)\s0 BELL LABORATORIES \}
860 13f7391e 2004-05-15 devnull BELL LABORATORIES \}
861 13f7391e 2004-05-15 devnull .sp|\\nzu
864 13f7391e 2004-05-15 devnull .ti 5.25i
867 13f7391e 2004-05-15 devnull .sp|\\nxu
868 13f7391e 2004-05-15 devnull .in 0.2i
870 13f7391e 2004-05-15 devnull '''\" abstract
871 13f7391e 2004-05-15 devnull .if !\\n(la=\\n(a1 \{\
872 13f7391e 2004-05-15 devnull . wh -0.25i ST \}
873 13f7391e 2004-05-15 devnull .pl \\nyu
874 13f7391e 2004-05-15 devnull .ta 0.5i 1.0i 1.5i 2.0i 2.5i
877 13f7391e 2004-05-15 devnull '''\" output the abstract
879 13f7391e 2004-05-15 devnull .if \\n(la=\\n(a1 .sp-1
880 13f7391e 2004-05-15 devnull .rn ZB XX
881 13f7391e 2004-05-15 devnull .wh -0.25i FC
882 13f7391e 2004-05-15 devnull '''\" output continuation page
888 13f7391e 2004-05-15 devnull .wh 0 HD
891 13f7391e 2004-05-15 devnull .ta 5.00i
892 13f7391e 2004-05-15 devnull .nr tc \\n(tp
893 13f7391e 2004-05-15 devnull Initial Distribution Specifications \\*(N1\f2 (page ii of \\n(tc)\f3
896 13f7391e 2004-05-15 devnull .if \\ne>0 \{\
897 13f7391e 2004-05-15 devnull . DL " Complete Copy" " Cover Sheet Only"
899 13f7391e 2004-05-15 devnull '''\" put out complete copy list
900 13f7391e 2004-05-15 devnull . in 0.2i
903 13f7391e 2004-05-15 devnull . if !\\ng=0 \{\
905 13f7391e 2004-05-15 devnull . ti 1.25i
906 13f7391e 2004-05-15 devnull (continued)
907 13f7391e 2004-05-15 devnull . ft 1 \}
908 13f7391e 2004-05-15 devnull . sp|\\nzu
910 13f7391e 2004-05-15 devnull '''\" put out cover sheet list
912 13f7391e 2004-05-15 devnull . if !\\ni=0 \{\
914 13f7391e 2004-05-15 devnull . ti 4.75i
915 13f7391e 2004-05-15 devnull (continued)
916 13f7391e 2004-05-15 devnull . ft 1 \}
918 13f7391e 2004-05-15 devnull '''\" starter space value - then tailor
920 13f7391e 2004-05-15 devnull . sp \\ne
922 13f7391e 2004-05-15 devnull .if \\nr=1 \{\
923 13f7391e 2004-05-15 devnull \f3Government Security Classified\f1
925 13f7391e 2004-05-15 devnull . sp -0.05i
927 13f7391e 2004-05-15 devnull \f3Future Lucent Technologies Distribution by ITDS\f1
928 13f7391e 2004-05-15 devnull .ti 0.5i
929 13f7391e 2004-05-15 devnull .sp 0.05i
930 13f7391e 2004-05-15 devnull .ie \\n(ra=2 \{\
931 13f7391e 2004-05-15 devnull \f3DO NOT RELEASE\f1 to any Lucent Technologies employee without appropriate approval for each request. \}
933 13f7391e 2004-05-15 devnull \f3RELEASE\f1 to any Lucent Technologies employee (excluding contract employees). \}
935 13f7391e 2004-05-15 devnull '''\" put out author signature section
937 13f7391e 2004-05-15 devnull Author Signature\\*(u)
940 13f7391e 2004-05-15 devnull .ta 2.635i 5.25i
942 13f7391e 2004-05-15 devnull .ta 0.25i 2.875i 5.5i
944 13f7391e 2004-05-15 devnull .if \\nu>3 \{\
945 13f7391e 2004-05-15 devnull . sp 0.1i
946 13f7391e 2004-05-15 devnull . ta 2.635i 5.25i
948 13f7391e 2004-05-15 devnull . ta 0.25i 2.875i 5.5i
949 13f7391e 2004-05-15 devnull \\*(n( \}
950 13f7391e 2004-05-15 devnull .if \\nu>6 \{\
951 13f7391e 2004-05-15 devnull . sp 0.1i
952 13f7391e 2004-05-15 devnull . ta 2.635i 5.25i
954 13f7391e 2004-05-15 devnull . ta 0.25i 2.875i 5.5i
955 13f7391e 2004-05-15 devnull \\*(o( \}
956 13f7391e 2004-05-15 devnull .sp -0.1i
958 13f7391e 2004-05-15 devnull '''\" output organizational approval section
959 13f7391e 2004-05-15 devnull .ie \\np>1 \{\
960 13f7391e 2004-05-15 devnull \f3Organizational Approval\f1 (Department Head approval \f3required\ff1 for \f2\\*(o)\f1.) \}
962 13f7391e 2004-05-15 devnull \f3Organizational Approval\f1 (Optional) \}
964 13f7391e 2004-05-15 devnull .ta 2.635i 5.25i
966 13f7391e 2004-05-15 devnull . ta 0.25i 2.875i 5.5i
968 13f7391e 2004-05-15 devnull .if \\nn>3 \{\
969 13f7391e 2004-05-15 devnull . sp .1i
970 13f7391e 2004-05-15 devnull .ta 2.635i 5.25i
971 13f7391e 2004-05-15 devnull \\*(y! \}
972 13f7391e 2004-05-15 devnull .if \\nn>6 \{\
973 13f7391e 2004-05-15 devnull . sp .1i
974 13f7391e 2004-05-15 devnull \\*(z! \}
975 13f7391e 2004-05-15 devnull .sp -0.1i
977 13f7391e 2004-05-15 devnull '''\" recipient section always output
979 13f7391e 2004-05-15 devnull For Use by Recipient of Cover Sheet:
985 13f7391e 2004-05-15 devnull Computing network users may order copies via the \f2library \-k\f1 command;
986 13f7391e 2004-05-15 devnull for information, type \f2man library\f1 after the UNIX prompt.
988 13f7391e 2004-05-15 devnull .rn fo xx
989 13f7391e 2004-05-15 devnull Otherwise:
990 13f7391e 2004-05-15 devnull Enter PAN if BL (or SS# if non-BL). \l'1.5i'
991 13f7391e 2004-05-15 devnull Return this sheet to any ITDS location.
992 13f7391e 2004-05-15 devnull .sp|\\nzu
994 13f7391e 2004-05-15 devnull Internal Technical Document Service
996 13f7391e 2004-05-15 devnull .ta 1i 2i 3i
997 13f7391e 2004-05-15 devnull ( ) AK 2H-28 ( ) IH 7M-103 ( ) DR 2F-19 ( ) NW-ITDS
998 13f7391e 2004-05-15 devnull ( ) ALC 1B-102 ( ) MV 1L-19 ( ) INH 1C-114 ( ) PR 5-2120
999 13f7391e 2004-05-15 devnull ( ) CB 30-2011 ( ) WH 3E-204 ( ) IW 2Z-156
1000 13f7391e 2004-05-15 devnull ( ) HO 4F-112 ( ) MT 3B-117
1006 13f7391e 2004-05-15 devnull . \"IZ - initialization
1009 13f7391e 2004-05-15 devnull .nr TN 0
1012 13f7391e 2004-05-15 devnull .nr PO 1i
1013 13f7391e 2004-05-15 devnull .if \\n(FM=0 .nr FM 1i
1014 13f7391e 2004-05-15 devnull .nr YY 0-\\n(FMu
1015 13f7391e 2004-05-15 devnull .if !\\n(PD .if n nr PD 1v
1016 13f7391e 2004-05-15 devnull .if t .if !\\n(PD .nr PD 0.3v
1017 13f7391e 2004-05-15 devnull .wh 0 NP
1018 13f7391e 2004-05-15 devnull .wh \\n(.pu-\\n(FMu FO
1019 13f7391e 2004-05-15 devnull .ch FO 16i
1020 13f7391e 2004-05-15 devnull .wh \\n(.pu-\\n(FMu FX
1021 13f7391e 2004-05-15 devnull .ch FO \\n(.pu-\\n(FMu
1022 13f7391e 2004-05-15 devnull .if t .wh -\\n(FMu/2u BT
1023 13f7391e 2004-05-15 devnull .if n .wh -\\n(FMu/2u-1v BT
1025 13f7391e 2004-05-15 devnull .\" macro to restore ms foiling
1027 13f7391e 2004-05-15 devnull .nr BE 0
1028 13f7391e 2004-05-15 devnull .nr 1T 1
1029 13f7391e 2004-05-15 devnull .nr FM 0
1030 13f7391e 2004-05-15 devnull .nr PD 0
1031 13f7391e 2004-05-15 devnull .nr HM 0
1032 13f7391e 2004-05-15 devnull .nr KG 0
1033 13f7391e 2004-05-15 devnull .nr FP 0
1034 13f7391e 2004-05-15 devnull .nr GA 0
1035 13f7391e 2004-05-15 devnull .nr FP 0
1036 13f7391e 2004-05-15 devnull .\" changed rn F5 FE added rn FJ FS
1037 13f7391e 2004-05-15 devnull .rn FK FE
1038 13f7391e 2004-05-15 devnull .rn FJ FS
1039 13f7391e 2004-05-15 devnull .if '\\$1'' .bp
1040 13f7391e 2004-05-15 devnull .if !'\\$1'' \{\
1047 13f7391e 2004-05-15 devnull .rn ZA WB\}
1048 13f7391e 2004-05-15 devnull .nr FC -1
1049 13f7391e 2004-05-15 devnull .nr % 1
1052 13f7391e 2004-05-15 devnull .if '\\$1'' .RT
1053 13f7391e 2004-05-15 devnull .ds MN \\*(N1 \\*(N2 \\*(N3 \\*(N4 \\*(N5
1054 13f7391e 2004-05-15 devnull .nr MM \\nn
1055 13f7391e 2004-05-15 devnull .nr MC \\n(fc
1056 13f7391e 2004-05-15 devnull .nr MG \\n(wp
1057 13f7391e 2004-05-15 devnull .nr NA \\nu
1058 13f7391e 2004-05-15 devnull .if '\\n(ST'1' \{\
1059 13f7391e 2004-05-15 devnull '''.so /usr/lib/tmac/tmac.rscover XXX
1060 13f7391e 2004-05-15 devnull .so \*(.P/lib/tmac/tmac.rscover
1061 13f7391e 2004-05-15 devnull . \" a line for troff to eat
1064 13f7391e 2004-05-15 devnull .nr LL 6i
1065 13f7391e 2004-05-15 devnull .rr a b c d e f g h i j k
1066 13f7391e 2004-05-15 devnull .rr l m n o p q r s t u
1067 13f7391e 2004-05-15 devnull .rr v w x y z np tp nc tc
1068 13f7391e 2004-05-15 devnull .rr ud u! m2 dv
1069 13f7391e 2004-05-15 devnull .rr lp np la a1 a2 ar wp fc m1
1070 13f7391e 2004-05-15 devnull .rm DT TI AH SE KW TY NU MY
1071 13f7391e 2004-05-15 devnull .rm PR CI CO OC CV OV CE HD
1072 13f7391e 2004-05-15 devnull .rm FC ST TK HX HC DL EJ
1073 13f7391e 2004-05-15 devnull .rm CP SC a) b) k) N1 p) q) r)
1074 13f7391e 2004-05-15 devnull .rm N2 N3 N4 N5 X1 X2 X3 X4 X5
1075 13f7391e 2004-05-15 devnull .rm X1 X2 X3 X4 X5 F1 F2 F3 F4
1077 13f7391e 2004-05-15 devnull .rm d) o) s) ve m! n! o! e( r(
1078 13f7391e 2004-05-15 devnull .rm x! y! z! x( d! ve u)
1079 13f7391e 2004-05-15 devnull .rm t) w) x) y) z) a( b( c( m(
1080 13f7391e 2004-05-15 devnull .rm n( o( p( s( t( SA ZI ZC ZO
1081 13f7391e 2004-05-15 devnull .rm ZS ZD ZN FT FB CX NN GS
1082 13f7391e 2004-05-15 devnull .rm ZB XX ZP ZZ
1083 13f7391e 2004-05-15 devnull .rm TM IM MF MR LT OK RP TR
1084 13f7391e 2004-05-15 devnull .rm TX AU AX AI AE SY S2 S0
1088 13f7391e 2004-05-15 devnull .nr ST 2
1092 13f7391e 2004-05-15 devnull .nr ST 3
1093 13f7391e 2004-05-15 devnull .ds MN \\$1
1096 13f7391e 2004-05-15 devnull .de SS \"RP or TR rename the world so old macros called
1098 13f7391e 2004-05-15 devnull .nr CS 0
1099 13f7391e 2004-05-15 devnull .nr BE 0
1100 13f7391e 2004-05-15 devnull .nr 1T 0
1101 13f7391e 2004-05-15 devnull .nr FM 0
1102 13f7391e 2004-05-15 devnull .nr PD 0
1103 13f7391e 2004-05-15 devnull .nr HM 0
1104 13f7391e 2004-05-15 devnull .nr KG 0
1105 13f7391e 2004-05-15 devnull .nr FP 0
1106 13f7391e 2004-05-15 devnull .nr GA 0
1107 13f7391e 2004-05-15 devnull .nr FP 0
1109 13f7391e 2004-05-15 devnull .nr LL 6i
1110 13f7391e 2004-05-15 devnull .\" changed rn F5 FE added rn FJ FS
1111 13f7391e 2004-05-15 devnull .rn F6 FE
1112 13f7391e 2004-05-15 devnull .nr FC -1
1113 13f7391e 2004-05-15 devnull .nr % 1
1121 13f7391e 2004-05-15 devnull .AB \\\\$1
1131 13f7391e 2004-05-15 devnull .ND \\\\$1 \\\\$2 \\\\$3
1134 13f7391e 2004-05-15 devnull .rr a b c d e f g h i j k
1135 13f7391e 2004-05-15 devnull .rr l m n o p q r s t u
1136 13f7391e 2004-05-15 devnull .rr v w x y z np tp nc tc
1137 13f7391e 2004-05-15 devnull .rr ud u! m2 dv
1138 13f7391e 2004-05-15 devnull .rr lp np la a1 a2 ar wp fc m1
1139 13f7391e 2004-05-15 devnull .rm DT KW TY NU MY
1140 13f7391e 2004-05-15 devnull .rm PR CI OC OV HD
1141 13f7391e 2004-05-15 devnull .rm FC ST TK HX HC DL EJ
1142 13f7391e 2004-05-15 devnull .rm CP SC a) b) k) N1 p) q) r)
1143 13f7391e 2004-05-15 devnull .rm d) o) s) ve m! n! o! e( r(
1144 13f7391e 2004-05-15 devnull .rm x! y! z! x( d! ve u)
1145 13f7391e 2004-05-15 devnull .rm t) w) x) y) z) a( b( c( m(
1146 13f7391e 2004-05-15 devnull .rm n( o( p( s( t( ZI ZC ZO
1147 13f7391e 2004-05-15 devnull .rm ZS ZD ZN FT FB CX NN GS
1148 13f7391e 2004-05-15 devnull .rm ZB XX ZP ZZ
1149 13f7391e 2004-05-15 devnull .rm TM IM MF MR LT