From 2b112b0e13360e045e150e9ecb03a49f17047cfe Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Mon, 11 Jun 2018 14:51:27 -0700
Subject: [PATCH] SCP: Allow single digit argument insertion for DO command
 arguments

---
 scp.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/scp.c b/scp.c
index 187d70d3..3e4ec101 100644
--- a/scp.c
+++ b/scp.c
@@ -3793,8 +3793,7 @@ for (ip = instr, op = tmpbuf; *ip && (op < oend); ) {
         }
     else {
         if ((*ip == '%') &&                             /* %n = sub */
-            ((sim_isdigit(ip[1]) && !sim_isdigit(ip[2])) ||
-             (ip[1] == '*'))) {
+            (sim_isdigit(ip[1]) || (ip[1] == '*'))) {
             if ((ip[1] >= '0') && (ip[1] <= '9')) {
                 ap = do_arg[ip[1] - '0'];
                 for (i=0; i<ip[1] - '0'; ++i)           /* make sure we're not past the list end */