diff options
Diffstat (limited to 'tmac/tmac.mcs')
| -rw-r--r-- | tmac/tmac.mcs | 2014 |
1 files changed, 2014 insertions, 0 deletions
diff --git a/tmac/tmac.mcs b/tmac/tmac.mcs new file mode 100644 index 00000000..4753b934 --- /dev/null +++ b/tmac/tmac.mcs @@ -0,0 +1,2014 @@ +'''\" @(#)dcs:csmacros 2.3 5/2/89 +'''\" registers +'''\" a - abstract continuation flag - 0 (no), >0 (yes - number of overflow pages) +'''\" b - mercury selections counter +'''\" c - distribution continuation flag - 0 (no), 1 (yes) +'''\" d - distribution length calculation flag - 0 (no), 1 (yes) +'''\" e - complete copy basic distribution length +'''\" g - complete copy overflow distribution length +'''\" h - cover sheet basic distribution length +'''\" i - cover sheet overflow distribution length +'''\" j - scratch +'''\" k - keyword flag - 0 (none), 1 (some) +'''\" l - number of vertical units per line - troff and nroff +'''\" m - memorandum type flag - 1 TM, 2 IM, 3 TC +'''\" n - document number counter +'''\" o - title flag - 0 (no), 1 (yes - vertical size of title diversion) +'''\" p - proprietary notice flag - 0 (none), 1 (default notice), 2(BR) +'''\" q - scratch +'''\" r - security flag - 0 (no), 1 (yes) +'''\" s - software flag - 0 (no), 1 (yes) +'''\" t - mark title position +'''\" u - author count +'''\" v - scratch +'''\" w - scratch +'''\" x - mark scratch position +'''\" y - mark scratch position +'''\" z - mark scratch position +'''\" ra - release to Lucent flag - 0 (no decision), 1 (yes), 2 (no) +'''\" an - length abstract footnote diversion +'''\" fn - length footnote diversion +'''\" as - "in abstract" flag - 0 (no), 1 (yes) +'''\" ds - "in display" flag - 0 (no), 1 (yes) +'''\" fs - "in footnote" flag - 0 (no), 1 (yes) +'''\" bd - block center display flag - 0 (no), 1 (yes) +'''\" dv - device flag - 0 (default), 1 (APS-5), 2 (i10), 3 (xerox), 4 (i300), 5 (qms1200), 6 (postscript) +'''\" lp - lines per page (nroff - xerox) +'''\" tp - total pages (decimal) +'''\" tc - total pages (in small roman) +'''\" np - page number this page (decimal) +'''\" nc - page number this page (in small roman) +'''\" lt - vertical size of title diversion (in lines) +'''\" lo - vertical size of copy overflow trap (in lines) +'''\" la - vertical size of abstract diversion +'''\" a1 - vertical size of page 1 portion of abstract +'''\" a2 - vertical size of overflow page portion of abstract +'''\" ar - vertical size remainder of abstract +'''\" fi - save current fill/no-fill (.u) +'''\" in - save current indent (.i) +'''\" si - standard indent - ens (for paragraphs, displays & equations) +'''\" ps - initial point size (.s) +'''\" ts - temp point size (only in S macro) +'''\" vs - initial vertical spacing (.v) +'''\" tv - temp vertical spacing (only in S macro) +'''\" b1, b2 - scratch calculations +'''\" g1, g2, g3, g4, g5 - complete copy overflow - additional diversion lengths +'''\" i1, i2, i3, i4, i5 - cover sheet only overflow - additional diversionlengths +'''\" m1 - mark scratch position +'''\" :b, :c, :d, :e - scratch (lists only) +'''\" :h - SA macro only +'''\" ls - nested list level (lists only) +'''\" dt - display type (displays & equations) +'''\" fc - filing case flag +'''\" wp - work project number flag +'''\" en - entity flag - 1 (BL), 2 (IS), 3 (TI), 4 (CH) +'''\" lg - Lucent logo flag - 0 (not defined), 1 (defined) +'''\" oa - organizational approval name counter +'''\" aa - ship to itds +'''\" strings +'''\" a) - mercury info +'''\" b) - mercury info +'''\" c) - mercury info +'''\" e) - equation label +'''\" k) - keywords +'''\" m) - Mailing Label/DRAFT +'''\" n) - first document number +'''\" o) - proprietary classification heading +'''\" p) - proprietary string 1 +'''\" q) - " " 2 +'''\" r) - " " 3 +'''\" s) - timestamp string +'''\" t) - memo type (TM, IM, TC) +'''\" u) - trailing s if multiple author +'''\" v) - trailing s if multiple document number +'''\" w) - trailing s if multiple filing case +'''\" x) - trailing s if multiple work project number +'''\" y) - used in lists +'''\" z) - used in lists +'''\" a( - +'''\" e( - earlier document number +'''\" m( - authors 1-3 sig +'''\" n( - authors 4-6 sig +'''\" o( - authors 7-9 sig +'''\" p( - authors 10-12 sig +'''\" r( - responsible person +'''\" s( - S software string +'''\" t( - memo type ("for Technical Memorandum", etc.) +'''\" u( - organizational approval 1-3 sig +'''\" v( - organizational approval 4-6 sig +'''\" w( - organizational approval 7-9 sig +'''\" x( - organizational approval 10-12 sig +'''\" Tm - trademark +'''\" lG - Lucent logo +'''\" 10 - used in equations +'''\" ve - csmacros version +'''\" e1,e2,e3,e4 - entity info +'''\" diversions +'''\" aS - abstract +'''\" aV - author info section +'''\" cA - complete copy addressee primary +'''\" cO - complete copy addressee overflow +'''\" cU, cV, cW, cX, cY, cZ - complete copy addressee overflow (previously lost) +'''\" dA - cover sheet addressee primary +'''\" dO - cover sheet addressee overflow +'''\" dU, dV, dW, dX, dY, dZ - cover sheet only addressee overflow (previously lost) +'''\" dM - document number info +'''\" dS - display +'''\" eQ - equation +'''\" fB - filing case info +'''\" tI - title +'''\" wO - work project number info +'''\" aN - abstract footnote +'''\" fN - footnote +'''\" +'''\" macros to collect information +'''\" aC - Lucent company +'''\" tS - timestamp +'''\" TL - title +'''\" AU - author +'''\" FS - footnote start +'''\" FE - footnote end +'''\" AS - abstract start +'''\" AE - abstract end +'''\" OK - keyword info +'''\" MT - document type +'''\" dN - document number info +'''\" oA - organization approval name +'''\" eD - earlier document number +'''\" fC - filing case +'''\" fD - full date +'''\" wP - work project info +'''\" mE - mercury selections (7 argument version) +'''\" mC - mercury codes (three argument version) +'''\" Mc - mercury codes (one argument version) +'''\" PM - proprietary marking +'''\" gS - government security +'''\" rA - release to Lucent employees (superceded by fA) +'''\" fA - future Lucent distribution (supercedes rA) +'''\" sF - software-related +'''\" cC - complete copy addressee list start +'''\" cD - complete copy overflow +'''\" cS - cover sheet only addressee list start +'''\" cT - cover sheet only overflow +'''\" zZ - complete copy overflow (previously lost) +'''\" fF - complete copy overflow (aux) +'''\" wW - cover sheet overflow (previously lost) +'''\" gG - cover sheet only overflow (aux) +'''\" cE - addressee list end +'''\" eE - addressee list end (aux) +'''\" macros to help format document +'''\" B - change to bold font +'''\" I - change to italic font +'''\" R - change to roman font +'''\" S - set point size and vertical spacing +'''\" sP - space 1 vertical space +'''\" P - paragraph +'''\" HC - set hyphenation indicator +'''\" iN - font and size re-initialization +'''\" DS - display start +'''\" DE - display end +'''\" EQ - equation start +'''\" EN - equation end +'''\" VL - variable-item list +'''\" ML - marked list +'''\" LI - list item +'''\" LE - list end +'''\" hD - header +'''\" fO - footer +'''\" yY - abstract overflow +'''\" aT - abstract overflow trap +'''\" tK - thick lines +'''\" bE - empty box +'''\" bX - box with X +'''\" tH - title heading +'''\" cH - continuation header +'''\" dH - distribution list headers +'''\" oH - overflow distribution list headers +'''\" eP - eject distribution continuation page +'''\" cP - continuation page +'''\" dP - continuation page (aux) +'''\" tP - compute pages and diversion lengths +'''\" t1 - " " +'''\" dL - compute basic distribution length +'''\" CS - output cover sheet +'''\" initialization +'''\" +'''\" registers +.nr a 0 1 +.nr b 0 1 +.nr c 0 +.nr d 0 +.nr e 0 +.nr g 0 +.nr g1 0 +.nr g2 0 +.nr g3 0 +.nr g4 0 +.nr g5 0 +.nr h 6 +.nr i 0 +.nr i1 0 +.nr i2 0 +.nr i3 0 +.nr i4 0 +.nr i5 0 +.nr j 0 +.nr k 0 +.nr m 0 +.nr n 0 1 +.nr o 0 +.nr p 1 +.nr q 0 +.nr r 0 +.nr s 0 +.nr t 0 +.nr u 0 1 +.nr v 0 +.nr w 0 +.nr x 0 +.nr y 0 +.nr z 0 +.nr an 0 +.nr fn 0 +.nr as 0 +.nr ds 0 +.nr fs 0 +.nr bd 0 +.nr tp 0 +.nr tc 0 +.af tc i +.nr np 2 +.nr nc 2 +.af nc i +.nr la 0 +.nr a1 0 +.nr a2 0 +.nr ar 0 +.nr fi 0 +.nr in 0 +.nr :b 0 +.nr :c 0 +.nr :d 0 +.nr :e 0 +.nr :h 0 +.nr ls 0 1 +.nr dt 0 +.nr fc 0 1 +.nr wp 0 1 +.nr en 1 +.nr lg 0 +.nr ra 0 +.nr oa 0 1 +'''\" initialize lines per page +.nr lp 66 +.if n .nr lp 65 +'''\" initialize device register +.nr dv 0 +.if '\*(.T'aps' .nr dv 1 +.if '\*(.T'i10' .nr dv 2 +.if '\*(.T'X97.tim10p' .nr dv 3 +.if '\*(.T'X97.tim12p' .nr dv 3 +.if '\*(.T'X97.ti10p' .nr dv 3 +.if '\*(.T'X97.ti12p' .nr dv 3 +.if '\*(.T'i300' .nr dv 4 +.if '\*(.T'qms' .nr dv 5 +.if '\*(.T'post' .nr dv 6 +'''\" initialize font positions +.ie \n(dv=3 \{\ +.fp 1 R +.fp 2 I +.fp 3 B +.fp 4 I \} +.el .ie \n(dv=5 \{\ +.fp 1 R +.fp 2 I +.fp 3 B +.fp 4 S \} +.el \{\ +.fp 1 H +.fp 2 HI +.fp 3 HB +.fp 4 HX \} +'''\" initialize units per vertical space +.if t .nr l 120 +.if \n(dv=2 .nr l 40 +.if \n(dv=3 .nr l 50 +.if \n(dv=5 .nr l 50 +.if n .nr l 40 +'''\" initialize standard indent +.nr si 5 +'''\" diversions +.di aV +.di +.di dM +.di +.di cA +.di +.di cO +.di +.di cU +.di +.di cV +.di +.di cW +.di +.di cX +.di +.di cY +.di +.di cZ +.di +.di dA +.di +.di dO +.di +.di dU +.di +.di dV +.di +.di dW +.di +.di dX +.di +.di dY +.di +.di dZ +.di +.di fB +.di +.di wO +.di +'''\" initialize Lucent logo +'''\" eventually substitute LH for Lb (DWB 2) +.ie \n(dv=5 .ds lG \s10\f(ATx\fP\f\\nv\fP\s0 +.el .ds lG \s36\(LH\s0 +'''\" initialize entity strings +.ds e1 "LUCENT-BL +.ds e2 "LUCENT +.ds e3 "LUCENT BELL LABORATORIES +.ds e4 "Department Head +'''\" initialize trademark symbol string +.if t .ds Tm \v'-0.5m'\s-4TM\s+4\v'0.5m' +.if n .ds Tm \uTM\d +'''\" initialize timestamp string +.ds s) 0 +'''\" initialize responsible person string +.ds r( 0 +'''\" initialize earlier document number string +.ds e( 0 +'''\" initialize csmacro version string +.ds ve MCS (04/30/89) +'''\" initialize point size, vertical space & indent +.nr ps 10 +.ps \\n(ps +.nr vs 12 +.if t .vs \\n(vsp +.in 0 +'''\" +'''\" macros to collect information +'''\" +.de aC \" macro for Lucent company (entity) +. \" set en=1 if BL (default) +. \" set en=2 if IS +. \" set en=3 if TI +. \" set en=4 if CH (Corporate Headquarters) +.if '\\$1'BL' .nr en 1 +.if '\\$1'IS' .nr en 2 +.if '\\$1'TI' .nr en 3 +.if '\\$1'CH' .nr en 4 +.if \\n(en=1 \{\ +.ds e1 "LUCENT-BL +.ds e2 "LUCENT +.ds e3 "LUCENT BELL LABORATORIES +.ds e4 "Department Head +.br\} +.if \\n(en=2 \{\ +.ds e1 "LUCENT-IS +.ds e2 "LUCENT +.ds e3 "LUCENT INFORMATION SYSTEMS +.ds e4 "Department Head +.br\} +.if \\n(en=3 \{\ +.ds e1 "Lucent Technologies, Inc. +.ds e2 "Lucent +.ds e3 "LUCENT TECHNOLOGIES, INC. +.ds e4 "Manager +.br\} +.if \\n(en=4 \{\ +.ds e1 "Lucent +.ds e2 "Lucent +.ds e3 " Lucent +.ds e4 "Department Head +.br \} +.rm aC +.. +.de tS \" macro for timestamp +'''\" if timestamp string=0, store arg #1 if non-empty. +.if '\\*(s)'0' \{\ +.if !'\\$1'' \{\ +.ie '\\$2'1' .ds s) "D R A F T +.el .ds s) "Timestamp: \\$1 \} \} +.. +.de TL \" macro for title +.if \\nu>0 \{\ +.tm ERROR: coversheet file set up incorrectly - document title must be supplied before author +.ab \} +.br +.fi +.nr aa 1 \" set default to send cover to ITDS +.ie !'\\n(.F'stdin' \{\ +. ie !'\\n(.F'-' \{\ +. sy /usr/lib/tmac/timestamp \\n(.F>/tmp/tp\\n($$ +. so /tmp/tp\\n($$ +. sy /bin/rm /tmp/tp\\n($$ +. br \} \" don't remove br - gets around troff bug +. el \{\ +. nr aa 0 +. tm Coversheet not sent to library. input is '-' \} \} +.el \{\ +. nr aa 0 +. tm Coversheet not sent to library. input is 'stdin' \} +.ie '\\$1'' \{\ +. ds m) "Mailing Label \} +.el \{ +. nr aa 0 +. tm Coversheet not sent to library. DRAFT document +. ds m) \\s+2DRAFT\\s-2 \} \} +.ll 6.0i +'''\" diversion for title +.di tI +.rm TL +.. +.de AU \" macro for author info +'''\" don't count author unless non-empty +.if !\\$1 .nr u \\n+u +.if \\nu=1 \{\ +.br +'''\" end title diversion on first author +.di +.nr lt (\\n(dn)/(\\nl) +.nr o \\n(dn +.ll +.nf \} +.ta 0.3i 2.6i 3.0i 4.0i 5.4i +.br +'''\" append to author list +.da aV + \\$1 \\$3 \\$6 \\$5 \\$7 +.br +.da +'''\" end append; info for signature lines +.if \\nu=1 .ds m( \\$1 +.if \\nu=2 .as m( \\$1 +.if \\nu=3 .as m( \\$1 +.if \\nu=4 .ds n( \\$1 +.if \\nu=5 .as n( \\$1 +.if \\nu=6 .as n( \\$1 +.if \\nu=7 .ds o( \\$1 +.if \\nu=8 .as o( \\$1 +.if \\nu=9 .as o( \\$1 +.if \\nu=10 .ds p( \\$1 +.if \\nu=11 .as p( \\$1 +.if \\nu=12 .as p( \\$1 +.. +.de rP \" macro for responsible person +.if !'\\$1'' .ds r( \\$1 +.rm rP +.. +.de FS \" macro for footnote start +.if \\n(fs>0 \{\ +.tm Footnote within footnote - illegal. +.FE \} +.if \\n(ds>0 \{\ +.tm Footnote within display - illegal. +.FE \} +.nr fs 1 +.ev 1 +.br +.ll 6.4i +.ps 8 +.if t .vs 10p +.fi +.ie \\n(as>0 .da aN +.el \{\ +.da fN +.if \\n(fn=0 \{\ +.br +.if n __________ +.if t \l'1i' +.br \} \} +.if \\n(.$=1 \\$1 +.. +.de FE \" macro for footnote end +.br +.da +.ie \\n(as>0 .nr an \\n(dn+\\n(an +.el .nr fn \\n(dn+\\n(fn +.ev +.nr fs 0 +.. +.de AS \" macro for abstract info +.nr as 1 +.br +.fi +.ll 7.0i +.ta 0.5i 1.0i 1.5i +.di aS +.rm AS +.. +.de AE \" macro for end of abstract info +.br +.di +.nr la \\n(dn +.iN +.if \\n(an>0 \{\ +.br +.da aS +.br +.if n __________ +.if t \l'1i' +.br +.nf +.aN +.rm aN +.br +.da +.nr la \\n(la+\\n(dn \} +.iN +.rm iN +.ll +.nf +.nr as 0 +.rm DS DE EQ EN VL ML LI LE +.rm dS eQ +.rm B I R S sP P +.rm FS FE AE +.. +.de OK \" macro for keyword info +.ds k) +.if !\\$1 .as k) \\$1 +.if !\\$2 .as k); \\$2 +.if !\\$3 .as k); \\$3 +.if !\\$4 .as k); \\$4 +.if !\\$5 .as k); \\$5 +.if !\\$6 .as k); \\$6 +.if !\\$7 .as k); \\$7 +.if !\\$8 .as k); \\$8 +.if !\\$9 .as k); \\$9 +'''\" set k flag if we have some keywords +.ie !\\*(k) .nr k 1 +.el .nr k 0 +.rm OK +.. +.de MT \" macro for document type +.if '\\$1'1' \{\ +.nr m 1 +.ds t) TM +.ds t( "for Technical Memorandum\} +.if '\\$1'2' \{\ +.nr m 2 +.ds t) IM +.ds t( "for Internal Memorandum\} +.if '\\$1'3' \{\ +.nr m 3 +.ds t) TC +.ds t( "for Technical Correspondence\} +.rm MT +.. +.de dN \" macro for document number info +.ie \\ns=1 .ds s( S +.el .ds s( +.ta 0.8i +.br +.da dM +.if !'\\$1'' \{\ + \\$1\\*(t)\\*(s( +.nr n \\n+n +'''\" \" save first document number +.if \\nn=1 .ds n) \\$1\\*(t)\\*(s( \} +.br +.da +.. +.de oA \" macro for organizational approval names(s) +.nr oa \\n+(oa +.if \\n(oa=1 .ds u( \\$1 +.if \\n(oa=2 .as u( \\$1 +.if \\n(oa=3 .as u( \\$1 +.if \\n(oa=4 .ds v( \\$1 +.if \\n(oa=5 .as v( \\$1 +.if \\n(oa=6 .as v( \\$1 +.if \\n(oa=7 .ds w( \\$1 +.if \\n(oa=8 .as w( \\$1 +.if \\n(oa=9 .as w( \\$1 +.if \\n(oa=10 .ds x( \\$1 +.if \\n(oa=11 .as x( \\$1 +.if \\n(oa=12 .as x( \\$1 +.. +.de fC \" macro for filing case info +.ta 3.5i +.br +.da fB +.if !'\\$1'' \{\ +.nr fc \\n+(fc + \\$1 \} +.br +.da +.. +.de fD \" macro for full date info +.if !'\\$1'' .fC \\$1 \" use .fC macro underneath +.. +.de wP \" macro for work project info +.ta 5.5i +.br +.da wO +.if !'\\$1'' \{\ +.nr wp \\n+(wp + \\$1 \} +.br +.da +.. +.de mC \" macro for mercury selections - three argument version +.if !'\\$1'' .Mc \\$1 +.if !'\\$2'' .Mc \\$2 +.if !'\\$3'' .Mc \\$3 +.. +.de Mc \" macro for mercury selections - one argument +.ds c) +.if \\nb<3 \{\ +.ie '\\$1'CHM' .ds c) " CHM - Chemistry and Materials +.el .ie '\\$1'chm' .ds c) " CHM - Chemistry and Materials +.el .ie '\\$1'CMM' .ds c) " CMM - Communications +.el .ie '\\$1'cmm' .ds c) " CMM - Communications +.el .ie '\\$1'CMP' .ds c) " CMP - Computing +.el .ie '\\$1'cmp' .ds c) " CMP - Computing +.el .ie '\\$1'ELC' .ds c) " ELC - Electronics +.el .ie '\\$1'elc' .ds c) " ELC - Electronics +.el .ie '\\$1'LFS' .ds c) " LFS - Life Sciences +.el .ie '\\$1'lfs' .ds c) " LFS - Life Sciences +.el .ie '\\$1'MAN' .ds c) " MAN - Manufacturing +.el .ie '\\$1'man' .ds c) " MAN - Manufacturing +.el .ie '\\$1'MAS' .ds c) " MAS - Mathematics and Statistics +.el .ie '\\$1'mas' .ds c) " MAS - Mathematics and Statistics +.el .ie '\\$1'MKT' .ds c) " MKT - Marketing +.el .ie '\\$1'mkt' .ds c) " MKT - Marketing +.el .ie '\\$1'PHY' .ds c) " PHY - Physics +.el .ie '\\$1'phy' .ds c) " PHY - Physics +.el .ie '\\$1'STD' .ds c) " STD - Standards +.el .ie '\\$1'std' .ds c) " STD - Standards +.el .ie '\\$1'PRP' .ds c) " PRP - Product Realization Process +.el .ie '\\$1'prp' .ds c) " PRP - Product Realization Process +.el .ie '\\$1'QLT' .ds c) " QLT - Quality +.el .if '\\$1'qlt' .ds c) " QLT - Quality +.ie '\\*(c)'' .tm WARNING: \\$1 - unknown mercury selection +.el \{\ +.nr b \\n+b +.if t .as a) \\*(c) +.if n \{\ +.ie \\nb=3 \{\ +.rn a) b) +.ds a) \\*(c) \} +.el .as a) \\*(c)\}\}\} +.. +.de mE \" macro for mercury selections +.ds a) +.ds b) +.ds c) +'''\" either 'y' or '1' arguments honored +.nr q 0 +.if '\\$1'y' .nr q 1 +.if '\\$1'1' .nr q 1 +.if \\nq=1 \{\ +.as a) " CHM - Chemistry and Materials +.nr b \\n+b \} +.nr q 0 +.if '\\$2'y' .nr q 1 +.if '\\$2'1' .nr q 1 +.if \\nq=1 \{\ +.as a) " CMM - Communications +.nr b \\n+b +.if n \{\ +.if \\nb=2 .rn a) b) \} \} +.nr q 0 +.if '\\$3'y' .nr q 1 +.if '\\$3'1' .nr q 1 +.if \\nq=1 \{\ +.as a) " CMP - Computing +.nr b \\n+b +.if t \{\ +.if \\nb=3 .rn a) b) \} +.if n \{\ +.if \\nb=2 .rn a) b) \} \} +.nr q 0 +.if '\\$4'y' .nr q 1 +.if '\\$4'1' .nr q 1 +.if \\nq=1 \{\ +.as a) " ELC - Electronics +.nr b \\n+b +.if t \{\ +.if \\nb=3 .rn a) b) \} +.if n \{\ +.if \\nb=4 \{\ +.rn b) c) +.rn a) b) \} +.if \\nb=2 .rn a) b) \} \} +.nr q 0 +.if '\\$5'y' .nr q 1 +.if '\\$5'1' .nr q 1 +.if \\nq=1 \{\ +.as a) " LFS - Life Sciences +.nr b \\n+b +.if t \{\ +.if \\nb=3 .rn a) b) \} +.if n \{\ +.if \\nb=4 \{\ +.rn b) c) +.rn a) b) \} +.if \\nb=2 .rn a) b) \} \} +.nr q 0 +.if '\\$6'y' .nr q 1 +.if '\\$6'1' .nr q 1 +.if \\nq=1 \{\ +.as a) " MAS - Mathematics and Statistics +.nr b \\n+b +.if t \{\ +.if \\nb=3 .rn a) b) \} +.if n \{\ +.if \\nb=4 \{\ +.rn b) c) +.rn a) b) \} +.if \\nb=2 .rn a) b) \} \} +.if \\nb<6 \{\ +.nr q 0 +.if '\\$7'y' .nr q 1 +.if '\\$7'1' .nr q 1 +.if \\nq=1 \{\ +.as a) " PHY - Physics +.nr b \\n+b +.if t \{\ +.if \\nb=3 .rn a) b) \} +.if n \{\ +.if \\nb=4 \{\ +.rn b) c) +.rn a) b) \} +.if \\nb=2 .rn a) b) \} \} \} +.if t \{\ +.if \\nb=3 .rn b) a) \} +.if n \{\ +.if \\nb=4 \{\ +.rn b) a) +.rn c) b) \} +.if \\nb=2 .rn b) a) \} +.rm mE +.. +.de eD \" macro for earlier document number +.if !'\\$1'' .ds e( \\$1 +.rm eD +.. +.de PM \" macro for proprietary marking +. \" arg 1 - RS or BR or IR or TR or R - restricted +.if '\\$1'RS' .nr p 2 +.if '\\$1'BR' .nr p 2 +.if '\\$1'IR' .nr p 2 +.if '\\$1'TR' .nr p 2 +.if '\\$1'R' .nr p 2 +.rm PM +.. +.de gS \" macro for government security classified +.nr r 1 +.rm gS +.. +.de rA \" macros for release to Lucent employees +. \" superceded by .fA macro 072087 +.nr ra 1 +.rm rA +.. +.de fA \" macro for future Lucent distribution +. \" arg 1 = 'y' or 'Y' or 'n' or 'N' +.if '\\$1'y' .nr ra 1 +.if '\\$1'Y' .nr ra 1 +.if '\\$1'n' .nr ra 2 +.if '\\$1'N' .nr ra 2 +.rm fA +.. +.de sF \" macro for software-related document +.nr s 1 +.rm sF +.. +.de cI +.rm cI +.. +.de dL \" macro for calculating basic distribution length +'''\" call once only - from .cC, .cS, or .CS +.if \\nd=0 \{\ +.nr d 1 +'''\" calculate space considerations +'''\" basic distribution length - to be tailored - set e and h +.if \\nr=0 .nr e \\ne+2 +.if \\nu<=3 .nr e \\ne+3 +.if \\nu<=6 .nr e \\ne+3 +.if \\nu<=9 .nr e \\ne+3 +.if (((\\n(oa>0)&(\\n(oa<=3)):((\\nn<=3)&(\\n(oa=0))) .nr e \\ne+3 +.if (((\\n(oa>0)&(\\n(oa<=6)):((\\nn<=6)&(\\n(oa=0))) .nr e \\ne+3 +.if (((\\n(oa>0)&(\\n(oa<=9)):((\\nn<=9)&(\\n(oa=0))) .nr e \\ne+3 +'''\" nroff: if p=2, 1 extra line under Org Approval +.if n .if \\np=2 .nr e \\ne-1 +'''\" Future Lucent Distribution handling +.if ((\\n(ra<2)&(\\np=2)) \{\ +.nr ra 2 +.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\} +.if \\n(ra=0 \{\ +.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 \} +'''\" at least 3 lines for Future Lucent Distribution section (more for nroff negative and ra=0) +'''\" \" next 2 lines for yes/no boxes; remove when .fA macro becomes mandatory +.if t .if \\n(ra=0 .nr e \\ne-4 +.if n .if \\n(ra=0 .nr e \\ne-5 +.if \\n(ra=1 .nr e \\ne-3 +.if t .if \\n(ra=2 .nr e \\ne-3 +.if n .if \\n(ra=2 .nr e \\ne-4 +'''\" increment number on next two lines to drop text lower on page 2 +.if t .nr e \\ne+23 +.if n .nr e \\ne+21 +.if n \{\ +'''\" if page 2 text changes, change values in next 3 lines +.if \\ne<4 \{\ +.tm ERROR: insufficient space to format cover sheet; use "docsend -Taps" \ + for APS-5, "docsend -Ti10" for imagen, or "docsend -TX97" - \ + or use stockroom cover sheet +.ab \} +.ie \\ne<8 .nr e 0 +.el .nr e \\ne-7 \} +.nr h \\ne +.br \} +.rm dL +.. +.de cC \" macro for handling complete copy addressees +.dL +.ta 2.0i +.nf +.br +.ie \\ne>0 \{\ +.da cA +.dt \\nev cD \} +.el .da cO +.rm cC +.. +.de cD \" macro for handling complete copy address overflow +.ta 2.0i +.br +.da +.da cO +.nr lo 56-\\n(lt +.dt \\n(lo zZ +.. +.de zZ \" macro for handling previously lost complete copy address overflow +. \" provide 5 additional continuation pages (6 in all - approx 350 names) +.ie "\\n(.z"cO" .fF "g" "cU" +.el .ie "\\n(.z"cU" .fF "g1" "cV" +.el .ie "\\n(.z"cV" .fF "g2" "cW" +.el .ie "\\n(.z"cW" .fF "g3" "cX" +.el .ie "\\n(.z"cX" .fF "g4" "cY" +.el .if "\\n(.z"cY" .fF "g5" "cZ" +.. +.de fF \" aux macro for handling previously lost complete copy address overflow +.ta 2.0i +.br +.da +.ie \\n(dn>0 \{\ +.nr \\$1 (\\n(dn)/\\nl+4 +.da \\$2 +.nr lo 56-\\n(lt +.dt \\n(lo zZ \} +.el \{\ +.nr \\$1 0 +.da cZ \} +.. +.de cS \" macro for handling cover sheet only addresses +.dL +.ta 2.0i +.nf +.br +.ie \\nh>0 \{\ +.da dA +.dt \\nhv cT \} +.el .da dO +.rm cS +.. +.de cT \" macro for handling cover sheet address overflow +.ta 2.0i +.br +.da +.da dO +.nr lo 56-\\n(lt +.dt \\n(lo wW +.. +.de wW \" macro for handling previously lost cover sheet only address overflow +. \" provide 5 additional continuation pages (6 in all - approx 350 names) +.ie "\\n(.z"dO" .gG "i" "dU" +.el .ie "\\n(.z"dU" .gG "i1" "dV" +.el .ie "\\n(.z"dV" .gG "i2" "dW" +.el .ie "\\n(.z"dW" .gG "i3" "dX" +.el .ie "\\n(.z"dX" .gG "i4" "dY" +.el .if "\\n(.z"dY" .gG "i5" "dZ" +.. +.de gG \" aux macro for handling previously lost cover sheet only address overflow +.ta 2.0i +.br +.da +.ie \\n(dn>0 \{\ +.nr \\$1 (\\n(dn)/\\nl+4 +.da \\$2 +.nr lo 56-\\n(lt +.dt \\n(lo wW \} +.el \{\ +.nr \\$1 0 +.da dZ \} +.. +.de cE \" macro for ending all distribution diversions +.br +.ie "\\n(.z"cA" \{\ +.da +.rm cD \} +.el .ie "\\n(.z"cO" .eE "g" "cD" +.el .ie "\\n(.z"cU" .eE "g1" "cD" +.el .ie "\\n(.z"cV" .eE "g2" "cD" +.el .ie "\\n(.z"cW" .eE "g3" "cD" +.el .ie "\\n(.z"cX" .eE "g4" "cD" +.el .ie "\\n(.z"cY" .eE "g5" "cD" +.el .ie "\\n(.z"cZ" \{\ +.da +.rm cD \} +.el .ie "\\n(.z"dA" \{\ +.da +.rm cT \} +.el .ie "\\n(.z"dO" .eE "i" "cT" +.el .ie "\\n(.z"dU" .eE "i1" "cT" +.el .ie "\\n(.z"dV" .eE "i2" "cT" +.el .ie "\\n(.z"dW" .eE "i3" "cT" +.el .ie "\\n(.z"dX" .eE "i4" "cT" +.el .ie "\\n(.z"dY" .eE "i5" "cT" +.el .if "\\n(.z"dZ" \{\ +.da +.rm cT \} +.. +.de eE \" aux macro for ending all distribution diversions +.da +.ie \\n(dn>0 .nr \\$1 (\\n(dn)/\\nl+4 +.el .nr \\$1 0 +.rm \\$2 +.. +'''\" +'''\" macros to help format document +'''\" +.deB +.ie\\n(.$ .nr ;G \\n(.f +.el.ft 3 +.if\\n(.$ .if !\\n(.$-2 \&\f3\\$1\fP\\$2 +.if\\n(.$-2 \{.ds }i +.if\\n(.f2 .ds }i \^ +.ds}I \&\f3\\$1\fP\\$2\\*(}i +'br\} +.if\\n(.$-2 .if !\\n(.$-4 \\*(}I\f3\\$3\fP\\$4 +.if\\n(.$-4 .if !\\n(.$-6 \\*(}I\f3\\$3\fP\\$4\\*(}i\f3\\$5\fP\\$6 +.if\\n(.$ .ft \\n(;G +.. +.deI +.ie\\n(.$ .nr ;G \\n(.f +.el.ft 2 +.if\\n(.$ .if !\\n(.$-1 \&\f2\\$1 +.if\\n(.$-1 \{.ds }i \^ +.if\\n(.f2 .ds }i +.ds}I \& +.if\w\\$1 .ds }I \&\f2\\$1\fP\\*(}i +'br\} +.if\\n(.$-1 .if !\\n(.$-3 \\*(}I\\$2\f2\\$3 +.if\\n(.$-3 .if !\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5 +.if\\n(.$-5 \\*(}I\\$2\f2\\$3\fP\\*(}i\\$4\f2\\$5\fP\\*(}i\\$6 +.if\\n(.$ .ft \\n(;G +.. +.deRI +.nr;G \\n(.f +.}S 1 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" +.. +.deRB +.nr;G \\n(.f +.}S 1 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" +.. +.deIR +.nr;G \\n(.f +.}S 2 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" +.. +.deIB +.nr;G \\n(.f +.}S 2 3 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" +.. +.deBR +.nr;G \\n(.f +.}S 3 1 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" +.. +.deBI +.nr;G \\n(.f +.}S 3 2 \& "\\$1" "\\$2" "\\$3" "\\$4" "\\$5" "\\$6" +.. +.de}S +.ds}i +.if\\$12 .if !\\$5 .ds }i\^ +.ie!\\$4 .}S \\$2 \\$1 "\\$3\f\\$1\\$4\\*(}i" "\\$5" "\\$6" "\\$7" "\\$8" "\\$9" +.el\\$3 +.ft\\n(;G +.. +.deR +.ft1 +.ul0 +.. +.de S \" set point size and vertical spacing +.ie \\n(.$=0 \{\ +.ps +.if t .vs \} +.el \{\ +.ie \w\(ts\\$1\(ts \{\ +.ie 0\\$1-99 .nr ts \\n(ps +.el .nr ts \\$1 \} +.el .nr ts \\n(.s +.ps \\n(ts +.if \\n(.$=1 .if t \{\ +.nr tv \\n(.s+2 +.vs \\n(tvp \} +.if \\n(.$>1 .if t \{\ +.ie \w\(ts\\$2\(ts \{\ +.ie 0\\$2-99 .nr tv \\n(.s+2 +.el .nr tv \\$2 \} +.el .nr tv \\n(.v +.vs \\n(tvp \} \} +.. +.de sP \" space 1 blank line (vertical space) +.if n .sp 1 +.if t .sp 0.5 +.. +.de P \" paragraph - (default - left-adjusted) +. \" arg #1=0 - left-adjusted +. \" arg #1=1 - indent standard amount +.ne 1.1 +.sP +.if (\\n(.$>0)&(0\\$1=1) .ti +\\n(sin +.. +.de HC \" set hyphenation indicator +.ev0 +.hc\\$1 +.ev +.ev1 +.hc\\$1 +.ev +.ev2 +.hc\\$1 +.ev +.. +.de SA \" macro for right-adjustment +.if \\n(.$ \{\ +.if \\$1-1 .tm WARNING: SA: bad arg:\\$1 +.nr :h 0\\$1 \} +'na +.if \\n(:h 'ad +.. +.de iN \" macro for font and size re-initialization +.ft 1 +.ps \\n(ps +.if t .vs \\n(vsp +.. +.de DS \" macro for display start +.if \\n(ds>0 \{\ +.tm Display within display - illegal. +.DE \} +.if \\n(fs>0 \{\ +.tm Display within footnote - illegal. +.FE \} +.nr in \\n(.i +.nr fi \\n(.u +.br +.ev 2 +.br +.ll 7.0i +.nf +.in \\n(inu +.sP +.if \\n(.$>1 \{\ +.if '\\$2'F' .nr dt 4 +.if '\\$2'1' .nr dt 4 +.if \\n(dt=4 .fi \} +.if \\n(.$>2 .ll-0\\$3 +.nr dt 0 +.nr bd 0 +.if '\\$1'I' .nr dt 1 +.if '\\$1'1' .nr dt 1 +.if \\n(dt=1 .in \\n(sin +.if '\\$1'C' .nr dt 2 +.if '\\$1'2' .nr dt 2 +.if \\n(dt=2 .ce 1000 +.if '\\$1'CB' .nr dt 3 +.if '\\$1'3' .nr dt 3 +.if \\n(dt=3 \{\ +.nr bd 1 +.di dS \} +.nr ds 1 +.. +.de DE \" macro for display end +.br +.ie \\n(ds=0 .tm DE: no active DS +.el \{\ +.ce 0 +.if \\n(bd>0 \{\ +.di +.if \\n(dl>\\n(bd .nr bd \\n(dl +.if \\n(bd<\\n(.l .in (\\n(.lu-\\n(bdu)/2u +.nr dt \\n(.l-\\n(.i +.ta \\n(dtuR +.dS +.br \} +.nr bd 0 +.nr ds 0 +.nr dt 0 +.ev +.in \\n(inu +.sP +.ie \\n(fi=0 .nf +.el .fi \} +.. +.de EQ \" macro for equation start +.ds e) \\$1 +.di eQ +.. +.de EN \" macro for equation end +\!.br +.br +.di +.lt \\n(.lu +.pc +.if \w\(ts\\*(10\\*(e)\(ts \{\ +.ie \\n(bd>0 \{\ +.if \\n(bd<\w\(ts\\*(10\(ts .nr bd \w\(ts\\*(10\(ts +\!\\*(10\h'\\\\n(.lu-\w\(ts\\*(10\\*(e)u\(ts-\\\\n(.iu'\\*(e) +.br \} +.el .ie \\n(dt=2 .tl \(ts\(ts\\*(10\(ts\\*(e)\(ts +.el .ie \\n(dt=1 .tl \(ts\h'\\n(sin'\\*(10\(ts\(ts\\*(e)\(ts +.el .if \\n(dt=0 .tl \(ts\\*(10\(ts\(ts\\*(e)\(ts +'br\} +.pc% +.lt +.. +.de VL \" macro for variable-item lists +.if \\n(ls>0 \{\ +.tm VL: lists may not be nested +.LE \} +.ie \\n(.$<1 .tm WARNING: VL: text-indent not defined +.el \{\ +.nr in \\n(.i +.nr :b \\n(.iu+0\\$1n +.nr :c \\n(.iu+0\\$2n +.ds y) \& +.ie \\n(.$=3 .nr :d 1 +.el .nr :d 0 +.if \\n(:d=1 .sP +.fi +.nr ls +1 +.br \} +.. +.de ML \" macro for marked list +.if \\n(ls>0 \{\ +.tm ML: lists may not be nexted +.LE \} +.ie \\n(.$<1 .tm ML: mark not defined +.el \{\ +.nr in \\n(.i +.ds y) \\$1 +.ie (\\n(.$>1)&(\\$2>0) .nr :b \\n(.iu+0\\$2n +.el .nr :b \\n(.iu+\w\(ts\\*(y)\(tsu+1n +.nr :c \\n(:bu-1n-\w\(ts\\*(y)\(tsu +.ie \\n(.$=3 .nr :d 1 +.el .nr :d 0 +.if \\n(:d=1 .sP +.fi +.in \\n(:bu +.nr ls +1 +.br \} +.. +.de BL \" macro for bullet list - using marked list +.ie \\n(.$=2 .ML \\(bu \\$1 \\$2 +.el .ie \\n(.$=1 .ML \\(bu \\$1 +.el .ML \\(bu +.. +.de LI \" macro for list item +.ie \\n(ls=0 .tm LI: no active lists +.el \{\ +.ds z) \\*(y) +.if \\n(.$=1 .ds z) \\$1 +.if \\n(.$=2 .ds z) \\$1\&\\*(z) +.if \\n(:d=0 .sP +.in \\n(:bu +.ti \\n(:cu +.nr :e \w\(ts\\*(z)\(ts +\\*(z)\h'\\n(:bu-\\n(:cu-\\n(:eu'\c \} +.. +.de LE \" macro for list end +.ie \\n(ls=0 .tm LE: no active list +.el \{\ +.br +.nr ls -1 +'in \\n(inu +'ti \\n(inu +.if \\n(.$>0 .sP \} +.. +.de hD \" header macro +'''\" page offset 0.6i for XEROX & DASI; 0.25i for all other devices +'''\" cut marks for APS only +.po 0.25i +.if \\n(dv=3 .po 0.6i +.if n .po 0.6i +.if \\n(dv=1 .tl '\(rn''\(rn' +.if t 'sp|0.2i +.if n 'sp|1 +.. +.de fO \" footer macro +.if t .pl 11.0i +.if n .pl \\n(lp +'bp +.. +.de yY \" macro for abstract overflow - line -1 +.aT +.rm yY +.. +.de aT \" macro for abstract overflow trap +. \" register a counts overflow pages +.if \\na>0 \{\ +.ft 2 +.ce +(continued) +.ft 1 \} +.if t .pl 11.0i +.if n .pl \\n(lp +.nr a \\n+a +.rn aT xX +'bp +.rn xX aT +.if n .wh -2 aT +.if t .wh -0.55i aT +.cH +.tH +.if t 'sp 0.05i +.ce +.ft 3 +Abstract (continued) +.ft 1 +.in 0.2i +'sp 1 +.. +.de tK \" macro for thick lines +.ps 24 +\l'7.5i' +.ps +.. +.de bE \" macro for empty box +.ps 12 +.if t \\(sq +.if n [ ] +.ps +.. +.de bX \" macro for box with x +.ps 12 +.if t \\o'\(mu\(sq' +.if n [x] +.ps +.. +.de tH \" macro for Title heading and text +. \" called from aT and eP and CS +.tK +.if t 'sp 0.05i +'''\" mark t - Title heading +.mk t +.ft 3 +Title: +.ft 1 +'sp|\\ntu +.in 0.7i +.tI +.in 0 +.ta 0.5i +.nr q \\no/\\nl +.ie \\nq>2 'sp|\\ntu+\\nq +.el 'sp|\\ntu+2 +.tK +. \" m1 - mark end of title section - save +.mk m1 +.. +.de cH \" macro for abstract or distribution list continuation header +. \" called from aT and eP +. \" calculate this page number +.nr np \\n(np+1 +.nf +.in 0 +.ft 3 +.ta 7.5iR +.nr tc \\n(tp +.nr nc \\n(np + \\*(n)\f2 (page \\n(nc of \\n(tc) +.ft1 +.if t 'sp 0.1i +.. +.de dH \" macro for distribution list headers +. \" called from cP and CS +.ft 3 +.ta 1.0i 4.75i + \\$1 \\$2 +.if t .sp 0.05i +.ft 1 +.ta 0.5i 1.0i +.. +.de oH \" macro for final overflow distribution list headers +. \" called from cP +.if \\$1>4 .if \\$2>4 .dH "Complete Copy (continued)" "Cover Sheet Only (continued)" +.if \\$1>4 .if !\\$2>4 .dH "Complete Copy (continued)" "" +.if !\\$1>4 .if \\$2>4 .dH "" "Cover Sheet Only (continued)" +.. +.de eP \" macro for ejecting distribution continuation page +. \" called from cP +'bp +.wh 0 hD +'''\" put out continuation page header & title section +.cH +.tH +.. +.de cP \" macro for continuation (distribution list) page +. \" called from CS +. \" if any distribution overflow will fit before next trap, set v=2 +.ie \\nv<=\\n(.t .nr v 1 +.el .nr v 0 +.if \\nv=1 .if \\nw<=\\n(.t .nr v 2 +. \" check whether continuation page needs to be ejected +.in 0 +.if \\nc=1 \{\ +. \" - if no abstract overflow +.if \\na=0 .eP +.if \\na>0 \{\ +. \" - or if abstract overflow - but not enough room for list overflow +.ie \\nv<2 .eP +. \" just a thick line if abstract overflow AND enough room for list +.el .tK \} +.ie \\ne=0 \{\ +.if \\ng>4 .if \\ni>4 .dH "Complete Copy" "Cover Sheet Only" +.if \\ng>4 .if !\\ni>4 .dH "Complete Copy" "" +.if !\\ng>4 .if \\ni>4 .dH "" "Cover Sheet Only" \} +.el .oH \\ng \\ni +.mk z +.nr q \\n(.t/\\nl +'''\" put out complete copy list overflow +.in 0.2i +.cO +.in 0 +.rm cO +.if !\\n(g1=0 \{\ +.ft 2 +.ti 1.25i +(continued) +.ft 1 \} +.mk x +.sp|\\nzu +.in 4.0i +'''\" put out cover sheet list overflow +.dO +.rm dO +.if !\\n(i1=0 \{\ +.ft 2 +.ti 5.00i +(continued) +.ft 1 \} +.mk y +.if ((\\n(g1>0):(\\n(i1>0)) .dP "\\n(g1" "\\n(i1" "cU" "\\n(g2" "dU" "\\n(i2" +.if ((\\n(g2>0):(\\n(i2>0)) .dP "\\n(g2" "\\n(i2" "cV" "\\n(g3" "dV" "\\n(i3" +.if ((\\n(g3>0):(\\n(i3>0)) .dP "\\n(g3" "\\n(i3" "cW" "\\n(g4" "dW" "\\n(i4" +.if ((\\n(g4>0):(\\n(i4>0)) .dP "\\n(g4" "\\n(i4" "cX" "\\n(g5" "dX" "\\n(i5" +.if ((\\n(g5>0):(\\n(i5>0)) \{\ +.eP +.oH \\n(g5 \\n(i5 +.mk z +.in 0.2i +.cY +.in 0 +.rm cY +.mk x +.sp|\\nzu +.in 4.0i +.dY +.rm dY +.mk y \} +.in 0 +.if \\nx-\\ny .sp|\\nxu +.tK \} +.. +.de dP \" macro to handle one continuation page +.eP +.oH \\$1 \\$2 +.mk z +.in 0.2i +.\\$3 +.in 0 +.rm \\$3 +.if !\\$4=0 \{\ +.ft 2 +.ti 1.25i +(continued) +.ft 1 \} +.mk x +.sp|\\nzu +.in 4.0i +.\\$5 +.rm \\$5 +.if !\\$6=0 \{\ +.ft 2 +.ti 5.00i +(continued) +.ft 1 \} +.mk y +.. +.de tP \" macro to compute total pages and diversion lengths +'''\" calculate vert. units needed to handle cc overflow (if any) +'''\" called from CS macro +.ie \\ng>4 .nr v (\\ng)*\\nl +.el .nr v 0 +'''\" also for cs overflow (if any) +.ie \\ni>4 .nr w (\\ni)*\\nl +.el .nr w 0 +.ie \\nv>\\nw .nr j \\nv +.el .nr j \\nw +. \" set c=1 if either g or i >0 +.if \\ng>4 .nr c 1 +.if \\ni>4 .nr c 1 +. \" calculate total pages in job (default 2) +.nr tp 2 +. \" a1 - page 1 portion abstract (units) +.nr a1 \\nyu-\\nxu-1v +.ie \\n(la>\\n(a1 \{\ +. \" ar - remainder abstract (units) +.nr ar \\n(la-\\n(a1 +.nr tp \\n(tp+1 +. \" a2 - available continuation page space +. \" m1 is mark after thick line following title/date +. \" 2v are lines for Abstract (continued) and one blank line +.if t .nr a2 11.0i-\\n(m1-3v +.if n .nr a2 \\n(lpv-\\n(m1-3v +.t1 \} +.el .if \\nc>0 .nr tp \\n(tp+1 +.if ((\\n(g1>4):(\\n(i1>4)) .nr tp \\n(tp+1 +.if ((\\n(g2>4):(\\n(i2>4)) .nr tp \\n(tp+1 +.if ((\\n(g3>4):(\\n(i3>4)) .nr tp \\n(tp+1 +.if ((\\n(g4>4):(\\n(i4>4)) .nr tp \\n(tp+1 +.if ((\\n(g5>4):(\\n(i5>4)) .nr tp \\n(tp+1 +.. +.de t1 +.ie \\n(ar>\\n(a2 \{\ +.nr ar \\n(ar-\\n(a2 +.nr tp \\n(tp+1 +.t1 \} +.el .if \\n(ar+\\nj>\\n(a2 .nr tp \\n(tp+1 +.. +'''\" +'''\" main macro to handle output of cover sheet +'''\" +.de CS +.if \\nu=0 \{\ +.tm ERROR: author must be supplied +.ab \} +.if \\no=0 \{\ +.tm ERROR: document title must be supplied +.ab \} +.if \\nm=0 \{\ +.tm ERROR: memorandum type undefined or unknown +.ab \} +.if ((\\nm=1)&(\\np=1)) .if \\nb=0 \{\ +.tm ERROR: must have at least one mercury classification with technical memorandum +.ab \} +.if \\nn=0 \{\ +.tm ERROR: document number must be supplied +.ab \} +.if \\n(la=0 .if \\nm<3 \{\ +.tm ERROR: abstract must be supplied for technical and internal memoranda +.ab \} +.if \\nb>3 \{\ +.tm ERROR: no more than 3 mercury classifications may be selected +.ab \} +.if \\n(fc=0 \{\ +.if \\n(en<3 \{\ +.tm ERROR: filing case must be supplied +.ab \} +.if \\n(en=3 \{\ +.tm ERROR: full date must be supplied +.ab \}\} +.if \\n(wp=0 \{\ +.tm ERROR: work project number must be supplied +.ab \} +.dL +.ll 7.5i +.iN +.if \\n(nl .bp +.in 0 +.hD +'''\" put out 1 blank line where timestamp used to be +.sp1 +.if t .sp 0.05i +.nf +.ps 16 +.ft 3 +. \" put out page 1 heading +'''\" if Lucent logo not defined, put out Lucent string +'''\" also put out memorandum type +.ie ((\\n(dv=5)) \{\ +.ie '\f(AT'' .nr lg 0 +.el .nr lg 1 \} +.el \{\ +.ie '\*(lG'' .nr lg 0 +.el .nr lg 1 \} +.ie ((\\n(lg=0)) \{\ +.ta 7.5iR +\\*(e2 Document Cover Sheet +.wh 0 hD +.if t .sp 0.1i + \\*(t(\} +.el \{\ +.ta 7.5iR + Document Cover Sheet +.wh 0 hD +.if t .sp 0.1i +.if \\n(dv=5 \{\ +.ft P +.nr v \n(.f +.ft P \} +.ta 0.25i 7.5iR + \\*(lG \\*(t(\} +.ft 1 +.ps 10 +.tH +.if t .sp 0.05i +.ft 3 +.ie \\nu>1 .ds u) s +.el .ds u) +.if !\\n(en=3 \{\ +.ta 0.5i 2.75i 4.0i 4.7i + Author\\*(u) Location Ext. Company (if other than \\*(e1) +.br \} +.if \\n(en=3 \{\ +.ta 0.5i 2.75i 4.0i 5.0i + Author\\*(u) Location Ext. Company (if other than +.if t \\*(e3) +.if n \\*(e3) +.br \} +.ft 1 +'''\" output author info +.aV +.if !'\\*(r('0' \{\ +.ta 0.3i 2.6i + \\*(r( (Responsible \\*(e1 Person)\} +.rm aV AU +.tK +.if t .sp 0.05i +.ft 3 +.ie \\nn>1 .ds v) s +.el .ds v) +.ie \\n(fc>1 .ds w) s +.el .ds w) +.ie \\n(wp>1 .ds x) s +.el .ds x) +.ta 1.0i 3.3i 5.55i +.if \\n(en=1 \{\ + Document No\\*(v). Filing Case No\\*(w). Project No\\*(x). +.br \} +.if \\n(en=2 \{\ + Document No\\*(v). Filing Case No\\*(w). Project No\\*(x). +.br \} +.if \\n(en=3 \{\ +.if t .ta 1.0i 3.4i 4.7i +.if n .ta 1.0i 3.4i 4.5i + Document No\\*(v). Full Date Time Charge (or Project Code) No\\*(x). +.br \} +.if \\n(en=4 \{\ +.if t .ta 1.0i 3.4i 5.2i +.if n .ta 1.0i 3.4i 5.0i + Document No\\*(v). Filing Case No\\*(w). Time Charge (or Case) No\\*(x). +.br \} +.ft 1 +.if t .sp 0.05i +.mk t +'''\" output document number +.dM +.rm dN dM +.mk x +.sp|\\ntu +'''\" output filing case info (or full date) +.fB +.rm fB fC +.mk y +.sp|\\ntu +'''\" output work project number info +.wO +.rm wO wP +.mk z +.if \\ny>\\nx .nr x \\ny +.if \\nz>\\nx .nr x \\nz +.sp|\\nxu +.tK +'''\" output keywords if they exist +.if \\nk>0 \{\ +.ft 3 +Keywords: +.ft 1 +.if t .sp 0.05i +.in 0.2i +.fi +\\*(k) +.nf +.in 0 +.tK \} +'''\" output mercury info if it exists +.if \\nb>0 \{\ +.ft 3 +MERCURY Announcement Bulletin Sections +.ft 1 +.if t \{\ +.sp 0.05i +.ta 0.6i 3.1i 5.6i +.ps 8 +\\*(a) +.ps \} +.if n \{\ +.ta 0.5i 4.1i +.if \\nb>2 \\*(b) +\\*(a) +.ps \} +.tK \} +.ps 10 +.ft 3 +Abstract +.ft 1 +.mk x +.if t \{\ +.nr b1 \\nx/\\n(.v+1 +.nr b2 (\\n(b1*\\n(.v)-\\nx +.sp \\n(b2u +.mk x \} +'''\" calculate position (19v includes 2v to print version at bottom of page) +'''\" followed by timestamp and 1v line +.nr y \\n(lpv-19v-\\n(fnu +.sp|\\nyu +.sp -1 +.tP +'''\" handle abstract page 1 continuation +.ie \\n(la>\\n(a1 \{\ +.ce +.ft2 +(continued on page iii) +.ft1 +.br \} +.el .sp1 +.tK +.ps 8 +.if t .vs 10p +.nr z 0 +.if '\\$1'' .nr z 1 +.if !'\\$2'' .nr z 1 +.if !'\\$3'' .nr z 1 +.if !'\\$4'' .nr z 1 +.if !'\\$5'' .nr z 1 +.if !'\\$6'' .nr z 1 +.if \\nz=1 \{\ +.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. \} +.nr z 0 +.if !'\\$1'' .nr z \\nz+\\$1 +.nr z \\nz+\\n(tp +.tm Total Pages = \\nz +.ie '\*(.T'X97.tim10p'\{\ +Total Pages (including document cover sheet): \\s+2\\nz\\s-2 +.if !\\*(e('0' \{\ +Supersedes or amends document number \\*(e(. \} +.el .sp1 \} +.el \{\ +\f3Total Pages\f1 (including document cover sheet): \\s+2\\nz\\s-2 +.if !'\\*(e('0' \{\ +\f3Supersedes\f1 or amends document number \\*(e(. \} +.el .sp1 \} +.ps +.if t .vs +.if \\n(fn>0 \{\ +.br +.nf +.fN +.rm fN +.br \} +.mk z +.if t .sp 0.67i +.if n .sp 4 +'''\" output proprietary notice if it exists +.if \\np=1 \{\ +.ds o) LUCENT \- PROPRIETARY +.ds p) "Use pursuant to Company Instructions +.ds q) +.ds r) +.ft 2 +.if n .ti 14 +.if t .ti 1.65i +\\*(o) +.ft 1 +.if n .ti 5 +.if t .ti 1.25i +\\*(p) \} +.if \\np=2 \{\ +.ds o) LUCENT \- PROPRIETARY (RESTRICTED) +.ds p) "Solely for authorized persons having a need to know +.ds q) "pursuant to Company Instructions +.ft 2 +.if n .ti 10 +.if t .ti 1.25i +\\*(o) +.ft 1 +.if n .ti 0 +.if t .ti 0.875i +\\*(p) +.if n .ti 10 +.if t .ti 1.375i +\\*(q) \} +'''\" output csmacros version +.sp |\\nzu+11v +.ta 7.5iR +\\s8\\*(ve\\s0 +'''\" put out timestamp (if non-empty) and company identifier +.ie !'\\*(s)'0' \{\ +\\s8\\*(s)\\s0 \\*(e3 \} +.el " \\*(e3 +.sp|\\nzu +.sp1 +.ft 3 +.ti 5.25i +\\*(m) +.ft 1 +.sp|\\nxu +.in 0.2i +.nf +'''\" abstract +.if \\n(la>\\n(a1 \{\ +.if n .wh -1 yY +.if t .wh -0.25i yY \} +.pl \\nyu +.ta 0.5i 1.0i 1.5i 2.0i 2.5i +'''\" output the abstract +.aS +.rm aS +.if !\\n(la>\\n(a1 .sp-1 +.rn aT xX +.if t .wh -0.25i fO +.if n .wh -1 fO +'''\" output continuation pages +.cP +'bp +.ft 1 +.in 0 +.wh 0 hD +.nf +.ft 3 +.ta 7.5iR +.nr tc \\n(tp +Initial Distribution Specifications \\*(n)\f2 (page ii of \\n(tc)\f3 +.ft 1 +.tK +.if \\ne>0 \{\ +.dH " Complete Copy" " Cover Sheet Only" +.mk z +'''\" put out complete copy list +.in 0.2i +.cA +.in 0 +.rm cA +.if !\\ng=0 \{\ +.ft 2 +.ti 1.25i +(continued) +.ft 1 \} +.sp|\\nzu +.in 4.0i +'''\" put out cover sheet list +.dA +.rm dA +.if !\\ni=0 \{\ +.ft 2 +.ti 5.00i +(continued) +.ft 1 \} +.in 0 +'''\" starter space value - then tailor according to basic distribution length +.sp|5 +.sp \\ne +.tK \} +'''\" put out security section if selected +.if \\nr=1 \{\ +\f3Government Security Classified\f1 +.ft 1 +.if t .sp -0.05i +.tK \} +\f3Future Lucent Distribution by ITDS\f1 +.if \\n(ra>0 \{\ +.ti 0.5i +.if t .sp 0.05i +.ie \\n(ra=2 \{\ +.if t \f3DO NOT RELEASE\f1 to any Lucent employee without appropriate approval for each request. +.if n \{\ +\f3DO NOT RELEASE\f1 to any Lucent employee without appropriate approval +.br +.ti 1.0i +for each request.\}\} +.el \{\ +\f3RELEASE\f1 to any Lucent employee (excluding contract employees). +.br \}\} +'''\" next 41 lines for yes/no boxes; remove when .fA macro becomes mandatory +.if \\n(ra=0 \{\ +.if t \{\ +.mk z +.ti 0.1i +.bE +.sp|\\nzu +.ti 0.25i +Yes, \f3RELEASE\f1 to any Lucent employee (excluding +.sp|\\nzu +.ti 4.1i +.bE +.sp|\\nzu +.ti 4.25i +No, \f3DO NOT RELEASE\f1 to any Lucent employee +.mk z +.ti 0.35i +contract employees). +.sp|\\nzu +.ti 4.35i +without obtaining appropriate approval.\} +.if n \{\ +.mk z +.ti 0.1i +.bE +.sp|\\nzu +.ti 0.4i +Yes, \f3RELEASE\f1 to any Lucent employee +.sp|\\nzu +.ti 4.1i +.bE +.sp|\\nzu +.ti 4.4i +No, \f3DO NOT RELEASE\f1 to any Lucent +.mk z +.ti 0.5i +(except contract employees). +.ti 4.5i +.sp|\\nzu +employee without obtaining +.ti 4.5i +appropriate approval.\}\} +.if t .sp -0.05i +.tK +.ft 3 +Author Signature\\*(u) +.ft 1 +.sp1 +.ta 2.625i 5.25i +\l'2.25i' \l'2.25i' \l'2.25i' +.ta 0.25i 2.875i 5.5i +\\*(m( +.if \\nu>3 \{\ +.sp1 +.ta 2.635i 5.25i +\l'2.25i' \l'2.25i' \l'2.25i' +.ta 0.25i 2.875i 5.5i +\\*(n( \} +.if \\nu>6 \{\ +.sp1 +.ta 2.635i 5.25i +\l'2.25i' \l'2.25i' \l'2.25i' +.ta 0.25i 2.875i 5.5i +\\*(o( \} +.if \\nu>9 \{\ +.sp1 +.ta 2.635i 5.25i +\l'2.25i' \l'2.25i' \l'2.25i' +.ta 0.25i 2.875i 5.5i +\\*(p( \} +.if t .sp -0.1i +.tK +'''\" output organizational approval section +.ie \\np>1 \{\ +.if t \{\ +\f3Organizational Approval\f1 (\\*(e4 approval \f3required\f1 for \f2\\*(o)\f1.) \} +.if n \{\ +\f3Organizational Approval\f1 +.ti 0.5i +\\*(e4 approval \f3required\f1 for \f2\\*(o)\f1. \} +.br \} +.el \{\ +\f3Organizational Approval\f1 (Optional) \} +.sp 1 +.ta 2.625i 5.25i +\l'2.25i' \l'2.25i' \l'2.25i' +.ta 0.25i 2.875i 5.5i +\\*(u( +.if ((\\n(oa>3):((\\nn>3)&(\\n(oa=0))) \{\ +.sp1 +.ta 2.625i 5.25i +\l'2.25i' \l'2.25i' \l'2.25i' +.ta 0.25i 2.875i 5.5i +\\*(v( \} +.if ((\\n(oa>6):((\\nn>6)&(\\n(oa=0))) \{\ +.sp 1 +.ta 2.625i 5.25i +\l'2.25i' \l'2.25i' \l'2.25i' +.ta 0.25i 2.875i 5.5i +\\*(w( \} +.if ((\\n(oa>9):((\\nn>9)&(\\n(oa=0))) \{\ +.sp 1 +.ta 2.625i 5.25i +\l'2.25i' \l'2.25i' \l'2.25i' +.ta 0.25i 2.875i 5.5i +\\*(x( \} +.if t .sp -0.1i +.tK +'''\" recipient section always output +.ft 3 +For Use by Recipient of Cover Sheet: +.ft 1 +.if t \{\ +.ps-3 +.vs-4 +.sp1 +.mk z + Computing network users may order copies via the \f2library -1\f1 command; + for information, type \f2man library\f1 after the UNIX\(rg system prompt. +.sp1 +.rn fo xx + Otherwise: + Enter PAN if Lucent-BL (or SS# if non-Lucent-BL). \l'1.5i' + Return this sheet to any ITDS location. +.sp|\\nzu +.in 4.0i +Internal Technical Document Service +.sp1 +.ta 0.9i 1.8i 2.7i +( ) AK 2H-28 ( ) IH 7M-103 ( ) DR 2F-19 ( ) NW-ITDS +( ) ALC 1B-102 ( ) MV 3L-19 ( ) INH 1C-114 ( ) PR 5-2120 +( ) CB 1L-220 ( ) WH 3E-204 ( ) IW 2Z-156 +( ) HO 4F-112 ( ) MT 2C-131 +.br \} +.if n \{\ + Computing network users may order copies via the \f2library -1\f1 command; + for information, type \f2man library\f1 after the UNIX system prompt. + Otherwise: +.sp1 +.mk z +.rn fo xx +1 Enter PAN if Lucent-BL (or SS# if + non-Lucent-BL). + \l'2.0i' +2 Return this sheet to any + ITDS location. +.sp|\\nzu +.in 4.0i +Internal Technical Document Service +.sp1 +.ta 1.75i +.if \\n(en=1 \{\ +( ) AK 2H-28 ( ) IH 7M-103 +( ) ALC 1B-102 ( ) MV 3L-19 +( ) CB 1L-220 ( ) WH 3E-204 +( ) HO 4F-112 \} +.if \\n(en=2 \{\ +( ) DR 2F-19 +( ) INH 1C-114 +( ) IW 2Z-156 +( ) MT 2C-131 \} +.if \\n(en=3 \{\ +( ) NW-ITDS \} +.if \\n(en=4 \{\ +( ) PR5-2120 \} +.br \} +.if \\n(aa \{\ +. sy pwd >/tmp/sx\\n($$ +. sy sed "s/^/cd /" /tmp/sx\\n($$ >/tmp/sc\\n($$ +. sy echo "/usr/lib/tmac/sendcover" \\n(.F \\n(qq >>/tmp/sc\\n($$ +. sy echo "rm" /tmp/sx\\n($$ /tmp/sc\\n($$>>/tmp/sc\\n($$ +. sy sh /tmp/sc\\n($$& +. br \} +.rr a b c e g h i j k +.rr l m n o p q r s t +.rr u v w x y z +.rr an fn as ds fs bd dv lp +.rr tp np la a1 a2 ar fi +.rr in si ps ts vs tv b1 b2 m1 +.rr :b :c :d :e ls dt fc wp +.rr g1 g2 g3 g4 g5 i1 i2 i3 i4 i5 +.rm a) b) c) e) k) n) o) p) q) +.rm r) s) t) u) v) w) x) y) z) +.rm a( b( m( n( o( p( s( t( +.rm tc nc Tm 10 ve +.rm hD fO aT tK bE bX tH cH +.rm dH eP cP tP t1 CS tI tS cE +.rm cZ dZ eE fF gG oH dP +.. +'''\" end of csmacros |