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

KA10: Updates for SCP negative sim_interval.

Browse source
This commit is contained in:
Richard Cornwell 2020-10-27 21:30:24 -04:00
parent e94f1a927b
commit b4813bc59e
3 changed files with 6 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
PDP10/kl10_fe.c
View file

@ -1797,7 +1797,7 @@ t_stat dteo_svc (UNIT *uptr)
while(not_empty(&cty_out)) {
char ch = cty_out.buff[cty_out.out_ptr];
if (ch != 0) {
if (sim_putchar(ch) != SCPE_OK) {
if (sim_putchar_s(ch) != SCPE_OK) {
sim_activate(uptr, 1000);
return SCPE_OK;;
}

10
PDP10/kx10_cpu.c
View file

@ -4259,7 +4259,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;
}
@ -9049,14 +9049,6 @@ do_byte_setup(int n, int wr, int *pos, int *sz)
AB = MB & RMASK;
}
}
#if 0
/* Handle events during a indirect loop */
if (sim_interval-- <= 0) {
if (sim_process_event() != SCPE_OK) {
return -1;
}
}
#endif
};
/* Update pointer */
val1 &= PMASK;

8
PDP10/kx10_tu.c
View file

@ -556,7 +556,7 @@ t_stat tu_srv(UNIT * uptr)
uptr->DATAPTR = uptr->hwmark-1;
uptr->CPOS = cc_max;
rhc->buf = 0;
sim_activate(uptr, 100);
sim_activate(uptr, 120);
}
return SCPE_OK;
}
@ -609,7 +609,7 @@ t_stat tu_srv(UNIT * uptr)
uptr->DATAPTR = 0;
uptr->CPOS = 0;
rhc->buf = 0;
sim_activate(uptr, 100);
sim_activate(uptr, 120);
}
return SCPE_OK;
}
@ -779,11 +779,11 @@ t_stat tu_srv(UNIT * uptr)
return SCPE_OK;
} else {
tu_tcr[ctlr] &= ~(TC_FCS);
sim_activate(uptr, reclen * 50);
sim_activate(uptr, reclen * 100);
}
return SCPE_OK;
}
sim_activate(uptr, 20);
sim_activate(uptr, 50);
return SCPE_OK;
}