From 665b2beda2b75253cd82105be4e147a54bf64af8 Mon Sep 17 00:00:00 2001
From: "James C. Bevier" <jbev@jbsys.com>
Date: Wed, 17 Jul 2019 21:39:18 -0400
Subject: [PATCH] SEL32: Force l/c input to u/c characters

---
 SEL32/sel32_con.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/SEL32/sel32_con.c b/SEL32/sel32_con.c
index 34617d3..e0271a0 100644
--- a/SEL32/sel32_con.c
+++ b/SEL32/sel32_con.c
@@ -28,6 +28,9 @@
    they will transfer their block during chan_cmd. All data is
    transmitted as ASCII characters.
 
+   Change History:
+   12/10/2018 - force input chars to upper case if lower case
+
 */
 
 #include "sel32_defs.h"
@@ -297,6 +300,8 @@ t_stat con_srvi(UNIT *uptr) {
     r = sim_poll_kbd();         /* poll for ready */
     if (r & SCPE_KFLAG) {       /* got a char */
         ch = r & 0377;          /* drop any extra bits */
+        if ((ch >= 'a') && (ch <= 'z'))
+            ch &= 0xdf;         /* make upper case */
         if ((cmd == CON_RD) || (cmd == CON_ECHO)) {     /* looking for input */
             atbuf = 0;          /* reset attention buffer */
             if (ch == '\n')     /* convert newline */