From 96186db13978927dc2a44ff20819f63ec85582b9 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 17 Jun 2019 08:57:03 +0200
Subject: [PATCH] LOCK TVQPY looks for TV-11 rather than checking host name.

---
 src/syseng/{lock.155 => lock.156} | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)
 rename src/syseng/{lock.155 => lock.156} (99%)

diff --git a/src/syseng/lock.155 b/src/syseng/lock.156
similarity index 99%
rename from src/syseng/lock.155
rename to src/syseng/lock.156
index 8588cf39..380c0349 100755
--- a/src/syseng/lock.155
+++ b/src/syseng/lock.156
@@ -681,7 +681,8 @@ AITEST:	.CALL [SETZ
 	 AOS (P)				;SKIPS IF RUN ON AI.
 	POPJ P,
 
-TVQPY:	PUSHJ P,AITEST
+TVQPY:	MOVE E,[SQUOZE 0,TT11P]
+	.EVAL E,
 	 JRST TVLUZ
 	.CALL [	SETZ
 		SIXBIT /T11MP/