From 5fe9c4983a0a9d305ed80aa42476bf970b2dd8cd Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rcornwell@github.com>
Date: Mon, 26 Oct 2020 23:26:07 -0400
Subject: [PATCH] KA10: Fixes to get WAITS III to work and prevent FE from
 droping chars.

---
 PDP10/kl10_fe.c  |  2 +-
 PDP10/kx10_cpu.c | 10 +---------
 2 files changed, 2 insertions(+), 10 deletions(-)

diff --git a/PDP10/kl10_fe.c b/PDP10/kl10_fe.c
index 142ad23..3acaec2 100644
--- a/PDP10/kl10_fe.c
+++ b/PDP10/kl10_fe.c
@@ -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;;
             }
diff --git a/PDP10/kx10_cpu.c b/PDP10/kx10_cpu.c
index 02da18f..13ec3a0 100644
--- a/PDP10/kx10_cpu.c
+++ b/PDP10/kx10_cpu.c
@@ -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;