 |
tmac.mcs - 9base - revived minimalist port of Plan 9 userland to Unix |
 |
git clone git://git.suckless.org/9base |
 |
Log |
|
Files |
|
Refs |
|
README |
|
LICENSE |
|
--- |
|
tmac.mcs (43067B) |
|
--- |
|
1 '''\" @(#)dcs:csmacros 2.3 5/2/89 |
|
2 '''\" registers |
|
3 '''\" a - abstract continuation flag - 0 (no), >0 (yes - number o… |
|
4 '''\" b - mercury selections counter |
|
5 '''\" c - distribution continuation flag - 0 (no), 1 (yes) |
|
6 '''\" d - distribution length calculation flag - 0 (no), 1 (yes) |
|
7 '''\" e - complete copy basic distribution length |
|
8 '''\" g - complete copy overflow distribution length |
|
9 '''\" h - cover sheet basic distribution length |
|
10 '''\" i - cover sheet overflow distribution length |
|
11 '''\" j - scratch |
|
12 '''\" k - keyword flag - 0 (none), 1 (some) |
|
13 '''\" l - number of vertical units per line - troff and nroff |
|
14 '''\" m - memorandum type flag - 1 TM, 2 IM, 3 TC |
|
15 '''\" n - document number counter |
|
16 '''\" o - title flag - 0 (no), 1 (yes - vertical size of title di… |
|
17 '''\" p - proprietary notice flag - 0 (none), 1 (default notice),… |
|
18 '''\" q - scratch |
|
19 '''\" r - security flag - 0 (no), 1 (yes) |
|
20 '''\" s - software flag - 0 (no), 1 (yes) |
|
21 '''\" t - mark title position |
|
22 '''\" u - author count |
|
23 '''\" v - scratch |
|
24 '''\" w - scratch |
|
25 '''\" x - mark scratch position |
|
26 '''\" y - mark scratch position |
|
27 '''\" z - mark scratch position |
|
28 '''\" ra - release to Lucent flag - 0 (no decision), 1 (yes), 2 (… |
|
29 '''\" an - length abstract footnote diversion |
|
30 '''\" fn - length footnote diversion |
|
31 '''\" as - "in abstract" flag - 0 (no), 1 (yes) |
|
32 '''\" ds - "in display" flag - 0 (no), 1 (yes) |
|
33 '''\" fs - "in footnote" flag - 0 (no), 1 (yes) |
|
34 '''\" bd - block center display flag - 0 (no), 1 (yes) |
|
35 '''\" dv - device flag - 0 (default), 1 (APS-5), 2 (i10), 3 (xero… |
|
36 '''\" lp - lines per page (nroff - xerox) |
|
37 '''\" tp - total pages (decimal) |
|
38 '''\" tc - total pages (in small roman) |
|
39 '''\" np - page number this page (decimal) |
|
40 '''\" nc - page number this page (in small roman) |
|
41 '''\" lt - vertical size of title diversion (in lines) |
|
42 '''\" lo - vertical size of copy overflow trap (in lines) |
|
43 '''\" la - vertical size of abstract diversion |
|
44 '''\" a1 - vertical size of page 1 portion of abstract |
|
45 '''\" a2 - vertical size of overflow page portion of abstract |
|
46 '''\" ar - vertical size remainder of abstract |
|
47 '''\" fi - save current fill/no-fill (.u) |
|
48 '''\" in - save current indent (.i) |
|
49 '''\" si - standard indent - ens (for paragraphs, displays & equa… |
|
50 '''\" ps - initial point size (.s) |
|
51 '''\" ts - temp point size (only in S macro) |
|
52 '''\" vs - initial vertical spacing (.v) |
|
53 '''\" tv - temp vertical spacing (only in S macro) |
|
54 '''\" b1, b2 - scratch calculations |
|
55 '''\" g1, g2, g3, g4, g5 - complete copy overflow - additional di… |
|
56 '''\" i1, i2, i3, i4, i5 - cover sheet only overflow - additional… |
|
57 '''\" m1 - mark scratch position |
|
58 '''\" :b, :c, :d, :e - scratch (lists only) |
|
59 '''\" :h - SA macro only |
|
60 '''\" ls - nested list level (lists only) |
|
61 '''\" dt - display type (displays & equations) |
|
62 '''\" fc - filing case flag |
|
63 '''\" wp - work project number flag |
|
64 '''\" en - entity flag - 1 (BL), 2 (IS), 3 (TI), 4 (CH) |
|
65 '''\" lg - Lucent logo flag - 0 (not defined), 1 (defined) |
|
66 '''\" oa - organizational approval name counter |
|
67 '''\" aa - ship to itds |
|
68 '''\" strings |
|
69 '''\" a) - mercury info |
|
70 '''\" b) - mercury info |
|
71 '''\" c) - mercury info |
|
72 '''\" e) - equation label |
|
73 '''\" k) - keywords |
|
74 '''\" m) - Mailing Label/DRAFT |
|
75 '''\" n) - first document number |
|
76 '''\" o) - proprietary classification heading |
|
77 '''\" p) - proprietary string 1 |
|
78 '''\" q) - " " 2 |
|
79 '''\" r) - " " 3 |
|
80 '''\" s) - timestamp string |
|
81 '''\" t) - memo type (TM, IM, TC) |
|
82 '''\" u) - trailing s if multiple author |
|
83 '''\" v) - trailing s if multiple document number |
|
84 '''\" w) - trailing s if multiple filing case |
|
85 '''\" x) - trailing s if multiple work project number |
|
86 '''\" y) - used in lists |
|
87 '''\" z) - used in lists |
|
88 '''\" a( - |
|
89 '''\" e( - earlier document number |
|
90 '''\" m( - authors 1-3 sig |
|
91 '''\" n( - authors 4-6 sig |
|
92 '''\" o( - authors 7-9 sig |
|
93 '''\" p( - authors 10-12 sig |
|
94 '''\" r( - responsible person |
|
95 '''\" s( - S software string |
|
96 '''\" t( - memo type ("for Technical Memorandum", etc.) |
|
97 '''\" u( - organizational approval 1-3 sig |
|
98 '''\" v( - organizational approval 4-6 sig |
|
99 '''\" w( - organizational approval 7-9 sig |
|
100 '''\" x( - organizational approval 10-12 sig |
|
101 '''\" Tm - trademark |
|
102 '''\" lG - Lucent logo |
|
103 '''\" 10 - used in equations |
|
104 '''\" ve - csmacros version |
|
105 '''\" e1,e2,e3,e4 - entity info |
|
106 '''\" diversions |
|
107 '''\" aS - abstract |
|
108 '''\" aV - author info section |
|
109 '''\" cA - complete copy addressee primary |
|
110 '''\" cO - complete copy addressee overflow |
|
111 '''\" cU, cV, cW, cX, cY, cZ - complete copy addressee overflow (… |
|
112 '''\" dA - cover sheet addressee primary |
|
113 '''\" dO - cover sheet addressee overflow |
|
114 '''\" dU, dV, dW, dX, dY, dZ - cover sheet only addressee overflo… |
|
115 '''\" dM - document number info |
|
116 '''\" dS - display |
|
117 '''\" eQ - equation |
|
118 '''\" fB - filing case info |
|
119 '''\" tI - title |
|
120 '''\" wO - work project number info |
|
121 '''\" aN - abstract footnote |
|
122 '''\" fN - footnote |
|
123 '''\" |
|
124 '''\" macros to collect information |
|
125 '''\" aC - Lucent company |
|
126 '''\" tS - timestamp |
|
127 '''\" TL - title |
|
128 '''\" AU - author |
|
129 '''\" FS - footnote start |
|
130 '''\" FE - footnote end |
|
131 '''\" AS - abstract start |
|
132 '''\" AE - abstract end |
|
133 '''\" OK - keyword info |
|
134 '''\" MT - document type |
|
135 '''\" dN - document number info |
|
136 '''\" oA - organization approval name |
|
137 '''\" eD - earlier document number |
|
138 '''\" fC - filing case |
|
139 '''\" fD - full date |
|
140 '''\" wP - work project info |
|
141 '''\" mE - mercury selections (7 argument version) |
|
142 '''\" mC - mercury codes (three argument version) |
|
143 '''\" Mc - mercury codes (one argument version) |
|
144 '''\" PM - proprietary marking |
|
145 '''\" gS - government security |
|
146 '''\" rA - release to Lucent employees (superceded by fA) |
|
147 '''\" fA - future Lucent distribution (supercedes rA) |
|
148 '''\" sF - software-related |
|
149 '''\" cC - complete copy addressee list start |
|
150 '''\" cD - complete copy overflow |
|
151 '''\" cS - cover sheet only addressee list start |
|
152 '''\" cT - cover sheet only overflow |
|
153 '''\" zZ - complete copy overflow (previously lost) |
|
154 '''\" fF - complete copy overflow (aux) |
|
155 '''\" wW - cover sheet overflow (previously lost) |
|
156 '''\" gG - cover sheet only overflow (aux) |
|
157 '''\" cE - addressee list end |
|
158 '''\" eE - addressee list end (aux) |
|
159 '''\" macros to help format document |
|
160 '''\" B - change to bold font |
|
161 '''\" I - change to italic font |
|
162 '''\" R - change to roman font |
|
163 '''\" S - set point size and vertical spacing |
|
164 '''\" sP - space 1 vertical space |
|
165 '''\" P - paragraph |
|
166 '''\" HC - set hyphenation indicator |
|
167 '''\" iN - font and size re-initialization |
|
168 '''\" DS - display start |
|
169 '''\" DE - display end |
|
170 '''\" EQ - equation start |
|
171 '''\" EN - equation end |
|
172 '''\" VL - variable-item list |
|
173 '''\" ML - marked list |
|
174 '''\" LI - list item |
|
175 '''\" LE - list end |
|
176 '''\" hD - header |
|
177 '''\" fO - footer |
|
178 '''\" yY - abstract overflow |
|
179 '''\" aT - abstract overflow trap |
|
180 '''\" tK - thick lines |
|
181 '''\" bE - empty box |
|
182 '''\" bX - box with X |
|
183 '''\" tH - title heading |
|
184 '''\" cH - continuation header |
|
185 '''\" dH - distribution list headers |
|
186 '''\" oH - overflow distribution list headers |
|
187 '''\" eP - eject distribution continuation page |
|
188 '''\" cP - continuation page |
|
189 '''\" dP - continuation page (aux) |
|
190 '''\" tP - compute pages and diversion lengths |
|
191 '''\" t1 - " " |
|
192 '''\" dL - compute basic distribution length |
|
193 '''\" CS - output cover sheet |
|
194 '''\" initialization |
|
195 '''\" |
|
196 '''\" registers |
|
197 .nr a 0 1 |
|
198 .nr b 0 1 |
|
199 .nr c 0 |
|
200 .nr d 0 |
|
201 .nr e 0 |
|
202 .nr g 0 |
|
203 .nr g1 0 |
|
204 .nr g2 0 |
|
205 .nr g3 0 |
|
206 .nr g4 0 |
|
207 .nr g5 0 |
|
208 .nr h 6 |
|
209 .nr i 0 |
|
210 .nr i1 0 |
|
211 .nr i2 0 |
|
212 .nr i3 0 |
|
213 .nr i4 0 |
|
214 .nr i5 0 |
|
215 .nr j 0 |
|
216 .nr k 0 |
|
217 .nr m 0 |
|
218 .nr n 0 1 |
|
219 .nr o 0 |
|
220 .nr p 1 |
|
221 .nr q 0 |
|
222 .nr r 0 |
|
223 .nr s 0 |
|
224 .nr t 0 |
|
225 .nr u 0 1 |
|
226 .nr v 0 |
|
227 .nr w 0 |
|
228 .nr x 0 |
|
229 .nr y 0 |
|
230 .nr z 0 |
|
231 .nr an 0 |
|
232 .nr fn 0 |
|
233 .nr as 0 |
|
234 .nr ds 0 |
|
235 .nr fs 0 |
|
236 .nr bd 0 |
|
237 .nr tp 0 |
|
238 .nr tc 0 |
|
239 .af tc i |
|
240 .nr np 2 |
|
241 .nr nc 2 |
|
242 .af nc i |
|
243 .nr la 0 |
|
244 .nr a1 0 |
|
245 .nr a2 0 |
|
246 .nr ar 0 |
|
247 .nr fi 0 |
|
248 .nr in 0 |
|
249 .nr :b 0 |
|
250 .nr :c 0 |
|
251 .nr :d 0 |
|
252 .nr :e 0 |
|
253 .nr :h 0 |
|
254 .nr ls 0 1 |
|
255 .nr dt 0 |
|
256 .nr fc 0 1 |
|
257 .nr wp 0 1 |
|
258 .nr en 1 |
|
259 .nr lg 0 |
|
260 .nr ra 0 |
|
261 .nr oa 0 1 |
|
262 '''\" initialize lines per page |
|
263 .nr lp 66 |
|
264 .if n .nr lp 65 |
|
265 '''\" initialize device register |
|
266 .nr dv 0 |
|
267 .if '\*(.T'aps' .nr dv 1 |
|
268 .if '\*(.T'i10' .nr dv 2 |
|
269 .if '\*(.T'X97.tim10p' .nr dv 3 |
|
270 .if '\*(.T'X97.tim12p' .nr dv 3 |
|
271 .if '\*(.T'X97.ti10p' .nr dv 3 |
|
272 .if '\*(.T'X97.ti12p' .nr dv 3 |
|
273 .if '\*(.T'i300' .nr dv 4 |
|
274 .if '\*(.T'qms' .nr dv 5 |
|
275 .if '\*(.T'post' .nr dv 6 |
|
276 '''\" initialize font positions |
|
277 .ie \n(dv=3 \{\ |
|
278 .fp 1 R |
|
279 .fp 2 I |
|
280 .fp 3 B |
|
281 .fp 4 I \} |
|
282 .el .ie \n(dv=5 \{\ |
|
283 .fp 1 R |
|
284 .fp 2 I |
|
285 .fp 3 B |
|
286 .fp 4 S \} |
|
287 .el \{\ |
|
288 .fp 1 H |
|
289 .fp 2 HI |
|
290 .fp 3 HB |
|
291 .fp 4 HX \} |
|
292 '''\" initialize units per vertical space |
|
293 .if t .nr l 120 |
|
294 .if \n(dv=2 .nr l 40 |
|
295 .if \n(dv=3 .nr l 50 |
|
296 .if \n(dv=5 .nr l 50 |
|
297 .if n .nr l 40 |
|
298 '''\" initialize standard indent |
|
299 .nr si 5 |
|
300 '''\" diversions |
|
301 .di aV |
|
302 .di |
|
303 .di dM |
|
304 .di |
|
305 .di cA |
|
306 .di |
|
307 .di cO |
|
308 .di |
|
309 .di cU |
|
310 .di |
|
311 .di cV |
|
312 .di |
|
313 .di cW |
|
314 .di |
|
315 .di cX |
|
316 .di |
|
317 .di cY |
|
318 .di |
|
319 .di cZ |
|
320 .di |
|
321 .di dA |
|
322 .di |
|
323 .di dO |
|
324 .di |
|
325 .di dU |
|
326 .di |
|
327 .di dV |
|
328 .di |
|
329 .di dW |
|
330 .di |
|
331 .di dX |
|
332 .di |
|
333 .di dY |
|
334 .di |
|
335 .di dZ |
|
336 .di |
|
337 .di fB |
|
338 .di |
|
339 .di wO |
|
340 .di |
|
341 '''\" initialize Lucent logo |
|
342 '''\" eventually substitute LH for Lb (DWB 2) |
|
343 .ie \n(dv=5 .ds lG \s10\f(ATx\fP\f\\nv\fP\s0 |
|
344 .el .ds lG \s36\(LH\s0 |
|
345 '''\" initialize entity strings |
|
346 .ds e1 "LUCENT-BL |
|
347 .ds e2 "LUCENT |
|
348 .ds e3 "LUCENT BELL LABORATORIES |
|
349 .ds e4 "Department Head |
|
350 '''\" initialize trademark symbol string |
|
351 .if t .ds Tm \v'-0.5m'\s-4TM\s+4\v'0.5m' |
|
352 .if n .ds Tm \uTM\d |
|
353 '''\" initialize timestamp string |
|
354 .ds s) 0 |
|
355 '''\" initialize responsible person string |
|
356 .ds r( 0 |
|
357 '''\" initialize earlier document number string |
|
358 .ds e( 0 |
|
359 '''\" initialize csmacro version string |
|
360 .ds ve MCS (04/30/89) |
|
361 '''\" initialize point size, vertical space & indent |
|
362 .nr ps 10 |
|
363 .ps \\n(ps |
|
364 .nr vs 12 |
|
365 .if t .vs \\n(vsp |
|
366 .in 0 |
|
367 '''\" |
|
368 '''\" macros to collect information |
|
369 '''\" |
|
370 .de aC \" macro for Lucent company (entit… |
|
371 . \" set en=1 if BL (default) |
|
372 . \" set en=2 if IS |
|
373 . \" set en=3 if TI |
|
374 . \" set en=4 if CH (Corporate He… |
|
375 .if '\\$1'BL' .nr en 1 |
|
376 .if '\\$1'IS' .nr en 2 |
|
377 .if '\\$1'TI' .nr en 3 |
|
378 .if '\\$1'CH' .nr en 4 |
|
379 .if \\n(en=1 \{\ |
|
380 .ds e1 "LUCENT-BL |
|
381 .ds e2 "LUCENT |
|
382 .ds e3 "LUCENT BELL LABORATORIES |
|
383 .ds e4 "Department Head |
|
384 .br\} |
|
385 .if \\n(en=2 \{\ |
|
386 .ds e1 "LUCENT-IS |
|
387 .ds e2 "LUCENT |
|
388 .ds e3 "LUCENT INFORMATION SYSTEMS |
|
389 .ds e4 "Department Head |
|
390 .br\} |
|
391 .if \\n(en=3 \{\ |
|
392 .ds e1 "Lucent Technologies, Inc. |
|
393 .ds e2 "Lucent |
|
394 .ds e3 "LUCENT TECHNOLOGIES, INC. |
|
395 .ds e4 "Manager |
|
396 .br\} |
|
397 .if \\n(en=4 \{\ |
|
398 .ds e1 "Lucent |
|
399 .ds e2 "Lucent |
|
400 .ds e3 " Lucent |
|
401 .ds e4 "Department Head |
|
402 .br \} |
|
403 .rm aC |
|
404 .. |
|
405 .de tS \" macro for timestamp |
|
406 '''\" if timestamp string=0, store arg #1… |
|
407 .if '\\*(s)'0' \{\ |
|
408 .if !'\\$1'' \{\ |
|
409 .ie '\\$2'1' .ds s) "D R A F T |
|
410 .el .ds s) "Timestamp: \\$1 \} \} |
|
411 .. |
|
412 .de TL \" macro for title |
|
413 .if \\nu>0 \{\ |
|
414 .tm ERROR: coversheet file set up incorrectly - document title must be s… |
|
415 .ab \} |
|
416 .br |
|
417 .fi |
|
418 .nr aa 1 \" set default to send cover to ITDS |
|
419 .ie !'\\n(.F'stdin' \{\ |
|
420 . ie !'\\n(.F'-' \{\ |
|
421 . sy /usr/lib/tmac/timestamp \\n(.F>/tmp/tp\\n($$ |
|
422 . so /tmp/tp\\n($$ |
|
423 . sy /bin/rm /tmp/tp\\n($$ |
|
424 . br \} \" don't remove br - gets … |
|
425 . el \{\ |
|
426 . nr aa 0 |
|
427 . tm Coversheet not sent to library. input is '-' \} \} |
|
428 .el \{\ |
|
429 . nr aa 0 |
|
430 . tm Coversheet not sent to library. input is 'stdin' \} |
|
431 .ie '\\$1'' \{\ |
|
432 . ds m) "Mailing Label \} |
|
433 .el \{ |
|
434 . nr aa 0 |
|
435 . tm Coversheet not sent to library. DRAFT document |
|
436 . ds m) \\s+2DRAFT\\s-2 \} \} |
|
437 .ll 6.0i |
|
438 '''\" diversion for title |
|
439 .di tI |
|
440 .rm TL |
|
441 .. |
|
442 .de AU \" macro for author info |
|
443 '''\" don't count author unless n… |
|
444 .if !\\$1 .nr u \\n+u |
|
445 .if \\nu=1 \{\ |
|
446 .br |
|
447 '''\" end title diversion on firs… |
|
448 .di |
|
449 .nr lt (\\n(dn)/(\\nl) |
|
450 .nr o \\n(dn |
|
451 .ll |
|
452 .nf \} |
|
453 .ta 0.3i 2.6i 3.0i 4.0i 5.4i |
|
454 .br |
|
455 '''\" append to author list |
|
456 .da aV |
|
457 \\$1 \\$3 \\$6 \\$5 \\$7 |
|
458 .br |
|
459 .da |
|
460 '''\" end append; info for signat… |
|
461 .if \\nu=1 .ds m( \\$1 |
|
462 .if \\nu=2 .as m( \\$1 |
|
463 .if \\nu=3 .as m( \\$1 |
|
464 .if \\nu=4 .ds n( \\$1 |
|
465 .if \\nu=5 .as n( \\$1 |
|
466 .if \\nu=6 .as n( \\$1 |
|
467 .if \\nu=7 .ds o( \\$1 |
|
468 .if \\nu=8 .as o( \\$1 |
|
469 .if \\nu=9 .as o( \\$1 |
|
470 .if \\nu=10 .ds p( \\$1 |
|
471 .if \\nu=11 .as p( \\$1 |
|
472 .if \\nu=12 .as p( \\$1 |
|
473 .. |
|
474 .de rP \" macro for responsible person |
|
475 .if !'\\$1'' .ds r( \\$1 |
|
476 .rm rP |
|
477 .. |
|
478 .de FS \" macro for footnote start |
|
479 .if \\n(fs>0 \{\ |
|
480 .tm Footnote within footnote - illegal. |
|
481 .FE \} |
|
482 .if \\n(ds>0 \{\ |
|
483 .tm Footnote within display - illegal. |
|
484 .FE \} |
|
485 .nr fs 1 |
|
486 .ev 1 |
|
487 .br |
|
488 .ll 6.4i |
|
489 .ps 8 |
|
490 .if t .vs 10p |
|
491 .fi |
|
492 .ie \\n(as>0 .da aN |
|
493 .el \{\ |
|
494 .da fN |
|
495 .if \\n(fn=0 \{\ |
|
496 .br |
|
497 .if n __________ |
|
498 .if t \l'1i' |
|
499 .br \} \} |
|
500 .if \\n(.$=1 \\$1 |
|
501 .. |
|
502 .de FE \" macro for footnote end |
|
503 .br |
|
504 .da |
|
505 .ie \\n(as>0 .nr an \\n(dn+\\n(an |
|
506 .el .nr fn \\n(dn+\\n(fn |
|
507 .ev |
|
508 .nr fs 0 |
|
509 .. |
|
510 .de AS \" macro for abstract info |
|
511 .nr as 1 |
|
512 .br |
|
513 .fi |
|
514 .ll 7.0i |
|
515 .ta 0.5i 1.0i 1.5i |
|
516 .di aS |
|
517 .rm AS |
|
518 .. |
|
519 .de AE \" macro for end of abstract info |
|
520 .br |
|
521 .di |
|
522 .nr la \\n(dn |
|
523 .iN |
|
524 .if \\n(an>0 \{\ |
|
525 .br |
|
526 .da aS |
|
527 .br |
|
528 .if n __________ |
|
529 .if t \l'1i' |
|
530 .br |
|
531 .nf |
|
532 .aN |
|
533 .rm aN |
|
534 .br |
|
535 .da |
|
536 .nr la \\n(la+\\n(dn \} |
|
537 .iN |
|
538 .rm iN |
|
539 .ll |
|
540 .nf |
|
541 .nr as 0 |
|
542 .rm DS DE EQ EN VL ML LI LE |
|
543 .rm dS eQ |
|
544 .rm B I R S sP P |
|
545 .rm FS FE AE |
|
546 .. |
|
547 .de OK \" macro for keyword info |
|
548 .ds k) |
|
549 .if !\\$1 .as k) \\$1 |
|
550 .if !\\$2 .as k); \\$2 |
|
551 .if !\\$3 .as k); \\$3 |
|
552 .if !\\$4 .as k); \\$4 |
|
553 .if !\\$5 .as k); \\$5 |
|
554 .if !\\$6 .as k); \\$6 |
|
555 .if !\\$7 .as k); \\$7 |
|
556 .if !\\$8 .as k); \\$8 |
|
557 .if !\\$9 .as k); \\$9 |
|
558 '''\" set k flag if we have some … |
|
559 .ie !\\*(k) .nr k 1 |
|
560 .el .nr k 0 |
|
561 .rm OK |
|
562 .. |
|
563 .de MT \" macro for document type |
|
564 .if '\\$1'1' \{\ |
|
565 .nr m 1 |
|
566 .ds t) TM |
|
567 .ds t( "for Technical Memorandum\} |
|
568 .if '\\$1'2' \{\ |
|
569 .nr m 2 |
|
570 .ds t) IM |
|
571 .ds t( "for Internal Memorandum\} |
|
572 .if '\\$1'3' \{\ |
|
573 .nr m 3 |
|
574 .ds t) TC |
|
575 .ds t( "for Technical Correspondence\} |
|
576 .rm MT |
|
577 .. |
|
578 .de dN \" macro for document number info |
|
579 .ie \\ns=1 .ds s( S |
|
580 .el .ds s( |
|
581 .ta 0.8i |
|
582 .br |
|
583 .da dM |
|
584 .if !'\\$1'' \{\ |
|
585 \\$1\\*(t)\\*(s( |
|
586 .nr n \\n+n |
|
587 '''\" \" save first document numb… |
|
588 .if \\nn=1 .ds n) \\$1\\*(t)\\*(s( \} |
|
589 .br |
|
590 .da |
|
591 .. |
|
592 .de oA \" macro for organizationa… |
|
593 .nr oa \\n+(oa |
|
594 .if \\n(oa=1 .ds u( \\$1 |
|
595 .if \\n(oa=2 .as u( \\$1 |
|
596 .if \\n(oa=3 .as u( \\$1 |
|
597 .if \\n(oa=4 .ds v( \\$1 |
|
598 .if \\n(oa=5 .as v( \\$1 |
|
599 .if \\n(oa=6 .as v( \\$1 |
|
600 .if \\n(oa=7 .ds w( \\$1 |
|
601 .if \\n(oa=8 .as w( \\$1 |
|
602 .if \\n(oa=9 .as w( \\$1 |
|
603 .if \\n(oa=10 .ds x( \\$1 |
|
604 .if \\n(oa=11 .as x( \\$1 |
|
605 .if \\n(oa=12 .as x( \\$1 |
|
606 .. |
|
607 .de fC \" macro for filing case i… |
|
608 .ta 3.5i |
|
609 .br |
|
610 .da fB |
|
611 .if !'\\$1'' \{\ |
|
612 .nr fc \\n+(fc |
|
613 \\$1 \} |
|
614 .br |
|
615 .da |
|
616 .. |
|
617 .de fD \" macro for full date info |
|
618 .if !'\\$1'' .fC \\$1 \" use .fC macro un… |
|
619 .. |
|
620 .de wP \" macro for work project … |
|
621 .ta 5.5i |
|
622 .br |
|
623 .da wO |
|
624 .if !'\\$1'' \{\ |
|
625 .nr wp \\n+(wp |
|
626 \\$1 \} |
|
627 .br |
|
628 .da |
|
629 .. |
|
630 .de mC \" macro for mercury selections - … |
|
631 .if !'\\$1'' .Mc \\$1 |
|
632 .if !'\\$2'' .Mc \\$2 |
|
633 .if !'\\$3'' .Mc \\$3 |
|
634 .. |
|
635 .de Mc \" macro for mercury selections - … |
|
636 .ds c) |
|
637 .if \\nb<3 \{\ |
|
638 .ie '\\$1'CHM' .ds c) " CHM - Chemistry and Materials |
|
639 .el .ie '\\$1'chm' .ds c) " CHM - Chemistry and Materials |
|
640 .el .ie '\\$1'CMM' .ds c) " CMM - Communications |
|
641 .el .ie '\\$1'cmm' .ds c) " CMM - Communications |
|
642 .el .ie '\\$1'CMP' .ds c) " CMP - Computing |
|
643 .el .ie '\\$1'cmp' .ds c) " CMP - Computing |
|
644 .el .ie '\\$1'ELC' .ds c) " ELC - Electronics |
|
645 .el .ie '\\$1'elc' .ds c) " ELC - Electronics |
|
646 .el .ie '\\$1'LFS' .ds c) " LFS - Life Sciences |
|
647 .el .ie '\\$1'lfs' .ds c) " LFS - Life Sciences |
|
648 .el .ie '\\$1'MAN' .ds c) " MAN - Manufacturing |
|
649 .el .ie '\\$1'man' .ds c) " MAN - Manufacturing |
|
650 .el .ie '\\$1'MAS' .ds c) " MAS - Mathematics and Statistics |
|
651 .el .ie '\\$1'mas' .ds c) " MAS - Mathematics and Statistics |
|
652 .el .ie '\\$1'MKT' .ds c) " MKT - Marketing |
|
653 .el .ie '\\$1'mkt' .ds c) " MKT - Marketing |
|
654 .el .ie '\\$1'PHY' .ds c) " PHY - Physics |
|
655 .el .ie '\\$1'phy' .ds c) " PHY - Physics |
|
656 .el .ie '\\$1'STD' .ds c) " STD - Standards |
|
657 .el .ie '\\$1'std' .ds c) " STD - Standards |
|
658 .el .ie '\\$1'PRP' .ds c) " PRP - Product Realization Process |
|
659 .el .ie '\\$1'prp' .ds c) " PRP - Product Realization Process |
|
660 .el .ie '\\$1'QLT' .ds c) " QLT - Quality |
|
661 .el .if '\\$1'qlt' .ds c) " QLT - Quality |
|
662 .ie '\\*(c)'' .tm WARNING: \\$1 - unknown mercury selection |
|
663 .el \{\ |
|
664 .nr b \\n+b |
|
665 .if t .as a) \\*(c) |
|
666 .if n \{\ |
|
667 .ie \\nb=3 \{\ |
|
668 .rn a) b) |
|
669 .ds a) \\*(c) \} |
|
670 .el .as a) \\*(c)\}\}\} |
|
671 .. |
|
672 .de mE \" macro for mercury selections |
|
673 .ds a) |
|
674 .ds b) |
|
675 .ds c) |
|
676 '''\" either 'y' or '1' arguments… |
|
677 .nr q 0 |
|
678 .if '\\$1'y' .nr q 1 |
|
679 .if '\\$1'1' .nr q 1 |
|
680 .if \\nq=1 \{\ |
|
681 .as a) " CHM - Chemistry and Materials |
|
682 .nr b \\n+b \} |
|
683 .nr q 0 |
|
684 .if '\\$2'y' .nr q 1 |
|
685 .if '\\$2'1' .nr q 1 |
|
686 .if \\nq=1 \{\ |
|
687 .as a) " CMM - Communications |
|
688 .nr b \\n+b |
|
689 .if n \{\ |
|
690 .if \\nb=2 .rn a) b) \} \} |
|
691 .nr q 0 |
|
692 .if '\\$3'y' .nr q 1 |
|
693 .if '\\$3'1' .nr q 1 |
|
694 .if \\nq=1 \{\ |
|
695 .as a) " CMP - Computing |
|
696 .nr b \\n+b |
|
697 .if t \{\ |
|
698 .if \\nb=3 .rn a) b) \} |
|
699 .if n \{\ |
|
700 .if \\nb=2 .rn a) b) \} \} |
|
701 .nr q 0 |
|
702 .if '\\$4'y' .nr q 1 |
|
703 .if '\\$4'1' .nr q 1 |
|
704 .if \\nq=1 \{\ |
|
705 .as a) " ELC - Electronics |
|
706 .nr b \\n+b |
|
707 .if t \{\ |
|
708 .if \\nb=3 .rn a) b) \} |
|
709 .if n \{\ |
|
710 .if \\nb=4 \{\ |
|
711 .rn b) c) |
|
712 .rn a) b) \} |
|
713 .if \\nb=2 .rn a) b) \} \} |
|
714 .nr q 0 |
|
715 .if '\\$5'y' .nr q 1 |
|
716 .if '\\$5'1' .nr q 1 |
|
717 .if \\nq=1 \{\ |
|
718 .as a) " LFS - Life Sciences |
|
719 .nr b \\n+b |
|
720 .if t \{\ |
|
721 .if \\nb=3 .rn a) b) \} |
|
722 .if n \{\ |
|
723 .if \\nb=4 \{\ |
|
724 .rn b) c) |
|
725 .rn a) b) \} |
|
726 .if \\nb=2 .rn a) b) \} \} |
|
727 .nr q 0 |
|
728 .if '\\$6'y' .nr q 1 |
|
729 .if '\\$6'1' .nr q 1 |
|
730 .if \\nq=1 \{\ |
|
731 .as a) " MAS - Mathematics and Statistics |
|
732 .nr b \\n+b |
|
733 .if t \{\ |
|
734 .if \\nb=3 .rn a) b) \} |
|
735 .if n \{\ |
|
736 .if \\nb=4 \{\ |
|
737 .rn b) c) |
|
738 .rn a) b) \} |
|
739 .if \\nb=2 .rn a) b) \} \} |
|
740 .if \\nb<6 \{\ |
|
741 .nr q 0 |
|
742 .if '\\$7'y' .nr q 1 |
|
743 .if '\\$7'1' .nr q 1 |
|
744 .if \\nq=1 \{\ |
|
745 .as a) " PHY - Physics |
|
746 .nr b \\n+b |
|
747 .if t \{\ |
|
748 .if \\nb=3 .rn a) b) \} |
|
749 .if n \{\ |
|
750 .if \\nb=4 \{\ |
|
751 .rn b) c) |
|
752 .rn a) b) \} |
|
753 .if \\nb=2 .rn a) b) \} \} \} |
|
754 .if t \{\ |
|
755 .if \\nb=3 .rn b) a) \} |
|
756 .if n \{\ |
|
757 .if \\nb=4 \{\ |
|
758 .rn b) a) |
|
759 .rn c) b) \} |
|
760 .if \\nb=2 .rn b) a) \} |
|
761 .rm mE |
|
762 .. |
|
763 .de eD \" macro for earlier document numb… |
|
764 .if !'\\$1'' .ds e( \\$1 |
|
765 .rm eD |
|
766 .. |
|
767 .de PM \" macro for proprietary marking |
|
768 . \" arg 1 - RS or BR or IR or TR… |
|
769 .if '\\$1'RS' .nr p 2 |
|
770 .if '\\$1'BR' .nr p 2 |
|
771 .if '\\$1'IR' .nr p 2 |
|
772 .if '\\$1'TR' .nr p 2 |
|
773 .if '\\$1'R' .nr p 2 |
|
774 .rm PM |
|
775 .. |
|
776 .de gS \" macro for government security c… |
|
777 .nr r 1 |
|
778 .rm gS |
|
779 .. |
|
780 .de rA \" macros for release to Lucent em… |
|
781 . \" superceded by .fA macro 0720… |
|
782 .nr ra 1 |
|
783 .rm rA |
|
784 .. |
|
785 .de fA \" macro for future Lucent distrib… |
|
786 . \" arg 1 = 'y' or 'Y' or 'n' or… |
|
787 .if '\\$1'y' .nr ra 1 |
|
788 .if '\\$1'Y' .nr ra 1 |
|
789 .if '\\$1'n' .nr ra 2 |
|
790 .if '\\$1'N' .nr ra 2 |
|
791 .rm fA |
|
792 .. |
|
793 .de sF \" macro for software-related docu… |
|
794 .nr s 1 |
|
795 .rm sF |
|
796 .. |
|
797 .de cI |
|
798 .rm cI |
|
799 .. |
|
800 .de dL \" macro for calculating basic dis… |
|
801 '''\" call once only - from .cC, … |
|
802 .if \\nd=0 \{\ |
|
803 .nr d 1 |
|
804 '''\" calculate space considerati… |
|
805 '''\" basic distribution length -… |
|
806 .if \\nr=0 .nr e \\ne+2 |
|
807 .if \\nu<=3 .nr e \\ne+3 |
|
808 .if \\nu<=6 .nr e \\ne+3 |
|
809 .if \\nu<=9 .nr e \\ne+3 |
|
810 .if (((\\n(oa>0)&(\\n(oa<=3)):((\\nn<=3)&(\\n(oa=0))) .nr e \\ne+3 |
|
811 .if (((\\n(oa>0)&(\\n(oa<=6)):((\\nn<=6)&(\\n(oa=0))) .nr e \\ne+3 |
|
812 .if (((\\n(oa>0)&(\\n(oa<=9)):((\\nn<=9)&(\\n(oa=0))) .nr e \\ne+3 |
|
813 '''\" nroff: if p=2, 1 ex… |
|
814 .if n .if \\np=2 .nr e \\ne-1 |
|
815 '''\" Future Lucent Distr… |
|
816 .if ((\\n(ra<2)&(\\np=2)) \{\ |
|
817 .nr ra 2 |
|
818 .tm WARNING: Future Lucent Distribution by ITDS - PROPRIETARY (RESTRICTE… |
|
819 .if \\n(ra=0 \{\ |
|
820 .tm WARNING: Future Lucent Distribution by ITDS: missing or invalid .fA … |
|
821 '''\" at least 3 lines fo… |
|
822 '''\" \" next 2 lines for yes/no … |
|
823 .if t .if \\n(ra=0 .nr e \\ne-4 |
|
824 .if n .if \\n(ra=0 .nr e \\ne-5 |
|
825 .if \\n(ra=1 .nr e \\ne-3 |
|
826 .if t .if \\n(ra=2 .nr e \\ne-3 |
|
827 .if n .if \\n(ra=2 .nr e \\ne-4 |
|
828 '''\" increment number on next two lines to drop text lower on page 2 |
|
829 .if t .nr e \\ne+23 |
|
830 .if n .nr e \\ne+21 |
|
831 .if n \{\ |
|
832 '''\" if page 2 text changes, cha… |
|
833 .if \\ne<4 \{\ |
|
834 .tm ERROR: insufficient space to format cover sheet; use "docsend -Taps"… |
|
835 for APS-5, "docsend -Ti10" for imagen, or "docsend -TX… |
|
836 or use stockroom cover sheet |
|
837 .ab \} |
|
838 .ie \\ne<8 .nr e 0 |
|
839 .el .nr e \\ne-7 \} |
|
840 .nr h \\ne |
|
841 .br \} |
|
842 .rm dL |
|
843 .. |
|
844 .de cC \" macro for handling complete cop… |
|
845 .dL |
|
846 .ta 2.0i |
|
847 .nf |
|
848 .br |
|
849 .ie \\ne>0 \{\ |
|
850 .da cA |
|
851 .dt \\nev cD \} |
|
852 .el .da cO |
|
853 .rm cC |
|
854 .. |
|
855 .de cD \" macro for handling complete cop… |
|
856 .ta 2.0i |
|
857 .br |
|
858 .da |
|
859 .da cO |
|
860 .nr lo 56-\\n(lt |
|
861 .dt \\n(lo zZ |
|
862 .. |
|
863 .de zZ \" macro for handling previously lost comp… |
|
864 . \" provide 5 additional continuation pa… |
|
865 .ie "\\n(.z"cO" .fF "g" "cU" |
|
866 .el .ie "\\n(.z"cU" .fF "g1" "cV" |
|
867 .el .ie "\\n(.z"cV" .fF "g2" "cW" |
|
868 .el .ie "\\n(.z"cW" .fF "g3" "cX" |
|
869 .el .ie "\\n(.z"cX" .fF "g4" "cY" |
|
870 .el .if "\\n(.z"cY" .fF "g5" "cZ" |
|
871 .. |
|
872 .de fF \" aux macro for handling previously lost … |
|
873 .ta 2.0i |
|
874 .br |
|
875 .da |
|
876 .ie \\n(dn>0 \{\ |
|
877 .nr \\$1 (\\n(dn)/\\nl+4 |
|
878 .da \\$2 |
|
879 .nr lo 56-\\n(lt |
|
880 .dt \\n(lo zZ \} |
|
881 .el \{\ |
|
882 .nr \\$1 0 |
|
883 .da cZ \} |
|
884 .. |
|
885 .de cS \" macro for handling cover sheet … |
|
886 .dL |
|
887 .ta 2.0i |
|
888 .nf |
|
889 .br |
|
890 .ie \\nh>0 \{\ |
|
891 .da dA |
|
892 .dt \\nhv cT \} |
|
893 .el .da dO |
|
894 .rm cS |
|
895 .. |
|
896 .de cT \" macro for handling cover sheet … |
|
897 .ta 2.0i |
|
898 .br |
|
899 .da |
|
900 .da dO |
|
901 .nr lo 56-\\n(lt |
|
902 .dt \\n(lo wW |
|
903 .. |
|
904 .de wW \" macro for handling previously lost cove… |
|
905 . \" provide 5 additional continuation pa… |
|
906 .ie "\\n(.z"dO" .gG "i" "dU" |
|
907 .el .ie "\\n(.z"dU" .gG "i1" "dV" |
|
908 .el .ie "\\n(.z"dV" .gG "i2" "dW" |
|
909 .el .ie "\\n(.z"dW" .gG "i3" "dX" |
|
910 .el .ie "\\n(.z"dX" .gG "i4" "dY" |
|
911 .el .if "\\n(.z"dY" .gG "i5" "dZ" |
|
912 .. |
|
913 .de gG \" aux macro for handling previously lost … |
|
914 .ta 2.0i |
|
915 .br |
|
916 .da |
|
917 .ie \\n(dn>0 \{\ |
|
918 .nr \\$1 (\\n(dn)/\\nl+4 |
|
919 .da \\$2 |
|
920 .nr lo 56-\\n(lt |
|
921 .dt \\n(lo wW \} |
|
922 .el \{\ |
|
923 .nr \\$1 0 |
|
924 .da dZ \} |
|
925 .. |
|
926 .de cE \" macro for ending all distributi… |
|
927 .br |
|
928 .ie "\\n(.z"cA" \{\ |
|
929 .da |
|
930 .rm cD \} |
|
931 .el .ie "\\n(.z"cO" .eE "g" "cD" |
|
932 .el .ie "\\n(.z"cU" .eE "g1" "cD" |
|
933 .el .ie "\\n(.z"cV" .eE "g2" "cD" |
|
934 .el .ie "\\n(.z"cW" .eE "g3" "cD" |
|
935 .el .ie "\\n(.z"cX" .eE "g4" "cD" |
|
936 .el .ie "\\n(.z"cY" .eE "g5" "cD" |
|
937 .el .ie "\\n(.z"cZ" \{\ |
|
938 .da |
|
939 .rm cD \} |
|
940 .el .ie "\\n(.z"dA" \{\ |
|
941 .da |
|
942 .rm cT \} |
|
943 .el .ie "\\n(.z"dO" .eE "i" "cT" |
|
944 .el .ie "\\n(.z"dU" .eE "i1" "cT" |
|
945 .el .ie "\\n(.z"dV" .eE "i2" "cT" |
|
946 .el .ie "\\n(.z"dW" .eE "i3" "cT" |
|
947 .el .ie "\\n(.z"dX" .eE "i4" "cT" |
|
948 .el .ie "\\n(.z"dY" .eE "i5" "cT" |
|
949 .el .if "\\n(.z"dZ" \{\ |
|
950 .da |
|
951 .rm cT \} |
|
952 .. |
|
953 .de eE \" aux macro for ending all distribution d… |
|
954 .da |
|
955 .ie \\n(dn>0 .nr \\$1 (\\n(dn)/\\nl+4 |
|
956 .el .nr \\$1 0 |
|
957 .rm \\$2 |
|
958 .. |
|
959 '''\" |
|
960 '''\" macros to help format document |
|
961 '''\" |
|
962 .deB |
|
963 .ie\\n(.$ .nr ;G \\n(.f |
|
964 .el.ft 3 |
|
965 .if\\n(.$ .if !\\n(.$-2 \&\f3\\$1\fP\\$2 |
|
966 .if\\n(.$-2 \{.ds }i |
|
967 .if\\n(.f2 .ds }i \^ |
|
968 .ds}I \&\f3\\$1\fP\\$2\\*(}i |
|
969 'br\} |
|
970 .if\\n(.$-2 .if !\\n(.$-4 \\*(}I\f3\\$3\fP\\$4 |
|
971 .if\\n(.$-4 .if !\\n(.$-6 \\*(}I\f3\\$3\fP\\$4\\*(}i\f3\\$5\fP\\$6 |
|
972 .if\\n(.$ .ft \\n(;G |
|
973 .. |
|
974 .deI |
|
975 .ie\\n(.$ .nr ;G \\n(.f |
|
976 .el.ft 2 |
|
977 .if\\n(.$ .if !\\n(.$-1 \&\f2\\$1 |
|
978 .if\\n(.$-1 \{.ds }i \^ |
|
979 .if\\n(.f2 .ds }i |
|
980 .ds}I \& |
|
981 .if\w\\$1 .ds }I \&\f2\\$1\fP\\*(}i |
|
982 'br\} |
|
983 .if\\n(.$-1 .if !\\n(.$-3 \\*(}I\\$2\f2\\$3 |
|
984 .if\\n(.$-3 .if !\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5 |
|
985 .if\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5\fP\\*(}i\\$6 |
|
986 .if\\n(.$ .ft \\n(;G |
|
987 .. |
|
988 .deRI |
|
989 .nr;G \\n(.f |
|
990 .}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" |
|
991 .. |
|
992 .deRB |
|
993 .nr;G \\n(.f |
|
994 .}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" |
|
995 .. |
|
996 .deIR |
|
997 .nr;G \\n(.f |
|
998 .}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" |
|
999 .. |
|
1000 .deIB |
|
1001 .nr;G \\n(.f |
|
1002 .}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" |
|
1003 .. |
|
1004 .deBR |
|
1005 .nr;G \\n(.f |
|
1006 .}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" |
|
1007 .. |
|
1008 .deBI |
|
1009 .nr;G \\n(.f |
|
1010 .}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" |
|
1011 .. |
|
1012 .de}S |
|
1013 .ds}i |
|
1014 .if\\$12 .if !\\$5 .ds }i\^ |
|
1015 .ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(}i" "\\$5" "\\$6" "\\$7" "\… |
|
1016 .el\\$3 |
|
1017 .ft\\n(;G |
|
1018 .. |
|
1019 .deR |
|
1020 .ft1 |
|
1021 .ul0 |
|
1022 .. |
|
1023 .de S \" set point size and vertical spac… |
|
1024 .ie \\n(.$=0 \{\ |
|
1025 .ps |
|
1026 .if t .vs \} |
|
1027 .el \{\ |
|
1028 .ie \w\(ts\\$1\(ts \{\ |
|
1029 .ie 0\\$1-99 .nr ts \\n(ps |
|
1030 .el .nr ts \\$1 \} |
|
1031 .el .nr ts \\n(.s |
|
1032 .ps \\n(ts |
|
1033 .if \\n(.$=1 .if t \{\ |
|
1034 .nr tv \\n(.s+2 |
|
1035 .vs \\n(tvp \} |
|
1036 .if \\n(.$>1 .if t \{\ |
|
1037 .ie \w\(ts\\$2\(ts \{\ |
|
1038 .ie 0\\$2-99 .nr tv \\n(.s+2 |
|
1039 .el .nr tv \\$2 \} |
|
1040 .el .nr tv \\n(.v |
|
1041 .vs \\n(tvp \} \} |
|
1042 .. |
|
1043 .de sP \" space 1 blank line (vertical sp… |
|
1044 .if n .sp 1 |
|
1045 .if t .sp 0.5 |
|
1046 .. |
|
1047 .de P \" paragraph - (default - left-adju… |
|
1048 . \" arg #1=0 - left-adjusted |
|
1049 . \" arg #1=1 - indent standard a… |
|
1050 .ne 1.1 |
|
1051 .sP |
|
1052 .if (\\n(.$>0)&(0\\$1=1) .ti +\\n(sin |
|
1053 .. |
|
1054 .de HC \" set hyphenation indicator |
|
1055 .ev0 |
|
1056 .hc\\$1 |
|
1057 .ev |
|
1058 .ev1 |
|
1059 .hc\\$1 |
|
1060 .ev |
|
1061 .ev2 |
|
1062 .hc\\$1 |
|
1063 .ev |
|
1064 .. |
|
1065 .de SA \" macro for right-adjustment |
|
1066 .if \\n(.$ \{\ |
|
1067 .if \\$1-1 .tm WARNING: SA: bad arg:\\$1 |
|
1068 .nr :h 0\\$1 \} |
|
1069 'na |
|
1070 .if \\n(:h 'ad |
|
1071 .. |
|
1072 .de iN \" macro for font and size re-init… |
|
1073 .ft 1 |
|
1074 .ps \\n(ps |
|
1075 .if t .vs \\n(vsp |
|
1076 .. |
|
1077 .de DS \" macro for display start |
|
1078 .if \\n(ds>0 \{\ |
|
1079 .tm Display within display - illegal. |
|
1080 .DE \} |
|
1081 .if \\n(fs>0 \{\ |
|
1082 .tm Display within footnote - illegal. |
|
1083 .FE \} |
|
1084 .nr in \\n(.i |
|
1085 .nr fi \\n(.u |
|
1086 .br |
|
1087 .ev 2 |
|
1088 .br |
|
1089 .ll 7.0i |
|
1090 .nf |
|
1091 .in \\n(inu |
|
1092 .sP |
|
1093 .if \\n(.$>1 \{\ |
|
1094 .if '\\$2'F' .nr dt 4 |
|
1095 .if '\\$2'1' .nr dt 4 |
|
1096 .if \\n(dt=4 .fi \} |
|
1097 .if \\n(.$>2 .ll-0\\$3 |
|
1098 .nr dt 0 |
|
1099 .nr bd 0 |
|
1100 .if '\\$1'I' .nr dt 1 |
|
1101 .if '\\$1'1' .nr dt 1 |
|
1102 .if \\n(dt=1 .in \\n(sin |
|
1103 .if '\\$1'C' .nr dt 2 |
|
1104 .if '\\$1'2' .nr dt 2 |
|
1105 .if \\n(dt=2 .ce 1000 |
|
1106 .if '\\$1'CB' .nr dt 3 |
|
1107 .if '\\$1'3' .nr dt 3 |
|
1108 .if \\n(dt=3 \{\ |
|
1109 .nr bd 1 |
|
1110 .di dS \} |
|
1111 .nr ds 1 |
|
1112 .. |
|
1113 .de DE \" macro for display end |
|
1114 .br |
|
1115 .ie \\n(ds=0 .tm DE: no active DS |
|
1116 .el \{\ |
|
1117 .ce 0 |
|
1118 .if \\n(bd>0 \{\ |
|
1119 .di |
|
1120 .if \\n(dl>\\n(bd .nr bd \\n(dl |
|
1121 .if \\n(bd<\\n(.l .in (\\n(.lu-\\n(bdu)/2u |
|
1122 .nr dt \\n(.l-\\n(.i |
|
1123 .ta \\n(dtuR |
|
1124 .dS |
|
1125 .br \} |
|
1126 .nr bd 0 |
|
1127 .nr ds 0 |
|
1128 .nr dt 0 |
|
1129 .ev |
|
1130 .in \\n(inu |
|
1131 .sP |
|
1132 .ie \\n(fi=0 .nf |
|
1133 .el .fi \} |
|
1134 .. |
|
1135 .de EQ \" macro for equation start |
|
1136 .ds e) \\$1 |
|
1137 .di eQ |
|
1138 .. |
|
1139 .de EN \" macro for equation end |
|
1140 \!.br |
|
1141 .br |
|
1142 .di |
|
1143 .lt \\n(.lu |
|
1144 .pc |
|
1145 .if \w\(ts\\*(10\\*(e)\(ts \{\ |
|
1146 .ie \\n(bd>0 \{\ |
|
1147 .if \\n(bd<\w\(ts\\*(10\(ts .nr bd \w\(ts\\*(10\(ts |
|
1148 \!\\*(10\h'\\\\n(.lu-\w\(ts\\*(10\\*(e)u\(ts-\\\\n(.iu'\\*(e) |
|
1149 .br \} |
|
1150 .el .ie \\n(dt=2 .tl \(ts\(ts\\*(10\(ts\\*(e)\(ts |
|
1151 .el .ie \\n(dt=1 .tl \(ts\h'\\n(sin'\\*(10\(ts\(ts\\*(e)\(ts |
|
1152 .el .if \\n(dt=0 .tl \(ts\\*(10\(ts\(ts\\*(e)\(ts |
|
1153 'br\} |
|
1154 .pc% |
|
1155 .lt |
|
1156 .. |
|
1157 .de VL \" macro for variable-item lists |
|
1158 .if \\n(ls>0 \{\ |
|
1159 .tm VL: lists may not be nested |
|
1160 .LE \} |
|
1161 .ie \\n(.$<1 .tm WARNING: VL: text-indent not defined |
|
1162 .el \{\ |
|
1163 .nr in \\n(.i |
|
1164 .nr :b \\n(.iu+0\\$1n |
|
1165 .nr :c \\n(.iu+0\\$2n |
|
1166 .ds y) \& |
|
1167 .ie \\n(.$=3 .nr :d 1 |
|
1168 .el .nr :d 0 |
|
1169 .if \\n(:d=1 .sP |
|
1170 .fi |
|
1171 .nr ls +1 |
|
1172 .br \} |
|
1173 .. |
|
1174 .de ML \" macro for marked list |
|
1175 .if \\n(ls>0 \{\ |
|
1176 .tm ML: lists may not be nexted |
|
1177 .LE \} |
|
1178 .ie \\n(.$<1 .tm ML: mark not defined |
|
1179 .el \{\ |
|
1180 .nr in \\n(.i |
|
1181 .ds y) \\$1 |
|
1182 .ie (\\n(.$>1)&(\\$2>0) .nr :b \\n(.iu+0\\$2n |
|
1183 .el .nr :b \\n(.iu+\w\(ts\\*(y)\(tsu+1n |
|
1184 .nr :c \\n(:bu-1n-\w\(ts\\*(y)\(tsu |
|
1185 .ie \\n(.$=3 .nr :d 1 |
|
1186 .el .nr :d 0 |
|
1187 .if \\n(:d=1 .sP |
|
1188 .fi |
|
1189 .in \\n(:bu |
|
1190 .nr ls +1 |
|
1191 .br \} |
|
1192 .. |
|
1193 .de BL \" macro for bullet list - using m… |
|
1194 .ie \\n(.$=2 .ML \\(bu \\$1 \\$2 |
|
1195 .el .ie \\n(.$=1 .ML \\(bu \\$1 |
|
1196 .el .ML \\(bu |
|
1197 .. |
|
1198 .de LI \" macro for list item |
|
1199 .ie \\n(ls=0 .tm LI: no active lists |
|
1200 .el \{\ |
|
1201 .ds z) \\*(y) |
|
1202 .if \\n(.$=1 .ds z) \\$1 |
|
1203 .if \\n(.$=2 .ds z) \\$1\&\\*(z) |
|
1204 .if \\n(:d=0 .sP |
|
1205 .in \\n(:bu |
|
1206 .ti \\n(:cu |
|
1207 .nr :e \w\(ts\\*(z)\(ts |
|
1208 \\*(z)\h'\\n(:bu-\\n(:cu-\\n(:eu'\c \} |
|
1209 .. |
|
1210 .de LE \" macro for list end |
|
1211 .ie \\n(ls=0 .tm LE: no active list |
|
1212 .el \{\ |
|
1213 .br |
|
1214 .nr ls -1 |
|
1215 'in \\n(inu |
|
1216 'ti \\n(inu |
|
1217 .if \\n(.$>0 .sP \} |
|
1218 .. |
|
1219 .de hD \" header macro |
|
1220 '''\" page offset 0.6i for XEROX & DASI; 0.25i for all other devices |
|
1221 '''\" cut marks for APS only |
|
1222 .po 0.25i |
|
1223 .if \\n(dv=3 .po 0.6i |
|
1224 .if n .po 0.6i |
|
1225 .if \\n(dv=1 .tl '\(rn''\(rn' |
|
1226 .if t 'sp|0.2i |
|
1227 .if n 'sp|1 |
|
1228 .. |
|
1229 .de fO \" footer macro |
|
1230 .if t .pl 11.0i |
|
1231 .if n .pl \\n(lp |
|
1232 'bp |
|
1233 .. |
|
1234 .de yY \" macro for abstract overflow - l… |
|
1235 .aT |
|
1236 .rm yY |
|
1237 .. |
|
1238 .de aT \" macro for abstract overflow trap |
|
1239 . \" register a counts overflow p… |
|
1240 .if \\na>0 \{\ |
|
1241 .ft 2 |
|
1242 .ce |
|
1243 (continued) |
|
1244 .ft 1 \} |
|
1245 .if t .pl 11.0i |
|
1246 .if n .pl \\n(lp |
|
1247 .nr a \\n+a |
|
1248 .rn aT xX |
|
1249 'bp |
|
1250 .rn xX aT |
|
1251 .if n .wh -2 aT |
|
1252 .if t .wh -0.55i aT |
|
1253 .cH |
|
1254 .tH |
|
1255 .if t 'sp 0.05i |
|
1256 .ce |
|
1257 .ft 3 |
|
1258 Abstract (continued) |
|
1259 .ft 1 |
|
1260 .in 0.2i |
|
1261 'sp 1 |
|
1262 .. |
|
1263 .de tK \" macro for thick lines |
|
1264 .ps 24 |
|
1265 \l'7.5i' |
|
1266 .ps |
|
1267 .. |
|
1268 .de bE \" macro for empty box |
|
1269 .ps 12 |
|
1270 .if t \\(sq |
|
1271 .if n [ ] |
|
1272 .ps |
|
1273 .. |
|
1274 .de bX \" macro for box with x |
|
1275 .ps 12 |
|
1276 .if t \\o'\(mu\(sq' |
|
1277 .if n [x] |
|
1278 .ps |
|
1279 .. |
|
1280 .de tH \" macro for Title heading and text |
|
1281 . \" called from aT and eP and CS |
|
1282 .tK |
|
1283 .if t 'sp 0.05i |
|
1284 '''\" mark t - Title heading |
|
1285 .mk t |
|
1286 .ft 3 |
|
1287 Title: |
|
1288 .ft 1 |
|
1289 'sp|\\ntu |
|
1290 .in 0.7i |
|
1291 .tI |
|
1292 .in 0 |
|
1293 .ta 0.5i |
|
1294 .nr q \\no/\\nl |
|
1295 .ie \\nq>2 'sp|\\ntu+\\nq |
|
1296 .el 'sp|\\ntu+2 |
|
1297 .tK |
|
1298 . \" m1 - mark end of title secti… |
|
1299 .mk m1 |
|
1300 .. |
|
1301 .de cH \" macro for abstract or distribut… |
|
1302 . \" called from aT and eP |
|
1303 . \" calculate this page number |
|
1304 .nr np \\n(np+1 |
|
1305 .nf |
|
1306 .in 0 |
|
1307 .ft 3 |
|
1308 .ta 7.5iR |
|
1309 .nr tc \\n(tp |
|
1310 .nr nc \\n(np |
|
1311 \\*(n)\f2 (page \\n(nc of \\n(tc) |
|
1312 .ft1 |
|
1313 .if t 'sp 0.1i |
|
1314 .. |
|
1315 .de dH \" macro for distribution list hea… |
|
1316 . \" called from cP and CS |
|
1317 .ft 3 |
|
1318 .ta 1.0i 4.75i |
|
1319 \\$1 \\$2 |
|
1320 .if t .sp 0.05i |
|
1321 .ft 1 |
|
1322 .ta 0.5i 1.0i |
|
1323 .. |
|
1324 .de oH \" macro for final overflow distribution l… |
|
1325 . \" called from cP |
|
1326 .if \\$1>4 .if \\$2>4 .dH "Complete Copy (continued)" "Cover Sheet Only … |
|
1327 .if \\$1>4 .if !\\$2>4 .dH "Complete Copy (continued)" "" |
|
1328 .if !\\$1>4 .if \\$2>4 .dH "" "Cover Sheet Only (continued)" |
|
1329 .. |
|
1330 .de eP \" macro for ejecting distribution… |
|
1331 . \" called from cP |
|
1332 'bp |
|
1333 .wh 0 hD |
|
1334 '''\" put out continuation page h… |
|
1335 .cH |
|
1336 .tH |
|
1337 .. |
|
1338 .de cP \" macro for continuation (distrib… |
|
1339 . \" called from CS |
|
1340 . \" if any distribution overflow… |
|
1341 .ie \\nv<=\\n(.t .nr v 1 |
|
1342 .el .nr v 0 |
|
1343 .if \\nv=1 .if \\nw<=\\n(.t .nr v 2 |
|
1344 . \" check whether continuation p… |
|
1345 .in 0 |
|
1346 .if \\nc=1 \{\ |
|
1347 . \" - if no abstract ove… |
|
1348 .if \\na=0 .eP |
|
1349 .if \\na>0 \{\ |
|
1350 . \" - or if abstract ove… |
|
1351 .ie \\nv<2 .eP |
|
1352 . \" just a thick line if… |
|
1353 .el .tK \} |
|
1354 .ie \\ne=0 \{\ |
|
1355 .if \\ng>4 .if \\ni>4 .dH "Complete Copy" "Cover Sheet Only" |
|
1356 .if \\ng>4 .if !\\ni>4 .dH "Complete Copy" "" |
|
1357 .if !\\ng>4 .if \\ni>4 .dH "" "Cover Sheet Only" \} |
|
1358 .el .oH \\ng \\ni |
|
1359 .mk z |
|
1360 .nr q \\n(.t/\\nl |
|
1361 '''\" put out complete copy list … |
|
1362 .in 0.2i |
|
1363 .cO |
|
1364 .in 0 |
|
1365 .rm cO |
|
1366 .if !\\n(g1=0 \{\ |
|
1367 .ft 2 |
|
1368 .ti 1.25i |
|
1369 (continued) |
|
1370 .ft 1 \} |
|
1371 .mk x |
|
1372 .sp|\\nzu |
|
1373 .in 4.0i |
|
1374 '''\" put out cover sheet list ov… |
|
1375 .dO |
|
1376 .rm dO |
|
1377 .if !\\n(i1=0 \{\ |
|
1378 .ft 2 |
|
1379 .ti 5.00i |
|
1380 (continued) |
|
1381 .ft 1 \} |
|
1382 .mk y |
|
1383 .if ((\\n(g1>0):(\\n(i1>0)) .dP "\\n(g1" "\\n(i1" "cU" "\\n(g2" "dU" "\\… |
|
1384 .if ((\\n(g2>0):(\\n(i2>0)) .dP "\\n(g2" "\\n(i2" "cV" "\\n(g3" "dV" "\\… |
|
1385 .if ((\\n(g3>0):(\\n(i3>0)) .dP "\\n(g3" "\\n(i3" "cW" "\\n(g4" "dW" "\\… |
|
1386 .if ((\\n(g4>0):(\\n(i4>0)) .dP "\\n(g4" "\\n(i4" "cX" "\\n(g5" "dX" "\\… |
|
1387 .if ((\\n(g5>0):(\\n(i5>0)) \{\ |
|
1388 .eP |
|
1389 .oH \\n(g5 \\n(i5 |
|
1390 .mk z |
|
1391 .in 0.2i |
|
1392 .cY |
|
1393 .in 0 |
|
1394 .rm cY |
|
1395 .mk x |
|
1396 .sp|\\nzu |
|
1397 .in 4.0i |
|
1398 .dY |
|
1399 .rm dY |
|
1400 .mk y \} |
|
1401 .in 0 |
|
1402 .if \\nx-\\ny .sp|\\nxu |
|
1403 .tK \} |
|
1404 .. |
|
1405 .de dP \" macro to handle one con… |
|
1406 .eP |
|
1407 .oH \\$1 \\$2 |
|
1408 .mk z |
|
1409 .in 0.2i |
|
1410 .\\$3 |
|
1411 .in 0 |
|
1412 .rm \\$3 |
|
1413 .if !\\$4=0 \{\ |
|
1414 .ft 2 |
|
1415 .ti 1.25i |
|
1416 (continued) |
|
1417 .ft 1 \} |
|
1418 .mk x |
|
1419 .sp|\\nzu |
|
1420 .in 4.0i |
|
1421 .\\$5 |
|
1422 .rm \\$5 |
|
1423 .if !\\$6=0 \{\ |
|
1424 .ft 2 |
|
1425 .ti 5.00i |
|
1426 (continued) |
|
1427 .ft 1 \} |
|
1428 .mk y |
|
1429 .. |
|
1430 .de tP \" macro to compute total … |
|
1431 '''\" calculate vert. units neede… |
|
1432 '''\" called from CS macro |
|
1433 .ie \\ng>4 .nr v (\\ng)*\\nl |
|
1434 .el .nr v 0 |
|
1435 '''\" also for cs overflow (if an… |
|
1436 .ie \\ni>4 .nr w (\\ni)*\\nl |
|
1437 .el .nr w 0 |
|
1438 .ie \\nv>\\nw .nr j \\nv |
|
1439 .el .nr j \\nw |
|
1440 . \" set c=1 if either g or i >0 |
|
1441 .if \\ng>4 .nr c 1 |
|
1442 .if \\ni>4 .nr c 1 |
|
1443 . \" calculate total pages in job… |
|
1444 .nr tp 2 |
|
1445 . \" a1 - page 1 portion abstract… |
|
1446 .nr a1 \\nyu-\\nxu-1v |
|
1447 .ie \\n(la>\\n(a1 \{\ |
|
1448 . \" ar - remainder abstract (uni… |
|
1449 .nr ar \\n(la-\\n(a1 |
|
1450 .nr tp \\n(tp+1 |
|
1451 . \" a2 - available continuation … |
|
1452 . \" m1 is mark after thi… |
|
1453 . \" 2v are lines for Abs… |
|
1454 .if t .nr a2 11.0i-\\n(m1-3v |
|
1455 .if n .nr a2 \\n(lpv-\\n(m1-3v |
|
1456 .t1 \} |
|
1457 .el .if \\nc>0 .nr tp \\n(tp+1 |
|
1458 .if ((\\n(g1>4):(\\n(i1>4)) .nr tp \\n(tp+1 |
|
1459 .if ((\\n(g2>4):(\\n(i2>4)) .nr tp \\n(tp+1 |
|
1460 .if ((\\n(g3>4):(\\n(i3>4)) .nr tp \\n(tp+1 |
|
1461 .if ((\\n(g4>4):(\\n(i4>4)) .nr tp \\n(tp+1 |
|
1462 .if ((\\n(g5>4):(\\n(i5>4)) .nr tp \\n(tp+1 |
|
1463 .. |
|
1464 .de t1 |
|
1465 .ie \\n(ar>\\n(a2 \{\ |
|
1466 .nr ar \\n(ar-\\n(a2 |
|
1467 .nr tp \\n(tp+1 |
|
1468 .t1 \} |
|
1469 .el .if \\n(ar+\\nj>\\n(a2 .nr tp \\n(tp+1 |
|
1470 .. |
|
1471 '''\" |
|
1472 '''\" main macro to handle output of cover sheet |
|
1473 '''\" |
|
1474 .de CS |
|
1475 .if \\nu=0 \{\ |
|
1476 .tm ERROR: author must be supplied |
|
1477 .ab \} |
|
1478 .if \\no=0 \{\ |
|
1479 .tm ERROR: document title must be supplied |
|
1480 .ab \} |
|
1481 .if \\nm=0 \{\ |
|
1482 .tm ERROR: memorandum type undefined or unknown |
|
1483 .ab \} |
|
1484 .if ((\\nm=1)&(\\np=1)) .if \\nb=0 \{\ |
|
1485 .tm ERROR: must have at least one mercury classification with technical … |
|
1486 .ab \} |
|
1487 .if \\nn=0 \{\ |
|
1488 .tm ERROR: document number must be supplied |
|
1489 .ab \} |
|
1490 .if \\n(la=0 .if \\nm<3 \{\ |
|
1491 .tm ERROR: abstract must be supplied for technical and internal memoranda |
|
1492 .ab \} |
|
1493 .if \\nb>3 \{\ |
|
1494 .tm ERROR: no more than 3 mercury classifications may be selected |
|
1495 .ab \} |
|
1496 .if \\n(fc=0 \{\ |
|
1497 .if \\n(en<3 \{\ |
|
1498 .tm ERROR: filing case must be supplied |
|
1499 .ab \} |
|
1500 .if \\n(en=3 \{\ |
|
1501 .tm ERROR: full date must be supplied |
|
1502 .ab \}\} |
|
1503 .if \\n(wp=0 \{\ |
|
1504 .tm ERROR: work project number must be supplied |
|
1505 .ab \} |
|
1506 .dL |
|
1507 .ll 7.5i |
|
1508 .iN |
|
1509 .if \\n(nl .bp |
|
1510 .in 0 |
|
1511 .hD |
|
1512 '''\" put out 1 blank line where … |
|
1513 .sp1 |
|
1514 .if t .sp 0.05i |
|
1515 .nf |
|
1516 .ps 16 |
|
1517 .ft 3 |
|
1518 . \" put out page 1 heading |
|
1519 '''\" if Lucent logo not defined,… |
|
1520 '''\" also put out memorandum … |
|
1521 .ie ((\\n(dv=5)) \{\ |
|
1522 .ie '\f(AT'' .nr lg 0 |
|
1523 .el .nr lg 1 \} |
|
1524 .el \{\ |
|
1525 .ie '\*(lG'' .nr lg 0 |
|
1526 .el .nr lg 1 \} |
|
1527 .ie ((\\n(lg=0)) \{\ |
|
1528 .ta 7.5iR |
|
1529 \\*(e2 Document Cover Sheet |
|
1530 .wh 0 hD |
|
1531 .if t .sp 0.1i |
|
1532 \\*(t(\} |
|
1533 .el \{\ |
|
1534 .ta 7.5iR |
|
1535 Document Cover Sheet |
|
1536 .wh 0 hD |
|
1537 .if t .sp 0.1i |
|
1538 .if \\n(dv=5 \{\ |
|
1539 .ft P |
|
1540 .nr v \n(.f |
|
1541 .ft P \} |
|
1542 .ta 0.25i 7.5iR |
|
1543 \\*(lG \\*(t(\} |
|
1544 .ft 1 |
|
1545 .ps 10 |
|
1546 .tH |
|
1547 .if t .sp 0.05i |
|
1548 .ft 3 |
|
1549 .ie \\nu>1 .ds u) s |
|
1550 .el .ds u) |
|
1551 .if !\\n(en=3 \{\ |
|
1552 .ta 0.5i 2.75i 4.0i 4.7i |
|
1553 Author\\*(u) Location Ext. Company (if othe… |
|
1554 .br \} |
|
1555 .if \\n(en=3 \{\ |
|
1556 .ta 0.5i 2.75i 4.0i 5.0i |
|
1557 Author\\*(u) Location Ext. Company (if… |
|
1558 .if t \\*(e3) |
|
1559 .if n \\*(e3) |
|
1560 .br \} |
|
1561 .ft 1 |
|
1562 '''\" output author info |
|
1563 .aV |
|
1564 .if !'\\*(r('0' \{\ |
|
1565 .ta 0.3i 2.6i |
|
1566 \\*(r( (Responsible \\*(e1 Person)\} |
|
1567 .rm aV AU |
|
1568 .tK |
|
1569 .if t .sp 0.05i |
|
1570 .ft 3 |
|
1571 .ie \\nn>1 .ds v) s |
|
1572 .el .ds v) |
|
1573 .ie \\n(fc>1 .ds w) s |
|
1574 .el .ds w) |
|
1575 .ie \\n(wp>1 .ds x) s |
|
1576 .el .ds x) |
|
1577 .ta 1.0i 3.3i 5.55i |
|
1578 .if \\n(en=1 \{\ |
|
1579 Document No\\*(v). Filing Case No\\*(w). Project N… |
|
1580 .br \} |
|
1581 .if \\n(en=2 \{\ |
|
1582 Document No\\*(v). Filing Case No\\*(w). Project N… |
|
1583 .br \} |
|
1584 .if \\n(en=3 \{\ |
|
1585 .if t .ta 1.0i 3.4i 4.7i |
|
1586 .if n .ta 1.0i 3.4i 4.5i |
|
1587 Document No\\*(v). Full Date Time Charge (or Proje… |
|
1588 .br \} |
|
1589 .if \\n(en=4 \{\ |
|
1590 .if t .ta 1.0i 3.4i 5.2i |
|
1591 .if n .ta 1.0i 3.4i 5.0i |
|
1592 Document No\\*(v). Filing Case No\\*(w). Time Char… |
|
1593 .br \} |
|
1594 .ft 1 |
|
1595 .if t .sp 0.05i |
|
1596 .mk t |
|
1597 '''\" output document number |
|
1598 .dM |
|
1599 .rm dN dM |
|
1600 .mk x |
|
1601 .sp|\\ntu |
|
1602 '''\" output filing case info (or… |
|
1603 .fB |
|
1604 .rm fB fC |
|
1605 .mk y |
|
1606 .sp|\\ntu |
|
1607 '''\" output work project number … |
|
1608 .wO |
|
1609 .rm wO wP |
|
1610 .mk z |
|
1611 .if \\ny>\\nx .nr x \\ny |
|
1612 .if \\nz>\\nx .nr x \\nz |
|
1613 .sp|\\nxu |
|
1614 .tK |
|
1615 '''\" output keywords if they exi… |
|
1616 .if \\nk>0 \{\ |
|
1617 .ft 3 |
|
1618 Keywords: |
|
1619 .ft 1 |
|
1620 .if t .sp 0.05i |
|
1621 .in 0.2i |
|
1622 .fi |
|
1623 \\*(k) |
|
1624 .nf |
|
1625 .in 0 |
|
1626 .tK \} |
|
1627 '''\" output mercury info if it e… |
|
1628 .if \\nb>0 \{\ |
|
1629 .ft 3 |
|
1630 MERCURY Announcement Bulletin Sections |
|
1631 .ft 1 |
|
1632 .if t \{\ |
|
1633 .sp 0.05i |
|
1634 .ta 0.6i 3.1i 5.6i |
|
1635 .ps 8 |
|
1636 \\*(a) |
|
1637 .ps \} |
|
1638 .if n \{\ |
|
1639 .ta 0.5i 4.1i |
|
1640 .if \\nb>2 \\*(b) |
|
1641 \\*(a) |
|
1642 .ps \} |
|
1643 .tK \} |
|
1644 .ps 10 |
|
1645 .ft 3 |
|
1646 Abstract |
|
1647 .ft 1 |
|
1648 .mk x |
|
1649 .if t \{\ |
|
1650 .nr b1 \\nx/\\n(.v+1 |
|
1651 .nr b2 (\\n(b1*\\n(.v)-\\nx |
|
1652 .sp \\n(b2u |
|
1653 .mk x \} |
|
1654 '''\" calculate position (19v includes 2v to print version at bottom of … |
|
1655 '''\" followed by timestamp and 1v line |
|
1656 .nr y \\n(lpv-19v-\\n(fnu |
|
1657 .sp|\\nyu |
|
1658 .sp -1 |
|
1659 .tP |
|
1660 '''\" handle abstract page 1 cont… |
|
1661 .ie \\n(la>\\n(a1 \{\ |
|
1662 .ce |
|
1663 .ft2 |
|
1664 (continued on page iii) |
|
1665 .ft1 |
|
1666 .br \} |
|
1667 .el .sp1 |
|
1668 .tK |
|
1669 .ps 8 |
|
1670 .if t .vs 10p |
|
1671 .nr z 0 |
|
1672 .if '\\$1'' .nr z 1 |
|
1673 .if !'\\$2'' .nr z 1 |
|
1674 .if !'\\$3'' .nr z 1 |
|
1675 .if !'\\$4'' .nr z 1 |
|
1676 .if !'\\$5'' .nr z 1 |
|
1677 .if !'\\$6'' .nr z 1 |
|
1678 .if \\nz=1 \{\ |
|
1679 .tm WARNING: provide total document page count in first argument of .CS … |
|
1680 .nr z 0 |
|
1681 .if !'\\$1'' .nr z \\nz+\\$1 |
|
1682 .nr z \\nz+\\n(tp |
|
1683 .tm Total Pages = \\nz |
|
1684 .ie '\*(.T'X97.tim10p'\{\ |
|
1685 Total Pages (including document cover sheet): \\s+2\\nz\\s-2 |
|
1686 .if !\\*(e('0' \{\ |
|
1687 Supersedes or amends document number \\*(e(. \} |
|
1688 .el .sp1 \} |
|
1689 .el \{\ |
|
1690 \f3Total Pages\f1 (including document cover sheet): \\s+2\\nz\\s-2 |
|
1691 .if !'\\*(e('0' \{\ |
|
1692 \f3Supersedes\f1 or amends document number \\*(e(. \} |
|
1693 .el .sp1 \} |
|
1694 .ps |
|
1695 .if t .vs |
|
1696 .if \\n(fn>0 \{\ |
|
1697 .br |
|
1698 .nf |
|
1699 .fN |
|
1700 .rm fN |
|
1701 .br \} |
|
1702 .mk z |
|
1703 .if t .sp 0.67i |
|
1704 .if n .sp 4 |
|
1705 '''\" output proprietary notice i… |
|
1706 .if \\np=1 \{\ |
|
1707 .ds o) LUCENT \- PROPRIETARY |
|
1708 .ds p) "Use pursuant to Company Instructions |
|
1709 .ds q) |
|
1710 .ds r) |
|
1711 .ft 2 |
|
1712 .if n .ti 14 |
|
1713 .if t .ti 1.65i |
|
1714 \\*(o) |
|
1715 .ft 1 |
|
1716 .if n .ti 5 |
|
1717 .if t .ti 1.25i |
|
1718 \\*(p) \} |
|
1719 .if \\np=2 \{\ |
|
1720 .ds o) LUCENT \- PROPRIETARY (RESTRICTED) |
|
1721 .ds p) "Solely for authorized persons having a need to know |
|
1722 .ds q) "pursuant to Company Instructions |
|
1723 .ft 2 |
|
1724 .if n .ti 10 |
|
1725 .if t .ti 1.25i |
|
1726 \\*(o) |
|
1727 .ft 1 |
|
1728 .if n .ti 0 |
|
1729 .if t .ti 0.875i |
|
1730 \\*(p) |
|
1731 .if n .ti 10 |
|
1732 .if t .ti 1.375i |
|
1733 \\*(q) \} |
|
1734 '''\" output csmacros version |
|
1735 .sp |\\nzu+11v |
|
1736 .ta 7.5iR |
|
1737 \\s8\\*(ve\\s0 |
|
1738 '''\" put out timestamp (if non-e… |
|
1739 .ie !'\\*(s)'0' \{\ |
|
1740 \\s8\\*(s)\\s0 \\*(e3 \} |
|
1741 .el " \\*(e3 |
|
1742 .sp|\\nzu |
|
1743 .sp1 |
|
1744 .ft 3 |
|
1745 .ti 5.25i |
|
1746 \\*(m) |
|
1747 .ft 1 |
|
1748 .sp|\\nxu |
|
1749 .in 0.2i |
|
1750 .nf |
|
1751 '''\" abstract |
|
1752 .if \\n(la>\\n(a1 \{\ |
|
1753 .if n .wh -1 yY |
|
1754 .if t .wh -0.25i yY \} |
|
1755 .pl \\nyu |
|
1756 .ta 0.5i 1.0i 1.5i 2.0i 2.5i |
|
1757 '''\" output the abstract |
|
1758 .aS |
|
1759 .rm aS |
|
1760 .if !\\n(la>\\n(a1 .sp-1 |
|
1761 .rn aT xX |
|
1762 .if t .wh -0.25i fO |
|
1763 .if n .wh -1 fO |
|
1764 '''\" output continuation pages |
|
1765 .cP |
|
1766 'bp |
|
1767 .ft 1 |
|
1768 .in 0 |
|
1769 .wh 0 hD |
|
1770 .nf |
|
1771 .ft 3 |
|
1772 .ta 7.5iR |
|
1773 .nr tc \\n(tp |
|
1774 Initial Distribution Specifications \\*(n)\f2 (page ii of \\n(tc)… |
|
1775 .ft 1 |
|
1776 .tK |
|
1777 .if \\ne>0 \{\ |
|
1778 .dH " Complete Copy" " Cover Sheet Only" |
|
1779 .mk z |
|
1780 '''\" put out complete copy list |
|
1781 .in 0.2i |
|
1782 .cA |
|
1783 .in 0 |
|
1784 .rm cA |
|
1785 .if !\\ng=0 \{\ |
|
1786 .ft 2 |
|
1787 .ti 1.25i |
|
1788 (continued) |
|
1789 .ft 1 \} |
|
1790 .sp|\\nzu |
|
1791 .in 4.0i |
|
1792 '''\" put out cover sheet list |
|
1793 .dA |
|
1794 .rm dA |
|
1795 .if !\\ni=0 \{\ |
|
1796 .ft 2 |
|
1797 .ti 5.00i |
|
1798 (continued) |
|
1799 .ft 1 \} |
|
1800 .in 0 |
|
1801 '''\" starter space value - then … |
|
1802 .sp|5 |
|
1803 .sp \\ne |
|
1804 .tK \} |
|
1805 '''\" put out security section if… |
|
1806 .if \\nr=1 \{\ |
|
1807 \f3Government Security Classified\f1 |
|
1808 .ft 1 |
|
1809 .if t .sp -0.05i |
|
1810 .tK \} |
|
1811 \f3Future Lucent Distribution by ITDS\f1 |
|
1812 .if \\n(ra>0 \{\ |
|
1813 .ti 0.5i |
|
1814 .if t .sp 0.05i |
|
1815 .ie \\n(ra=2 \{\ |
|
1816 .if t \f3DO NOT RELEASE\f1 to any Lucent employee without appropriate ap… |
|
1817 .if n \{\ |
|
1818 \f3DO NOT RELEASE\f1 to any Lucent employee without appropriate approval |
|
1819 .br |
|
1820 .ti 1.0i |
|
1821 for each request.\}\} |
|
1822 .el \{\ |
|
1823 \f3RELEASE\f1 to any Lucent employee (excluding contract employees). |
|
1824 .br \}\} |
|
1825 '''\" next 41 lines for yes/no bo… |
|
1826 .if \\n(ra=0 \{\ |
|
1827 .if t \{\ |
|
1828 .mk z |
|
1829 .ti 0.1i |
|
1830 .bE |
|
1831 .sp|\\nzu |
|
1832 .ti 0.25i |
|
1833 Yes, \f3RELEASE\f1 to any Lucent employee (excluding |
|
1834 .sp|\\nzu |
|
1835 .ti 4.1i |
|
1836 .bE |
|
1837 .sp|\\nzu |
|
1838 .ti 4.25i |
|
1839 No, \f3DO NOT RELEASE\f1 to any Lucent employee |
|
1840 .mk z |
|
1841 .ti 0.35i |
|
1842 contract employees). |
|
1843 .sp|\\nzu |
|
1844 .ti 4.35i |
|
1845 without obtaining appropriate approval.\} |
|
1846 .if n \{\ |
|
1847 .mk z |
|
1848 .ti 0.1i |
|
1849 .bE |
|
1850 .sp|\\nzu |
|
1851 .ti 0.4i |
|
1852 Yes, \f3RELEASE\f1 to any Lucent employee |
|
1853 .sp|\\nzu |
|
1854 .ti 4.1i |
|
1855 .bE |
|
1856 .sp|\\nzu |
|
1857 .ti 4.4i |
|
1858 No, \f3DO NOT RELEASE\f1 to any Lucent |
|
1859 .mk z |
|
1860 .ti 0.5i |
|
1861 (except contract employees). |
|
1862 .ti 4.5i |
|
1863 .sp|\\nzu |
|
1864 employee without obtaining |
|
1865 .ti 4.5i |
|
1866 appropriate approval.\}\} |
|
1867 .if t .sp -0.05i |
|
1868 .tK |
|
1869 .ft 3 |
|
1870 Author Signature\\*(u) |
|
1871 .ft 1 |
|
1872 .sp1 |
|
1873 .ta 2.625i 5.25i |
|
1874 \l'2.25i' \l'2.25i' \l'2.25i' |
|
1875 .ta 0.25i 2.875i 5.5i |
|
1876 \\*(m( |
|
1877 .if \\nu>3 \{\ |
|
1878 .sp1 |
|
1879 .ta 2.635i 5.25i |
|
1880 \l'2.25i' \l'2.25i' \l'2.25i' |
|
1881 .ta 0.25i 2.875i 5.5i |
|
1882 \\*(n( \} |
|
1883 .if \\nu>6 \{\ |
|
1884 .sp1 |
|
1885 .ta 2.635i 5.25i |
|
1886 \l'2.25i' \l'2.25i' \l'2.25i' |
|
1887 .ta 0.25i 2.875i 5.5i |
|
1888 \\*(o( \} |
|
1889 .if \\nu>9 \{\ |
|
1890 .sp1 |
|
1891 .ta 2.635i 5.25i |
|
1892 \l'2.25i' \l'2.25i' \l'2.25i' |
|
1893 .ta 0.25i 2.875i 5.5i |
|
1894 \\*(p( \} |
|
1895 .if t .sp -0.1i |
|
1896 .tK |
|
1897 '''\" output organizational appro… |
|
1898 .ie \\np>1 \{\ |
|
1899 .if t \{\ |
|
1900 \f3Organizational Approval\f1 (\\*(e4 approval \f3required\f1 for \f2\\… |
|
1901 .if n \{\ |
|
1902 \f3Organizational Approval\f1 |
|
1903 .ti 0.5i |
|
1904 \\*(e4 approval \f3required\f1 for \f2\\*(o)\f1. \} |
|
1905 .br \} |
|
1906 .el \{\ |
|
1907 \f3Organizational Approval\f1 (Optional) \} |
|
1908 .sp 1 |
|
1909 .ta 2.625i 5.25i |
|
1910 \l'2.25i' \l'2.25i' \l'2.25i' |
|
1911 .ta 0.25i 2.875i 5.5i |
|
1912 \\*(u( |
|
1913 .if ((\\n(oa>3):((\\nn>3)&(\\n(oa=0))) \{\ |
|
1914 .sp1 |
|
1915 .ta 2.625i 5.25i |
|
1916 \l'2.25i' \l'2.25i' \l'2.25i' |
|
1917 .ta 0.25i 2.875i 5.5i |
|
1918 \\*(v( \} |
|
1919 .if ((\\n(oa>6):((\\nn>6)&(\\n(oa=0))) \{\ |
|
1920 .sp 1 |
|
1921 .ta 2.625i 5.25i |
|
1922 \l'2.25i' \l'2.25i' \l'2.25i' |
|
1923 .ta 0.25i 2.875i 5.5i |
|
1924 \\*(w( \} |
|
1925 .if ((\\n(oa>9):((\\nn>9)&(\\n(oa=0))) \{\ |
|
1926 .sp 1 |
|
1927 .ta 2.625i 5.25i |
|
1928 \l'2.25i' \l'2.25i' \l'2.25i' |
|
1929 .ta 0.25i 2.875i 5.5i |
|
1930 \\*(x( \} |
|
1931 .if t .sp -0.1i |
|
1932 .tK |
|
1933 '''\" recipient section always ou… |
|
1934 .ft 3 |
|
1935 For Use by Recipient of Cover Sheet: |
|
1936 .ft 1 |
|
1937 .if t \{\ |
|
1938 .ps-3 |
|
1939 .vs-4 |
|
1940 .sp1 |
|
1941 .mk z |
|
1942 Computing network users may order copies via the \f2library -1\f1 comm… |
|
1943 for information, type \f2man library\f1 after the UNIX\(rg system pro… |
|
1944 .sp1 |
|
1945 .rn fo xx |
|
1946 Otherwise: |
|
1947 Enter PAN if Lucent-BL (or SS# if non-Lucent-BL). \l'1.5i' |
|
1948 Return this sheet to any ITDS location. |
|
1949 .sp|\\nzu |
|
1950 .in 4.0i |
|
1951 Internal Technical Document Service |
|
1952 .sp1 |
|
1953 .ta 0.9i 1.8i 2.7i |
|
1954 ( ) AK 2H-28 ( ) IH 7M-103 ( ) DR 2F-19 ( ) NW-ITDS |
|
1955 ( ) ALC 1B-102 ( ) MV 3L-19 ( ) INH 1C-114 ( ) PR 5… |
|
1956 ( ) CB 1L-220 ( ) WH 3E-204 ( ) IW 2Z-156 |
|
1957 ( ) HO 4F-112 ( ) MT 2C-131 |
|
1958 .br \} |
|
1959 .if n \{\ |
|
1960 Computing network users may order copies via the \f2library -1\f1 comm… |
|
1961 for information, type \f2man library\f1 after the UNIX system prompt. |
|
1962 Otherwise: |
|
1963 .sp1 |
|
1964 .mk z |
|
1965 .rn fo xx |
|
1966 1 Enter PAN if Lucent-BL (or SS# if |
|
1967 non-Lucent-BL). |
|
1968 \l'2.0i' |
|
1969 2 Return this sheet to any |
|
1970 ITDS location. |
|
1971 .sp|\\nzu |
|
1972 .in 4.0i |
|
1973 Internal Technical Document Service |
|
1974 .sp1 |
|
1975 .ta 1.75i |
|
1976 .if \\n(en=1 \{\ |
|
1977 ( ) AK 2H-28 ( ) IH 7M-103 |
|
1978 ( ) ALC 1B-102 ( ) MV 3L-19 |
|
1979 ( ) CB 1L-220 ( ) WH 3E-204 |
|
1980 ( ) HO 4F-112 \} |
|
1981 .if \\n(en=2 \{\ |
|
1982 ( ) DR 2F-19 |
|
1983 ( ) INH 1C-114 |
|
1984 ( ) IW 2Z-156 |
|
1985 ( ) MT 2C-131 \} |
|
1986 .if \\n(en=3 \{\ |
|
1987 ( ) NW-ITDS \} |
|
1988 .if \\n(en=4 \{\ |
|
1989 ( ) PR5-2120 \} |
|
1990 .br \} |
|
1991 .if \\n(aa \{\ |
|
1992 . sy pwd >/tmp/sx\\n($$ |
|
1993 . sy sed "s/^/cd /" /tmp/sx\\n($$ >/tmp/sc\\n($$ |
|
1994 . sy echo "/usr/lib/tmac/sendcover" \\n(.F \\n(qq >>/tmp/sc\\n($$ |
|
1995 . sy echo "rm" /tmp/sx\\n($$ /tmp/sc\\n($$>>/tmp/sc\\n($$ |
|
1996 . sy sh /tmp/sc\\n($$& |
|
1997 . br \} |
|
1998 .rr a b c e g h i j k |
|
1999 .rr l m n o p q r s t |
|
2000 .rr u v w x y z |
|
2001 .rr an fn as ds fs bd dv lp |
|
2002 .rr tp np la a1 a2 ar fi |
|
2003 .rr in si ps ts vs tv b1 b2 m1 |
|
2004 .rr :b :c :d :e ls dt fc wp |
|
2005 .rr g1 g2 g3 g4 g5 i1 i2 i3 i4 i5 |
|
2006 .rm a) b) c) e) k) n) o) p) q) |
|
2007 .rm r) s) t) u) v) w) x) y) z) |
|
2008 .rm a( b( m( n( o( p( s( t( |
|
2009 .rm tc nc Tm 10 ve |
|
2010 .rm hD fO aT tK bE bX tH cH |
|
2011 .rm dH eP cP tP t1 CS tI tS cE |
|
2012 .rm cZ dZ eE fF gG oH dP |
|
2013 .. |
|
2014 '''\" end of csmacros |
