tmac.mcs (43067B)
1 '''\" @(#)dcs:csmacros 2.3 5/2/89 2 '''\" registers 3 '''\" a - abstract continuation flag - 0 (no), >0 (yes - number of overflow pages) 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 diversion) 17 '''\" p - proprietary notice flag - 0 (none), 1 (default notice), 2(BR) 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 (no) 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 (xerox), 4 (i300), 5 (qms1200), 6 (postscript) 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 & equations) 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 diversion lengths 56 '''\" i1, i2, i3, i4, i5 - cover sheet only overflow - additional diversionlengths 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 (previously lost) 112 '''\" dA - cover sheet addressee primary 113 '''\" dO - cover sheet addressee overflow 114 '''\" dU, dV, dW, dX, dY, dZ - cover sheet only addressee overflow (previously lost) 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 (entity) 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 Headquarters) 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 if non-empty. 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 supplied before author 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 around troff bug 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 non-empty 444 .if !\\$1 .nr u \\n+u 445 .if \\nu=1 \{\ 446 .br 447 '''\" end title diversion on first author 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 signature lines 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 keywords 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 number 588 .if \\nn=1 .ds n) \\$1\\*(t)\\*(s( \} 589 .br 590 .da 591 .. 592 .de oA \" macro for organizational approval names(s) 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 info 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 underneath 619 .. 620 .de wP \" macro for work project info 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 - three argument version 631 .if !'\\$1'' .Mc \\$1 632 .if !'\\$2'' .Mc \\$2 633 .if !'\\$3'' .Mc \\$3 634 .. 635 .de Mc \" macro for mercury selections - one argument 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 honored 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 number 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 or R - restricted 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 classified 777 .nr r 1 778 .rm gS 779 .. 780 .de rA \" macros for release to Lucent employees 781 . \" superceded by .fA macro 072087 782 .nr ra 1 783 .rm rA 784 .. 785 .de fA \" macro for future Lucent distribution 786 . \" arg 1 = 'y' or 'Y' or 'n' or 'N' 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 document 794 .nr s 1 795 .rm sF 796 .. 797 .de cI 798 .rm cI 799 .. 800 .de dL \" macro for calculating basic distribution length 801 '''\" call once only - from .cC, .cS, or .CS 802 .if \\nd=0 \{\ 803 .nr d 1 804 '''\" calculate space considerations 805 '''\" basic distribution length - to be tailored - set e and h 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 extra line under Org Approval 814 .if n .if \\np=2 .nr e \\ne-1 815 '''\" Future Lucent Distribution handling 816 .if ((\\n(ra<2)&(\\np=2)) \{\ 817 .nr ra 2 818 .tm WARNING: Future Lucent Distribution by ITDS - PROPRIETARY (RESTRICTED) document MAY NOT BE RELEASED without appropriate approval for each request; coversheet has been modified accordingly\} 819 .if \\n(ra=0 \{\ 820 .tm WARNING: Future Lucent Distribution by ITDS: missing or invalid .fA macro; indicate desired action by checking yes or no box on page 2 of coversheet; next time include .fA macro with y or n argument \} 821 '''\" at least 3 lines for Future Lucent Distribution section (more for nroff negative and ra=0) 822 '''\" \" next 2 lines for yes/no boxes; remove when .fA macro becomes mandatory 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, change values in next 3 lines 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 -TX97" - \ 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 copy addressees 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 copy address overflow 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 complete copy address overflow 864 . \" provide 5 additional continuation pages (6 in all - approx 350 names) 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 complete copy address overflow 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 only addresses 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 address overflow 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 cover sheet only address overflow 905 . \" provide 5 additional continuation pages (6 in all - approx 350 names) 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 cover sheet only address overflow 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 distribution diversions 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 diversions 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" "\\$8" "\\$9" 1016 .el\\$3 1017 .ft\\n(;G 1018 .. 1019 .deR 1020 .ft1 1021 .ul0 1022 .. 1023 .de S \" set point size and vertical spacing 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 space) 1044 .if n .sp 1 1045 .if t .sp 0.5 1046 .. 1047 .de P \" paragraph - (default - left-adjusted) 1048 . \" arg #1=0 - left-adjusted 1049 . \" arg #1=1 - indent standard amount 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-initialization 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 marked list 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 - line -1 1235 .aT 1236 .rm yY 1237 .. 1238 .de aT \" macro for abstract overflow trap 1239 . \" register a counts overflow pages 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 section - save 1299 .mk m1 1300 .. 1301 .de cH \" macro for abstract or distribution list continuation header 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 headers 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 list headers 1325 . \" called from cP 1326 .if \\$1>4 .if \\$2>4 .dH "Complete Copy (continued)" "Cover Sheet Only (continued)" 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 continuation page 1331 . \" called from cP 1332 'bp 1333 .wh 0 hD 1334 '''\" put out continuation page header & title section 1335 .cH 1336 .tH 1337 .. 1338 .de cP \" macro for continuation (distribution list) page 1339 . \" called from CS 1340 . \" if any distribution overflow will fit before next trap, set v=2 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 page needs to be ejected 1345 .in 0 1346 .if \\nc=1 \{\ 1347 . \" - if no abstract overflow 1348 .if \\na=0 .eP 1349 .if \\na>0 \{\ 1350 . \" - or if abstract overflow - but not enough room for list overflow 1351 .ie \\nv<2 .eP 1352 . \" just a thick line if abstract overflow AND enough room for list 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 overflow 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 overflow 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" "\\n(i2" 1384 .if ((\\n(g2>0):(\\n(i2>0)) .dP "\\n(g2" "\\n(i2" "cV" "\\n(g3" "dV" "\\n(i3" 1385 .if ((\\n(g3>0):(\\n(i3>0)) .dP "\\n(g3" "\\n(i3" "cW" "\\n(g4" "dW" "\\n(i4" 1386 .if ((\\n(g4>0):(\\n(i4>0)) .dP "\\n(g4" "\\n(i4" "cX" "\\n(g5" "dX" "\\n(i5" 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 continuation page 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 pages and diversion lengths 1431 '''\" calculate vert. units needed to handle cc overflow (if any) 1432 '''\" called from CS macro 1433 .ie \\ng>4 .nr v (\\ng)*\\nl 1434 .el .nr v 0 1435 '''\" also for cs overflow (if any) 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 (default 2) 1444 .nr tp 2 1445 . \" a1 - page 1 portion abstract (units) 1446 .nr a1 \\nyu-\\nxu-1v 1447 .ie \\n(la>\\n(a1 \{\ 1448 . \" ar - remainder abstract (units) 1449 .nr ar \\n(la-\\n(a1 1450 .nr tp \\n(tp+1 1451 . \" a2 - available continuation page space 1452 . \" m1 is mark after thick line following title/date 1453 . \" 2v are lines for Abstract (continued) and one blank line 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 memorandum 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 timestamp used to be 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, put out Lucent string 1520 '''\" also put out memorandum type 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 other than \\*(e1) 1554 .br \} 1555 .if \\n(en=3 \{\ 1556 .ta 0.5i 2.75i 4.0i 5.0i 1557 Author\\*(u) Location Ext. Company (if other than 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 No\\*(x). 1580 .br \} 1581 .if \\n(en=2 \{\ 1582 Document No\\*(v). Filing Case No\\*(w). Project No\\*(x). 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 Project Code) No\\*(x). 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 Charge (or Case) No\\*(x). 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 full date) 1603 .fB 1604 .rm fB fC 1605 .mk y 1606 .sp|\\ntu 1607 '''\" output work project number info 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 exist 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 exists 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 page) 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 continuation 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 macro; all other arguments ignored; do NOT include coversheet pages in this count. \} 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 if it exists 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-empty) and company identifier 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)\f3 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 tailor according to basic distribution length 1802 .sp|5 1803 .sp \\ne 1804 .tK \} 1805 '''\" put out security section if selected 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 approval for each request. 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 boxes; remove when .fA macro becomes mandatory 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 approval section 1898 .ie \\np>1 \{\ 1899 .if t \{\ 1900 \f3Organizational Approval\f1 (\\*(e4 approval \f3required\f1 for \f2\\*(o)\f1.) \} 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 output 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 command; 1943 for information, type \f2man library\f1 after the UNIX\(rg system prompt. 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-2120 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 command; 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