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

KA10: Fixed OWGBP on KL10B.

Browse source
This commit is contained in:
Richard Cornwell 2023-10-03 12:28:52 -04:00 • committed by Paul Koning
parent 9141eea016
commit 8b9613ae81
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
PDP10/kx10_cpu.c
View file

@ -6418,13 +6418,17 @@ unasign:
goto last; goto last;
AR = MB; AR = MB;
SC = (AR >> 24) & 077; /* S */ SC = (AR >> 24) & 077; /* S */
FE = (AR >> 30) & 077; /* P */
#if KL
if (SC || (QKLB && t20_page && FE > 36)) {
#else
if (SC) { if (SC) {
#endif
int bpw, left, newb, adjw, adjb; int bpw, left, newb, adjw, adjb;
FE = (AR >> 30) & 077; /* P */
f = 0; f = 0;
#if KL #if KL
if (QKLB && t20_page && pc_sect != 0 && FE > 36) { if (QKLB && t20_page && FE > 36) {
if (FE == 077) if (FE == 077)
goto muuo; goto muuo;
f = 1; f = 1;
@ -6513,7 +6517,7 @@ unasign:
AR = MB; AR = MB;
SCAD = (AR >> 30) & 077; SCAD = (AR >> 30) & 077;
#if KL #if KL
if (QKLB && t20_page && pc_sect != 0 && SCAD > 36) { /* Extended pointer */ if (QKLB && t20_page && SCAD > 36) { /* Extended pointer */
f = SCAD - 37; f = SCAD - 37;
if (SCAD == 077) if (SCAD == 077)
goto muuo; goto muuo;
@ -6590,9 +6594,6 @@ unasign:
if ((IR & 04) == 0) if ((IR & 04) == 0)
break; break;
goto ldb_ptr; goto ldb_ptr;
} else {
if ((IR & 04) == 0)
break;
} }
/* Fall through */ /* Fall through */
@ -6611,7 +6612,7 @@ unasign:
SC = (AR >> 24) & 077; SC = (AR >> 24) & 077;
SCAD = (AR >> 30) & 077; SCAD = (AR >> 30) & 077;
#if KL #if KL
if (QKLB && t20_page && pc_sect != 0 && SCAD > 36) { /* Extended pointer */ if (QKLB && t20_page && SCAD > 36) { /* Extended pointer */
f = SCAD - 37; f = SCAD - 37;
if (SCAD == 077) if (SCAD == 077)
goto muuo; goto muuo;
@ -12299,7 +12300,7 @@ do_byte_setup(int n, int wr, int *pos, int *sz)
np = (p + (0777 ^ s) + 1) & 0777; np = (p + (0777 ^ s) + 1) & 0777;
/* Advance pointer */ /* Advance pointer */
#if KL #if KL
if (QKLB && t20_page && pc_sect != 0) { if (QKLB && t20_page) {
if (p > 36) { /* Extended pointer */ if (p > 36) { /* Extended pointer */
int i = p - 37; int i = p - 37;
*sz = s = _byte_adj[i].s; *sz = s = _byte_adj[i].s;
@ -12590,7 +12591,7 @@ adj_byte(int n)
/* Advance pointer */ /* Advance pointer */
np = (p + (0777 ^ s) + 1) & 0777; np = (p + (0777 ^ s) + 1) & 0777;
#if KL #if KL
if (QKLB && t20_page && pc_sect != 0) { if (QKLB && t20_page) {
if (p > 36) { /* Extended pointer */ if (p > 36) { /* Extended pointer */
int i = p - 37; int i = p - 37;
s = _byte_adj[i].s; s = _byte_adj[i].s;
@ -12651,7 +12652,7 @@ adv_byte(int n)
/* Advance pointer */ /* Advance pointer */
np = (p + (0777 ^ s) + 1) & 0777; np = (p + (0777 ^ s) + 1) & 0777;
#if KL #if KL
if (QKLB && t20_page && pc_sect != 0) { if (QKLB && t20_page) {
if (p > 36) { /* Extended pointer */ if (p > 36) { /* Extended pointer */
int i = p - 37; int i = p - 37;
s = _byte_adj[i].s; s = _byte_adj[i].s;