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 indiate 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 d57ff34
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 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?
jrst popj1 ; yes, it's OK
skipe mchtab(b)
mchok1: skipe mchtab(b)
came a,mchtab(b) ;is it this one?
caia
jrst popj1 ; yes, it's OK
aobjn b,mchok1 ;no, try next
ret

Expand Down

0 comments on commit d57ff34

Please sign in to comment.