aboutsummaryrefslogtreecommitdiff
path: root/tmac/tmac.mcs
diff options
context:
space:
mode:
Diffstat (limited to 'tmac/tmac.mcs')
-rw-r--r--tmac/tmac.mcs2014
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