github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-04-03 20:32:34 +00:00
Code Releases Activity

KA10: Fixed to allow KA and KL ITS to work correctly.

Browse Source
This commit is contained in:
Richard Cornwell
2021-02-14 12:48:24 -05:00
parent 280432b0d1
commit c3629cd094
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
PDP10/kx10_cpu.c
View File

@@ -4631,6 +4631,7 @@ no_fetch:
#endif
/* Handle indirection repeat until no longer indirect */
do {
#if 0
if ((!pi_cycle) & pi_pending
#if KI | KL | KS
& (!trap_flag)
@@ -4638,6 +4639,7 @@ no_fetch:
) {
pi_rq = check_irq_level();
}
#endif
ind = TST_IND(MB) != 0;
AR = MB;
AB = MB & RMASK;
@@ -4749,16 +4751,15 @@ in_loop:
ind = 0;
}
#endif
/* Handle events during a indirect loop */
AIO_CHECK_EVENT; /* queue async events */
if (sim_interval <= 0) {
if ((reason = sim_process_event()) != SCPE_OK) {
return reason;
}
}
}
/* Handle events during a indirect loop */
AIO_CHECK_EVENT; /* queue async events */
if (sim_interval <= 0) {
if ((reason = sim_process_event()) != SCPE_OK) {
return reason;
}
}
#if 0
if ((!pi_cycle) & pi_pending
#if KI | KL | KS
& (!trap_flag)
@@ -4766,7 +4767,6 @@ in_loop:
) {
pi_rq = check_irq_level();
}
#endif
} while (ind & !pi_rq);
/* If there is a interrupt handle it. */