KA10: Fixed bug in POP instruction on KL10B.

This commit is contained in:
Richard Cornwell 2020-10-26 18:40:52 -04:00
parent 16cafb3525
commit 15d933dd8b
2 changed files with 4 additions and 1 deletions

View file

@ -7800,14 +7800,15 @@ jrstf:
sect = prev_sect;
if (sect != 0 && (AR & SMASK) == 0 && (AR & SECTM) != 0) {
AR = (AR - 1) & FMASK;
set_reg(AC, AR & FMASK);
break;
}
}
#endif
#if PDP6 | KL
/* This has to before the check for KL10 B extended check */
i_flags |= SAC;
AR = SOB(AR);
set_reg(AC, AR & FMASK);
#endif
if ((AR & C1) == 0) {
#if KI | KL

View file

@ -505,6 +505,8 @@ rh_devirq(uint32 dev, t_addr addr) {
addr = RSIGN | rhc->ivect;
else if (rhc->imode == 2) /* RH20 style */
addr = rhc->ivect;
} else {
sim_printf("Unable to find device %03o\n\r", dev);
}
return addr;
}