home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / lib / tmac.s < prev    next >
Encoding:
Text File  |  1975-05-20  |  12.1 KB  |  1,026 lines
  1. .nr DO \n(.o
  2. .nr tm 0
  3. .        RT - reset everything to normal state
  4. .de RT
  5. .if !\\n(1T .BG
  6. .if !\\n(IK .di
  7. .ce 0
  8. .ul 0
  9. .if \\n(IP .in -\\n(IQn
  10. .if !\\n(IP .nr IQ 5
  11. .if \\n(IP .nr IP -1
  12. .ft R
  13. .if t .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
  14. .if n .ta 6 11 16 21 26 31 36 41 46 61 56 61 66 71 76 81
  15. .ps \\n(PS
  16. .vs \\n(VSp
  17. .fi
  18. ..
  19. .    IZ - initialization
  20. .de IZ
  21. .br
  22. .if n .nr y 0-6
  23. .if t .nr y -1i
  24. .nr x 0 1
  25. .nr IP 0
  26. .nr IQ 5
  27. .nr PS 10
  28. .nr VS 12
  29. .ps \\n(PS
  30. .vs \\n(VSp
  31. .nr TB 0
  32. .if t .CM
  33. .if t .nr LL 6i
  34. .if n .nr LL 60
  35. .ll \\n(LLu
  36. .nr LT \\n(.l
  37. .lt \\n(LTu
  38. .if n .tc ~
  39. .if n .tr ~ 
  40. .if n .ds CH "- % -
  41. .if t .ds CH "\(en % \(en
  42. .ds Ch \\*(CH
  43. .if n .ds CF "\\*(DY
  44. .wh 0 NP
  45. .if t .wh -1i FO
  46. .if n .wh -6 FO
  47. .if n .wh -3 BT
  48. .if t .wh -.5i BT
  49. .if t .nr EP 10.i
  50. .if n .nr EP 60
  51. ..
  52. .de TM
  53. .pi /usr/bin/col
  54. .nr ST 1
  55. .ds MN \\$1
  56. .nr MM \\n(.$
  57. .nr tm 1
  58. .if \\n(.$-1 .ds CA \\$2
  59. .if \\n(.$-2 .ds CC \\$3
  60. .rm RP
  61. .rm S0
  62. .rm S2
  63. .rm AX
  64. ..
  65. .de RP
  66. .nr ST 2
  67. .rm SG
  68. .rm CS
  69. .rm TM
  70. ..
  71. .    TL - title and initialization
  72. .de TL
  73. .nr TV 1
  74. .di WT
  75. .na
  76. .fi
  77. .if n .ll 50
  78. .if n .if \\n(tm .ll 30
  79. .if t .ll 5.0i
  80. .if t .if \\n(tm .ll 3.5i
  81. .ft B
  82. .if !\\n(tm .ps 12
  83. ..
  84. .de TX
  85. .rs
  86. .if t .sp .5i
  87. .if n .sp 3
  88. .ce 1000
  89. .if n .ul 1000
  90. .ps 12
  91. .ft B
  92. .vs 15p
  93. .ne 4
  94. .WT
  95. ..
  96. .        AU - author(s)
  97. .de AU
  98. .nr AV 1
  99. .ad
  100. .br
  101. .di
  102. .br
  103. .nf
  104. .nr NA +1
  105. .ds R\\n(NA \\$1
  106. .ds E\\n(NA \\$2
  107. .di A\\n(NA
  108. .ll \\n(LLu
  109. .if !\\n(tm .ft I
  110. .if \\n(tm .ft B
  111. .if \\n(tm .if n .ll 16
  112. .if \\n(tm .if t .ll 1.4i
  113. .ps 10
  114. ..
  115. .de AX
  116. .ft R
  117. .rs
  118. .ce 1000
  119. .if n .ul 0
  120. .ps 10
  121. .vs 12p
  122. .if n .sp 2
  123. .if t .sp
  124. .A1
  125. .if n .sp 
  126. .if t .sp 0.5
  127. .I1
  128. .if \\n(NA-1 .if n .sp 2
  129. .if \\n(NA-1 .if t .sp
  130. .A2
  131. .if \\n(NA-1 .if n .sp
  132. .if \\n(NA-1 .if t .sp 0.5
  133. .I2
  134. .if \\n(NA-2 .if t .sp
  135. .if \\n(NA-2 .if n .sp 2
  136. .A3
  137. .if \\n(NA-2 .if t .sp 0.5
  138. .if \\n(NA-2 .if n .sp
  139. .I3
  140. .if \\n(NA-3 .if t .sp
  141. .if \\n(NA-3 .if n .sp 2
  142. .A4
  143. .if \\n(NA-3 .if t .sp 0.5
  144. .if \\n(NA-3 .if n .sp
  145. .I4
  146. .if \\n(NA-4 .if t .sp
  147. .if \\n(NA-4 .if n .sp 2
  148. .A5
  149. .if \\n(NA-4 .if n .sp
  150. .if \\n(NA-4 .if t .sp 0.5
  151. .I5
  152. ..
  153. .    AI - authors institution
  154. .de AI
  155. .br
  156. .ft R
  157. .di
  158. .di I\\n(NA
  159. .nf
  160. ..
  161. .    AB - begin an abstract
  162. .de AB
  163. .br
  164. .di
  165. .ll \\n(LTu
  166. .nr 1T 1
  167. .nr IK 1
  168. .di WB
  169. .rs
  170. .ce 1
  171. .if t .ft I
  172. .if n .ul
  173. .ll \\n(LTu
  174. ABSTRACT
  175. .sp
  176. .fi
  177. .if t .ft R
  178. .nr oi \\n(.i
  179. .if n .in +\\n(.l/12
  180. .if t .in +\\n(.lu/12u
  181. .if t .ll -\\n(.lu/12u
  182. .if n .ll -\\n(.l/12
  183. .br
  184. .ps \\n(PS
  185. .if t .ti +5n
  186. .if n .ti +5
  187. ..
  188. .    AE - end of an abstract
  189. .de AE
  190. .br
  191. .di
  192. .ll \\n(LLu
  193. .nr 1T 0
  194. .nr IK 0
  195. .if n .in \\n(oi
  196. .if t .in \\n(oiu
  197. .di
  198. .ce 0
  199. .if \\n(ST-1 .SY
  200. .rm SY
  201. ..
  202. .    OK - "other keywords" for cover sheet.
  203. .de OK
  204. .br
  205. .di
  206. .di OD
  207. .nf
  208. .ft B
  209. ..
  210. .    CS - spew out cover sheet
  211. .de CS
  212. .br
  213. .di
  214. .if t .pl 15i
  215. .tr ~
  216. .if n .sp 6
  217. .if t .po 0.5i
  218. .if t .sp .5i
  219. .if t .lg
  220. .if t .ll 7.0i
  221. .nf
  222.        \s24\(bs\s12\fB  Bell Laboratories        \s16\fRCover Sheet for Technical Memorandum
  223. .sp
  224. .if t \s6\l'7i'
  225. .fi
  226. .ps 9
  227. .ft I
  228. .if t .sp 2p
  229. The information contained herein is for the use of employees of Bell Laboratories and is not for publication.  (See GEI 13.9-3)\p
  230. .ft R
  231. .nf
  232. .if t \s6\l'7i'
  233. .sp
  234. .if t .ll 6.0i
  235. .if n .ll 30
  236. .if t .po 1.0i
  237. .ps 9
  238. .if t .ta 0.5i 4.5i 4.9i
  239. .if n .ta 10 40 47
  240. .mk
  241. Title- \fB\s10
  242. .rt
  243. .if t .in 0.5i
  244. .if n .in 10
  245. .WT
  246. .rt
  247. .ll \\n(LLu
  248. .if t .in 4.5i
  249. .if n .in 40
  250. \s9\fRDate-\s10\fB
  251. .rt
  252. .if t .in 4.9i
  253. .if n .in 47
  254. \\*(DY
  255. .sp
  256. .if t .ti 4.5i
  257. .if n .ti 40
  258. .mk
  259. \s9\fRTM-\fB\s10
  260. .br
  261. .rt
  262. .CT \\*(MN
  263. .rt
  264. .in 0
  265. .sp
  266. .mk
  267. \s9\fROther Keywords-\fB
  268. .rt
  269. .if t .in 1.1i
  270. .if n .in 20
  271. .OD
  272. .rm OK
  273. .rm OD
  274. .in 0
  275. .if t .sp .7i
  276. .if n .sp 3
  277. .ps 9
  278. .if t .ta 1.8i 3.3i 4.3i
  279. .if n .ta 20 35 45
  280. .ft R
  281. Author    Location    Extension    Charging Case- \s10\fB\\*(CA
  282. .ps 10
  283. .nf
  284. .mk
  285. .A1
  286. .rt
  287.     \\*(R1    \\*(E1    \fR\s9Filing Case- \s10\fB\\*(CC
  288. .if \\n(NA-1 .CB 2
  289. .if \\n(NA-2 .CB 3
  290. .if \\n(NA-3 .CB 4
  291. .if \\n(NA-4 .CB 5
  292. .ft R
  293. .if t .sp .4i
  294. .if n .sp 2
  295. .WB
  296. .br
  297. .if t .sp |8.3i
  298. .if n .sp 5
  299. .FF
  300. .rm FF
  301. .if t .sp |9.3i
  302. .nr x 50-\\n(nl
  303. .if n .sp \\nx
  304. .if t .po 0.5i
  305. .if t .ll 7i
  306. .nf
  307. .if t \l'7i'
  308. .if t .ta 1.4i 2.8i 4.2i
  309. .if n .ta 15 30 45
  310. .if t .sp 8p
  311. Pages Text   \\$1    Other   \\$2    Total   \\$3
  312. .if t .sp 8p
  313. .if n .sp 
  314. .if t No. Figures   \\$4    No. Tables   \\$5    No. Refs.   \\$6    \b'|||||~~'
  315. .if n No. Figures   \\$4    No. Tables   \\$5    No. Refs.   \\$6
  316. .if t \l'7i'
  317. .ps 7
  318. .if n .sp
  319. .tl 'E-1932-C (6-73)'SEE REVERSE SIDE FOR DISTRIBUTION LIST''
  320. .if t .po 0.5i
  321. .ll \\n(LLu
  322. .fi
  323. .if t .sp |10.8i
  324. .if t .po 0
  325. .ps 10
  326. .if t .tl '-'''
  327. .if t .pl
  328. .bp 1
  329. .if t .po \\n(DOu
  330. ..
  331. .    CB - help with cover sheet
  332. .de CB
  333. .br
  334. .mk
  335. .A\\$1
  336. .rt
  337. .if \\$1-1 .if !\\$1-2 \&    \\*(R2    \\*(E2
  338. .if \\$1-2 .if !\\$1-3 \&    \\*(R3    \\*(E3
  339. .if \\$1-3 .if !\\$1-4 \&    \\*(R4    \\*(E4
  340. .if \\$1-4 .if !\\$1-5 \&    \\*(R5    \\*(E5
  341. .br
  342. ..
  343. .de CT
  344. \\$1
  345. \\$2
  346. \\$3
  347. \\$4
  348. ..
  349. .    S1 - tm style 
  350. .de S1
  351. .if n .sp 6
  352. .if t .sp .75i
  353. .if t .ta 4.75i
  354. .if n .ta 47
  355. .ll 80
  356. .ps 36
  357. .br
  358. .if t \t\(bs
  359. .vs .25i
  360. .ps 12
  361. .br
  362. .ft B
  363. .nf
  364. \tBell Laboratories
  365. .ft R
  366. .fi
  367. .na
  368. .ps 8
  369. .vs 12p
  370. .if n .sp 3
  371. .if t .sp .5i
  372. .mk
  373. .fi
  374. .ll
  375. .if n .ll 40
  376. .if t .ll 4.0i
  377. Subject:
  378. .ft B
  379. .ps
  380. .WT
  381. .ft R
  382. .br
  383. .if \\n(MM-1 \\s8Case- \\*(CA\\s10
  384. .if \\n(MM-2 --\s8 File- \\*(CC\\s10
  385. .br
  386. .rt
  387. .if n .ll 70
  388. .if t .ll 6.5i
  389. .if t .in 5.10i
  390. .if n .in 52
  391. .ps 8
  392. .mk
  393. .ti -6n
  394. date:
  395. .ps \\n(PS
  396. .ft B
  397. .br
  398. .rt
  399. \\*(DY
  400. .sp
  401. .ft R
  402. .ps 8
  403. .mk
  404. .ti -6n
  405. from:
  406. .ps
  407. .br
  408. .rt
  409. .ft B
  410. .A1
  411. .br
  412. .A2
  413. .br
  414. .A3
  415. .br
  416. .A4
  417. .br
  418. .A5
  419. .ft R
  420. .sp
  421. .mk
  422. .ps 8
  423. .ti -6n
  424. .ft R
  425. .if \\n(MM TM:
  426. .br
  427. .rt
  428. .ps
  429. .ft B
  430. .hy 0
  431. .ll 10n
  432. .if \\n(MM \\*(MN
  433. .hy
  434. .ll
  435. .ft R
  436. .ll \\n(LLu
  437. .in
  438. .sp
  439. .ad
  440. .ce
  441. .ft I
  442. MEMORANDUM FOR FILE
  443. .ft R
  444. .sp
  445. .ad
  446. ..
  447. .    S2 - release paper style
  448. .    SY - cover sheet of released paper
  449. .de SY
  450. .ll \\n(LLu
  451. .sp 6
  452. .ns
  453. .if \\n(TV .TX
  454. .if \\n(AV .AX
  455. .ce 0
  456. .nf
  457. .sp 3
  458. .WB
  459. .fi
  460. ..
  461. .    S2 - first text page, released paper format
  462. .de S2
  463. .SY
  464. .rm SY
  465. .bp 1
  466. .if \\n(TV .TX
  467. .if \\n(AV .AX
  468. .ce 0
  469. .ft R
  470. .ad
  471. ..
  472. .    S0- mike lesk conserve paper style
  473. .de S0
  474. .ll \\n(LLu
  475. .rs
  476. .sp 6
  477. .ns
  478. .if \\n(TV .TX
  479. .if \\n(AV .AX
  480. .ce 0
  481. .nf
  482. .WB
  483. .fi
  484. .ad
  485. ..
  486. .    SG - signature
  487. .de SG
  488. .nf
  489. .if n .in +2*\\n(.l/3
  490. .if t .in +2u*\\n(.lu/3u
  491. .sp 2
  492. .A1
  493. .if \\n(NA-1 .sp 2
  494. .A2
  495. .if \\n(NA-2 .sp 2
  496. .A3
  497. .if \\n(NA-3 .sp 2
  498. .A4
  499. .if \\n(NA-4 .sp 2
  500. .A5
  501. .in
  502. \\$1
  503. .br
  504. ..
  505. .    Tables.  TS - table start, TE - table end
  506. .de TS
  507. .br
  508. .RT
  509. .ul 0
  510. .if t .sp 0.5
  511. .if n .sp
  512. .nf
  513. ..
  514. .de TE
  515. .fi
  516. .if n .sp 1
  517. .if t .sp 0.5
  518. ..
  519. .    DS - display.  If .DS C, center; L, left-adjust; I, indent.
  520. .de DS
  521. .KS
  522. .\\$1D
  523. ..
  524. .de CD
  525. .ce 1000
  526. .nf
  527. .nr oi \\n(.i
  528. .if t .sp 0.5
  529. .if n .sp 1
  530. ..
  531. .de D
  532. .ID
  533. ..
  534. .de ID
  535. .nf
  536. .nr oi \\n(.i
  537. .if t .sp 0.5
  538. .if n .sp 1
  539. .if t .in +0.5i
  540. .if n .in +8
  541. ..
  542. .de LD
  543. .nf
  544. .nr oi \\n(.i
  545. .if t .sp 0.5
  546. .if n .sp 1
  547. ..
  548. .    DE - display end
  549. .de DE
  550. .ce 0
  551. .if n .in \\n(oi
  552. .if t .in \\n(oiu
  553. .KE
  554. .if t .sp 0.5
  555. .if n .sp 1
  556. .fi
  557. ..
  558. .    KS keep - for keep release features. As in IBM
  559. .de KS
  560. .if !\\n(IK .KQ
  561. .nr IK +1
  562. ..
  563. .    KQ - real keep processor
  564. .de KQ
  565. .br
  566. .di KK
  567. .nr TB 0
  568. ..
  569. .    KF - floating keep
  570. .de KF
  571. .if !\\n(IK .FQ
  572. .nr IK +1
  573. ..
  574. .    FQ real floating keep processor
  575. .de FQ
  576. .br
  577. .di KK
  578. .nr TB 1
  579. ..
  580. .    KE release - everything between keep and release is together
  581. .de KE
  582. .if \\n(IK .if !\\n(IK-1 .RQ
  583. .if \\n(IK .nr IK -1
  584. ..
  585. .    RQ real release
  586. .de RQ
  587. .br
  588. .di
  589. .if \\n(dn+\\n(nl-\\n(EP .if !\\n(TB .sp 200
  590. .if !\\n(dn+\\n(nl-\\n(EP .if \\n(TB .nr TB 0
  591. .nf
  592. .in 0
  593. .if !\\n(TB .KK
  594. .in
  595. .fi
  596. ..
  597. .    EQ default equation breakout
  598. .de EQ
  599. .if t .sp .5
  600. .if n .sp
  601. .ce
  602. .ne 2
  603. .ds EL \\$1
  604. .if \\n(.$-1 .ds EL \\$2
  605. .nr LE \\n(.$
  606. .@\\$1
  607. ..
  608. .    This nonsense permits recognition of .EQ L, .EQ I, .EQ C
  609. .    by invoking macros @L, @I, and so forth.
  610. .de @L
  611. .ce0
  612. .nr LE -1
  613. ..
  614. .de @C
  615. .nr LE -1
  616. ..
  617. .de @I
  618. .ce 0
  619. .ti 10n
  620. .nr LE -1
  621. ..
  622. .de EN
  623. .ce 0
  624. .lt \\n(.lu
  625. .if \\n(LE .if n .sp -1
  626. .if \\n(LE .if n .tl '''\\*(EL'
  627. .if n .sp 1
  628. .if \\n(LE .if t .sp -1-\\n(.au
  629. .if \\n(LE .if t .tl '''\\*(EL'
  630. .if \\n(LE .if t .sp \\n(.au
  631. .if t .sp 0.5
  632. .ns
  633. ..
  634. .    EM end up macro - process left over keep-release
  635. .de EM
  636. .if \\n(TB .br
  637. .if \\n(TB 
  638. .if \\n(TB .NP
  639. ..
  640. .    NP new page
  641. .de NP
  642. .if t .CM
  643. .if t 'sp 0.5i
  644. .if n 'sp 3
  645. .ft R
  646. .lt \\n(LTu
  647. .ps \\n(PS
  648. .PT
  649. .ps
  650. .ft P
  651. .if t 'sp 0.5i
  652. .if n 'sp 3
  653. .nr x 0 1
  654. .if t .nr y 0-1i
  655. .if n .nr y 0-6
  656. .if \\n(MF .fz
  657. .nr MF 0
  658. .ns
  659. .os
  660. .ev 1
  661. .if \\n(TB .nf
  662. .if \\n(TB .KK
  663. .if \\n(TB .fi
  664. .ev
  665. .nr TB 0
  666. .mk
  667. ..
  668. .de PT
  669. .if \\n%-1 .tl '\\*(LH'\\*(Ch'\\*(RH'
  670. ..
  671. .    FO - footer of page
  672. .de FO
  673. .nr FC +1
  674. .nr dn 0
  675. .if \\nx .xf
  676. .nr MF 0
  677. .if \\n(dn  .nr MF 1
  678. .if t .ch FO -1i
  679. .if n .ch FO -6
  680. .if !\\n(FC-1 .if \\n(NX .RC
  681. .if !\\n(FC-1 .if !\\n(NX 'bp
  682. .nr FC -1
  683. ..
  684. .    2C - begin double column
  685. .de 2C
  686. .if !\\n(1T .if n .sp 4
  687. .if !\\n(1T .if t .sp 2
  688. .RT
  689. .mk
  690. .nr NC 1
  691. .nr NX 1
  692. .nr L1 \\n(.l
  693. .nr L2 \\n(.l*7/15
  694. .if n .ll \\n(L2
  695. .if t .ll \\n(L2u
  696. .if n .FL \\n(L2*11/12
  697. .if t .FL \\n(L2u*11u/12u
  698. .nr RO \\n(L2*8/7
  699. .ns
  700. ..
  701. .de RC
  702. .if \\n(NC-1 .C2
  703. .if !\\n(NC-1 .C1
  704. .nr NC \\n(ND
  705. ..
  706. .de C1
  707. .rt
  708. .if n .po +\\n(RO
  709. .if t .po +\\n(ROu
  710. .nr ND 2
  711. .nr x 0 1
  712. .ns
  713. ..
  714. .de C2
  715. .po \\n(DOu
  716. 'bp
  717. .nr ND 1
  718. ..
  719. .    1C - return to single column format
  720. .de 1C
  721. .nr NX 0
  722. .br
  723. .po \\n(DOu
  724. .nr ND 1
  725. .if n .ll \\n(L1
  726. .if t .ll \\n(L1u
  727. .bp
  728. ..
  729. .    .de R3
  730. .    .ll 120
  731. .    .pl 102
  732. .    .nr LT \\n(.l
  733. .    ..
  734. .de MH
  735. Bell Laboratories,
  736. Murray Hill, New Jersey 07974
  737. ..
  738. .de BT
  739. .ft R
  740. .lt \\n(LTu
  741. .tl '\\*(LF'\\*(CF'\\*(RF'
  742. .ft P
  743. ..
  744. .    PP - paragraph
  745. .de PP
  746. .RT
  747. .ne 2
  748. .if \\n(1T .if t .sp 0.3
  749. .if \\n(1T .if n .sp
  750. .if t .ti +5n
  751. .if n .ti +5
  752. ..
  753. .    SH - (unnumbered) section heading
  754. .de SH
  755. .RT
  756. .if \\n(1T .sp 1
  757. .if !\\n(1T .BG
  758. .RT
  759. .ne 7
  760. .ft B
  761. .if n .ul 1000
  762. ..
  763. .    NH - numbered heading
  764. .de NH
  765. .RT
  766. .if \\n(1T .sp 1
  767. .if !\\n(1T .BG
  768. .RT
  769. .ne 7
  770. .ft B
  771. .if n .ul 1000
  772. .nr a \\$1
  773. .if !\\n(.$ .nr a 1
  774. .if !\\na .nr a 1
  775. .nr H\\na +1
  776. .if !\\na-4 .nr H5 0
  777. .if !\\na-3 .nr H4 0
  778. .if !\\na-2 .nr H3 0
  779. .if !\\na-1 .nr H2 0
  780. .if !\\$1 .if \\n(.$ .nr H1 1
  781. .ds SN \\n(H1.
  782. .if \\na-1 .as SN \\n(H2.
  783. .if \\na-2 .as SN \\n(H3.
  784. .if \\na-3 .as SN \\n(H4.
  785. .if \\na-4 .as SN \\n(H5.
  786. \\*(SN
  787. ..
  788. .    BG - begin, execute at first PP
  789. .de BG
  790. .br
  791. .di
  792. .ce 0
  793. .nr 1T 1
  794. .S\\n(ST
  795. .rm S0
  796. .rm S1
  797. .rm S2
  798. .rm OK
  799. .rm OD
  800. .rm TX
  801. .rm AX
  802. .rm WT
  803. .rm I1
  804. .rm I2
  805. .rm I3
  806. .rm I4
  807. .rm I5
  808. .rm CB
  809. .rm E1
  810. .rm R1
  811. .rm R2
  812. .rm E2
  813. .de TL
  814. .ft B
  815. .sp
  816. .if n .ul 100
  817. .ce 100
  818. .LG
  819. \\..
  820. .de AU
  821. .ft I
  822. .if n .ul 0
  823. .ce 100
  824. .sp
  825. .NL
  826. \\..
  827. .de AI
  828. .ft R
  829. .ce 100
  830. .if n .ul 0
  831. .if n .sp
  832. .if t .sp .5
  833. .NL
  834. \\..
  835. .ds Ch \\*(CH
  836. .if n .sp 2
  837. .if t .sp 1
  838. .fi
  839. .ll \\n(LLu
  840. ..
  841. .    IP - indented paragraph
  842. .de IP
  843. .RT
  844. .if !\\n(IP .nr IP +1
  845. .if t .sp 0.3
  846. .if n .sp
  847. .ne 3
  848. .if \\n(.$-1 .nr IQ \\$2
  849. .LB "\\$1"
  850. ..
  851. .    LP - left aligned (block) paragraph
  852. .de LP
  853. .RT
  854. .if t .sp 0.3
  855. .if n .sp
  856. .ne 3
  857. .if \\n(.$ .LB \\$1
  858. ..
  859. .    IE - synonym for .LP
  860. .de IE
  861. .LP
  862. ..
  863. .    LB - label paragraph
  864. .de LB
  865. .in +\\n(IQn
  866. .if n .ta \\n(IQ+1
  867. .if t .ta \\n(IQn
  868. .ti -\\n(IQn
  869. \\$1\t\c
  870. ..
  871. .    RS - prepare for double indenting
  872. .de RS
  873. .in +\\n(IQn
  874. .nr IP +1
  875. ..
  876. .    RE - retreat to the left
  877. .de RE
  878. .br
  879. .in -\\n(IQn
  880. ..
  881. .    CM - cut mark
  882. .de CM
  883. .po 0
  884. .tl '-'''
  885. .po
  886. ..
  887. .    B - bold font
  888. .de B
  889. .ft B
  890. .if n .ul 1000
  891. ..
  892. .    R - Roman font
  893. .de R
  894. .ft R
  895. .if n .ul 0
  896. ..
  897. .    I - italic font
  898. .de I
  899. .ft I
  900. .if n .ul 1000
  901. ..
  902. .    TA - tabs set in ens or chars
  903. .de TA
  904. .ta \\$1n \\$2n \\$3n \\$4n \\$5n \\$6n \\$7n \\$8n \\$9n
  905. ..
  906. .    SM - make smaller size
  907. .de SM
  908. .ps -2
  909. ..
  910. .    LG - make larger size
  911. .de LG
  912. .ps +2
  913. ..
  914. .    NL - return to normal size
  915. .de NL
  916. .ps \\n(PS
  917. ..
  918. .    DA - force date; ND - no date or new date.
  919. .de DA
  920. .if \\n(.$ .ds DY \\$1 \\$2 \\$3 \\$4
  921. .ds CF \\*(DY
  922. ..
  923. .de ND
  924. .ds DY \\$1 \\$2 \\$3 \\$4
  925. .rm CF
  926. ..
  927. .if \n(mo-0 .ds mo January
  928. .if \n(mo-1 .ds mo February
  929. .if \n(mo-2 .ds mo March
  930. .if \n(mo-3 .ds mo April
  931. .if \n(mo-4 .ds mo May
  932. .if \n(mo-5 .ds mo June
  933. .if \n(mo-6 .ds mo July
  934. .if \n(mo-7 .ds mo August
  935. .if \n(mo-8 .ds mo September
  936. .if \n(mo-9 .ds mo October
  937. .if \n(mo-10 .ds mo November
  938. .if \n(mo-11 .ds mo December
  939. .if \n(dw-0 .ds dw Sunday
  940. .if \n(dw-1 .ds dw Monday
  941. .if \n(dw-2 .ds dw Tuesday
  942. .if \n(dw-3 .ds dw Wednesday
  943. .if \n(dw-4 .ds dw Thursday
  944. .if \n(dw-5 .ds dw Friday
  945. .if \n(dw-6 .ds dw Saturday
  946. .ds DY \*(mo \n(dy, 19\n(yr
  947. .IZ
  948. .rm IZ
  949. .rm mo
  950. .de FN
  951. .FS
  952. ..
  953. .    FS - begin footnote
  954. .de FS
  955. 'ce 0
  956. .di
  957. .da FF
  958. .ev1
  959. .if !\\n+x-1 .fs
  960. ..
  961. .    FE - footnote end
  962. .de FE
  963. .br
  964. .in 0
  965. .ev
  966. .di
  967. .if t .if !\\nx-1 .nr dn +\\n(.v
  968. .nr y -\\n(dn
  969. .if n .ch FO \\ny
  970. .if t .ch FO \\nyu
  971. .if t .if \\n(nl+\\n(.v-\\n(.p-\\ny .ch FO \\n(nlu+\\n(.vu
  972. .if n .if \\n(nl-\\n(.p-\\ny .ch FO \\n(nl+1
  973. ..
  974. .de fs SEPARATOR
  975. .if n __________________________
  976. .if t \l'1i'
  977. .br
  978. ..
  979. .de fz
  980. .FS
  981. .nf
  982. .fy
  983. .fi
  984. .FE
  985. ..
  986. .de fx
  987. .di fy
  988. ..
  989. .de xf
  990. .ev1
  991. .nf
  992. .FF
  993. .rm FF
  994. .di
  995. .fi
  996. .ev
  997. ..
  998. .de FL
  999. .ev1
  1000. .ll \\$1
  1001. .ev
  1002. ..
  1003. .de HO
  1004. Bell Laboratories,
  1005. Holmdel, New Jersey 07733
  1006. ..
  1007. .de WH
  1008. Bell Laboratories,
  1009. Whippany, New Jersey 07981
  1010. ..
  1011. .if t .ch FO 12i
  1012. .if t .wh -1i fx
  1013. .if t .ch FO -1i
  1014. .if n .ch FO 100
  1015. .if n .wh -6 fx
  1016. .if n .ch FO -6
  1017. .ev1
  1018. .ll \n(LLu
  1019. .if n .ll -\\n(.l/12
  1020. .if t .ll -\\n(.lu/12u
  1021. 'ps8
  1022. 'vs10p
  1023. .ev
  1024. .br
  1025. .em EM
  1026.