From 36786f01e41fa3eda0c0191b0b157b83ea20c492 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 3 Oct 2018 16:03:34 +0200
Subject: [PATCH] Fix GTLOAD to allow lower case input.

---
 src/syseng/{gtload.13 => gtload.14} | 2 ++
 1 file changed, 2 insertions(+)
 rename src/syseng/{gtload.13 => gtload.14} (99%)

diff --git a/src/syseng/gtload.13 b/src/syseng/gtload.14
similarity index 99%
rename from src/syseng/gtload.13
rename to src/syseng/gtload.14
index e424a17f..0029650e 100755
--- a/src/syseng/gtload.13
+++ b/src/syseng/gtload.14
@@ -108,6 +108,8 @@ COMND:	ILDB	A,CMPTR
 	CAIG	A,40
 	JRST	CMDS
 SXBT:	SUBI	A,40
+	CAIL	A,100
+	 SUBI	A,40
 	TLNE	PNTR,770000	;STOP AFTER POSITIN=0
 	IDPB	A,PNTR
 	JRST	COMND