From 2b0963aeaf7bc2bb1aa0537cebe197341d3a9344 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Mon, 18 Jun 2018 17:32:23 +0100
Subject: [PATCH] Use .CALL /LOGIN/ instead of .LOGIN.

SYSDOC; UUOS says the .LOGIN UUO doesn't exist any more.
---
 src/syseng/{monit.114 => monit.ats115} | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)
 rename src/syseng/{monit.114 => monit.ats115} (99%)

diff --git a/src/syseng/monit.114 b/src/syseng/monit.ats115
similarity index 99%
rename from src/syseng/monit.114
rename to src/syseng/monit.ats115
index e311a224..3c85200e 100644
--- a/src/syseng/monit.114
+++ b/src/syseng/monit.ats115
@@ -439,7 +439,7 @@ COMTTT:	SKIPE C
 
 LOGIN:	PUSHJ P,GETSYL
 	MOVEM B,USRF+1	;SET NEW UNAME (? SO CAN HACK OTHERS DISOWNED PROCEDURES)
-	.LOGIN B,
+	.CALL LBLK
 	JRST CANNOT
 	MOVEM B,LOGNAM
 	MOVEM B,COMPF+1
@@ -449,6 +449,10 @@ LOGIN:	PUSHJ P,GETSYL
 	JRST BEG	;NO COM:USER MAIL
 	JRST XPRINT
 
+LBLK:	400000,,0
+	SIXBIT /LOGIN/
+	400000,,B
+
 DISOWN:	PUSHJ P,CKRUN
 	PUSHJ P,DISOW
 	JRST BEG