folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

KA10: Fixed bug in POP instruction on KL10B.

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
PDP10/kx10_cpu.c
View file

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

2
PDP10/kx10_rh.c
View file

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