WHILE/ACS bug fix

Minor fix to prevent an ACS token from being mistaken for another WHILE token, whilst in an existing WHILE construct.
Fixes ticket #465.

Version 1.78. Tagged as 'BASIC-1_78'

VersionASM

@@ -9,12 +9,12 @@
                         GBLS    Module_ApplicationDate
                         GBLS    Module_HelpVersion
                         GBLS    Module_ComponentName
-Module_MajorVersion     SETS    "1.77"
-Module_Version          SETA    177
+Module_MajorVersion     SETS    "1.78"
+Module_Version          SETA    178
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "29 Jun 2019"
-Module_ApplicationDate  SETS    "29-Jun-19"
+Module_Date             SETS    "17 Dec 2019"
+Module_ApplicationDate  SETS    "17-Dec-19"
 Module_ComponentName    SETS    "BASIC"
-Module_FullVersion      SETS    "1.77"
-Module_HelpVersion      SETS    "1.77 (29 Jun 2019)"
+Module_FullVersion      SETS    "1.78"
+Module_HelpVersion      SETS    "1.78 (17 Dec 2019)"
                         END

VersionNum

-/* (1.77)
+/* (1.78)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG        1.77
+#define Module_MajorVersion_CMHG        1.78
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                29 Jun 2019
+#define Module_Date_CMHG                17 Dec 2019
 
-#define Module_MajorVersion             "1.77"
-#define Module_Version                  177
+#define Module_MajorVersion             "1.78"
+#define Module_Version                  178
 #define Module_MinorVersion             ""
-#define Module_Date                     "29 Jun 2019"
+#define Module_Date                     "17 Dec 2019"
 
-#define Module_ApplicationDate          "29-Jun-19"
+#define Module_ApplicationDate          "17-Dec-19"
 
 #define Module_ComponentName            "BASIC"
 
-#define Module_FullVersion              "1.77"
-#define Module_HelpVersion              "1.77 (29 Jun 2019)"
-#define Module_LibraryVersionInfo       "1:77"
+#define Module_FullVersion              "1.78"
+#define Module_HelpVersion              "1.78 (17 Dec 2019)"
+#define Module_LibraryVersionInfo       "1:78"

s/Stmt

@@ -1742,8 +1742,13 @@ EWHILP  LDRB    R10,[LINE],#1
         CMPNE   R10,#TREM
         MOVEQ   R1,#4
         BEQ     EWHILP
-        CMP     R10,#TWHILE
+        CMP     R10,#TWHILE            ;check for WHILE (if relevant, check 1st token byte to disassociate ACS)
+        BNE     NOTWHILE
+        LDRB    R10,[LINE, #-2]
+        CMP     R10,#TESCSTMT
+        MOV     R10,#TWHILE
         ADDEQ   IACC,IACC,#1
+NOTWHILE
         CMP     R10,#TENDWH
         SUBEQ   IACC,IACC,#1
         BNE     EWHILP