github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-13 23:35:30 +00:00
Code Releases Activity

KA10: Fixed one-proceed for ITS in JRSTF.

Browse Source
This commit is contained in:
Richard Cornwell 2019-09-30 22:46:42 -04:00
parent 56d4a6bfaf
commit b13cc9ba69
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
PDP10/kx10_cpu.c
View File

@ -7045,6 +7045,10 @@ xjrstf:
case 002: /* JRSTF */
BR = AR >> 23; /* Move into position */
jrstf:
#if KL_ITS
if (QITS)
f = FLAGS & (TRP1|TRP2);
#endif
FLAGS &= ~(OVR|NODIV|FLTUND|BYTI|FLTOVR|CRY1|CRY0|TRP1|TRP2|PCHNG|ADRFLT);
/* If executive mode, copy USER and UIO */
if ((FLAGS & (PUBLIC|USER)) == 0)
@ -7057,6 +7061,10 @@ jrstf:
FLAGS &= ~PRV_PUB;
if ((FLAGS & USER) == 0)
FLAGS |= (BR & OVR) ? PRV_PUB : 0;
#if KL_ITS
if (QITS)
FLAGS |= f;
#endif
check_apr_irq();
break;