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

KA10: Minor fixes to try and get ITS working on KS10.

Browse Source
This commit is contained in:
Richard Cornwell 2022-01-22 23:26:21 -05:00
parent 8f6fec4013
commit fffd71f326
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
PDP10/kx10_cpu.c
View File

@ -4586,8 +4586,14 @@ in_loop:
}
#endif
#if KS
#if KS_ITS
/* ITS I/O instruction are standard */
/* Instructions don't do repeat indirect */
if (!QITS && (IR & 0700) == 0700) {
#else
/* I/O Instructions don't do repeat indirect */
if ((IR & 0700) == 0700) {
#endif
AR = MB & (IOCTL|RMASK);
AB = (t_addr)AR;
ind = 0;
@ -5087,12 +5093,12 @@ unasign:
goto unasign;
#endif
#if KS_ITS
case 0102: /* XCT */
case 0103: /* XCTI */
case 0102: /* XCTI */
case 0103: /* XCT */
if (QITS && (FLAGS & USER) == 0) {
f_load_pc = 0;
f_pc_inh = 1;
xct_flag = 020|AC;
xct_flag = AC;
break;
}
goto unasign;
@ -8561,7 +8567,15 @@ jrstf:
if (QBBN && (FLAGS & USER) == 0)
xct_flag = AC;
#endif
#if KI | KL | KS
#if KS
#if KS_ITS
if (!QITS && (FLAGS & USER) == 0)
#else
if ((FLAGS & USER) == 0)
#endif
xct_flag = AC;
#endif
#if KI | KL
if ((FLAGS & USER) == 0)
xct_flag = AC;
#endif
@ -8585,6 +8599,10 @@ jrstf:
case 0257: /* MAP */
#if KI | KL | KS
#if KS_ITS
if (QITS)
goto muuo;
#endif
f = AB >> 9;
flag1 = (FLAGS & USER) != 0;
flag3 = 0;