1151 lines
21 KiB
C#
1151 lines
21 KiB
C#
'''\" coversheet to match version 8/06/87
|
|
'''\" from comp center 1.30 7/20/87
|
|
'''\" 1/22/97 spacing change in addresses;
|
|
'''\" email on separate line - mdm
|
|
'''\" registers
|
|
'''\" a - abstract continuation flag - 0 (no), >0 (yes)
|
|
'''\" b - mercury selections counter
|
|
'''\" c - distribution continuation flag - 0 (no), 1 (yes)
|
|
'''\" d - flag for length calculation
|
|
'''\" e - complete copy basic distribution length
|
|
'''\" g - complete copy overflow distribution length
|
|
'''\" h - cover sheet basic distribution length
|
|
'''\" i - cover sheet overflow distribution length
|
|
'''\" k - keyword flag - 0 (none), 1 (some) - reused as scratch
|
|
'''\" l - number of vertical units per line - troff
|
|
'''\" 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), 2(BR)
|
|
'''\" r - security flag - 0 (no), 1 (yes)
|
|
'''\" s - software flag - 0 (no), 1 (yes)
|
|
'''\" t - mark title position
|
|
'''\" u - author count
|
|
'''\" q v w x y z- scratch - but remembered
|
|
'''\" aa - ship to itds
|
|
'''\" strings
|
|
'''\" a) b)- mercury info
|
|
'''\" d) - date
|
|
'''\" k) - keywords
|
|
'''\" N1 - first document number
|
|
'''\" p) q) r)- proprietary 1
|
|
'''\" s) - time stamp string
|
|
'''\" t) - memo type (TM, IM, TC)
|
|
'''\" v) - document nos
|
|
'''\" w) - filing case nos
|
|
'''\" x) - work project nos
|
|
'''\" e( - earlier document
|
|
'''\" m( n( o( p(- authors 1-3 sig
|
|
'''\" r( - responsible person
|
|
'''\" s( - S software string
|
|
'''\" t( - memo type ("for Technical Memorandum", etc.)
|
|
'''\" x( - Mailing Label or DRAFT
|
|
'''\" N2 N3- 2nd 3rd document number
|
|
'''\" Fi - up to 3 filing cases
|
|
'''\" Xi - up to 3 work program numbers
|
|
'''\" diversions
|
|
'''\" WB - abstract
|
|
'''\" ZI - author info section
|
|
'''\" ZC - complete copy addressee primary
|
|
'''\" ZO - complete copy addressee overflow
|
|
'''\" ZS - cover sheet addressee primary
|
|
'''\" ZD - cover sheet addressee overflow
|
|
'''\" ZN - document number info
|
|
'''\" WT - title
|
|
'''\"
|
|
'''\" initialization
|
|
'''\"
|
|
'''\" get ms if not loaded
|
|
.if !\n(PS .so /sys/lib/tmac/tmac.s
|
|
. \" to foil ms
|
|
.if !'\*(d)'' \{\
|
|
. tm You're trying to load the coversheet macros twice - havoc will result
|
|
. tm I'm quitting to keep you from wasting paper
|
|
. ex \}
|
|
.rn FE F6
|
|
.nr ST 0
|
|
.nr CS 1
|
|
.ch NP 16i
|
|
.ch FO 16i
|
|
.ch FX 16i
|
|
.ch BT 16i
|
|
.nr FM .01i
|
|
.nr 1T 1
|
|
.nr BE 1
|
|
.nr PI 5n
|
|
.if !\n(PD .nr PD 0.3v
|
|
.pl 11i
|
|
.de FT
|
|
.fp 1 H
|
|
.fp 2 HI
|
|
.fp 3 HB
|
|
.fp 4 HX
|
|
.ps 10
|
|
.vs 12
|
|
..
|
|
.de FB
|
|
.ie !'\\*(TF'' .FP \\*(TF
|
|
.el .FP times
|
|
.ps 10
|
|
.vs 12
|
|
..
|
|
.FT
|
|
.de FE
|
|
.F6
|
|
.nr F4 +\\n(FP
|
|
..
|
|
.nr a 0 1
|
|
.nr b 0 1
|
|
.nr c 0
|
|
.nr d 0
|
|
.nr e 0
|
|
.nr g 0
|
|
.nr h 6
|
|
.nr i 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 dv 0
|
|
.if '\*(.T'aps' .nr dv 1
|
|
'''\" initialize units per vertical space
|
|
.nr l 120
|
|
.nr lp 66
|
|
.nr np 2 1
|
|
.af np i
|
|
.nr tp 2 1
|
|
.nr tc 2
|
|
.af tc i
|
|
.nr la 0
|
|
.nr a1 0
|
|
.nr a2 0
|
|
.nr ar 0
|
|
.nr u! 1
|
|
.nr ud 1
|
|
.nr ra 1
|
|
.di ZI
|
|
.di
|
|
.di ZN
|
|
.di
|
|
.di ZC
|
|
.di
|
|
.di ZO
|
|
.di
|
|
.di ZS
|
|
.di
|
|
.di ZD
|
|
.di
|
|
'''\"initialize date string - keep for 1st pg of tm
|
|
.if \n(mo-0 .ds d) January
|
|
.if \n(mo-1 .ds d) February
|
|
.if \n(mo-2 .ds d) March
|
|
.if \n(mo-3 .ds d) April
|
|
.if \n(mo-4 .ds d) May
|
|
.if \n(mo-5 .ds d) June
|
|
.if \n(mo-6 .ds d) July
|
|
.if \n(mo-7 .ds d) August
|
|
.if \n(mo-8 .ds d) September
|
|
.if \n(mo-9 .ds d) October
|
|
.if \n(mo-10 .ds d) November
|
|
.if \n(mo-11 .ds d) December
|
|
.as d) " \n(dy, 20\n(yr
|
|
.ds DY \*(d)
|
|
''' \" initialize strings
|
|
.ds m!
|
|
.ds m(
|
|
.ds n!
|
|
.ds n(
|
|
.ds o!
|
|
.ds o(
|
|
.ds x!
|
|
.ds y!
|
|
.ds z!
|
|
''' \" initialize proprietary notice
|
|
.ds o) "Alcatel-Lucent \(em PROPRIETARY
|
|
.ds p) "Use pursuant to Company Instructions
|
|
.ds q)
|
|
.ds r)
|
|
''' \" initialize trademark symbol
|
|
.ds MT \v'-0.5m'\s-4TM\s+4\v'0.5m'
|
|
.ds s) 0
|
|
''' \"initialize csmacro version string
|
|
.ds ve MCSL (07/12/90)
|
|
....in 0
|
|
'''\"
|
|
''' \" macros to collect information
|
|
'''\"
|
|
.de DT \" macro for date
|
|
'''\" store date if non-empty
|
|
.if !'\\$1'' .ds d) \\$1 \\$2 \\$3 \\$4
|
|
.ds DY \\$1 \\$2 \\$3 \\$4
|
|
..
|
|
.de TI \" macro for title -TI = mm(TL)
|
|
.br
|
|
.nr aa 0
|
|
.nr TV 1
|
|
.ds x( "Mailing Label \}
|
|
.in 0
|
|
.fi
|
|
.ll 4.25i
|
|
'''\" diversion for title ZT = mm(tI)
|
|
.di WT
|
|
..
|
|
.de AH \" macro for author info AH = mm(AU)
|
|
'''\" name loc dept ext room mail_addr company
|
|
'''\" don't count author unless non-empty
|
|
.br
|
|
.di
|
|
.if !'\\$1'' .nr u \\n+u
|
|
.nr AV \\nu
|
|
.if \\nu=1 \{\
|
|
. br
|
|
'''\" end title diversion on first author
|
|
. di
|
|
. nr o \\n(dn
|
|
. ll
|
|
. nf
|
|
. ds d! \\$3
|
|
. nr m2 \\$3/10 \}
|
|
.ta 0.3i 3.i 4i 5.5i
|
|
.br
|
|
.ds D\\nu \\$2 \\$3
|
|
.ds \\nuL \\$5, x\\$4
|
|
'''\" append to author list ZI = mm(aV)
|
|
.da ZI
|
|
\\$1 \\$2 \\$5 \\$4 \\$7
|
|
.br
|
|
.da
|
|
.if !'\\$6'' \{\
|
|
.da ZI
|
|
(\\$6)
|
|
.br
|
|
.da \}
|
|
'''\" end append; info for signature lines
|
|
.AA \\nu "\\$1" \\$3 \\$2 "\\$4" \\$5 \\$6
|
|
.ta 0.5i 1.0i 1.5i 2.0i 2.5i
|
|
..
|
|
.de AA
|
|
.\"ft 3
|
|
.di M\\$1
|
|
\\$2
|
|
.di
|
|
.di A\\$1
|
|
\\$2
|
|
.if !'\\$3'' Org. \\$3
|
|
.if !'\\$4'' \\$4 \\$6
|
|
.if !'\\$5'' \\$5
|
|
.if !'\\$7'' \\$7
|
|
.sp .05i
|
|
.br
|
|
.di
|
|
.ft
|
|
.sy echo \\$2 >/tmp/tt\\n($$
|
|
.sy sed -f /sys/lib/tmac/name.sed /tmp/tt\\n($$ >/tmp/tx\\n($$
|
|
.so /tmp/tx\\n($$
|
|
.sy rm /tmp/tx\\n($$ /tmp/tt\\n($$
|
|
.if \\$1<2 .ds T1 \\*(T1-gre
|
|
.da G9
|
|
\\$4-\\$3-\\*(T1
|
|
.br
|
|
.da
|
|
.if !'\\*(d!'\\$3' \{\
|
|
. nr u! \\n(u!+1
|
|
. nr m3 \\$3/10
|
|
. if !\\n(m2=\\n(m3 .nr ud \\n(ud+1 \}
|
|
.ie \\$1<4 \{\
|
|
. as m! \\l'2.25i'
|
|
. as m( \\$2 \}
|
|
.el .ie \\$1<7 \{\
|
|
. as n! \\l'2.25i'
|
|
. as n( \\$2 \}
|
|
.el \{\
|
|
. as o! \\l'2.25i'
|
|
. as o( \\$2 \}
|
|
..
|
|
.de TO \"begin list of im to people
|
|
.nr TO 1
|
|
.di 1T
|
|
..
|
|
.de ET \"end list of im to people & output pg
|
|
.di
|
|
.SR
|
|
..
|
|
.de AP \" at&t responsible person AP = mm(rP)
|
|
.br
|
|
.di
|
|
.if !'\\$1'' .ds r( \\$1
|
|
.rm AP
|
|
..
|
|
.de SA \" macro for abstract info SA = mm(AS)
|
|
.br
|
|
.ie \\n(.$ \{\
|
|
.ds a( \\$1
|
|
.if '\\$1'no' .ds a(\}
|
|
.el .ds a( ABSTRACT
|
|
.nr CS 0
|
|
.di
|
|
.fi
|
|
.nr LL 7.0i
|
|
.FB
|
|
.ft 1
|
|
.di WB \" WB = mm(aS)
|
|
..
|
|
.de SE \" macro for end of abstract info SE = mm(AE)
|
|
.br
|
|
.di
|
|
.nr la \\n(dn
|
|
.nr CS 1
|
|
.ll
|
|
.FT
|
|
.ft 1
|
|
.nf
|
|
..
|
|
.de KW \" macro for keyword info KW = mm(OK)
|
|
.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
|
|
..
|
|
.de TY \" macro for document type TY = mm(MT)
|
|
.if '\\$1'TM' \{\
|
|
. nr m 1
|
|
. ds t) TM
|
|
. ds QF TECHNICAL MEMORANDUM
|
|
. ds t( "for Technical Memorandum \}
|
|
.if '\\$1'IM' \{\
|
|
. nr m 2
|
|
. ds t) IM
|
|
. ds QF INTERNAL MEMORANDUM
|
|
. ds t( "for Internal Memorandum \}
|
|
.if '\\$1'TC' \{\
|
|
. nr m 3
|
|
. ds t) TC
|
|
. ds QF TECHNICAL CORRESPONDENCE
|
|
. ds t( "for Technical Correspondence \}
|
|
.ie '\\$2'y' .nr s 1
|
|
.el .nr s 0
|
|
..
|
|
.de NU \" macro for document number info NU = mm(dN fC wP)
|
|
.ie \\ns=1 .ds s( S
|
|
.el .ds s(
|
|
.ie \\n(wp=0 \{\
|
|
. ie '\\$5'' .ds CX 000000-0000
|
|
. el .ds CX \\$5
|
|
. ds X1 \\*(CX
|
|
. nr wp \\n(wp+1 \}
|
|
.el \{\
|
|
. ds CX \\$5
|
|
. if !'\\$5'' \{\
|
|
. if \\n(wp=1 .ds X2 \\*(CX
|
|
. if \\n(wp=2 .ds X3 \\*(CX
|
|
. if \\n(wp=3 .ds X4 \\*(CX
|
|
. if \\n(wp=4 .ds X5 \\*(CX
|
|
. nr wp \\n(wp+1
|
|
. ds x) s\}\}
|
|
.if !'\\$4'' \{\
|
|
. ie !\\n(fc=0 \{\
|
|
. if \\n(fc=1 .ds F2 \\$4
|
|
. if \\n(fc=2 .ds F3 \\$4
|
|
. if \\n(fc=3 .ds F4 \\$4
|
|
. if \\n(fc=4 .ds F5 \\$4
|
|
. ds w) s
|
|
. nr fc \\n(fc+1 \}
|
|
. el \{\
|
|
. ds F1 \\$4
|
|
. nr fc \\n(fc+1 \} \}
|
|
.ie !'\\$1'' \{\
|
|
. ds NN \\$1-\\$2-\\$3\\*(t)\\*(s(
|
|
. if \\nn=0 .ds N1 \\*(NN
|
|
. if \\nn=1 \{\
|
|
. ds v) s
|
|
. ds N2 \\*(NN\}
|
|
. if \\nn=2 .ds N3 \\*(NN
|
|
. if \\nn=3 .ds N4 \\*(NN
|
|
. if \\nn=4 .ds N5 \\*(NN
|
|
. ie \\nn<4 .as x! \\l'2.25i'
|
|
. el ie \\nn<7 .as y! \\l'2.25i'
|
|
. el .as z! \\l'2.25i'
|
|
. nr n \\n+n \}
|
|
.if !'\\$6'' \{\
|
|
. ie !\\n(a!=0 \{\
|
|
. if \\n(a!=1 .as Z1 " \\$6
|
|
. if \\n(a!=2 .as Z1 \\$6
|
|
. nr a! \\n(a!+1 \}
|
|
. el \{\
|
|
. ds Z1 " \\$6
|
|
. nr a! \\n(a!+1 \} \}
|
|
.el .ds NN
|
|
.ta 0.8i 3.5i 5.55i
|
|
.br
|
|
.da ZN \" ZN = mm(dM fC wO)
|
|
\\*(NN \\$4 \\*(CX
|
|
.br
|
|
.da
|
|
.ta 0.5i 1.0i 1.5i
|
|
..
|
|
.de MY \" macro for mercury selections MY = mm(mE)
|
|
.ds a)
|
|
.ds b)
|
|
.if '\\$1'y' \{\
|
|
. as a) " CHM - Chemistry and Materials
|
|
. nr b \\n+b \}
|
|
.if '\\$2'y' \{\
|
|
. as a) " CMM - Communications
|
|
. nr b \\n+b \}
|
|
.if '\\$3'y' \{\
|
|
. as a) " CMP - Computing
|
|
. nr b \\n+b
|
|
. if \\nb=3 .rn a) b) \}
|
|
.if '\\$4'y' \{\
|
|
. as a) " ELC - Electronics
|
|
. nr b \\n+b
|
|
. if \\nb=3 .rn a) b) \}
|
|
.if '\\$5'y' \{\
|
|
. as a) " LFS - Life Sciences
|
|
. nr b \\n+b
|
|
. if \\nb=3 .rn a) b) \}
|
|
.if '\\$6'y' \{\
|
|
. as a) " MAS - Mathematics and Statistics
|
|
. nr b \\n+b
|
|
. if \\nb=3 .rn a) b) \}
|
|
. if \\nb<6 \{\
|
|
. if '\\$7'y' \{\
|
|
. as a) " PHY - Physics
|
|
. nr b \\n+b
|
|
. if \\nb=3 .rn a) b) \} \}
|
|
. if \\nb<6 \{\
|
|
. if '\\$8'y' \{\
|
|
. as a) " MAN - Manufacturing
|
|
. nr b \\n+b \} \}
|
|
.if \\nb=3 .rn b) a)
|
|
..
|
|
.de RL \" lucent distribution ok RL = mm(rA or fA)
|
|
.if '\\$1'n' .nr ra 2
|
|
.rm RL
|
|
..
|
|
.de ED \" earlier document number ED = mm(eD)
|
|
.if !'\\$1'' .ds e( \\$1
|
|
.rm ED
|
|
..
|
|
.de PR \" macro for proprietary marking PR = mm(PM)
|
|
.if '\\$1'BP' .nr p 1
|
|
.if '\\$1'BR' \{\
|
|
. nr p 2
|
|
. ds o) "Alcatel-Lucent \(em PROPRIETARY (RESTRICTED)
|
|
. ds p) "Solely for authorized persons having a need to know
|
|
. ds q) " pursuant to Company Instructions \}
|
|
.if '\\$1'0' .nr p 0
|
|
..
|
|
.de GS \" GS = mm(gS)
|
|
.nr r 1
|
|
..
|
|
.de CI
|
|
..
|
|
.de XE
|
|
'''\" basic distribution leng-to be tailored-set e & h
|
|
.if \\nd=0 \{\
|
|
. nr d 1
|
|
. 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 \\nn<=3 .nr e \\ne+2
|
|
. if \\nn<=6 .nr e \\ne+2
|
|
. if \\nn<=9 .nr e \\ne+2
|
|
. if \\n(ra<=2 .nr e \\ne-3
|
|
. nr e \\ne+27
|
|
. nr h \\ne \}
|
|
..
|
|
.de CO \" macro for complete copy addressees CO = mm(cC)
|
|
.XE
|
|
.ta 2.0i
|
|
.nf
|
|
.br
|
|
.ie \\ne>0 \{\
|
|
. da ZC \" ZC = mm(cA)
|
|
. ds y( \\$1
|
|
. ie '\\$1'y' .so /sys/lib/tmac/complet.1127
|
|
. el .if !'\\$1'' .so /sys/lib/tmac/complet.\\*(y(
|
|
. dt \\ne OC \}
|
|
.el .da ZC
|
|
..
|
|
.de OC \" macro for complete copy overflow - OC = mm(cD)
|
|
.ta 2.0i
|
|
.br
|
|
.da
|
|
.da ZO \" ZO = mm(cO)
|
|
.ie \\n(ar>0 .dt \\n(arv ZW
|
|
.el .dt 55 ZW
|
|
..
|
|
.de ZW
|
|
.br
|
|
.da
|
|
.ie \\n(dn>0 .g (\\n(dn)/\\nl+4
|
|
.da CZ
|
|
..
|
|
.de CV \" macro for cover sheet only addresses CV = mm(cS)
|
|
.XE
|
|
.ta 2.0i
|
|
.nf
|
|
.br
|
|
.ie \\nh>0 \{\
|
|
. da ZS \" ZS = mm(dA)
|
|
. ds y( \\$1
|
|
. ie '\\$1'y' .so /sys/lib/tmac/cover.1127
|
|
. el .if !'\\$1'' .so /sys/lib/tmac/cover.\\*(y(
|
|
. dt \\nh OV \}
|
|
.el .da ZD
|
|
..
|
|
.de OV \" macro for cover sheet only overflow OV = mm(cT)
|
|
.ta 2.0i
|
|
.br
|
|
.da
|
|
.da ZD \" ZD = mm(cO)
|
|
.ie \\n(ar>0 .dt \\n(arv WW
|
|
.el .dt 55 WW
|
|
..
|
|
.de WW
|
|
.br
|
|
.da
|
|
.if \\n(dn>0 .nr i (\\n(dn)/\\nl+4 \" was ie with no el
|
|
.da DZ
|
|
..
|
|
.de CE \" ending all distribution diversions CE = mm(cE)
|
|
.br
|
|
.if "\\n(.z"ZC" \{\
|
|
. nr g 0
|
|
. rm OC \}
|
|
.if "\\n(.z"ZO" \{\
|
|
. nr g -1
|
|
. rm OC \}
|
|
.if "\\n(.z"CZ" \{\
|
|
. nr g -2
|
|
. rm OC \}
|
|
.if "\\n(.z"ZS" \{\
|
|
. nr i 0
|
|
. rm OV \}
|
|
.if "\\n(.z"ZD" \{\
|
|
. nr i -1
|
|
. rm OV \}
|
|
.if "\\n(.z"DZ" \{\
|
|
. nr i -2
|
|
. rm )V \}
|
|
.da
|
|
.if \\ng=-1 \{\
|
|
. ie \\n(dn>0 .nr g (\\n(dn)/\\nl+4
|
|
. el .nr g 0 \}
|
|
.if \\ni=-1 \{\
|
|
. ie \\n(dn>0 .nr i (\\n(dn)/\\nl+4
|
|
. el .nr i 0 \}
|
|
..
|
|
'''\"
|
|
'''\" macros to help format document
|
|
'''\"
|
|
.de HD
|
|
.po .5i \"was .25
|
|
.if "\\*(.T"aps" .tl '--''--'
|
|
.sp|0.2i
|
|
..
|
|
.de FC \" footer macro FC = mm(fO)
|
|
.pl 11.0i
|
|
'bp
|
|
..
|
|
.de ST \" macro for abstract overflow trap ST = mm(yY)
|
|
.ZB
|
|
.rm ST \" ZB = mm(aT)
|
|
..
|
|
.de ZB
|
|
.ch ST 16i \" macro for abstract overflow trap ZB = mm(aT)
|
|
.if \\na>0 \{\
|
|
. ft 2
|
|
. ce
|
|
(continued)
|
|
. ft 1 \}
|
|
.pl 11.0i
|
|
.nr a \\n+a
|
|
.rn ZB XX
|
|
'bp
|
|
.rn XX ZB
|
|
.wh -0.35i ZB
|
|
.HC \" HC = mm(cH)
|
|
.HX \" HX = mm(tH)
|
|
'sp 0.05i
|
|
.ce
|
|
.ft 3
|
|
Abstract (continued)
|
|
.ft 1
|
|
.in 0.2i
|
|
'sp 1
|
|
.FB
|
|
..
|
|
.de TK \" macro for thick lines TKK = mm(tK)
|
|
.ps 24
|
|
\l'7.5i'
|
|
.ps
|
|
..
|
|
.de HX \" macro for Title headings and text HX = mm(tH)
|
|
.TK
|
|
'sp 0.05i
|
|
'''\" mark t - Title heading
|
|
.mk t
|
|
.ft 3
|
|
Title:
|
|
.ft
|
|
'sp|\\ntu
|
|
.in 0.7i
|
|
.WT
|
|
.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 HC \" macro for continuation header HC = mm(cH)
|
|
.nr np \\n+(np
|
|
.nf
|
|
.in 0
|
|
.FT
|
|
.ft 3
|
|
.ta 4.80i
|
|
.nr tc \\n(tp
|
|
\\*(N1\f2 (page \\n(np of \\n(tc)
|
|
.sp 0.1i
|
|
..
|
|
.de DL \" macro for distribution list headers DL = mm(dH)
|
|
.ft 3
|
|
.ta 1.0i 4.75i
|
|
\\$1 \\$2
|
|
.sp 0.05i
|
|
.ft 1
|
|
.ta 0.5i 1.0i
|
|
..
|
|
.de EJ \" macro for ejecting continuation page EJ = mm(eP)
|
|
'bp
|
|
.wh 0 HD
|
|
'''\" put out continuation page header & title section
|
|
.HC
|
|
.HX
|
|
..
|
|
.de CP \" macro for continuation page CP = mm(cP)
|
|
'''\" calc vert. units for cc overflow (if any)
|
|
.ie \\nv<=\\n(.t .nr v 1
|
|
.el .nr v 0
|
|
.if \\nv=1 .if \\nw<=\\n(.t .nr v 2
|
|
. \" check if cont page needs to be ejected
|
|
.in 0
|
|
.if \\nc=1 \{\
|
|
. \" - if no abstract overflow
|
|
. if \\na=0 .EJ
|
|
. if \\na>0 \{\
|
|
. \"or if abstract over but no room for list overfl
|
|
. ie \\nv<2 .EJ
|
|
. \" just tk line if abstract over & room for list
|
|
. el .TK \}
|
|
. FT
|
|
. ie \\ne=0 \{\
|
|
. if \\ng>4 .if \\ni>4 .DL "Complete Copy" "Cover Sheet Only"
|
|
. if \\ng>4 .if !\\ni>4 .DL "Complete Copy" ""
|
|
. if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only" \}
|
|
. el \{\
|
|
. if \\ng>4 .if \\ni>4 .DL "Complete Copy (continued)" "Cover Sheet Only (continued)"1
|
|
. if \\ng>4 .if !\\ni>4 .DL "Complete Copy (continued)" ""
|
|
. if !\\ng>4 .if \\ni>4 .DL "" "Cover Sheet Only (continued)" \}
|
|
. mk z
|
|
. nr q \\n(.t/\\nl
|
|
'''\" put out complete copy list overflow
|
|
. in 0.2i
|
|
. ZO
|
|
. in 0
|
|
. mk x
|
|
. sp|\\nzu
|
|
. in 4i
|
|
'''\" put out cover sheet list overflow
|
|
. ZD
|
|
. mk y
|
|
. in 0
|
|
. if \\nx-\\ny .sp|\\nxu
|
|
. TK \}
|
|
..
|
|
.de ZP \"compute total pages and diversion lengths
|
|
'''\" calculate vert. units for cc overflow (if any)
|
|
.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)
|
|
. \" 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
|
|
. \" a2 - available continuation page space
|
|
. \" m1 is mark after tk line after title
|
|
. \" 2v for Abstract (continued) + one blank
|
|
. nr a2 11.0i-\\n(m1-2v
|
|
. ZZ \}
|
|
.el .if \\nc>0 .nr tp \\n+(tp
|
|
..
|
|
.de ZZ \" ZZ = mm(t1)
|
|
.ie \\n(ar>\\n(a2 \{\
|
|
. nr ar \\n(ar-\\n(a2
|
|
. nr tp \\n+(tp
|
|
. ZZ \}
|
|
.el .if \\n(ar+\\nj>\\n(a2 .nr tp \\n+(tp
|
|
..
|
|
'''\"
|
|
'''\" main macro to handle output of cover sheet
|
|
'''\" mm(CS)
|
|
.de SC
|
|
.nr CS 0
|
|
.nr ST 1
|
|
.if \\nu=0 \{\
|
|
. tm WARNING: author must be supplied \}
|
|
.if \\no=0 \{\
|
|
. tm WARNING: document title must be supplied \}
|
|
.if \\nm=0 \{\
|
|
. tm WARNING: memorandum type undefined or unknown \}
|
|
.if \\nm=1 .if \\nb=0 \{\
|
|
. tm WARNING: technical memoranda must have at least one mercury class \}
|
|
.if \\nn=0 \{\
|
|
. tm WARNING: document number must be supplied \}
|
|
.XE
|
|
.ll 7.5i
|
|
.ft 1
|
|
.if \\n(nl .bp
|
|
.in 0
|
|
.HD
|
|
'''\" the rs is to restore spacing - ditches big space at top
|
|
.rs
|
|
.sp1
|
|
.sp 0.05i
|
|
.nf
|
|
.ps 16
|
|
.ft 3
|
|
.ta 4.85i
|
|
. \" put out page 1 heading
|
|
Document Cover Sheet
|
|
.wh 0 HD
|
|
.sp 0.1i
|
|
.ta 0.15i 4.55i
|
|
\s36\(FA\s0 \\*(t(
|
|
.ft
|
|
.ps 10
|
|
.HX
|
|
.sp 0.05i
|
|
.ft 3
|
|
.ie \\nu>1 .ds u) s
|
|
.el .ds u)
|
|
.ta 0.5i 3.0i 3.95i 5.25i
|
|
Author\\*(u) (Computer Address) Location Phone Number Company (if other than BL)
|
|
.ft
|
|
'''\" output author info
|
|
.ZI
|
|
.if !'\\*(r('' \{\
|
|
. ta 0.3i 2.6i
|
|
\\*(r( (Responsible BL Person) \}
|
|
.TK
|
|
.sp 0.05i
|
|
.ft 3
|
|
.ta 1.0i 3.3i 5.55i
|
|
Document No\\*(v). Filing Case No\\*(w). Project No\\*(x).
|
|
.ft
|
|
.sp 0.05i
|
|
'''\" output document number
|
|
.ZN
|
|
.TK
|
|
'''\" output keywords if they exist
|
|
.if \\nk>0 \{\
|
|
. ft 3
|
|
Keywords:
|
|
. ft
|
|
. sp 0.05i
|
|
. ti 0.2i
|
|
\\*(k)
|
|
. TK \}
|
|
'''\" output mercury info if it exists
|
|
.if \\nb>0 \{\
|
|
. ft 3
|
|
MERCURY Announcement Bulletin Sections
|
|
. ft
|
|
. sp 0.05i
|
|
. ta 0.6i 3.1i 5.6i
|
|
. ps 8
|
|
. if \\nb>3 \\*(b)
|
|
\\*(a)
|
|
. ps
|
|
. TK \}
|
|
.ft 3
|
|
Abstract
|
|
.ft
|
|
.mk x
|
|
.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)
|
|
.nr y \\n(lpv-19v
|
|
.if \\n(F4>0 .nr y \\ny-\\n(F4
|
|
.sp|\\nyu
|
|
.sp -1
|
|
.ZP
|
|
'''\" handle abstract page 1 continuation
|
|
.ie \\n(la>\\n(a1 \{\
|
|
. ce
|
|
. ft2
|
|
(continued on page iii)
|
|
. ft1
|
|
. br \}
|
|
.el .sp1
|
|
.if \\n(F4>0 \{\
|
|
. FA
|
|
. FG \}
|
|
.TK
|
|
.ps 8
|
|
.vs 10
|
|
.nr qq \\$1+\\$2+\\n(tp
|
|
\f3Total Pages\f1 (including document cover sheet): \\s+2\\n(qq\\s-2
|
|
.ie !'\\*(e('' \{\
|
|
Supersedes or amends document number \\*(e(. \}
|
|
.el .sp
|
|
.ps
|
|
.vs
|
|
.mk z
|
|
.sp .67i
|
|
'''\" output proprietary notice if it exists
|
|
.if \\np>0 \{\
|
|
.ft 2
|
|
.ti (4i-\\w'\\*(o)'u)/2u
|
|
\\*(o)
|
|
.ft
|
|
.ti (4i-\\w'\\*(p)'u)/2u
|
|
\\*(p)
|
|
.ti (4i-\\w'\\*(q)'u)/2u
|
|
\\*(q) \}
|
|
.sp |\\nzu+11v
|
|
.ta 5.35i
|
|
\\s8\\*(ve\\s0
|
|
.ie !'\\*(s)'' \{\
|
|
\s8Timestamp: \\*(s)\s0 BELL LABORATORIES \}
|
|
.el \{\
|
|
BELL LABORATORIES \}
|
|
.sp|\\nzu
|
|
.sp 1
|
|
.ft 3
|
|
.ti 5.25i
|
|
\\*(x(
|
|
.ft
|
|
.sp|\\nxu
|
|
.in 0.2i
|
|
.nf
|
|
'''\" abstract
|
|
.if !\\n(la=\\n(a1 \{\
|
|
. wh -0.25i ST \}
|
|
.pl \\nyu
|
|
.ta 0.5i 1.0i 1.5i 2.0i 2.5i
|
|
.FB
|
|
.ft 1
|
|
'''\" output the abstract
|
|
.WB
|
|
.if \\n(la=\\n(a1 .sp-1
|
|
.rn ZB XX
|
|
.wh -0.25i FC
|
|
'''\" output continuation page
|
|
.CP
|
|
'bp
|
|
.FT
|
|
.ft 1
|
|
.in 0
|
|
.wh 0 HD
|
|
.nf
|
|
.ft 3
|
|
.ta 5.00i
|
|
.nr tc \\n(tp
|
|
Initial Distribution Specifications \\*(N1\f2 (page ii of \\n(tc)\f3
|
|
.ft 1
|
|
.TK
|
|
.if \\ne>0 \{\
|
|
. DL " Complete Copy" " Cover Sheet Only"
|
|
. mk z
|
|
'''\" put out complete copy list
|
|
. in 0.2i
|
|
. ZC
|
|
. in 0
|
|
. if !\\ng=0 \{\
|
|
. ft 2
|
|
. ti 1.25i
|
|
(continued)
|
|
. ft 1 \}
|
|
. sp|\\nzu
|
|
. in 4i
|
|
'''\" put out cover sheet list
|
|
. ZS
|
|
. if !\\ni=0 \{\
|
|
. ft 2
|
|
. ti 4.75i
|
|
(continued)
|
|
. ft 1 \}
|
|
. in 0
|
|
'''\" starter space value - then tailor
|
|
. sp|5
|
|
. sp \\ne
|
|
. TK \}
|
|
.if \\nr=1 \{\
|
|
\f3Government Security Classified\f1
|
|
. ft 1
|
|
. sp -0.05i
|
|
. TK \}
|
|
\f3Future Alcatel-Lucent Distribution by ITDS\f1
|
|
.ti 0.5i
|
|
.sp 0.05i
|
|
.ie \\n(ra=2 \{\
|
|
\f3DO NOT RELEASE\f1 to any Alcatel-Lucent employee without appropriate approval for each request. \}
|
|
.el \{\
|
|
\f3RELEASE\f1 to any Alcatel-Lucent employee (excluding contract employees). \}
|
|
.TK
|
|
'''\" put out author signature section
|
|
.ft 3
|
|
Author Signature\\*(u)
|
|
.ft 1
|
|
.sp1
|
|
.ta 2.635i 5.25i
|
|
\\*(m!
|
|
.ta 0.25i 2.875i 5.5i
|
|
\\*(m(
|
|
.if \\nu>3 \{\
|
|
. sp 0.1i
|
|
. ta 2.635i 5.25i
|
|
\\*(n!
|
|
. ta 0.25i 2.875i 5.5i
|
|
\\*(n( \}
|
|
.if \\nu>6 \{\
|
|
. sp 0.1i
|
|
. ta 2.635i 5.25i
|
|
\\*(o!
|
|
. ta 0.25i 2.875i 5.5i
|
|
\\*(o( \}
|
|
.sp -0.1i
|
|
.TK
|
|
'''\" output organizational approval section
|
|
.ie \\np>1 \{\
|
|
\f3Organizational Approval\f1 (Department Head approval \f3required\ff1 for \f2\\*(o)\f1.) \}
|
|
.el \{\
|
|
\f3Organizational Approval\f1 (Optional) \}
|
|
.sp 1
|
|
.ta 2.635i 5.25i
|
|
\\*(x!
|
|
. ta 0.25i 2.875i 5.5i
|
|
\\*(Z1
|
|
.if \\nn>3 \{\
|
|
. sp .1i
|
|
.ta 2.635i 5.25i
|
|
\\*(y! \}
|
|
.if \\nn>6 \{\
|
|
. sp .1i
|
|
\\*(z! \}
|
|
.sp -0.1i
|
|
.TK
|
|
'''\" recipient section always output
|
|
.ft 3
|
|
For Use by Recipient of Cover Sheet:
|
|
.ft 1
|
|
.ps -3
|
|
.vs -4
|
|
.sp.05i
|
|
.mk z
|
|
Computing network users may order copies via the \f2library \-k\f1 command;
|
|
for information, type \f2man library\f1 after the UNIX prompt.
|
|
'''.sp1
|
|
.rn fo xx
|
|
Otherwise:
|
|
Enter PAN if BL (or SS# if non-BL). \l'1.5i'
|
|
Return this sheet to any ITDS location.
|
|
.sp|\\nzu
|
|
.in 4i
|
|
Internal Technical Document Service
|
|
'''.sp1
|
|
.ta 1i 2i 3i
|
|
( ) AK 2H-28 ( ) IH 7M-103 ( ) DR 2F-19 ( ) NW-ITDS
|
|
( ) ALC 1B-102 ( ) MV 1L-19 ( ) INH 1C-114 ( ) PR 5-2120
|
|
( ) CB 30-2011 ( ) WH 3E-204 ( ) IW 2Z-156
|
|
( ) HO 4F-112 ( ) MT 3B-117
|
|
.in
|
|
.ps
|
|
.vs
|
|
.SR
|
|
..
|
|
. \"IZ - initialization
|
|
.de IZ
|
|
.FB
|
|
.nr TN 0
|
|
.em EM
|
|
.po 1i
|
|
.nr PO 1i
|
|
.if \\n(FM=0 .nr FM 1i
|
|
.nr YY 0-\\n(FMu
|
|
.if !\\n(PD .if n nr PD 1v
|
|
.if t .if !\\n(PD .nr PD 0.3v
|
|
.wh 0 NP
|
|
.wh \\n(.pu-\\n(FMu FO
|
|
.ch FO 16i
|
|
.wh \\n(.pu-\\n(FMu FX
|
|
.ch FO \\n(.pu-\\n(FMu
|
|
.if t .wh -\\n(FMu/2u BT
|
|
.if n .wh -\\n(FMu/2u-1v BT
|
|
..
|
|
.\" macro to restore ms foiling
|
|
.de SR
|
|
.nr BE 0
|
|
.nr 1T 1
|
|
.nr FM 0
|
|
.nr PD 0
|
|
.nr HM 0
|
|
.nr KG 0
|
|
.nr FP 0
|
|
.nr GA 0
|
|
.nr FP 0
|
|
.\" changed rn F5 FE added rn FJ FS
|
|
.rn FK FE
|
|
.rn FJ FS
|
|
.if '\\$1'' .bp
|
|
.if !'\\$1'' \{\
|
|
.di ZA
|
|
.ce
|
|
\\*(a(
|
|
.sp
|
|
.WB
|
|
.di
|
|
.rn ZA WB\}
|
|
.nr FC -1
|
|
.nr % 1
|
|
.IZ
|
|
.rm IZ
|
|
.if '\\$1'' .RT
|
|
.ds MN \\*(N1 \\*(N2 \\*(N3 \\*(N4 \\*(N5
|
|
.nr MM \\nn
|
|
.nr MC \\n(fc
|
|
.nr MG \\n(wp
|
|
.nr NA \\nu
|
|
.if '\\n(ST'1' \{\
|
|
'''.so /sys/lib/tmac/tmac.rscover XXX
|
|
.so \*(.P/lib/tmac/tmac.rscover
|
|
. \" a line for troff to eat
|
|
.S1 \}
|
|
.ll 6i
|
|
.nr LL 6i
|
|
.rr a b c d e f g h i j k
|
|
.rr l m n o p q r s t u
|
|
.rr v w x y z np tp nc tc
|
|
.rr ud u! m2 dv
|
|
.rr lp np la a1 a2 ar wp fc m1
|
|
.rm DT TI AH SE KW TY NU MY
|
|
.rm PR CI CO OC CV OV CE HD
|
|
.rm FC ST TK HX HC DL EJ
|
|
.rm CP SC a) b) k) N1 p) q) r)
|
|
.rm N2 N3 N4 N5 X1 X2 X3 X4 X5
|
|
.rm X1 X2 X3 X4 X5 F1 F2 F3 F4
|
|
.rm F5
|
|
.rm d) o) s) ve m! n! o! e( r(
|
|
.rm x! y! z! x( d! ve u)
|
|
.rm t) w) x) y) z) a( b( c( m(
|
|
.rm n( o( p( s( t( SA ZI ZC ZO
|
|
.rm ZS ZD ZN FT FB CX NN GS
|
|
.rm ZB XX ZP ZZ
|
|
.rm TM IM MF MR LT OK RP TR
|
|
.rm TX AU AX AI AE SY S2 S0
|
|
.rm S3
|
|
..
|
|
.de RP
|
|
.nr ST 2
|
|
.SS
|
|
..
|
|
.de TR
|
|
.nr ST 3
|
|
.ds MN \\$1
|
|
.SS
|
|
..
|
|
.de SS \"RP or TR rename the world so old macros called
|
|
.rm SG
|
|
.nr CS 0
|
|
.nr BE 0
|
|
.nr 1T 0
|
|
.nr FM 0
|
|
.nr PD 0
|
|
.nr HM 0
|
|
.nr KG 0
|
|
.nr FP 0
|
|
.nr GA 0
|
|
.nr FP 0
|
|
.ll 6i
|
|
.nr LL 6i
|
|
.\" changed rn F5 FE added rn FJ FS
|
|
.rn F6 FE
|
|
.nr FC -1
|
|
.nr % 1
|
|
.IZ
|
|
.rm IZ
|
|
.pn 0
|
|
.de TI
|
|
.TL
|
|
\\..
|
|
.de SA
|
|
.AB \\\\$1
|
|
\\..
|
|
.de SE
|
|
.AE
|
|
\\..
|
|
.de AH
|
|
.AU
|
|
\\\\$1
|
|
\\..
|
|
.de DT
|
|
.ND \\\\$1 \\\\$2 \\\\$3
|
|
\\..
|
|
.br
|
|
.rr a b c d e f g h i j k
|
|
.rr l m n o p q r s t u
|
|
.rr v w x y z np tp nc tc
|
|
.rr ud u! m2 dv
|
|
.rr lp np la a1 a2 ar wp fc m1
|
|
.rm DT KW TY NU MY
|
|
.rm PR CI OC OV HD
|
|
.rm FC ST TK HX HC DL EJ
|
|
.rm CP SC a) b) k) N1 p) q) r)
|
|
.rm d) o) s) ve m! n! o! e( r(
|
|
.rm x! y! z! x( d! ve u)
|
|
.rm t) w) x) y) z) a( b( c( m(
|
|
.rm n( o( p( s( t( ZI ZC ZO
|
|
.rm ZS ZD ZN FT FB CX NN GS
|
|
.rm ZB XX ZP ZZ
|
|
.rm TM IM MF MR LT
|
|
..
|