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

KA10: Fixed save command on Tops 10 7.0x.

Browse source
This commit is contained in:
Richard Cornwell 2023-09-26 14:18:56 -04:00 • committed by Paul Koning
parent 9c2c1117e8
commit f8a51de903
1 changed files with 5 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
PDP10/kx10_cpu.c
View file

@ -6598,6 +6598,9 @@ unasign:
if ((IR & 04) == 0)
break;
goto ldb_ptr;
} else {
if ((IR & 04) == 0)
break;
}
/* Fall through */
@ -8834,19 +8837,6 @@ jrstf:
break;
}
/* Check if access to register */
#if KL
if (AB < 020 && ((QKLB &&
(glb_sect == 0 || sect == 0 || (glb_sect && sect == 1))) || !QKLB)) {
AR = AB; /* direct map */
if (flag1) /* U */
AR |= SMASK; /* BIT0 */
AR |= BIT2|BIT3|BIT4|BIT8;
set_reg(AC, AR);
break;
}
#endif
/* Handle KI paging odditiy */
if (!flag1 && !t20_page && (f & 0740) == 0340) {
/* Pages 340-377 via UBT */
@ -10904,7 +10894,7 @@ skip_op:
case 0774: case 0775: case 0776: case 0777:
#if KI | KL
if (!pi_cycle && ((((FLAGS & (USER|USERIO)) == USER) && (IR & 040) == 0)
|| ((FLAGS & (USER|PUBLIC)) == PUBLIC))) {
|| (((FLAGS & (USER|PUBLIC)) == PUBLIC) && (IR & 076) != 0))) {
#elif PDP6
if ((FLAGS & USER) != 0 && user_io == 0 && !pi_cycle) {