github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Fix MCHOKP.

Browse Source 
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.
This commit is contained in:
Lars Brinkhoff 2024-11-21 10:45:15 +01:00
parent 4557f5dac3
commit 9af9290529
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/sysen1/ddt.1548 → src/sysen1/ddt.1549
View File

@ -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