Skip to content

Commit

Permalink
Fix MCHOKP.
Browse files Browse the repository at this point in the history
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.
  • Loading branch information
larsbrinkhoff committed Nov 21, 2024
1 parent b7fc027 commit fb5f7f5
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions src/sysen1/ddt.1548 → src/sysen1/ddt.1549
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down

0 comments on commit fb5f7f5

Please sign in to comment.