diff --git a/VAX/vax610_stddev.c b/VAX/vax610_stddev.c index 6d54014c..a89c7492 100644 --- a/VAX/vax610_stddev.c +++ b/VAX/vax610_stddev.c @@ -337,8 +337,8 @@ t_stat tti_svc (UNIT *uptr) { int32 c; -sim_clock_coschedule (uptr, KBD_WAIT (uptr->wait, tmr_poll)); - /* continue poll */ +sim_clock_coschedule (uptr, tmxr_poll); /* continue poll */ + if ((tti_csr & CSR_DONE) && /* input still pending and < 500ms? */ ((sim_os_msec () - tti_buftime) < 500)) return SCPE_OK; diff --git a/VAX/vax630_stddev.c b/VAX/vax630_stddev.c index a0bfd7c6..30d5b955 100644 --- a/VAX/vax630_stddev.c +++ b/VAX/vax630_stddev.c @@ -272,8 +272,8 @@ t_stat tti_svc (UNIT *uptr) { int32 c; -sim_clock_coschedule (uptr, KBD_WAIT (uptr->wait, tmr_poll)); - /* continue poll */ +sim_clock_coschedule (uptr, tmxr_poll); /* continue poll */ + if ((tti_csr & CSR_DONE) && /* input still pending and < 500ms? */ ((sim_os_msec () - tti_buftime) < 500)) return SCPE_OK; diff --git a/VAX/vax730_stddev.c b/VAX/vax730_stddev.c index b6262b45..d04420e0 100644 --- a/VAX/vax730_stddev.c +++ b/VAX/vax730_stddev.c @@ -517,8 +517,8 @@ t_stat tti_svc (UNIT *uptr) { int32 c; -sim_clock_coschedule (uptr, KBD_WAIT (uptr->wait, tmr_poll)); - /* continue poll */ +sim_clock_coschedule (uptr, tmxr_poll); /* continue poll */ + if ((tti_csr & CSR_DONE) && /* input still pending and < 500ms? */ ((sim_os_msec () - tti_buftime) < 500)) return SCPE_OK; diff --git a/VAX/vax750_stddev.c b/VAX/vax750_stddev.c index e7e1622a..7e89ea4d 100644 --- a/VAX/vax750_stddev.c +++ b/VAX/vax750_stddev.c @@ -511,8 +511,8 @@ t_stat tti_svc (UNIT *uptr) { int32 c; -sim_clock_coschedule (uptr, KBD_WAIT (uptr->wait, tmr_poll)); - /* continue poll */ +sim_clock_coschedule (uptr, tmxr_poll); /* continue poll */ + if ((tti_csr & CSR_DONE) && /* input still pending and < 500ms? */ ((sim_os_msec () - tti_buftime) < 500)) return SCPE_OK; diff --git a/VAX/vax780_stddev.c b/VAX/vax780_stddev.c index e9fb5952..3805fd08 100644 --- a/VAX/vax780_stddev.c +++ b/VAX/vax780_stddev.c @@ -482,6 +482,7 @@ t_stat tti_svc (UNIT *uptr) int32 c; sim_clock_coschedule (uptr, tmxr_poll); /* continue poll */ + if ((tti_csr & CSR_DONE) && /* input still pending and < 500ms? */ ((sim_os_msec () - tti_buftime) < 500)) return SCPE_OK; diff --git a/VAX/vax_stddev.c b/VAX/vax_stddev.c index 30227dd7..a69de74c 100644 --- a/VAX/vax_stddev.c +++ b/VAX/vax_stddev.c @@ -335,8 +335,8 @@ t_stat tti_svc (UNIT *uptr) { int32 c; -sim_clock_coschedule (uptr, KBD_WAIT (uptr->wait, tmr_poll)); - /* continue poll */ +sim_clock_coschedule (uptr, tmxr_poll); /* continue poll */ + if ((tti_csr & CSR_DONE) && /* input still pending and < 500ms? */ ((sim_os_msec () - tti_buftime) < 500)) return SCPE_OK;