Make LCALL like LJMP and avoid segmentation faults parsing segments (!).
[unix-history] / usr / src / old / ms / toc.ms
CommitLineData
b6c42c5c 1.\" @(#)toc.ms 1.3 (Berkeley) %G%
aa02d386
MK
2. \" XS - begin index entry
3.de XS
4.if !\\n(1T .BG
5.ds XL \\n(PN
6.if \\n(.$ .ds XL \\$1
7.nr SJ \\n(.j
8.nr PF \\n(.f
9.nr PX \\n(.s
10.nr SL \\n(.l
11.ls 1
12.br
13.da XT
14.if \\n(.$-1 \{\
15. nr XI 1
16. in \\$2n
17.\}
18.ft 1
19.ps \\n(PS
20.ll \\n(LLu-8n
21.na
22.sp \\n(PDu
23..
24. \" XA - add index entry
25.de XA
26.if !\a\\*(XL\ano\a \\a\\t\\*(XL
27.if \\n(.$ .ds XL \\$1
28.sp \\n(PDu
29.if \\n(.$-1 \{\
30. nr XI 1
31. in \\$2n
32.\}
33..
34. \" XE - end index entry
35.de XE
36.if !\a\\*(XL\ano\a \\a\\t\\*(XL
37.br
38.da
39.ls
40.ad \\n(SJ
41.ft \\n(PF
42.ps \\n(PX
43.ll \\n(SLu
44.if \\n(XI \{\
45. nr XI 0
46. in 0
47.\}
48..
49. \" PX - print index (table of contents)
50.de PX
51.if \\n(VS>=40 .vs \\n(VSu
52.if \\n(VS<=39 .vs \\n(VSp
53.ll \\n(LLu
54.lt \\n(LTu
55.ta \\n(LLu-5n \\n(LLuR
56.in 0
57.nf
58.rs
59.if !\a\\$1\ano\a \{\
60. sp .5i
61. tl ''\f3\s+2Table of Contents\s-2\f1''
62. sp .5i
63.\}
64.XT
65..
66. \" TC - table of contents at end of paper
67.de TC
68.af PN i
69.bp 1
70.PX \\$1
71..
72. \" NH - numbered section header
73.de NH
74.RT
75.if \\n(1T .sp
76.if !\\n(1T .BG
77.RT
78.ne 3.1
79.ft 3
80.if n .ul 1000
81.nr NS \\$1
82.if !\\n(.$ .nr NS 1
83.if !\\n(NS .nr NS 1
84.nr H\\n(NS +1
85.if !\\n(NS-4 .nr H5 0
86.if !\\n(NS-3 .nr H4 0
87.if !\\n(NS-2 .nr H3 0
88.if !\\n(NS-1 .nr H2 0
89.if !\\$1 .if \\n(.$ .nr H1 1
90.if \a\\$1\aS\a \{\
91. nr NS \\n(.$-1
92. nr H1 \\$2
93. nr H2 \\$3
94. nr H3 \\$4
95. nr H4 \\$5
96. nr H5 \\$6
97.\}
98.ds SN \\n(H1.
99.ti \\n(.iu
100.if \\n(NS-1 .as SN \\n(H2.
101.if \\n(NS-2 .as SN \\n(H3.
102.if \\n(NS-3 .as SN \\n(H4.
103.if \\n(NS-4 .as SN \\n(H5.
104\\*(SN
105..