![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tmac.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / a / usr / lib|
Return to tmac.s CVS log | Up to [MW Coherent from dump] / coherent / a / usr / lib |
1.1 root 1: .\" /usr/lib/tmac.s 4/16/91
2: .de It \" Done at initialization
3: .po 1i
4: .wh 0 Hd
5: .nr Ft 0-\\n(FM
6: .wh -\\n(FMu Fo
7: .wh -\\n(FMu Fx
8: .nr Ps \\n(PS
9: .ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n 85n 90n
10: .ds Xx **GOK**
11: .if \n(mo=1 .ds Xx January
12: .if \n(mo=2 .ds Xx February
13: .if \n(mo=3 .ds Xx March
14: .if \n(mo=4 .ds Xx April
15: .if \n(mo=5 .ds Xx May
16: .if \n(mo=6 .ds Xx June
17: .if \n(mo=7 .ds Xx July
18: .if \n(mo=8 .ds Xx August
19: .if \n(mo=9 .ds Xx September
20: .if \n(mo=10 .ds Xx October
21: .if \n(mo=11 .ds Xx November
22: .if \n(mo=12 .ds Xx December
23: .ds Ds "\\*(Xx \\n(dy, 19\\n(yr"
24: ..
25: .de Rt \" Reset everything to normal state
26: .ce 0
27: .if \\n(Di \{\
28: .di
29: .nr Di 0
30: .nf
31: .Tl
32: . \}
33: .fi
34: .ps \\n(Ps
35: .vs \\n(VSu
36: .ft R
37: .if \\n(Il \{\
38: .nr Il 0
39: .in -\\n(Iku
40: . \}
41: .if \\n(Qn \{\
42: .nr Qn -1
43: .in -\\n(Qdu
44: .ll +\\n(Qdu
45: . \}
46: ..
47: .de Hd \" Header trap
48: 'nr PN \\n%
49: 'sp \\n(HMu/2u-1v
50: 'ft R
51: 'PT
52: 'ft P
53: 'sp \\n(HMu/2u
54: 'if \\n(Kf \{\
55: 'nr Kf 0
56: 'ev 1
57: 'nf
58: 'Kd
59: 'rm Kd
60: 'ev
61: . \}
62: .nr Fn 0 \" Clear footnote count
63: .ch Fo -\\n(FMu
64: .if \\n(Fh .Fv \" And put out overflow
65: ..
66: .de Fo \" Footer trap
67: .nr dn 0
68: .if \\n(Fn \{\
69: .ev 1
70: .nf
71: .Fn
72: .rm Fn
73: .if "\\n(.z"Fe" .di
74: .di
75: .nr Fn 0
76: .ev
77: .if \\n(dn .nr Fh 1
78: . \}
79: 'sp \\n(FMu/2u
80: 'ft R
81: 'BT
82: 'ft P
83: 'bp
84: ..
85: .de CD \" Centred display
86: .ce 10000
87: ..
88: .de LD \" Left display
89: .nf
90: ..
91: .de ID \" Indented display
92: .in +.5i
93: .nf
94: .nr Bi 1
95: ..
96: .de BD \" Block centred display
97: .nr Bd 1
98: .nf
99: ..
100: .de PP \" Start new paragraph
101: .Rt
102: .sp \\n(PDu
103: .ne 5
104: .ti \\n(PIu
105: ..
106: .de LP \" Left paragraph
107: .Rt
108: .ne 5
109: .sp
110: ..
111: .de IP
112: .LP
113: .if \\n(.$>1 .nr Ik \\$2n
114: .nr Il 1
115: .in +\\n(Iku
116: .ti -\\n(Iku
117: \\$1\h'\\n(Iku-\\w`\\$1`u'\\c
118: ..
119: .de QS \" Start quoted paragraph
120: .sp
121: .ft R
122: .in +\\n(PIu
123: .ll -\\n(PIu*2u
124: ..
125: .de QP \" Quoted paragraph
126: .PP
127: .nr Qn 1
128: ..
129: .de QE \" End quoted paragraph
130: .sp
131: .ft P
132: .in -\\n(PIu
133: .ll +\\n(PIu*2u
134: ..
135: .de RS \" Start relative indent
136: .in +\\n(Iku
137: ..
138: .de RE \" End relative indent
139: .in -\\n(Iku
140: ..
141: . \" Title page and headings
142: .de TL \" Main title
143: .nr Di 1 \" Diverted
144: .di Tl
145: .sp
146: .ce 1000
147: .ps \\n(PS+2
148: .ft B
149: ..
150: .de AU \" Author
151: .if !\\n(Di .da Tl
152: .nr Di 1
153: .sp
154: .ce 1000
155: .ps \\n(PS
156: .ft R
157: ..
158: .de AI \" Author's institution
159: .if !\\n(Di .da Tl
160: .nr Di 1
161: .sp
162: .ce 1000
163: .ps \\n(PS
164: .ft R
165: ..
166: .de AB \" Begin abstract
167: .if \\n(Di \{\
168: .sp
169: .ce 0
170: .ps \\n(PS
171: .ft R
172: .di
173: .nf
174: .Tl
175: .fi
176: .nr Di 0
177: . \}
178: .sp
179: .ce
180: \fIABSTRACT\fP
181: .ll -.5i
182: .in +.5i
183: ..
184: .de AE \" End abstract
185: .ll +.5i
186: .in -.5i
187: .sp .5i
188: .ce 1000
189: \\*(Ds
190: .ce 0
191: .sp .5i
192: .sp
193: ..
194: .de ND \" New (or No) Date
195: .ds Ds \\$1
196: ..
197: .de DA \" Supply date
198: .ds Ds \\$1
199: ..
200: .de SH \" Sub-heading
201: .Rt
202: .sp
203: .ft B
204: ..
205: .de NH \" Numbered section heading
206: .Rt
207: .sp
208: .ft B
209: .nr Xx 1
210: .if \\n(.$>0 .nr Xx \\$1
211: .if \\n(Xx<5 .nr @5 0
212: .if \\n(Xx<4 .nr @4 0
213: .if \\n(Xx<3 .nr @3 0
214: .if \\n(Xx<2 .nr @2 0
215: .if \\n(Xx<1 .nr @1 0
216: .if \\n(Xx=0 .nr Xx 1
217: .if \\n(Xx>5 .tm NH level too large
218: .nr @\\n(Xx +1
219: .ds Yy \\n(@1
220: .if \\n(Xx=1 .as Yy .
221: .if \\n(Xx>1 .as Yy .\\n(@2
222: .if \\n(Xx>2 .as Yy .\\n(@3
223: .if \\n(Xx>3 .as Yy .\\n(@4
224: .if \\n(Xx>4 .as Yy .\\n(@5
225: \\*(Yy
226: ..
227: .de PT \" Page title
228: 'tl '\\*(LT'\\*(CT'\\*(RT'
229: ..
230: .de BT \" Bottom title
231: 'tl '\\*(LF'\\*(CF'\\*(RF'
232: ..
233: . \" Sizes and fonts
234: .de NL \" Normal size
235: .if \\n(.$>0 \s\\n(Ps\\$1\s0
236: .if \\n(.$=0 .nr Ps \\n(Ps
237: ..
238: .de SM \" Smaller size
239: .if \\n(.$>0 \s-2\\$1\s0
240: .if \\n(.$=0 .nr Ps \\n(Ps-2
241: ..
242: .de LG \" Larger size
243: .if \\n(.$>0 \s+2\\$1\s0
244: .if \\n(.$=0 .nr Ps \\n(Ps+2
245: ..
246: .de UL \" Underline
247: \\$1\l'|0\(ul'
248: ..
249: .de B \" Bold face font
250: .if \\n(.$>0 \\fB\\$1\\fP
251: .if \\n(.$=0 .ft B
252: ..
253: .de I \" Italic font
254: .if \\n(.$>0 \\fI\\$1\\fP
255: .if \\n(.$=0 .ft I
256: ..
257: .de R \" Roman font
258: .if \\n(.$>0 \\fR\\$1\\fP
259: .if \\n(.$=0 .ft R
260: ..
261: .de BX \" Draw a box
262: \(br\|\\$1\|\(br\l'|0\(rn'\l'|0\(ul'
263: ..
264: .de DS \" Display start
265: .if \\n(.$=0 .ds Xx LD
266: .if \\n(.$>0 .ds Xx \\$1D
267: .KS
268: .\\*(Xx
269: ..
270: .de DE \" Display end
271: .ce 0
272: .nr Xx 0u
273: .if \\n(Bi \{\
274: .nr Xx -.5i
275: .nr Bi 0
276: . \}
277: .if \\n(Bd \{\
278: .nr Bd 0
279: .di
280: .nr Xx (\\n(.lu-\\n(dlu)/2u
281: .in +\\n(Xxu
282: .da Kd
283: . \}
284: .KE
285: .in -\\n(Xxu
286: ..
287: .de KS \" Start keep
288: .nr Kf 0
289: .Ks
290: ..
291: .de KF \" Start floating keep
292: .nr Kf 1
293: .Ks
294: ..
295: .de Ks \" Internal version of KS/KF
296: .br
297: .ev 1
298: .fi
299: .da Kd
300: ..
301: .de KE \" End keep
302: .br
303: .di
304: .if !\\n(Kf \{\
305: .if \\n(dn>=\\n(.t .bp
306: .nf
307: .Kd
308: .rm Kd
309: . \}
310: .ev
311: ..
312: .de TS \" Table start
313: .tm No tables yet.
314: ..
315: .de TE \" Table end
316: ..
317: .de EQ \" Equation
318: .tm No equations yet.
319: ..
320: . \" Footnotes
321: .de FS \" Footnote start
322: .da Fn
323: .ev 1
324: .ll \\n(FLu
325: .if \\n+(Fn=1 .Fs
326: .fi
327: ..
328: .de FE \" Footnote end
329: .br
330: .nr Fv \\n(.v
331: .ev
332: .di
333: .nr Ft -\\n(dn
334: .if \\n(Fn=1 .nr Ft -(\\n(.v-\\n(Fv)
335: .ch Fo \\n(Ftu
336: .if (\\n(nl+1v)>(\\n(.p+\\n(Ft) .ch Fo \\n(nlu+1v
337: ..
338: .de Fs \" Put out separator
339: \l'1i'
340: .br
341: ..
342: .de Fv \" Catch footnote overflow
343: .nr Fv 0
344: .FS
345: .nf
346: .Fe
347: .FE
348: ..
349: .de Fx \" Divert extra stuff
350: .if \\n(Fn .di Fe
351: ..
352: .de TA \" Set tabs in ens
353: .ta \\$1n \\$2n \\$3n \\$4n \\$5n \\$6n \\$7n \\$8n \\$9n
354: ..
355: .nr PS 10u \" Default pointsize
356: .nr VS 12p \" Vertical spacing
357: .nr LL 6i \" Line length
358: .nr LT 6i \" Length of title
359: .nr PD \n(VSu*3/10 \" Paragraph spacing
360: .nr PD 1v
361: .if \n(PDu<\n(.V .nr PD \n(.V
362: .nr PI 5n \" Paragraph indent
363: .nr FL 11u*\n(LLu/12u \" Footnote length
364: .nr CW 7u*\n(LLu/15u \" Column width
365: .nr GW \n(LLu/15u \" Gutter width
366: .nr PO 26i/27i \" Page offset
367: .nr HM 1i \" Top margin
368: .nr FM 1i \" Bottom margin
369: .nr Qd \n(PI \" Quoted indent difference
370: .nr Ik 5n \" .IP default indent
371: .nr Fn 0 1 \" Footnote count
372: .ds CF "- \\n(PN -"
373: .ds - \(mi
374: .ds ' \z\(aa
375: .ds ` \z\(ga
376: .ds : \z:
377: .ds ^ \z^
378: .ds ~ \z~
379: .ds C \z^
380: .ds , \z,
381: .It
382: .\" end of /usr/lib/tmac.s
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.