From 71dcf26c83a16580789e53f9a8e3ebacc61e1133 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Fri, 20 Apr 2018 16:45:37 +0100
Subject: [PATCH] %PURMD isn't defined for ITS (it is for Tenex).

---
 <mdl.int>/agc.141 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/<mdl.int>/agc.141 b/<mdl.int>/agc.141
index a0f2684..e0d8cdf 100644
--- a/<mdl.int>/agc.141
+++ b/<mdl.int>/agc.141
@@ -489,7 +489,7 @@ PURCLS:	MOVE	P,[-2000,,MRKPDL]
 	MOVE	A,INF3		; GET PTR TO PURIFIED STRUCTURE
 	SKIPN	NPRFLG
 	PUSHJ	P,%PURIF	;  PURIFY
-	PUSHJ	P,%PURMD
+IFE ITS,	PUSHJ	P,%PURMD
 
 	SETZM	GPURFL
 	JRST	EPURIF		; FINISH UP
-- 
2.31.1