1
0

tmac.mcs 42 KB

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