From dac6633237c0641f1592a1bc759ecf712d195901 Mon Sep 17 00:00:00 2001 From: Mark Pizzolato Date: Tue, 8 Dec 2015 16:50:00 -0800 Subject: [PATCH] VAX: Set reasonable clock co-scheduled polling for console input --- VAX/vax610_stddev.c | 4 ++-- VAX/vax630_stddev.c | 4 ++-- VAX/vax730_stddev.c | 4 ++-- VAX/vax750_stddev.c | 4 ++-- VAX/vax780_stddev.c | 1 + VAX/vax_stddev.c | 4 ++-- 6 files changed, 11 insertions(+), 10 deletions(-) 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;