Skip to content

Commit 9af9290

Browse files
committed
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.
1 parent 4557f5d commit 9af9290

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

src/sysen1/ddt.1548 src/sysen1/ddt.1549

+3-2
Original file line numberDiff line numberDiff line change
@@ -954,9 +954,10 @@ bret: aos -1(p)
954954
mchok0: camn a,[sixbit /DSK/] ;is this the local machine?
955955
jrst [ move a,itsnam ? jrst popj1] ;then use that instead
956956
movsi b,-mchcnt ;for all the machines
957-
mchok1: camn a,mchtab(b) ;is it this one?
957+
mchok1: skipn mchtab(b) ;empty table entry?
958+
ret ; yes, exit early
959+
camn a,mchtab(b) ;is it this one?
958960
jrst popj1 ; yes, it's OK
959-
skipe mchtab(b)
960961
aobjn b,mchok1 ;no, try next
961962
ret
962963

0 commit comments

Comments
 (0)