BSD 4_3_Net_2 development

Work on file usr/src/share/doc/ps1/04.pascal/tmac.p
Work on file usr/src/share/doc/ps1/04.pascal/typequ.p

Synthesized-from: CSRG/cd2/net.2

diff --git a/usr/src/share/doc/ps1/04.pascal/tmac.p b/usr/src/share/doc/ps1/04.pascal/tmac.p
new file mode 100644 (file)
index 0000000..066bcd5
--- /dev/null
+++ b/usr/src/share/doc/ps1/04.pascal/tmac.p
@@ -0,0 +1,79 @@
+'so /usr/lib/tmac/tmac.s
+.if t .tr \(rh-
+.if t .tr *\(**=\(eq/\(sl+\(pl
+.bd S B 3
+.de SM
+.if "\\$1"" .ps -2
+.if !"\\$1"" \s-2\\$1\s0\\$2
+..
+.de LG
+.if "\\$1"" .ps +2
+.if !"\\$1"" \s+2\\$a\s0\\$2
+..
+.de HP
+.nr pd \\n(PD
+.nr PD 0
+.if \\n(.$=0 .IP
+.if \\n(.$=1 .IP "\\$1"
+.if \\n(.$>=2 .IP "\\$1" "\\$2"
+.nr PD \\n(pd
+.rm pd
+..
+.de LS         \"LS - Literal display, ASCII, constant spaced DS
+.XD
+.ID
+.nf
+.if t .tr '\'`\`^\(ua-\(mi
+.if t .tr _\(ul
+..
+.de LE         \"LE - End literal display
+.DE
+.tr ''``__--^^
+..
+.de UP
+Berkeley Pascal\\$1
+..
+.de PD
+\s-2PDP\s0
+.if \\n(.$=0 11/70
+.if \\n(.$>0 11/\\$1
+..
+.de DK
+Digital Equipment Corporation\\$1
+..
+.de IN
+.I
+.if \\n(.$<2 \\$1 1.0 Implementation Notes
+.if \\n(.$>=2 \\$1 1.0 Implementation Notes\\c
+.R
+.if \\n(.$>=2 \\$2
+..
+.de UM
+.I
+User's Manual
+.R
+..
+.de PC
+.I pc \\$1
+..
+.de PI
+.I pi \\$1
+..
+.de XP
+.I pxp \\$1
+..
+.de IX
+.I pix \\$1
+..
+.de X
+.I px \\$1
+..
+.if n .ds dg +
+.if t .ds dg \(dg
+.if n .ds dd *
+.if t .ds dd \(dd
+.if n .nr FM 1.12i
+.if t .ds b \\fB
+.if n .ds b \\fI
+.ds i \\fI
+.nr xx 1

diff --git a/usr/src/share/doc/ps1/04.pascal/typequ.p b/usr/src/share/doc/ps1/04.pascal/typequ.p
new file mode 100644 (file)
index 0000000..7d080dc
--- /dev/null
+++ b/usr/src/share/doc/ps1/04.pascal/typequ.p
@@ -0,0 +1,10 @@
+program x(output);
+var
+       x: ^ integer;
+       y: ^ integer;
+begin
+       new(y);
+       x := y;
+       x^ := 1;
+       x := x;
+end.