From 9af92905293fefa6b228f5d6b365ef6d330e2f56 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 21 Nov 2024 10:45:15 +0100 Subject: [PATCH] Fix MCHOKP. If MCHOKP was called with A=0, it would mistakenly match this against an empty MCHTAB entry and do a skip return to indicate a valid ITS name. To fix this, the check for an empty entry is moved up. --- src/sysen1/{ddt.1548 => ddt.1549} | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) rename src/sysen1/{ddt.1548 => ddt.1549} (99%) diff --git a/src/sysen1/ddt.1548 b/src/sysen1/ddt.1549 similarity index 99% rename from src/sysen1/ddt.1548 rename to src/sysen1/ddt.1549 index 0b7620407..fc91af11a 100755 --- a/src/sysen1/ddt.1548 +++ b/src/sysen1/ddt.1549 @@ -954,9 +954,10 @@ bret: aos -1(p) mchok0: camn a,[sixbit /DSK/] ;is this the local machine? jrst [ move a,itsnam ? jrst popj1] ;then use that instead movsi b,-mchcnt ;for all the machines -mchok1: camn a,mchtab(b) ;is it this one? +mchok1: skipn mchtab(b) ;empty table entry? + ret ; yes, exit early + camn a,mchtab(b) ;is it this one? jrst popj1 ; yes, it's OK - skipe mchtab(b) aobjn b,mchok1 ;no, try next ret