mirror of
https://github.com/simh/simh.git
synced 2026-04-25 19:51:25 +00:00
KA10: Fixed bug in POP instruction on KL10B.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user