From b7081b57b11b1c6d59f73ced4a803d1406dbc929 Mon Sep 17 00:00:00 2001 From: CSRG Date: Wed, 4 Aug 1982 23:41:18 -0800 Subject: [PATCH] BSD 4_3 development Work on file usr/lib/tmac/tmac.r Work on file usr/lib/tmac/tmac.scover Work on file usr/lib/tmac/tmac.skeep Work on file usr/lib/tmac/tmac.sdisp Work on file usr/lib/tmac/tmac.srefs Work on file usr/lib/tmac/tmac.vcat Work on file usr/lib/tmac/tmac.a Work on file usr/lib/tmac/tmac.cp Synthesized-from: CSRG/cd1/4.3 --- usr/lib/tmac/tmac.a | 291 +++++++++++++++++++++++++++++++++++ usr/lib/tmac/tmac.cp | 134 ++++++++++++++++ usr/lib/tmac/tmac.r | 112 ++++++++++++++ usr/lib/tmac/tmac.scover | 323 +++++++++++++++++++++++++++++++++++++++ usr/lib/tmac/tmac.sdisp | 60 ++++++++ usr/lib/tmac/tmac.skeep | 80 ++++++++++ usr/lib/tmac/tmac.srefs | 137 +++++++++++++++++ usr/lib/tmac/tmac.vcat | 5 + 8 files changed, 1142 insertions(+) create mode 100644 usr/lib/tmac/tmac.a create mode 100644 usr/lib/tmac/tmac.cp create mode 100644 usr/lib/tmac/tmac.r create mode 100644 usr/lib/tmac/tmac.scover create mode 100644 usr/lib/tmac/tmac.sdisp create mode 100644 usr/lib/tmac/tmac.skeep create mode 100644 usr/lib/tmac/tmac.srefs create mode 100644 usr/lib/tmac/tmac.vcat diff --git a/usr/lib/tmac/tmac.a b/usr/lib/tmac/tmac.a new file mode 100644 index 0000000000..1921976a18 --- /dev/null +++ b/usr/lib/tmac/tmac.a @@ -0,0 +1,291 @@ +.\" ********** dictionary ********** +.\" B0 size of wide figure just diverted +.\" B1 size of figure at top full wdith +.\" B2 if figure at full width bottom +.\" B3 name of full width top figure for next page +.\" B4 full width bottom figure +.\" B5 wide top figure size scheduled for this page +.\" B6 true if a wide figure being diverted +.\" B8 if at EM end up macro stage +.\" B9 if at page bottom +.\" BM width bottom margin +.\" BX full width top figure, this page +.\" CE end caption. +.\" CP store caption. +.\" CS begin caption; center if 1 line, else paragraph. +.\" CW column width +.\" D1 amount of text left column +.\" D2 amount of text right column +.\" D3 arithmetic scratch, typically whether went past page footer +.\" D9 scratch, remembers length of diverted keep +.\" DN name of current diversion trap +.\" DO default page offset +.\" EE string to be prefixed to an equation to indent it two spaces if wanted +.\" EL equation label +.\" EZ rathole to throw equations down +.\" F0 argument to GS specifying quadrant +.\" F1 biggest space available in left column +.\" F2 biggest space available in right column +.\" F5 position of top of 2 2col section +.\" F6 argument to BS specifying top/bottom +.\" G0 (1) count authors +.\" (2) size of just entered figure +.\" G1 size figure top left next page +.\" G2 size figure top right next page +.\" G3 size left bottom figure +.\" G4 size right bottom figure +.\" G5 true if next top narrow figure goes to right side (next page) +.\" G6 true if next bottom narrow figure goes to right side +.\" G7 (1) amount space before bottom wide figure to sit on baseline +.\" (2) flag for doubled up narrow figures into a wide one +.\" G8 true if figure has been placed +.\" G9 if at page top +.\" GD buffer where narrow figure is placed +.\" GJ figure top left next page +.\" GK figure top right next page +.\" GL content left bottom figure +.\" GM content right bottom figure +.\" GP left half of a figure pair +.\" GQ right half of a figure pair +.\" H0 section numbers for numbered headings +.\" H1 size of figure at top left this page +.\" H2 size of figure top right this page +.\" HJ figure at top left this page +.\" HK figure at top right this page +.\" HS true if just at a section heading +.\" IK true if inside a KS/KE +.\" L1 shortest legal amount of two column material +.\" L2 amount of 2 column stuff expected +.\" L4 amount being diverted +.\" L5 amount of text diverted in double-column hunt +.\" L6 zero if right column, true if too short to split up +.\" L7 minimum length of a split column +.\" LC position of left column bottom +.\" LE computation of column lengths \" LE should be F3 +.\" LE true if equations are labeled +.\" LH left running head +.\" LL line length +.\" LS general looseness parameter +.\" MX expand month name +.\" NB number of columns possible +.\" NC number of columns being set +.\" ND have been in double column before, not first break to it. +.\" NU issue number +.\" P1 (1) height left col +.\" (2) amount to pad total +.\" P2 height right column +.\" P3 amount of extra space at a 1C-2C transition +.\" P4 temporary in filling columns calcuations +.\" PS standard point size +.\" Q1 number of places to pad +.\" Q2 number padding points right column +.\" RO position of right column (offset for) +.\" S1 position of space in column +.\" S2 size of space +.\" T1 true if top figure position forced by GS arg +.\" T2 true if bottom figure position forced by GS arg +.\" TB true if there is to be a turnover bar here. +.\" TP true if still at document title (turnover bar decision) +.\" TQ position at top of page +.\" TT >0 if figure, etc. doesn't fit this page +.\" TT right running head (title) +.\" TW table width (set by TBL) +.\" VN volume number +.\" VS standard vertical spacing +.\" GW gutter width +.\" X1 diversion to hold left column +.\" X2 diversion to hold right column +.\" XI value of indent to be restored after abstract +.\" XQ register in which padding points are counted +.\" XR true (1) if past the very first paragraph +.\" XX diversion to hold input text in preparation for formatting +.\" YE past very top: avoids a break in the EQ/EN macro before startup. +.\" ZN size of equation +.\" mo month name +.\" y place of footer trap +.\" +.\" +.\" ********** environments ********* +.\" 0 normal +.\" 1 figures +.\" 2 while columns are arranged +.\" +.\" +.\" ********** macros ********** +.\" for user which invoke +.\" TL,AU,AI,AB,AE IZ, EA, AX, AY +.\" EQ, EN @L, @C, @I +.\" TS,TE +.\" SP, PP FI, NX, RT +.\" 2C 2D, 2S, C4, C3, LA +.\" 1C 1D, 1E, 1S, C6, C7 +.\" ST, LS CL +.\" SL +.\" GS, GE GA,GB,GG,GU,GV,GW,GX,GY,GZ,GN,GO,C8,MR,BR +.\" BS,BE BA,BB,BC,BD +.\" KS,KE KU,KT +.\" CS,CE CP +.\" SH,NH +.\" B, I, R +.\" UL +.\" ne NE +.\" EM, NP, FO, CM +.\" +.nr B9 1 +.\" ----------------------------- +.de RT \" reset params to normal state +.ce 0 +.ul 0 +.ti 0 +.if \\n(IP .in -\\n(IQn +.if \\n(IP .nr IP -1 +.ft 1 +.if \\n(AJ=0 .ps \\n(PS +.if \\n(AJ=0 .vs \\n(VSp +.fi +.. +.\" ----------------------------- +.de IZ \"initialization +.MX +.rm MX +.if !\\n(BM .nr BM 1.13i +.nr y 0-\\n(BM +.if \\n(DO=0 .nr DO .4i +.wh 0 NP +.po \\n(DOu +.nr IP 0 +.if !\\n(PS .nr PS 9 +.if !\\n(L1 .nr L1 1.5i \"minimum amount of double column +.if !\\n(VS .nr VS 11 +.ps \\n(PS +.vs \\n(VSp +.if !\\n(PI .nr PI 2n +.if !\\n(PD .nr PD 0 +.if !\\n(CW .nr CW 3.1i +.if !\\n(GW .nr GW 0.4i +.nr RO \\n(CWu+\\n(GWu +.nr YE 1 +.nr LL \\n(RO+\\n(CW +.ll \\n(LLu +.lt \\n(LLu +.nr NC 1 +.nr NB 1 +.wh \\nyu FO +.. +.\" ----------------------------- +.de EQ \"equation, breakout and display +.nr EF \\n(.u +.rm EE +.nr LE 1 \" 1 is center +.ds EL \\$1 +.if "\\$1"L" .ds EL \\$2 +.if "\\$1"L" .nr LE 0 +.if "\\$1"C" .ds EL \\$2 +.if "\\$1"I" .nr LE 0 +.if "\\$1"I" .ds EE \\h'4n' +.if "\\$1"I" .if !"\\$3"" .ds EE \\h'\\$3' +.if "\\$1"I" .ds EL \\$2 +.if \\n(YE>0 .nf +.di EZ +.. +.\" ----------------------------- +.de EN \" end of a displayed equation +.if !"\\n(.z"EZ" .tm EN not preceded by EQ, disaster follows. +.br +.ce 0 +.di +.rm EZ +.nr ZN 1 +.if "\\*(10"" .nr ZN 0 +.if \\n(ZN=0 .if !"\\*(EL"" .nr ZN 1 +.lt \\n(.lu +.br +.if \\n(ZN>0 .if !\\n(.d=\\n(PE .SP 0.5 +.pc +.if \\n(BD>0 .nr LE 0 \" can't mean centering in this case. +.if \\n(ZN>0 .if \\n(LE>0 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts +.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts +.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\\\t\\*(EL +.if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w'\\*(10' .nr BD \\w'\\*(10' +.lt \\n(LLu +.pc % +.br +.if \\n(YE>0 .if \\n(EF>0 .fi +.rm EL +.if \\n(ZN>0 .SP 0.5 +.nr PE \\n(.d +.. +.\" ----------------------------- +.de TL \"title of document +.IZ +.rm IZ +.br +.if \\n(XR>0 .EA +.ll \\n(LLu +.ft 3 +.ps 11 +.if \\n(PS=9 .nr y -3v +.ce 1000 +.nr TP 1 +.nr G0 0 +.bd 1 3 +.bd 2 3 +.if !"xx\\n(.z"xx" \!.bd 1 3 +.if !"xx\\n(.z"xx" \!.bd 2 3 +.. +.\" ----------------------------- +.de AU \"author(s) name(s) +.ft 1 +.br +.bd 1 +.bd 2 +.if !"xx\\n(.z"xx" \!.bd 1 +.if !"xx\\n(.z"xx" \!.bd 2 +.if !\\n(G0 .sp +.if \\n(G0 .sp .5 +.if \\n(G0 and +.if \\n(G0 .sp .5 +.nr G0 +1 +.ps \\n(PS +.. +.\" ----------------------------- +.de AI \"authors institution +.ft 2 +.ps \\n(PS-1 +.. +.\" ----------------------------- +.de AB \"abstract start +.ce 0 +.ll \\n(LLu +.fi +.ft 1 +.sp +.nr XI \\n(.i +.nr AJ 1 +.in +\\n(.lu/8u +.ll -\\n(.lu/8u +.nr PS -1 +.ps \\n(PS +.nr VS -1 +.vs \\n(VSp +.ti +2n +.. +.\" ----------------------------- +.de AE \"abstract end +.ll \\n(LLu +.in \\n(XIu +.ce 0 +.nr PS +1 +.ps \\n(PS +.nr VS +1 +.vs \\n(VSp +.nr AJ 0 +.if !\\n(.d=\\n(nl .AX +.if \\n(PS=9 .sp 2 +.nr XR 0 +.nr ND 0 +.2C +.. +.\" No default table macro now. +.\" . ----------------------------- +.\" .de TS \"table start diff --git a/usr/lib/tmac/tmac.cp b/usr/lib/tmac/tmac.cp new file mode 100644 index 0000000000..82c4634756 --- /dev/null +++ b/usr/lib/tmac/tmac.cp @@ -0,0 +1,134 @@ +.nr PS 9 +.nr VS 11 +.ps \\n(PS +.vs \\n(VS +.nr DO .4i +.po \n(DOu +.nr CW 3.3i +.nr WG 0.25i +.rm PF +.nr CP 1 +.nr NT 1 \" no turnover bar +.nr PQ \n(PS +.nr BM 1i +.de MX \" expand month name +.if \\n(mo-0 .ds mo J\\\\s-2ANUARY\s0 +.if \\n(mo-1 .ds mo F\\\\s-2EBRUARY\\\\s0 +.if \\n(mo-2 .ds mo M\\\\s-2ARCH\\\\s0 +.if \\n(mo-3 .ds mo A\\\\s-2PRIL\\\\s0 +.if \\n(mo-4 .ds mo M\\\\s-2AY\\\\s0 +.if \\n(mo-5 .ds mo J\\\\s-2UNE\\\\s0 +.if \\n(mo-6 .ds mo J\\\\s-2ULY\\\\s0 +.if \\n(mo-7 .ds mo A\\\\s-2UGUST\\\\s0 +.if \\n(mo-8 .ds mo S\\\\s-2EPTEMBER\\\\s0 +.if \\n(mo-9 .ds mo O\\\\s-2CTOBER\\\\s0 +.if \\n(mo-10 .ds mo N\\\\s-2OVEMBER\\\\s0 +.if \\n(mo-11 .ds mo D\\\\s-2ECEMBER\\\\s0 +.. +.if \nM=1 .so /usr/mel/aip/countrev +.if \nM=2 .so /usr/mel/aip/findbig +.if \nM=0 .so /usr/lib/tmac/tmac.a +.br +.af % 1 +.CM +.sp 1i +.IZ +.rm IZ +.de FS +.nr FP 3 +.if \\n(.d*2>\\n(L4 .nr FP 4 +.if \\n(NC=1 .nr FP 2 +.GS \\n(FP +.br +\l'2i' +.br +.af % 1 +.. +.de FE +.GE +.. +.ad +.de AE \"abstract end +.ll \\n(LLu +.in \\n(XIu +.ce 0 +.if !\\n(.d=\\n(nl .AX +.nr AJ 0 +.nr XR 0 +.nr ND 0 +.sp 1 +.. +.de AB \"abstract start +.ce 0 +.ll \\n(LLu +.fi +.ft 1 +.sp +.nr XI \\n(.i +.in +\\n(.lu/8u +.nr AJ 1 +.ll -\\n(.lu/8u +.ti +2n +.nr XR 1 +.. +.de MH +Bell Laboratories +Murray Hill, New Jersey 07974 +.. +.de RT \" reset params to normal state +.ce 0 +.ul 0 +.ti 0 +.bd 1 +.if !"\\n(.z"" \!.bd 1 +.if \\n(IP .in -\\n(IQn +.if \\n(IP .nr IP -1 +.ft 1 +.if \\n(AJ=0 .ps \\n(PS +.if \\n(AJ=0 .vs \\n(VSp +.RZ +.fi +.. +.de SH \" (unnumbered) section heading +.RT +.ne 3 +.SP 1 +.ft 3 +.ce 1000 +.nr XR 1 +.nr HS 1 +.. +.de B +.nr PQ \\n(.f +.if t .ft 3 +.if "\\$1"" .if n .ul 1000 +.if !"\\$1"" .if n .ul 1 +.if t .if !"\\$1"" \\$1\\f\\n(PQ\\$2 +.if n .if \\n(.$=1 \\$1 +.if n .if \\n(.$>1 \\$1\\c +.if n .if \\n(.$>1 \\&\\$2 +.. +.de I +.nr PQ \\n(.f +.if t .ft 2 +.if "\\$1"" .if n .ul 1000 +.if !"\\$1"" .if n .ul 1 +.if t .if !"\\$1"" \\$1\\f\\n(PQ\\$2 +.if n .if \\n(.$=1 \\$1 +.if n .if \\n(.$>1 \\$1\\c +.if n .if \\n(.$>1 \\&\\$2 +.. +.so /usr/lib/tmac/tmac.srefs +.rm CS CE +.de UX +.ie \\n(GA>0 \s-2UNIX\s0\\$1 +.el \{\ +.if n UNIX\\$1* +.if t UNIX\\$1\\f1\(dg\\fP +.FS +.if n *UNIX +.if t \(dgUNIX +is a Trademark of Bell Laboratories +.FE +.nr GA 1\} +.. diff --git a/usr/lib/tmac/tmac.r b/usr/lib/tmac/tmac.r new file mode 100644 index 0000000000..16b3b1add4 --- /dev/null +++ b/usr/lib/tmac/tmac.r @@ -0,0 +1,112 @@ +.de HD +.ps 10 +.ft 1 +.if t .tl '\(rn''' +.if t 'sp \\n(m1-1 +.if n 'sp \\n(m1 +.if e .1e +.if o .1o +.ps +.ft +'sp \\n(m2 +.if \\n(:n .nm 1 1 2 +.ns +.. +.wh 0 HD +.de FT +'sp \\n(m3 +.ps 10 +.ft 1 +.if e .2e +.if o .2o +.ps +.ft +'bp +.. +.wh -1i FT +.de m1 +.nr m1 \\$1 +.. +.de m2 +.nr m2 \\$1 +.. +.de m3 +.nr m3 \\$1 +.ch FT -\\n(m3-\\n(m4 +.. +.de m4 +.nr m4 \\$1 +.ch FT -\\n(m3-\\n(m4 +.. +.m1 3 +.m2 2 +.m3 2 +.m4 3 +.de he +.de 1e +.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 +\\.. +.de 1o +.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 +\\.. +.. +.de fo +.de 2e +.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 +\\.. +.de 2o +.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 +\\.. +.. +.de eh +.de 1e +.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 +\\.. +.. +.de oh +.de 1o +.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 +\\.. +.. +.de ef +.de 2e +.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 +\\.. +.. +.de of +.de 2o +.tl \\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 +\\.. +.. +.he '''' +.fo '''' +.de bl +.rs +.sp \\$1 +.. +.de n1 +.n2 \\$1 +.nr :n 0 +.if \\n(.$ .nr :n 1 +.. +.de n2 +.if \\n(.$ .if \\$1=0 .nm +.if \\n(.$ .if !\\$1=0 .nm \\$1 1 2 +.if !\\n(.$ .nm 1 1 2 +.. +.rn ds :d +.de ds +.if \\n(.$ .:d \\$1 "\\$2\\$3\\$4\\$5\\$6\\$7\\$8\\$9 +.if !\\n(.$ .ls 2 +.. +.de ss +.ls 1 +.. +.de EQ +.nf +.sp +.. +.de EN +.sp +.fi +.. diff --git a/usr/lib/tmac/tmac.scover b/usr/lib/tmac/tmac.scover new file mode 100644 index 0000000000..bc15e02c98 --- /dev/null +++ b/usr/lib/tmac/tmac.scover @@ -0,0 +1,323 @@ +. \"OK - "other keywords" for cover sheet. +.de OK +.br +.di +.di OD +.nf +.ft 3 +.. +. \"CS - spew out cover sheet +.de CS +.br +.if \\n(AJ>0 .tm Abstract not finished, AE assumed. +.if \\n(AJ>0 .AE +.di +.if t .po 0.5i +.ft 2 +.nr IB \\n(.b +.ft P +.nr K1 1 +.if t .sp |.4i +.if t .lg +.ll 7.0i +.vs 12p +.nf +.if t \h'7n'\s24\(bs\s12\f3 Bell Laboratories \s16\f1Cover Sheet for Technical Memorandum +.if n Bell Laboratories Cover Sheet for Technical Memorandum +.if t .sp .5v +.if n .sp +.if t \s6\l'7i' +.fi +.ps 9 +.ft 2 +.if t .sp 2p +.if \\n(.$<=6 The information contained herein is for the use of employees of Bell Laboratories and is not for publication. (See GEI 13.9-3)\p +.if \\n(.$>6 Warning: studying this document may cause drowsiness. Do not read before driving or operating machinery. (See GEI 13.9-3)\p +.ft 1 +.nf +.if \\n(IB>0 .bd 2 \\n(IB +.if t \s6\l'7i' +.if t .sp .5v +.if n .sp +.if t .ll 4.0i +.if n .ll 30 +.if t .po 1.0i +.ps 9 +.if t .ta 0.5i 4.5i 4.9i +.if n .ta 9 39 46 +.mk +Title- \f3\s10 +.rt +.if t .in 0.5i +.if n .in 10 +.hy 0 +.WT +.hy 14 +.br +.rt +.ll \\n(LLu +.if t .in 4.5i +.if n .in 40 +.nf +\s9\f1Date- \s10\f3 +.rt +.if t .in 4.9i +.if n .in 47 +\\*(DY +.sp +.if t .ti 4.5i +.if n .ti 40 +.mk +\s9\f1TM- \f3\s10 +.br +.rt +.CZ \\*(MN +.in 0 +.sp |\\n(.hu+1v +.mk +\s9\f1Other Keywords- \f3 +.rt +.if t .in 1.1i +.if n .in 20 +.OD +.in 0 +.if t .sp .7i +.if n .sp 3 +.ps 9 +.if t .ta 1.8i 3.3i 4.3i +.if n .ta 19 34 44 +.ft 1 +.mk +.fi +.ll 6.7i +.in 4.6i +.ti 0 +.nr SJ \\n(.j +.na +Author Location Extension Charging Case- \s10\f3\\*(CA +.ps 10 +.ti 4.3i +\f1\s9Filing Case- \s10\f3\\*(CC +.nf +.in 0 +.ad \\n(SJ +.rt +.sp 1 +.CB 1 +.if \\n(NA-1 .CB 2 +.if \\n(NA-2 .CB 3 +.if \\n(NA-3 .CB 4 +.if \\n(NA-4 .CB 5 +.if \\n(NA-5 .CB 6 +.if \\n(NA-6 .CB 7 +.if \\n(NA-7 .CB 8 +.if \\n(NA-8 .CB 9 +.ft 1 +.rm OK OD R1 E1 R2 E2 R3 E3 R4 E4 AB AE +.ds K1 \\$1 +.ds K2 \\$2 +.ds K3 \\$3 +.ds K4 \\$4 +.ds K5 \\$5 +.ds K6 \\$6 +.wh 9.8i CG +.ch FO 16i +.if t .sp .4i +.if n .sp 2 +.ls 1 +.pn 2 +.WB +.rm WB +.ls +.br +.if 9.7i-\\n(nlu-\\n(FPu-1v>0 .sp 9.7i-\\n(nlu-\\n(FPu-1v +.if \\n(FP>0 .FA +.FG +.nr K1 0 +.if \\n(GA=1 .nr GA 2 +.if \\n(VS>40 .vs \\n(VSu +.if \\n(VS<=39 .vs \\n(VSp +.bp 1 +.rm CG +.if t .po \\n(POu +.. +. \" CG - write bottom box on cover sheet +.de CG +.if t .po 0.5i +.vs 12p +.ch FO 12i +.ch FX 12i +.if t .ll 7i +.br +.if t \l'7i' +.if t .ta 1.4i 2.8i 4.2i +.if n .ta 14 29 44 +.if t .sp 8p +.if n .sp +Pages Text \\*(K1 Other \\*(K2 Total \\*(K3 +.if t .sp 8p +.if n .sp +.if t .po .5i +.if t No. Figures \\*(K4 No. Tables \\*(K5 No. Refs. \\*(K6 \b'|||||\ \ ' +.if n No. Figures \\*(K4 No. Tables \\*(K5 No. Refs. \\*(K6 +.br +.if t .po .5i +.if t \l'7i' +.ps 7 +.br +.if n .sp +.rm K1 +.rm K2 +.rm K3 +.rm K4 +.rm K5 +.rm K6 +.if t .po .5i +.if t .tl 'E-1932-U (6-73)'SEE REVERSE SIDE FOR DISTRIBUTION LIST'' +.if n .tl 'E-1932-U (6-73) SEE REVERSE SIDE FOR DISTRIBUTION LIST''' +.if t .po 0.5i +.ll \\n(LLu +.ps 10 +.ch CG 12i +.if \\n(K1>0 .bp +.. +. \"CB - help with cover sheet +.de CB +.br +.mk +.A\\$1 +.rt +\& \\*(R\\$1 \\*(E\\$1 +.br +.. +.de CZ +.br +.if !"\\$1"" \\$1 +.br +.if !"\\$2"" \\$2 +.br +.if !"\\$3"" \\$3 +.br +.if !"\\$4"" \\$4 +.br +.if !"\\$5"" \\$5 +.br +.if !"\\$6"" \\$6 +.br +.if !"\\$7"" \\$7 +.br +.if !"\\$8"" \\$8 +.br +.if !"\\$9"" \\$9 +.. +. \"S1 - tm style +.de S1 +.br +.if t .ta 4.75i +.if n .ta 46 +.ll 80 +.ps 36 +.br +.if t .vs .35i +.if t \t\(bs +.br +.if n .sp 24p +.ps 12 +.br +.ft 3 +\tBell Laboratories +.ft 1 +.nr SJ \\n(.j +.na +.br +.ps 8 +.vs 12p +.sp 2v +.mk +.ll +.ll 4.0i +Subject: +.ft 3 +.br +.rt +.if n .in +9 +.if t .in +\w'Subject: 'u +.ps +.nf +.hy 0 +.WT +.hy 14 +.ft 1 +.fi +.in 0 +.if \\n(MC>0 \\s8Case- \\*(CA\\s10 +.if \\n(MG>0 --\s8 File- \\*(CC\\s10 +.br +.rt +.if n .ll 70 +.if t .ll 6.5i +.if t .in 5.10i +.if n .in 52 +.ps 8 +.ti -6n +.ta 6n +date:\t\\s\\n(PS\\f3\\*(DY +.sp +.ft 1 +.ps 8 +.mk +.ti -6n +from: +.ps +.br +.rt +.nf +.ft 3 +.A1 +.if \\n(NA>1 .A2 +.if \\n(NA>2 .A3 +.if \\n(NA>3 .A4 +.if \\n(NA>4 .A5 +.if \\n(NA>5 .A6 +.if \\n(NA>6 .A7 +.if \\n(NA>7 .A8 +.if \\n(NA>8 .A9 +.ft 1 +.sp +.mk +.ps 8 +.ti -6n +.ft 1 +.if \\n(IM=0 .if \\n(MM .if "\\*(MQ"" \{\ +.if \\n(MN=0 .ds MQ TM: +.if \\n(MN=1 .ds MQ MF: +.if \\n(MN=2 .ds MQ MR: +.if \\n(MN=3 .ds MQ EN:\} +\\*(MQ +.br +.ti \\n(.iu +.rt +.ps +.ft 3 +.hy 0 +.ll 20i +.if t .ll 7.75i-\\n(.ou +.fi +.na +.if \\n(MM .CZ \\*(MN +.hy 14 +.nf +.ft 1 +.ll \\n(LLu +.in +.sp |\\n(.hu +.if \\n(IM=0 .sp +.ad \\n(SJ +.ce +.ft 2 +.if \\n(IM=0 \\*(QF +.ft 1 +.ce 0 +.if \\n(IM=0 .sp +.fi +.. diff --git a/usr/lib/tmac/tmac.sdisp b/usr/lib/tmac/tmac.sdisp new file mode 100644 index 0000000000..644f872105 --- /dev/null +++ b/usr/lib/tmac/tmac.sdisp @@ -0,0 +1,60 @@ +. \"DS - display. If .DS C, center; L, left-adjust; I, indent. +.de DS +.KS +.nf +.\\$1D \\$2 \\$1 +.ft 1 +.ps \\n(PS +.if \\n(VS>40 .vs \\n(VSu +.if \\n(VS<=39 .vs \\n(VSp +.. +.de D +.ID \\$1 +.. +.de CD +.XD +.ce 1000 +.. +.de ID +.XD +.if t .in +0.5i +.if n .in +8 +.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu +.if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n +.. +.de LD +.XD +.. +.de XD +.nf +.nr OI \\n(.i +.if t .sp 0.5 +.if n .sp 1 +.. +.de BD \" block display: save everything, then center it. +.XD +.nr BD 1 +.nf +.in \\n(OIu +.di DD +.. +. \"DE - display end +.de DE +.ce 0 +.if \\n(BD>0 .DF +.nr BD 0 +.in \\n(OIu +.KE +.if t .sp 0.5 +.if n .sp 1 +.fi +.. +.de DF \" finish a block display to be recentered. +.di +.if \\n(dl>\\n(BD .nr BD \\n(dl +.if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u +.nr EI \\n(.l-\\n(.i +.ta \\n(EIuR +.DD +.in \\n(OIu +.. diff --git a/usr/lib/tmac/tmac.skeep b/usr/lib/tmac/tmac.skeep new file mode 100644 index 0000000000..9e7a37315a --- /dev/null +++ b/usr/lib/tmac/tmac.skeep @@ -0,0 +1,80 @@ +. \"KS keep - for keep release features. As in IFM +.de ]K +.nr KN \\n(.u +.if \\n(IK=0 .if \\n(IF=0 .KQ +.nr IK +1 +.. +. \"KQ - real keep processor +.de KQ +.br +.nr KI \\n(.i +.ev 2 +.br +.in \\n(KIu +.ps \\n(PS +.if \\n(VS>40 .vs \\n(VSu +.if \\n(VS<=39 .vs \\n(VSp +.ll \\n(LLu +.lt \\n(LTu +.if \\n(NX>1 .ll \\n(CWu +.if \\n(NX>1 .lt \\n(CWu +.di KK +.nr TB 0 +.. +. \"KF - floating keep +.de ]J +.nr KN \\n(.u +.if !\\n(IK .FQ +.nr IK +1 +.. +. \"FQ real floating keep processor +.de FQ +.nr KI \\n(.i +.ev 2 +.br +.in \\n(KIu +.ps \\n(PS +.if \\n(VS>40 .vs \\n(VSu +.if \\n(VS<=39 .vs \\n(VSp +.ll \\n(LLu +.lt \\n(LTu +.if \\n(NX>1 .ll \\n(CWu +.if \\n(NX>1 .lt \\n(CWu +.di KK +.nr TB 1 +.. +. \"KE release - everything between keep and release is together +.de KE +.if \\n(IK .if !\\n(IK-1 .if \\n(IF=0 .RQ +.if \\n(IK .nr IK -1 +.. +. \"RQ real release +.de RQ +.br +.di +.nr NF 0 +.if \\n(dn-\\n(.t .nr NF 1 +.if \\n(TC .nr NF 1 +.if \\n(NF .if !\\n(TB .sp 200 +.if !\\n(NF .if \\n(TB .nr TB 0 +.nf +.rs +.nr TC 5 +.in 0 +.ls 1 +.if \\n(TB=0 .ev +.if \\n(TB=0 .br +.if \\n(TB=0 .ev 2 +.if \\n(TB=0 .KK +.ls +.ce 0 +.if \\n(TB=0 .rm KK +.if \\n(TB .da KJ +.if \\n(TB \!.KD \\n(dn +.if \\n(TB .KK +.if \\n(TB .di +.nr TC \\n(TB +.if \\n(KN .fi +.in +.ev +.. diff --git a/usr/lib/tmac/tmac.srefs b/usr/lib/tmac/tmac.srefs new file mode 100644 index 0000000000..45950b3b3b --- /dev/null +++ b/usr/lib/tmac/tmac.srefs @@ -0,0 +1,137 @@ +.\" REFER macros .... citations +.de [] +.][ \\$1 +.. +.de ][ +.if \\$1>5 .tm Bad arg to [] +.[\\$1 +.. +.if n .ds [. [ +.if t .ds [. \s-2\v'-.4m'\f1 +.if n .ds .] ] +.if t .ds .] \v'.4m'\s+2\fP +.if n .ds [o "" +.if n .ds [c "" +.if t .ds [o `` +.if t .ds [c '' +.\" the next lines deal with the problem of .[1] or [1]. +.\" refer will write "linexxx\*(<.[1]\*(>. +.\" and either "<." or ">." should produce the .; +.\" similarly for , +.if n .ds >. . +.if t .ds <. . +.if n .ds >, , +.if t .ds <, , +.de [5 \" tm style +.FS +.IP "\\*([F.\0" +\\*([A, \\f2\\*([T\\f1, +.ie \\n(TN \\*([M. +.el Bell Laboratories internal memorandum (\\*([D). +.RT +.FE +.. +.de [0 \" other +.FS +.IP "\\*([F.\0" +.if !"\\*([A"" \\*([A, +.if !"\\*([T"" \\f2\\*([T\\f1\c +.if !"\\*([T"" .if !"\\*([O"" ,\ +.ie !"\\*([O"" \\*([O +.el .if !"\\*([T"" \&. +.if !"\\*([D"" \\*([D. +.RT +.FE +.. +.de [1 \" journal article +.FS +.IP "\\*([F.\0" +\\*([A, +.if !"\\*([T"" \\*([o\\*([T,\\*([c +.if !"\\*([V"" .if t \\f2\\*([J\\f1 +.if "\\*([V"" .if t \\f2\\*([J\\f1, +.if n \\f2\\*([J\\f1, +.el \\f2\\*([J\\f1, +.if !"\\*([V"" \{.if n Vol.\& +\\f3\\*([V\\f1\c +.if n ,\} +.if !"\\*([N"" (\\*([N)\c +.if !"\\*([P"" \{\ +.ie \\n([P>0 \ pp.\& +.el \ p.\& +\\*([P\} +.if !"\\*([I"" .if "\\*([R"" \\*([I, +(\\*([D). +.if !"\\*([O"" \\*([O +.RT +.FE +.. +.de [2 \" book +.FS +.IP "\\*([F.\0" +\\*([A, \\f2\\*([T,\\f1 +\\*([I\c +.if !"\\*([C"" , \\*([C\c + (\\*([D). +.if !"\\*([G"" Gov't. ordering no. \\*([G +.if !"\\*([O"" \\*([O +.RT +.FE +.. +.de [4 \" report +.FS +.IP "\\*([F.\0" +\\*([A, \\*([o\\*([T,\\*([c +\\*([R\c +.if !"\\*([G"" \& (\\*([G)\c +.if !"\\*([I"" , \\*([I\c +.if !"\\*([C"" , \\*([C\c + (\\*([D). +.if !"\\*([O"" \\*([O +.RT +.FE +.. +.de [3 \" article in book +.FS +.IP "\\*([F.\0" +\\*([A, \\*([o\\*([T,\\*([c +.if !"\\*([P"" pp. \\*([P +in \\f2\\*([B\\f1, \c +.if !"\\*([E"" ed. \\*([E, \c +.if !"\\*([I"" \\*([I\c +.if !"\\*([C"" , \\*([C\c + (\\*([D). +.if !"\\*([O"" \\*([O +.RT +.FE +.. +.de ]< +.[< +.. +.de [< +.SH +References +.LP +.rm FS FE +.. +.de [> +.]> +.. +.de ]> +.sp +.. +.de ]- +.[- +.. +.de [- +.rm [V [P [A [T +.rm [N [C [B [O +.rm [R [I [E [D +.. +.de ]] +this is never +executed +and just +uses up an end-of-file +bug. +.. diff --git a/usr/lib/tmac/tmac.vcat b/usr/lib/tmac/tmac.vcat new file mode 100644 index 0000000000..f2ed5c917b --- /dev/null +++ b/usr/lib/tmac/tmac.vcat @@ -0,0 +1,5 @@ +.fp 1 R +.fp 2 I +.fp 3 B +.fp 4 S +.lg 2 -- 2.20.1