From 0f32b19f7b9d9c94fa87fae045a7e2cb270dee97 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Fri, 20 Apr 2018 14:19:54 +0100
Subject: [PATCH] Fix TVLOC overflow check.

The .LOP .VALUE here is a link-time assert (.LOP runs an arbitrary
instruction). But the test is the wrong way round -- at the moment,
TVBASE=44000, TVLNT=6000, TVLOC=47560, so overflow hasn't occurred.

The 1973 version of the code uses .LIFL, which makes more sense to me...
---
 <mdl.int>/initm.373 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/<mdl.int>/initm.373 b/<mdl.int>/initm.373
index bbd8fe6..a58362a 100644
--- a/<mdl.int>/initm.373
+++ b/<mdl.int>/initm.373
@@ -21,7 +21,7 @@ IMPURE
 
 OBSIZE==151.	;DEFAULT OBLIST SIZE
 
-.LIFG <TVBASE+TVLNT-TVLOC>
+.LIFL <TVBASE+TVLNT-TVLOC>
 .LOP .VALUE
 .ELDC
 
-- 
2.31.1