folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

B5500: Updates for SCP negative sim_interval.

Browse source
This commit is contained in:
Richard Cornwell 2020-10-27 21:28:47 -04:00
parent 37f2b341d0
commit e22d2c44f8
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
B5500/b5500_cpu.c
View file

@ -2001,6 +2001,7 @@ sim_instr(void)
reason = sim_process_event(); reason = sim_process_event();
if (reason != SCPE_OK) if (reason != SCPE_OK)
break; /* process */ break; /* process */
sim_interval--;
} }
/* Passed time quantum */ /* Passed time quantum */
if (sim_interval <= 0) { /* event queue? */ if (sim_interval <= 0) { /* event queue? */

4
B5500/b5500_dk.c
View file

@ -188,7 +188,7 @@ t_stat dsk_cmd(uint16 cmd, uint16 dev, uint8 chan, uint16 *wc)
} else { } else {
uptr->CMD |= DK_ADDR; uptr->CMD |= DK_ADDR;
} }
sim_activate(uptr, 100); sim_activate(uptr, 90);
return SCPE_OK; return SCPE_OK;
} }
@ -292,7 +292,7 @@ t_stat dsk_srv(UNIT * uptr)
sim_activate(eptr, 8000); sim_activate(eptr, 8000);
return SCPE_OK; return SCPE_OK;
} }
sim_activate(uptr, 100); sim_activate(uptr, 90);
} }
return SCPE_OK; return SCPE_OK;
} }