github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-02-27 00:59:57 +00:00
Code Releases Activity

B5500: Allowed for LLL instruction to be interrupted by SCP.

Browse Source
This commit is contained in:
Richard Cornwell
2017-12-23 16:56:50 -05:00
parent 19c98d5f39
commit 38f77e0afa
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B5500/b5500_cpu.c
View File

@@ -3652,6 +3652,12 @@ control:
do {
Ma = CF(B);
memory_cycle(5);
if (sim_interval <= 0) { /* event queue? */
reason = sim_process_event();
if (reason != SCPE_OK) {
break; /* process */
}
}
temp = (B & MANT) + (A & MANT);
} while ((temp & EXPO) == 0);
A = FLAG | PRESENT | toC(Ma);

2
B5500/b5500_dtc.c
View File

@@ -584,7 +584,7 @@ dtco_srv(UNIT * uptr)
switch(c) {
case '\005': /* ^E ENQ who-are-you */
dtc_lstatus[ln] &= ~(BufSMASK);
dtc_lstatus[ln] |= BufIRQ|BufAbnormal|BufWriteRdy;
dtc_lstatus[ln] |= BufIRQ|BufWriteRdy|BufAbnormal;
IAR |= IRQ_12;
sim_debug(DEBUG_DETAIL, &dtc_dev,
"Datacomm recieve ENQ %d\n", ln);