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

KA10: Fix bug with later versions of TOPS20.

Browse source
This commit is contained in:
Richard Cornwell 2020-11-17 22:06:44 -05:00
parent d79cc4c494
commit 03a79b1205
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
PDP10/kx10_rh.c
View file

@ -243,6 +243,7 @@ t_stat rh_devio(uint32 dev, uint64 *data) {
} }
if (rhc->reg < 040) { if (rhc->reg < 040) {
int parity; int parity;
drdat = 0;
if (rhc->dev_read(dptr, rhc, rhc->reg, &drdat)) if (rhc->dev_read(dptr, rhc, rhc->reg, &drdat))
rhc->status |= RH20_DR_RESP; rhc->status |= RH20_DR_RESP;
*data = (uint64)(drdat & 0177777); *data = (uint64)(drdat & 0177777);
@ -401,6 +402,7 @@ t_stat rh_devio(uint32 dev, uint64 *data) {
*data = (uint64)(rhc->rae); *data = (uint64)(rhc->rae);
} else if ((rhc->reg & 040) == 0) { } else if ((rhc->reg & 040) == 0) {
int parity; int parity;
drdat = 0;
if (rhc->dev_read(dptr, rhc, rhc->reg, &drdat)) { if (rhc->dev_read(dptr, rhc, rhc->reg, &drdat)) {
rhc->rae |= 1 << rhc->drive; rhc->rae |= 1 << rhc->drive;
rhc->status |= CR_DRE; rhc->status |= CR_DRE;