home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / lib / tmac / tmac.s < prev    next >
Encoding:
Text File  |  1979-01-13  |  19.7 KB  |  1,361 lines
  1. .nr TN 0
  2. .\"    RT -  reset everything to normal state
  3. .de RT
  4. .if !\\n(1T .BG
  5. .if !\\n(IK .if !\\n(IF .if !\\n(IX .if !\\n(BE .di
  6. .ce 0
  7. .ul 0
  8. .if \\n(QP \{\
  9. .    ll +\\n(QIu
  10. .    in -\\n(QIu
  11. .    nr QP -1\}
  12. .if \\n(NX<=1 .if \\n(AJ=0 .ll \\n(LLu
  13. .if \\n(IF=0 \{\
  14. .    ps \\n(PS
  15. .    if \\n(VS>=40 .vs \\n(VSu
  16. .    if \\n(VS<=39 .vs \\n(VSp\}
  17. .if \\n(IP .in -\\n(I\\n(IRu
  18. .if \\n(IP=0 .nr I0 \\n(PIu
  19. .if \\n(IP .nr IP -1
  20. .ft 1
  21. .bd 1
  22. .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
  23. .fi
  24. ..
  25. .    \"IZ - initialization
  26. .de IZ
  27. .if \\n(FM=0 .nr FM 1i
  28. .nr YY -\\n(FMu
  29. .nr XX 0 1
  30. .nr IP 0
  31. .nr PI 5n
  32. .nr QI 5n
  33. .nr I0 \\n(PIu
  34. .nr PS 10
  35. .nr VS 12
  36. .if !\\n(PD .if n .nr PD 1v
  37. .if !\\n(PD .if t .nr PD 0.3v
  38. .nr ML 3v
  39. .ps \\n(PS
  40. .if \\n(VS>40 .vs \\n(VSu
  41. .if \\n(VS<=39 .vs \\n(VSp
  42. .nr IR 0
  43. .nr TB 0
  44. .nr SJ \\n(.j
  45. .nr LL 6i
  46. .ll \\n(LLu
  47. .nr LT \\n(.l
  48. .lt \\n(LTu
  49. .ev 1
  50. .nr FL \\n(LLu*11u/12u
  51. .ll \\n(FLu
  52. .ps 8
  53. .vs 10p
  54. .ev
  55. .if \\*(CH .ds CH "\(hy \\\\n(PN \(hy
  56. .if n .ds CF "\\*(DY
  57. .wh 0 NP
  58. .wh -\\n(FMu FO
  59. .ch FO 16i
  60. .wh -\\n(FMu FX
  61. .ch FO -\\n(FMu
  62. .wh -\\n(FMu/2u BT
  63. ..
  64. .de TM
  65. .if \\n(IM=0 .if \\n(MN=0 .pn 0
  66. .so /usr/lib/tmac/tmac.scover
  67. .if \\n(IM=0 .if \\n(MN=0 .rm IM
  68. .if \\n(IM=0 .if \\n(MN=0 .rm MF
  69. .if \\n(IM=0 .if \\n(MN=0 .rm MR
  70. .if \\n(.T=0 .pi /usr/bin/col
  71. .nr ST 1
  72. .ds QF MEMORANDUM FOR FILE
  73. .br
  74. .ds MN \\$1
  75. .if !"\\$1"" .nr MM 1
  76. .if !"\\$2"" .nr MC 1
  77. .if !"\\$3"" .nr MG 1
  78. .nr TN 1
  79. .if \\n(.$-1 .ds CA \\$2
  80. .if \\n(.$-2 .ds CC \\$3
  81. .rm RP
  82. .rm S0
  83. .rm S2
  84. .rm AX
  85. ..
  86. .        \" IM - internal memorandum
  87. .de IM
  88. .nr IM 1
  89. .TM "\\$1" "\\$2" "\\$3"
  90. .rm QF
  91. .RA
  92. .rm RA
  93. .rm RP
  94. .rm MF
  95. .rm MR
  96. ..
  97. .        \" MF - memorandum for file.
  98. .de MF
  99. .nr MN 1
  100. .TM "\\$1" "\\$2" "\\$3"
  101. .rm MR
  102. .rm IM
  103. .RA
  104. .rm RA
  105. .rm RP
  106. .rm TM
  107. ..
  108. .        \" MR - memo for record
  109. .de MR
  110. .nr MN 2
  111. .TM "\\$1" "\\$2" "\\$3"
  112. .ds QF MEMORANDUM FOR RECORD
  113. .rm MF
  114. .RA
  115. .rm RA
  116. .rm RP
  117. .rm IM
  118. .rm TM
  119. ..
  120. .de EG
  121. .nr MN 3
  122. .TM "\\$1" "\\$2" "\\$3"
  123. .ds QF ENGINEER'S NOTES
  124. .rm MF
  125. .rm RP
  126. .rm IM
  127. .RA
  128. .rm RA
  129. .rm TM
  130. ..
  131. .    \" LT - letter
  132. .de LT
  133. .LP
  134. .rs
  135. .sp 6
  136. .ll 80n
  137. .ti 48
  138. \\*(DY
  139. .ll
  140. .br
  141. .sp 3
  142. ..
  143. .de OK
  144. .br
  145. .di
  146. .di OD
  147. ..
  148. .de RP
  149. .nr ST 2
  150. .pn 0
  151. .rm SG
  152. .rm CS
  153. .rm TM
  154. .rm QF
  155. .rm IM
  156. .rm MR
  157. .rm MF
  158. .rm EG
  159. .br
  160. ..
  161. .de TR \" Comp. Sci. Tech Rept series.
  162. .nr ST 3
  163. .pn 0
  164. .ds MN \\$1
  165. .rm SG
  166. .rm CS
  167. .rm TM
  168. .rm QF
  169. .rm IM
  170. .rm MR
  171. .rm MF
  172. .rm EG
  173. .br
  174. ..
  175. .    \"TL - title and initialization
  176. .de TL
  177. .br
  178. .nr TV 1
  179. .if \\n(IM>0 .rm CS
  180. .if \\n(MN>0 .rm CS
  181. .ME
  182. .rm ME
  183. .di WT
  184. .nr SJ \\n(.j
  185. .na
  186. .fi
  187. .ll 5.0i
  188. .if n .if \\n(TN .ll 30
  189. .if t .if \\n(TN .ll 3.5i
  190. .ft 3
  191. .ps 10
  192. .if !\\n(TN .ps 12
  193. .if !\\n(TN .rm CS
  194. .hy 0
  195. ..
  196. .de TX
  197. .rs
  198. .sp .5i
  199. .ce 1000
  200. .if n .ul 1000
  201. .ps 12
  202. .ft 3
  203. .vs 15p
  204. .ne 4
  205. .hy 0
  206. .WT
  207. .hy 14
  208. .ce 0
  209. .ul 0
  210. ..
  211. .    \"    AU - author(s)
  212. .de AU
  213. .nr AV 1
  214. .ad \\n(SJ
  215. .br
  216. .di
  217. .br
  218. .nf
  219. .nr NA +1
  220. .ds R\\n(NA \\$1
  221. .ds E\\n(NA \\$2
  222. .di A\\n(NA
  223. .ll \\n(LLu
  224. .if \\n(TN=0 .if t .ft 2
  225. .if \\n(TN=0 .if n .ft 1
  226. .if \\n(TN>0 .ft 3
  227. .if \\n(TN .if n .ll 16
  228. .if \\n(TN .if t .ll 1.4i
  229. .ps 10
  230. ..
  231. .de AX
  232. .ft 1
  233. .rs
  234. .ce 1000
  235. .if n .ul 0
  236. .ps 10
  237. .vs 12p
  238. .if n .sp 2
  239. .if t .sp
  240. .A1
  241. .if n .sp 
  242. .if t .sp 0.5
  243. .ns
  244. .I1
  245. .if \\n(NA-1 .if n .sp 2
  246. .if \\n(NA-1 .if t .sp
  247. .A2
  248. .if \\n(NA-1 .if n .sp
  249. .if \\n(NA-1 .if t .sp 0.5
  250. .ns
  251. .I2
  252. .if \\n(NA-2 .if t .sp
  253. .if \\n(NA-2 .if n .sp 2
  254. .A3
  255. .if \\n(NA-2 .if t .sp 0.5
  256. .if \\n(NA-2 .if n .sp
  257. .ns
  258. .I3
  259. .if \\n(NA-3 .if t .sp
  260. .if \\n(NA-3 .if n .sp 2
  261. .A4
  262. .if \\n(NA-3 .if t .sp 0.5
  263. .if \\n(NA-3 .if n .sp
  264. .ns
  265. .I4
  266. .if \\n(NA-4 .if t .sp
  267. .if \\n(NA-4 .if n .sp 2
  268. .A5
  269. .if \\n(NA-4 .if n .sp
  270. .if \\n(NA-4 .if t .sp 0.5
  271. .ns
  272. .I5
  273. .if \\n(NA-5 .if t .sp
  274. .if \\n(NA-5 .if n .sp 2
  275. .A6
  276. .if \\n(NA-5 .if n .sp
  277. .if \\n(NA-5 .if t .sp 0.5
  278. .ns
  279. .I6
  280. .if \\n(NA-6 .if t .sp
  281. .if \\n(NA-6 .if n .sp 2
  282. .A7
  283. .if \\n(NA-6 .if n .sp
  284. .if \\n(NA-6 .if t .sp 0.5
  285. .ns
  286. .I7
  287. .if \\n(NA-7 .if t .sp
  288. .if \\n(NA-7 .if n .sp 2
  289. .A8
  290. .if \\n(NA-7 .if n .sp
  291. .if \\n(NA-7 .if t .sp 0.5
  292. .ns
  293. .I8
  294. .if \\n(NA-8 .if t .sp
  295. .if \\n(NA-8 .if n .sp 2
  296. .A9
  297. .if \\n(NA-8 .if n .sp
  298. .if \\n(NA-8 .if t .sp 0.5
  299. .ns
  300. .I9
  301. ..
  302. .    \"AI - authors institution
  303. .de AI
  304. .br
  305. .ft 1
  306. .di
  307. .di I\\n(NA
  308. .nf
  309. ..
  310. .    \"AB - begin an abstract
  311. .de AB
  312. .br
  313. .di
  314. .ul 0
  315. .ce 0
  316. .nr 1T 1
  317. .nr IK 1
  318. .nr KI 1
  319. .di WB
  320. .rs
  321. .nr AJ 1
  322. .ce 1
  323. .ft 2
  324. .if n .ul
  325. .ll \\n(LLu
  326. .if \\n(.$=0 ABSTRACT
  327. .if \\n(.$>0 .if !"\\$1"-" .if !"\\$1"no"  \\$1
  328. .if \\n(.$=0 .sp
  329. .if \\n(.$>0 .if !"\\$1"-" .if !"\\$1"no" .sp
  330. .hy 14
  331. .ul 0
  332. .ce 0
  333. .fi
  334. .ft 1
  335. .nr OJ \\n(.i
  336. .in +\\n(.lu/12u
  337. .ll -\\n(.lu/12u
  338. .br
  339. .ps \\n(PS
  340. .if \\n(VS>40 .vs \\n(VSu
  341. .if \\n(VS<=39 .vs \\n(VSp
  342. .ti +\\n(PIu
  343. ..
  344. .    \"AE - end of an abstract
  345. .de AE
  346. .br
  347. .di
  348. .ll \\n(LLu
  349. .ps \\n(PS
  350. .if \\n(VS>40 .vs \\n(VSu
  351. .if \\n(VS<=39 .vs \\n(VSp
  352. .nr 1T 0
  353. .nr IK 0
  354. .in \\n(OJu
  355. .nr AJ 0
  356. .di
  357. .ce 0
  358. .if \\n(ST=2 .SY
  359. .if \\n(ST<3 .rm SY
  360. ..
  361. .    \"S2 - release paper style
  362. .    \"SY - cover sheet of released paper
  363. .de SY
  364. .ll \\n(LLu
  365. .ns
  366. .if \\n(TV .TX
  367. .if \\n(AV .AX
  368. .rs
  369. .ce 0
  370. .nf
  371. .sp 3
  372. .ls 1
  373. .pn 2
  374. .WB
  375. .ls 
  376. .sp 3v
  377. \\*(DY
  378. .sp |9i
  379. .if \\n(FP>0 .FA
  380. .FG
  381. .if \\n(GA=1 .nr GA 2
  382. .fi
  383. ..
  384. .    \"S2 - first text page, released paper format
  385. .de S2
  386. .ce 0
  387. .br
  388. .SY
  389. .rm SY
  390. .bp 1
  391. .if \\n(TV .TX
  392. .if \\n(AV .AX
  393. .rs
  394. .ce 0
  395. .ft 1
  396. .ad \\n(SJ
  397. ..
  398. .    \"S0- mike lesk conserve paper style
  399. .de S0
  400. .ce 0
  401. .br
  402. .ll \\n(LLu
  403. .if \\n(TV+\\n(AV>0 .ns
  404. .if \\n(TV .TX
  405. .if \\n(AV .AX
  406. .if \\n(TV+\\n(AV>0 .rs
  407. .ce 0
  408. .if \\n(TV>0 .sp 2
  409. .ls 1
  410. .if \\n(FP>0 \{\
  411. .    FJ
  412. .    nf
  413. .    FG
  414. .    fi
  415. .    FK
  416. .    nr FP 0\}
  417. .nf
  418. .WB
  419. .ls
  420. .fi
  421. .ad \\n(SJ
  422. ..
  423. .    \"S3 - CSTR style
  424. .de S3
  425. .rs
  426. .sp |2.25i
  427. .ce 1000
  428. .I1
  429. .if \\n(NA>1 .sp .5
  430. .if \\n(NA>1 .I2
  431. .if \\n(NA>2 .sp .5
  432. .if \\n(NA>2 .I3
  433. .if \\n(NA>3 .sp .5
  434. .if \\n(NA>3 .I4
  435. .if \\n(NA>4 .sp .5
  436. .if \\n(NA>4 .I5
  437. .if \\n(NA>5 .sp .5
  438. .if \\n(NA>5 .I6
  439. .if \\n(NA>6 .sp .5
  440. .if \\n(NA>6 .I7
  441. .if \\n(NA>7 .sp .5
  442. .if \\n(NA>7 .I8
  443. .if \\n(NA>8 .sp .5
  444. .if \\n(NA>8 .I9
  445. .sp |4i
  446. .    \"check how long title is: can space extra .25 inch if short
  447. .di EZ
  448. .WT
  449. .di
  450. .if \\n(dn<1.5v .if \\n(NA=1 .sp .25i
  451. .ft 1
  452. Computing Science Technical Report No. \\*(MN
  453. .sp
  454. .if t .ft 3
  455. .if n .ul 100
  456. .ps 12
  457. .vs 15p
  458. .hy 0
  459. .WT
  460. .hy 14
  461. .ft 1
  462. .if n .ul 0
  463. .ps 10
  464. .vs 12p
  465. .sp
  466. .ft 1
  467. .A1
  468. .A2
  469. .A3
  470. .A4
  471. .A5
  472. .A6
  473. .A7
  474. .A8
  475. .A9
  476. .ce 0
  477. .sp |8.5i
  478. .ce 0
  479. \\*(DY
  480. .bp 0
  481. .ft 1
  482. .S2
  483. ..
  484. .    \"SG - signature
  485. .de SG
  486. .br
  487. .KS
  488. .in +2u*\\n(.lu/3u
  489. .sp 2
  490. .A1
  491. .if \\n(NA-1 .sp 2
  492. .A2
  493. .if \\n(NA-2 .sp 2
  494. .A3
  495. .if \\n(NA-3 .sp 2
  496. .A4
  497. .if \\n(NA-4 .sp 2
  498. .A5
  499. .if \\n(NA>5 .sp 2
  500. .A6
  501. .if \\n(NA>6 .sp 2
  502. .A7
  503. .if \\n(NA>7 .sp 2
  504. .A8
  505. .if \\n(NA>8 .sp 2
  506. .A9
  507. .in
  508. .nf
  509. .sp -1
  510. .if \\n(.$>=1 \\$1
  511. .if \\n(.$>=2 \\$2
  512. .if \\n(.$>=3 \\$3
  513. .if \\n(.$>=4 \\$4
  514. .if \\n(.$>=5 \\$5
  515. .if \\n(.$>=6 \\$6
  516. .if \\n(.$>=7 \\$7
  517. .if \\n(.$>=8 \\$8
  518. .if \\n(.$>=9 \\$9
  519. .fi
  520. .br
  521. .KE
  522. ..
  523. .    \"Tables.  TS - table start, TE - table end
  524. .de TS
  525. .br
  526. .if !\\n(1T .RT
  527. .ul 0
  528. .ti \\n(.iu
  529. .if t .sp 0.5
  530. .if n .sp
  531. .if \\$1H .TQ
  532. .nr IX 1
  533. ..
  534. .de TQ
  535. .di TT
  536. .nr IT 1
  537. ..
  538. .de TH
  539. .if \\n(.d>0.5v .nr T. 0
  540. .if \\n(.d>0.5v .T# 0
  541. .di
  542. .nr TQ \\n(.i
  543. .nr HT 1
  544. .in 0
  545. .mk #a
  546. .mk #b
  547. .mk #c
  548. .mk #d
  549. .mk #e
  550. .mk #f
  551. .TT
  552. .in \\n(TQu
  553. .mk #T
  554. ..
  555. .de TE
  556. .nr IX 0
  557. .if \\n(IT>0 .if \\n(HT=0 .di
  558. .if \\n(IT>0 .if \\n(HT=0 .nr EF \\n(.u
  559. .if \\n(IT>0 .if \\n(HT=0 .nf
  560. .if \\n(IT>0 .if \\n(HT=0 .TT
  561. .if \\n(IT>0 .if \\n(HT=0 .if \\n(EF>0 .fi
  562. .nr IT 0
  563. .nr HT 0
  564. .if n .sp 1
  565. .if t .sp 0.5
  566. .rm a+ b+ c+ d+ e+ f+ g+ h+ i+ j+ k+ l+ n+ m+
  567. .rr 32 33 34 35 36 37 38 40 79 80 81 82
  568. .rr a| b| c| d| e| f| g| h| i| j| k| l| m|
  569. .rr a- b- c- d- e- f- g- h- i- j- k- l- m-
  570. ..
  571. .so /usr/lib/tmac/tmac.sdisp
  572. .de KS
  573. .so /usr/lib/tmac/tmac.skeep
  574. .]K
  575. .rn ]J KF
  576. .rn ]K KS
  577. ..
  578. .de KF
  579. .so /usr/lib/tmac/tmac.skeep
  580. .]J
  581. .rn ]K KS
  582. .rn ]J KF
  583. ..
  584. .de EQ  \"equation, breakout and display
  585. .nr EF \\n(.u
  586. .rm EE
  587. .nr LE 1    \" 1 is center
  588. .ds EL \\$1
  589. .if "\\$1"L" .ds EL \\$2
  590. .if "\\$1"L" .nr LE 0
  591. .if "\\$1"C" .ds EL \\$2
  592. .if "\\$1"I" .nr LE 0
  593. .if "\\$1"I" .ds EE \\h'|10n'
  594. .if "\\$1"I" .if !"\\$3"" .ds EE \\h'\\$3'
  595. .if "\\$1"I" .ds EL \\$2
  596. .if \\n(YE>0 .nf
  597. .di EZ
  598. ..
  599. .de EN  \" end of a displayed equation
  600. .br
  601. .di
  602. .rm EZ
  603. .nr ZN \\n(dn
  604. .if \\n(ZN>0 .if \\n(YE=0 .LP
  605. .if \\n(ZN=0 .if !"\\*(EL"" .nr ZN 1
  606. .if "\\n(.z"" .if \\n(ZN>0 .if !\\n(nl=\\n(PE .if t .sp .5
  607. .if "\\n(.z"" .if \\n(ZN>0 .if !\\n(nl=\\n(PE .if n .sp 1
  608. .if !"\\n(.z"" .if \\n(ZN>0 .if !\\n(.d=\\n(PE .if t .sp .5
  609. .if !"\\n(.z"" .if \\n(ZN>0 .if !\\n(.d=\\n(PE .if n .sp 1
  610. 'pc
  611. .if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
  612. .if \\n(MK>0 .if \\n(LE=1 .ds EE \\h'|10n'
  613. .if \\n(MK>0 .nr LE 0 \" don't center if mark/lineup
  614. 'lt \\n(.lu
  615. .if \\n(EP=0 .if \\n(ZN>0 .if \\n(LE>0 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
  616. .if \\n(EP=0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
  617. .if \\n(EP=0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
  618. .if \\n(EP=0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\t\\*(EL
  619. .if \\n(EP>0 .if \\n(ZN>0 .if \\n(LE>0 .tl \(ts\\*(EL\(ts\\*(10\(ts\(ts
  620. .if \\n(EP>0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EL\\*(EE\\*(10\(ts\(ts\(ts
  621. .if \\n(EP>0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\(ts\\*(10\(ts .nr BD \\w\(ts\\*(10\(ts
  622. .if \\n(EP>0 .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\h'-\\\\n(.iu'\\*(EL\\h'|0'\\*(10
  623. .\".di EZ \" GCOS patch
  624. .\"\\*(10 \" GCOS patch
  625. .\".br \" GCOS patch
  626. .\".di \" GCOS patch
  627. .\".rm EZ \" GCOS patch
  628. 'lt \\n(LLu
  629. 'pc %
  630. .if \\n(YE>0 .if \\n(EF>0 .fi
  631. .rm EL 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  632. .rr 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  633. .if \\n(ZN>0 .if t .sp .5
  634. .if \\n(ZN>0 .if n .sp
  635. .if "\\n(.z"" .nr PE \\n(nl
  636. .if !"\\n(.z"" .nr PE \\n(.d
  637. ..
  638. .de ME
  639. .nr SJ \\n(.j
  640. .if \\n(LL>0 .nr LT \\n(LL
  641. .nr YE 1
  642. .if \\n(PO=0 .nr PO \\n(.o
  643. ..
  644. .    \"EM end up macro - process left over keep-release
  645. .de EM
  646. .br
  647. .if \\n(TB=0 .if t .wh -1p CM
  648. .if \\n(TB \&\c
  649. .if \\n(TB 'bp
  650. .if \\n(TB .NP
  651. .if \\n(TB .ch CM 160
  652. ..
  653. .    \"NP new page
  654. .de NP
  655. .if \\n(FM+\\n(HM>=\\n(.p .tm Margins bigger than page length.
  656. .if \\n(FM+\\n(HM>=\\n(.p .ab
  657. .if \\n(FM+\\n(HM>=\\n(.p .ex
  658. .nr PX \\n(.s
  659. .nr PF \\n(.f
  660. .if t .CM
  661. .if \\n(HM=0 .nr HM 1i
  662. 'sp \\n(HMu/2u
  663. .lt \\n(LTu
  664. .ps \\n(PS
  665. .ft 1
  666. .if \\n(PO>0 .po \\n(POu
  667. .PT
  668. .ps \\n(PX
  669. .ft \\n(PF
  670. 'sp |\\n(HMu
  671. .nr XX 0 1
  672. .nr YY 0-\\n(FMu
  673. .ch FO 16i
  674. .ch FX 17i
  675. .ch FO -\\n(FMu
  676. .ch FX \\n(.pu-\\n(FMu
  677. .if \\n(MF .FV
  678. .nr MF 0
  679. .mk
  680. .os
  681. .ev 1
  682. .if \\n(TD=0 .if \\n(TC<5  .XK
  683. .nr TC 0
  684. .ns
  685. .ev
  686. .nr TQ \\n(.i
  687. .nr TK \\n(.u
  688. .if \\n(IT>0 \{\
  689. .    in 0
  690. .    nf
  691. .    TT
  692. .    in \\n(TQu
  693. .    if \\n(TK .fi\
  694. \}
  695. .mk #T
  696. .if t .if \\n(.o+\\n(LL>7.75i .tm Offset + line length exceeds 7.75 inches, too wide
  697. ..
  698. .de XK
  699. .nr TD 1
  700. .nf
  701. .ls 1
  702. .in 0
  703. .rn KJ KL
  704. .KL
  705. .rm KL
  706. .if "\\n(.z"KJ" .di
  707. .nr TB 0
  708. .if "\\n(.z"KJ" .nr TB 1
  709. .br
  710. .in
  711. .ls
  712. .fi
  713. .nr TD 0
  714. ..
  715. .de KD
  716. .nr KM 0
  717. .if "\\n(.z"KJ" .nr KM 1 \" KM is 1 if in a rediversion of keeps
  718. .if \\n(KM>0 \!.KD \\$1
  719. .if \\n(KM=0 .if \\n(.t<\\$1 .di KJ
  720. ..
  721. .de PT
  722. .lt \\n(LLu
  723. .pc %
  724. .nr PN \\n%
  725. .if \\n%-1 .tl '\\*(LH'\\*(CH'\\*(RH'
  726. .lt \\n(.lu
  727. ..
  728. .    \"FO - footer of page
  729. .de FO
  730. .rn FO FZ
  731. .if \\n(K1>0 .tm This memo has a multi-page cover sheet.  You are
  732. .if \\n(K1>0 .tm rebuked in the name of the Committee on Technical Memoranda.
  733. .if \\n(IT>0 .nr T. 1
  734. .if \\n(IT>0 .if \\n(FC=0  .T# 1
  735. .if \\n(IT>0 .br
  736. .nr FC +1
  737. .if \\n(NX<2 .nr WF 0
  738. .nr dn 0
  739. .if \\n(FC<=1 .if \\n(XX .XF
  740. .rn FZ FO
  741. .nr MF 0
  742. .if \\n(dn  .nr MF 1
  743. .if !\\n(WF .nr YY 0-\\n(FMu
  744. .if !\\n(WF .ch FO \\n(YYu
  745. .if !\\n(dn .nr WF 0
  746. .if \\n(FC<=1 .if \\n(XX=0  .if \\n(NX>1 .RC
  747. .if \\n(FC<=1 .if \\n(XX=0  .if \\n(NX<1 'bp
  748. .nr FC -1
  749. .if \\n(ML>0 .ne \\n(MLu
  750. ..
  751. .    \"2C - begin double column
  752. .de 2C
  753. .MC \" default MC is double column
  754. ..
  755. .de MC \" multiple columns- arg is line length
  756. .nr L1 \\n(LL*7/15
  757. .if \\n(.$>0 .nr L1 \\$1n
  758. .nr GW 0-1
  759. .if \\n(.$>1 .nr GW \\$1n
  760. .nr NQ \\n(LL/\\n(L1
  761. .if \\n(NQ<1 .nr NQ 1
  762. .if \\n(NQ>2 .if (\\n(LL%\\n(L1)=0 .nr NQ -1
  763. .if \\n(1T=0 \{\
  764. .    BG
  765. .    if n .sp 4
  766. .    if t .sp 2\}
  767. .if \\n(NX=0 .nr NX 1
  768. .if !\\n(NX=\\n(NQ \{\
  769. .    RT
  770. .    if \\n(NX>1 .bp
  771. .    mk
  772. .    nr NC 1
  773. .    po \\n(POu\}
  774. .if \\n(NQ>1 .hy 12
  775. .nr NX \\n(NQ
  776. .nr CW \\n(L1
  777. .ll \\n(CWu
  778. .nr FL \\n(CWu*11u/12u
  779. .if \\n(NX>1 .nr GW (\\n(LL-(\\n(NX*\\n(CW))/(\\n(NX-1)
  780. .nr RO \\n(CW+\\n(GW
  781. .ns
  782. ..
  783. .de RC
  784. .if \\n(NC>=\\n(NX .C2
  785. .if \\n(NC<\\n(NX .C1
  786. .nr NC \\n(ND
  787. ..
  788. .de C1
  789. .rt
  790. .po +\\n(ROu
  791. .nr ND \\n(NC+1
  792. .nr XX 0 1
  793. .if \\n(MF .FV
  794. .ch FX \\n(.pu-\\n(FMu
  795. .ev 1
  796. .if \\n(TB .XK
  797. .nr TC 0
  798. .ev
  799. .nr TQ \\n(.i
  800. .if \\n(IT>0 .in 0
  801. .if \\n(IT>0 .TT
  802. .if \\n(IT>0 .in \\n(TQu
  803. .mk #T
  804. .ns
  805. ..
  806. .ch FO \\n(YYu
  807. .de C2
  808. .po \\n(POu
  809. 'bp
  810. .nr ND 1
  811. ..
  812. .    \"1C - return to single column format
  813. .de 1C
  814. .MC \\n(LLu
  815. .hy 14
  816. ..
  817. .    \".de R3
  818. .    \".pl 102
  819. .    \".nr LT \\n(.l
  820. .    \"..
  821. .de MH
  822. Bell Laboratories
  823. Murray Hill, New Jersey 07974
  824. ..
  825. .de PY
  826. Bell Laboratories
  827. Piscataway, New Jersey 08854
  828. ..
  829. .de BT
  830. .nr PX \\n(.s
  831. .nr PF \\n(.f
  832. .ft 1
  833. .ps \\n(PS
  834. 'lt \\n(LTu
  835. .po \\n(POu
  836. .if \\n%>0 .tl '\\*(LF'\\*(CF'\\*(RF'
  837. .ft \\n(PF
  838. .ps \\n(PX
  839. ..
  840. .    \"PP - paragraph
  841. .de PP
  842. .RT
  843. .ne 1.1
  844. .if \\n(1T .sp \\n(PDu
  845. .ti +\\n(PIu
  846. ..
  847. .    \"SH - (unnumbered) section heading
  848. .de SH
  849. .ti \\n(.iu
  850. .RT
  851. .if \\n(1T .sp 1
  852. .if !\\n(1T .BG
  853. .RT
  854. .ne 4
  855. .ft 3
  856. .if n .ul 1000
  857. ..
  858. .    \"NH - numbered heading
  859. .de NH
  860. .RT
  861. .if \\n(1T .sp 1
  862. .if !\\n(1T .BG
  863. .RT
  864. .ne 4
  865. .ft 3
  866. .if n .ul 1000
  867. .nr NS \\$1
  868. .if !\\n(.$ .nr NS 1
  869. .if !\\n(NS .nr NS 1
  870. .nr H\\n(NS +1
  871. .if !\\n(NS-4 .nr H5 0
  872. .if !\\n(NS-3 .nr H4 0
  873. .if !\\n(NS-2 .nr H3 0
  874. .if !\\n(NS-1 .nr H2 0
  875. .if !\\$1 .if \\n(.$ .nr H1 1
  876. .ds SN \\n(H1.
  877. .ti \\n(.iu
  878. .if \\n(NS-1 .as SN \\n(H2.
  879. .if \\n(NS-2 .as SN \\n(H3.
  880. .if \\n(NS-3 .as SN \\n(H4.
  881. .if \\n(NS-4 .as SN \\n(H5.
  882. \\*(SN
  883. ..
  884. .    \"BG - begin, execute at first PP
  885. .de BG
  886. .br
  887. .ME
  888. .rm ME
  889. .di
  890. .ce 0
  891. .nr KI 0
  892. .hy 14
  893. .nr 1T 1
  894. .S\\n(ST
  895. .rm S0
  896. .rm S1
  897. .rm S2
  898. .rm S3
  899. .rm OD
  900. .rm OK
  901. .rm TX
  902. .rm AX
  903. .rm WT
  904. .rm CS
  905. .rm TM
  906. .rm IM
  907. .rm MF
  908. .rm MR
  909. .rm RP
  910. .rm I1
  911. .rm I2
  912. .rm I3
  913. .rm I4
  914. .rm I5
  915. .rm CB
  916. .rm E1
  917. .rm E2
  918. .de TL
  919. .ft 3
  920. .sp
  921. .if n .ul 100
  922. .ce 100
  923. .LG
  924. \\..
  925. .de AU
  926. .ft 2
  927. .if n .ul 0
  928. .ce 100
  929. .sp
  930. .NL
  931. \\..
  932. .de AI
  933. .ft 1
  934. .ce 100
  935. .if n .ul 0
  936. .if n .sp
  937. .if t .sp .5
  938. .NL
  939. \\..
  940. .RA
  941. .rm RA
  942. .rn FJ FS
  943. .rn FK FE
  944. .nf
  945. .ev 1
  946. .ps \\n(PS-2
  947. .vs \\n(.s+2p
  948. .ev
  949. .if \\n(KG=0 .nr FP 0 
  950. .if \\n(GA>1 .if \\n(KG=0 .nr GA 0 \" next UNIX must be flagged.
  951. .nr KG 0 
  952. .if \\n(FP>0 .FS
  953. .if \\n(FP>0 .FG
  954. .if \\n(FP>0 .FE
  955. .br
  956. .if \\n(TV>0 .if n .sp 2
  957. .if \\n(TV>0 .if t .sp 1
  958. .fi
  959. .ll \\n(LLu
  960. ..
  961. .de RA \"redefine abstract macros
  962. .de AB
  963. .br
  964. .if !\\n(1T .BG
  965. .ce 1
  966. .sp 1
  967. .if \\n(.$=0 ABSTRACT
  968. .if \\n(.$>0 .if !"\\$1"-" .if !"\\$1"no"  \\$1
  969. .if \\n(.$=0 .sp
  970. .if \\n(.$>0 .if !"\\$1"-" .if !"\\$1"no" .sp
  971. .sp 1
  972. .nr AJ 1
  973. .in +\\n(.lu/12u
  974. .ll -\\n(.lu/12u
  975. .RT
  976. \\..
  977. .de AE
  978. .nr AJ 0
  979. .br
  980. .in 0
  981. .ll \\n(LLu
  982. .if \\n(VS>40 .vs \\n(VSu
  983. .if \\n(VS<=39 .vs \\n(VSp
  984. \\..
  985. ..
  986. .    \"IP - indented paragraph
  987. .de IP
  988. .RT
  989. .if !\\n(IP .nr IP +1
  990. .sp \\n(PDu
  991. .ne 3v
  992. .if \\n(.$-1 .nr I\\n(IR \\$2n
  993. .in +\\n(I\\n(IRu
  994. .nr TY \\n(TZ-\\n(.i
  995. .ta \\n(I\\n(IRu \\n(TYuR
  996. .if \\n(.$>0 \{\
  997. .ti -\\n(I\\n(IRu
  998. \&\\$1\t\c\}
  999. ..
  1000. .    \"LP - left aligned (block) paragraph
  1001. .de LP
  1002. .ti \\n(.iu
  1003. .RT
  1004. .if \\n(1T .sp \\n(PDu
  1005. .ne 1.1
  1006. ..
  1007. .de QP
  1008. .ti \\n(.iu
  1009. .RT
  1010. .if \\n(1T .sp \\n(PDu
  1011. .ne 1.1
  1012. .nr QP 1
  1013. .in +\\n(QIu
  1014. .ll -\\n(QIu
  1015. .ti \\n(.iu
  1016. ..
  1017. .    \"IE - synonym for .LP
  1018. .de IE
  1019. .LP
  1020. ..
  1021. .    \"LB - label paragraph
  1022. .de LB
  1023. .in +\\n(I\\n(IRu
  1024. .ta \\n(I\\n(IRu
  1025. .if \\n(.$ .ti -\\n(I\\n(IRu
  1026. .if \\n(.$ \&\\$1\t\c
  1027. ..
  1028. .de XP
  1029. .RT
  1030. .if !\\n(IP .nr IP +1
  1031. .sp \\n(PDu
  1032. .ne 3
  1033. .if \\n(.$=3 .nr I\\n(IR \\$3n
  1034. .if \\n(.$=4 .nr I\\n(IR \\$4n
  1035. .nr J\\n(IR \\n(IRu/2u
  1036. .if \\n(.$=4 .nr J\\n(IR \\$3n
  1037. .in +\\n(I\\n(IRu
  1038. .ta \\n(J\\n(IRu \\n(I\\n(IRu
  1039. .ti -\\n(I\\n(IRu
  1040. \0\\$1\t\\$2\t\c
  1041. ..
  1042. .    \"RS - prepare for double indenting
  1043. .de RS
  1044. .nr IS \\n(IP
  1045. .RT
  1046. .nr IP \\n(IS
  1047. .if \\n(IP>0 .in +\\n(I\\n(IRu
  1048. .nr IR +1
  1049. .nr I\\n(IR \\n(PIu
  1050. .in +\\n(I\\n(IRu
  1051. .nr TY \\n(TZ-\\n(.i
  1052. .ta \\n(TYuR
  1053. ..
  1054. .    \"RE - retreat to the left
  1055. .de RE
  1056. .nr IS \\n(IP
  1057. .RT
  1058. .nr IP \\n(IS
  1059. .if \\n(IR>0 .nr IR -1
  1060. .if \\n(IP<=0 .in -\\n(I\\n(IRu
  1061. ..
  1062. .de TC
  1063. .nr TZ \\n(.lu
  1064. .if \\n(.$ .nr TZ \\$1n
  1065. .ta \\n(TZuR
  1066. ..
  1067. .de TD
  1068. .LP
  1069. .nr TZ 0
  1070. ..
  1071. .    \"CM - cut mark
  1072. .de CM
  1073. .po 0
  1074. .lt 7.6i
  1075. .ft 1
  1076. .ps 10
  1077. .vs 4p
  1078. .tl '--''--'
  1079. .po
  1080. .vs
  1081. .lt
  1082. .ps
  1083. .ft
  1084. ..
  1085. .    \"B - bold font
  1086. .de B
  1087. .nr PQ \\n(.f
  1088. .if t .ft 3
  1089. .if "\\$1"" .if n .ul 1000
  1090. .if !"\\$1"" .if n .ul 1
  1091. .if t .if !"\\$1"" \&\\$1\\f\\n(PQ\\$2
  1092. .if n .if \\n(.$=1 \&\\$1
  1093. .if n .if \\n(.$>1 \&\\$1\\c
  1094. .if n .if \\n(.$>1 \\&\\$2
  1095. ..
  1096. .    \"R - Roman font
  1097. .de R
  1098. .if n .ul 0
  1099. .ft 1
  1100. ..
  1101. .    \"I - italic font
  1102. .de I
  1103. .nr PQ \\n(.f
  1104. .if t .ft 2
  1105. .if "\\$1"" .if n .ul 1000
  1106. .if !"\\$1"" .if n .ul 1
  1107. .if t .if !"\\$1"" \&\\$1\|\\f\\n(PQ\\$2
  1108. .if n .if \\n(.$=1 \&\\$1
  1109. .if n .if \\n(.$>1 \&\\$1\\c
  1110. .if n .if \\n(.$>1 \\&\\$2
  1111. ..
  1112. .    \"TA - tabs set in ens or chars
  1113. .de TA
  1114. .ta \\$1n \\$2n \\$3n \\$4n \\$5n \\$6n \\$7n \\$8n \\$9n
  1115. ..
  1116. .    \"SM - make smaller size
  1117. .de SM
  1118. .if \\n(.$>0 \&\\$3\s-2\\$1\s0\\$2
  1119. .if \\n(.$=0 .ps -2
  1120. ..
  1121. .    \"LG - make larger size
  1122. .de LG
  1123. .ps +2
  1124. ..
  1125. .    \"NL - return to normal size
  1126. .de NL
  1127. .ps \\n(PS
  1128. ..
  1129. .    \"DA - force date; ND - no date or new date.
  1130. .de DA
  1131. .if \\n(.$ .ds DY \\$1 \\$2 \\$3 \\$4
  1132. .ds CF \\*(DY
  1133. ..
  1134. .de ND
  1135. .ds DY \\$1 \\$2 \\$3 \\$4
  1136. .rm CF
  1137. ..
  1138. .if \n(mo-0 .ds MO January
  1139. .if \n(mo-1 .ds MO February
  1140. .if \n(mo-2 .ds MO March
  1141. .if \n(mo-3 .ds MO April
  1142. .if \n(mo-4 .ds MO May
  1143. .if \n(mo-5 .ds MO June
  1144. .if \n(mo-6 .ds MO July
  1145. .if \n(mo-7 .ds MO August
  1146. .if \n(mo-8 .ds MO September
  1147. .if \n(mo-9 .ds MO October
  1148. .if \n(mo-10 .ds MO November
  1149. .if \n(mo-11 .ds MO December
  1150. .if \n(dw-0 .ds DW Sunday
  1151. .if \n(dw-1 .ds DW Monday
  1152. .if \n(dw-2 .ds DW Tuesday
  1153. .if \n(dw-3 .ds DW Wednesday
  1154. .if \n(dw-4 .ds DW Thursday
  1155. .if \n(dw-5 .ds DW Friday
  1156. .if \n(dw-6 .ds DW Saturday
  1157. .ds DY \*(MO \n(dy, 19\n(yr
  1158. .IZ
  1159. .rm IZ
  1160. .rm MO
  1161. .de FN
  1162. .FS
  1163. ..
  1164. .    \"FS - begin footnote
  1165. .de FJ
  1166. 'ce 0
  1167. .di
  1168. .ev1
  1169. .ll \\n(FLu
  1170. .da FF
  1171. .br
  1172. .if \\n(IF>0 .tm Footnote within footnote-illegal.
  1173. .nr IF 1
  1174. .if !\\n+(XX-1 .FA
  1175. ..
  1176. .    \"FE - footnote end
  1177. .de FK
  1178. .br
  1179. .in 0
  1180. .nr IF 0
  1181. .di
  1182. .ev
  1183. .if !\\n(XX-1 .nr dn +\\n(.v
  1184. .nr YY -\\n(dn
  1185. .if \\n(NX=0 .nr WF 1
  1186. .if \\n(dl>\\n(CW .nr WF 1
  1187. .if (\\n(nl+\\n(.v)<=(\\n(.p+\\n(YY) .ch FO \\n(YYu
  1188. .if (\\n(nl+\\n(.v)>(\\n(.p+\\n(YY) .if \\n(nl>(\\n(HM+1.5v) .ch FO \\n(nlu+\\n(.vu
  1189. .if (\\n(nl+\\n(.v)>(\\n(.p+\\n(YY) .if \\n(nl+\\n(FM+1v>\\n(.p .ch FX \\n(.pu-\\n(FMu+2v
  1190. .if (\\n(nl+\\n(.v)>(\\n(.p+\\n(YY) .if \\n(nl<=(\\n(HM+1.5v) .ch FO \\n(HMu+(4u*\\n(.vu)
  1191. ..
  1192. .\"    First page footer.
  1193. .de FS
  1194. .ev1
  1195. .br
  1196. .ll \\n(FLu
  1197. .da FG
  1198. ..
  1199. .de FE
  1200. .br
  1201. .di
  1202. .nr FP \\n(dn
  1203. .if \\n(1T=0 .nr KG 1 \"not in abstract repeat next page.
  1204. .if "\\n(.z"OD" .nr KG 0 \" if in OK, don't repeat.
  1205. .ev
  1206. ..
  1207. .de FA
  1208. .if n __________________________
  1209. .if t \l'1i'
  1210. .br
  1211. ..
  1212. .de FV
  1213. .FS
  1214. .nf
  1215. .ls 1
  1216. .FY
  1217. .ls
  1218. .fi
  1219. .FE
  1220. ..
  1221. .de FX
  1222. .if \\n(XX>0 .di FY
  1223. .if \\n(XX>0 .ns
  1224. ..
  1225. .de XF
  1226. .if \\n(nlu+1v>(\\n(.pu-\\n(FMu) .ch FX \\n(nlu+1.9v
  1227. .ev1
  1228. .nf
  1229. .ls 1
  1230. .FF
  1231. .rm FF
  1232. .nr XX 0 1
  1233. .br
  1234. .ls
  1235. .di
  1236. .fi
  1237. .ev
  1238. ..
  1239. .de FL
  1240. .ev1
  1241. .nr FL \\$1n
  1242. .ll \\$1
  1243. .ev
  1244. ..
  1245. .de HO
  1246. Bell Laboratories
  1247. Holmdel, New Jersey 07733
  1248. ..
  1249. .de WH
  1250. Bell Laboratories
  1251. Whippany, New Jersey 07981
  1252. ..
  1253. .de IH
  1254. Bell Laboratories
  1255. Naperville, Illinois 60540
  1256. ..
  1257. .de UL \" underline argument, don't italicize
  1258. .if t \\$1\l'|0\(ul'\\$2
  1259. .if n .I \\$1 \\$2
  1260. ..
  1261. .em EM
  1262. . \"  ACCENTS  say \*'e or \*`e to get e acute or e grave
  1263. .ds ' \h'\w'e'u*4/10'\z\(aa\h'-\w'e'u*4/10'
  1264. .ds ` \h'\w'e'u*4/10'\z\(ga\h'-\w'e'u*4/10'
  1265. . \"  UMLAUT  \*:u, etc.
  1266. .ds : \v'-0.6m'\h'(1u-(\\n(.fu%2u))*0.13m+0.06m'\z.\h'0.2m'\z.\h'-((1u-(\\n(.fu%2u))*0.13m+0.26m)'\v'0.6m'
  1267. . \" TILDE and CIRCUMFLEX
  1268. .ds ^ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z^\h'|\\n:u'
  1269. .ds ~ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z~\h'|\\n:u'
  1270. .    \" czech v symbol
  1271. .ds C \\k:\\h'+\\w'e'u/4u'\\v'-0.6m'\\s6v\\s0\\v'0.6m'\\h'|\\n:u'
  1272. .ds v \\k:\\h'+\\w'e'u/4u'\\v'-0.6m'\\s6v\\s0\\v'0.6m'\\h'|\\n:u'
  1273. .        \" cedilla
  1274. .ds , \\k:\\h'\\w'c'u*0.4u'\\z,\\h'|\\n:u'
  1275. .so /usr/lib/tmac/tmac.srefs
  1276. .if n .ds [. [
  1277. .if t .ds [. \s-2\v'-.4m'\f1
  1278. .if n .ds .] ]
  1279. .if t .ds .] \v'.4m'\s+2\fP
  1280. .if n .ds [o ""
  1281. .if n .ds [c ""
  1282. .if t .ds [o ``
  1283. .if t .ds [c ''
  1284. .de UX
  1285. .ie \\n(GA>0 \\$2\s-2UNIX\s0\\$1
  1286. .el \{\
  1287. .if n \\$2UNIX\\$1*
  1288. .if t \\$2\s-2UNIX\\s0\\$1\\f1\(dg\\fP
  1289. .FS
  1290. .if n *UNIX
  1291. .if t \(dgUNIX
  1292. .ie \\$3=1 is a Footnote of Bell Laboratories.
  1293. .el is a Trademark of Bell Laboratories.
  1294. .FE
  1295. .nr GA 1\}
  1296. ..
  1297. .de US
  1298. the
  1299. .UX
  1300. operating system
  1301. ..
  1302. .de QS
  1303. .br
  1304. .LP
  1305. .in +\\n(QIu
  1306. .ll -\\n(QIu
  1307. ..
  1308. .de QE
  1309. .br
  1310. .ll +\\n(QIu
  1311. .in -\\n(QIu
  1312. .LP
  1313. ..
  1314. .de B1 \" begin boxed stuff
  1315. .br
  1316. .di BB
  1317. .nr BC 0
  1318. .if "\\$1"C" .nr BC 1
  1319. .nr BE 1
  1320. ..
  1321. .de B2 \" end boxed stuff
  1322. .br
  1323. .nr BI 1n
  1324. .if \\n(.$>0 .nr BI \\$1n
  1325. .di
  1326. .nr BE 0
  1327. .nr BW \\n(dl
  1328. .nr BH \\n(dn
  1329. .ne \\n(BHu+\\n(.Vu
  1330. .nr BQ \\n(.j
  1331. .nf
  1332. .ti 0
  1333. .if \\n(BC>0 .in +(\\n(.lu-\\n(BWu)/2u
  1334. .in +\\n(BIu
  1335. .BB
  1336. .in -\\n(BIu
  1337. .nr BW +2*\\n(BI
  1338. .sp -1
  1339. \l'\\n(BWu\(ul'\L'-\\n(BHu'\l'|0\(ul'\h'|0'\L'\\n(BHu'
  1340. .if \\n(BC>0 .in -(\\n(.lu-\\n(BWu)/2u
  1341. .if \\n(BQ .fi
  1342. .br
  1343. ..
  1344. .de AT
  1345. .nf
  1346. .sp
  1347. .ne 2
  1348. Attached:
  1349. ..
  1350. .de CT
  1351. .nf
  1352. .sp
  1353. .ne 2
  1354. .ie \\n(.$ Copy to \\$1:
  1355. .el Copy to:
  1356. ..
  1357. .de BX
  1358. .if t \(br\|\\$1\|\(br\l'|0\(rn'\l'|0\(ul'
  1359. .if n \(br\\kA\|\\$1\|\\kB\(br\v'-1v'\h'|\\nBu'\l'|\\nAu'\v'1v'\l'|\\nAu'
  1360. ..
  1361.