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)) { while(not_empty(&cty_out)) {
char ch = cty_out.buff[cty_out.out_ptr]; char ch = cty_out.buff[cty_out.out_ptr];
if (ch != 0) { if (ch != 0) {
if (sim_putchar(ch) != SCPE_OK) { if (sim_putchar_s(ch) != SCPE_OK) {
sim_activate(uptr, 1000); sim_activate(uptr, 1000);
return SCPE_OK;; return SCPE_OK;;
} }

10
PDP10/kx10_cpu.c
View file

@ -4259,7 +4259,7 @@ in_loop:
} }
/* Handle events during a indirect loop */ /* Handle events during a indirect loop */
AIO_CHECK_EVENT; /* queue async events */ AIO_CHECK_EVENT; /* queue async events */
if (sim_interval-- <= 0) { if (--sim_interval <= 0) {
if ((reason = sim_process_event()) != SCPE_OK) { if ((reason = sim_process_event()) != SCPE_OK) {
return reason; return reason;
} }
@ -9049,14 +9049,6 @@ do_byte_setup(int n, int wr, int *pos, int *sz)
AB = MB & RMASK; 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 */ /* Update pointer */
val1 &= PMASK; 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->DATAPTR = uptr->hwmark-1;
uptr->CPOS = cc_max; uptr->CPOS = cc_max;
rhc->buf = 0; rhc->buf = 0;
sim_activate(uptr, 100); sim_activate(uptr, 120);
} }
return SCPE_OK; return SCPE_OK;
} }
@ -609,7 +609,7 @@ t_stat tu_srv(UNIT * uptr)
uptr->DATAPTR = 0; uptr->DATAPTR = 0;
uptr->CPOS = 0; uptr->CPOS = 0;
rhc->buf = 0; rhc->buf = 0;
sim_activate(uptr, 100); sim_activate(uptr, 120);
} }
return SCPE_OK; return SCPE_OK;
} }
@ -779,11 +779,11 @@ t_stat tu_srv(UNIT * uptr)
return SCPE_OK; return SCPE_OK;
} else { } else {
tu_tcr[ctlr] &= ~(TC_FCS); tu_tcr[ctlr] &= ~(TC_FCS);
sim_activate(uptr, reclen * 50); sim_activate(uptr, reclen * 100);
} }
return SCPE_OK; return SCPE_OK;
} }
sim_activate(uptr, 20); sim_activate(uptr, 50);
return SCPE_OK; return SCPE_OK;
} }