github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-22 18:41:11 +00:00
Code Releases Activity

KA10: Fix broken LISP compile on ITS.

Browse Source
This commit is contained in:
Richard Cornwell 2022-11-22 22:32:47 -05:00
parent dc5fb18384
commit cfee1bf6ef
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
PDP10/kx10_cpu.c
View File

@ -3357,6 +3357,10 @@ int page_lookup_its(t_addr addr, int flag, t_addr *loc, int wr, int cur_context,
return 1;
}
/* If DPB and IDPB force write */
if (BYF5 && (IR & 0776) == 0136)
wr = 1;
/* Figure out if this is a user space access */
if (flag)
uf = 0;
@ -4610,6 +4614,9 @@ in_loop:
if (ind & !pi_rq) {
if (Mem_read(pi_cycle | uuo_cycle, 1, 0, 0))
goto last;
if (AB < 020) {
--sim_interval;
}
#if KL
/* Check if extended indexing */
if (QKLB && t20_page && (cur_sect != 0 || glb_sect)) {
@ -4691,7 +4698,7 @@ in_loop:
}
/* Handle events during a indirect loop */
AIO_CHECK_EVENT; /* queue async events */
if (--sim_interval <= 0) {
if (sim_interval <= 0) {
if ((reason = sim_process_event()) != SCPE_OK) {
return reason;
}