1*77f36b24Sbostic'so /usr/lib/tmac/tmac.s 2*77f36b24Sbostic.if t .tr \(rh- 3*77f36b24Sbostic.if t .tr *\(**=\(eq/\(sl+\(pl 4*77f36b24Sbostic.bd S B 3 5*77f36b24Sbostic.de SM 6*77f36b24Sbostic.if "\\$1"" .ps -2 7*77f36b24Sbostic.if !"\\$1"" \s-2\\$1\s0\\$2 8*77f36b24Sbostic.. 9*77f36b24Sbostic.de LG 10*77f36b24Sbostic.if "\\$1"" .ps +2 11*77f36b24Sbostic.if !"\\$1"" \s+2\\$a\s0\\$2 12*77f36b24Sbostic.. 13*77f36b24Sbostic.de HP 14*77f36b24Sbostic.nr pd \\n(PD 15*77f36b24Sbostic.nr PD 0 16*77f36b24Sbostic.if \\n(.$=0 .IP 17*77f36b24Sbostic.if \\n(.$=1 .IP "\\$1" 18*77f36b24Sbostic.if \\n(.$>=2 .IP "\\$1" "\\$2" 19*77f36b24Sbostic.nr PD \\n(pd 20*77f36b24Sbostic.rm pd 21*77f36b24Sbostic.. 22*77f36b24Sbostic.de LS \"LS - Literal display, ASCII, constant spaced DS 23*77f36b24Sbostic.XD 24*77f36b24Sbostic.ID 25*77f36b24Sbostic.nf 26*77f36b24Sbostic.if t .tr '\'`\`^\(ua-\(mi 27*77f36b24Sbostic.if t .tr _\(ul 28*77f36b24Sbostic.. 29*77f36b24Sbostic.de LE \"LE - End literal display 30*77f36b24Sbostic.DE 31*77f36b24Sbostic.tr ''``__--^^ 32*77f36b24Sbostic.. 33*77f36b24Sbostic.de UP 34*77f36b24SbosticBerkeley Pascal\\$1 35*77f36b24Sbostic.. 36*77f36b24Sbostic.de PD 37*77f36b24Sbostic\s-2PDP\s0 38*77f36b24Sbostic.if \\n(.$=0 11/70 39*77f36b24Sbostic.if \\n(.$>0 11/\\$1 40*77f36b24Sbostic.. 41*77f36b24Sbostic.de DK 42*77f36b24SbosticDigital Equipment Corporation\\$1 43*77f36b24Sbostic.. 44*77f36b24Sbostic.de IN 45*77f36b24Sbostic.I 46*77f36b24Sbostic.if \\n(.$<2 \\$1 1.0 Implementation Notes 47*77f36b24Sbostic.if \\n(.$>=2 \\$1 1.0 Implementation Notes\\c 48*77f36b24Sbostic.R 49*77f36b24Sbostic.if \\n(.$>=2 \\$2 50*77f36b24Sbostic.. 51*77f36b24Sbostic.de UM 52*77f36b24Sbostic.I 53*77f36b24SbosticUser's Manual 54*77f36b24Sbostic.R 55*77f36b24Sbostic.. 56*77f36b24Sbostic.de PC 57*77f36b24Sbostic.I pc \\$1 58*77f36b24Sbostic.. 59*77f36b24Sbostic.de PI 60*77f36b24Sbostic.I pi \\$1 61*77f36b24Sbostic.. 62*77f36b24Sbostic.de XP 63*77f36b24Sbostic.I pxp \\$1 64*77f36b24Sbostic.. 65*77f36b24Sbostic.de IX 66*77f36b24Sbostic.I pix \\$1 67*77f36b24Sbostic.. 68*77f36b24Sbostic.de X 69*77f36b24Sbostic.I px \\$1 70*77f36b24Sbostic.. 71*77f36b24Sbostic.if n .ds dg + 72*77f36b24Sbostic.if t .ds dg \(dg 73*77f36b24Sbostic.if n .ds dd * 74*77f36b24Sbostic.if t .ds dd \(dd 75*77f36b24Sbostic.if n .nr FM 1.12i 76*77f36b24Sbostic.if t .ds b \\fB 77*77f36b24Sbostic.if n .ds b \\fI 78*77f36b24Sbostic.ds i \\fI 79*77f36b24Sbostic.nr xx 1 80