From 6effc9eeacf1f467ed2b08d3865829980f2e33c8 Mon Sep 17 00:00:00 2001
From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Thu, 7 Jun 1990 01:15:54 -0800
Subject: [PATCH] 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
---
 usr/src/share/doc/ps1/04.pascal/tmac.p   | 79 ++++++++++++++++++++++++
 usr/src/share/doc/ps1/04.pascal/typequ.p | 10 +++
 2 files changed, 89 insertions(+)
 create mode 100644 usr/src/share/doc/ps1/04.pascal/tmac.p
 create mode 100644 usr/src/share/doc/ps1/04.pascal/typequ.p

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
index 0000000000..066bcd535a
--- /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
index 0000000000..7d080dc50d
--- /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.
-- 
2.20.1