From 4756f068de3e3eeb6fb390aa90570126da933472 Mon Sep 17 00:00:00 2001
From: Paul Kimpel <paul.kimpel@digm.com>
Date: Sat, 26 Jul 2014 00:10:59 +0000
Subject: [PATCH] Commit debugging patches to B6500 ESPOL compiler as of
 2014-07-16.

---
 source/B65ESPOL/SOURCE.alg_m | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/source/B65ESPOL/SOURCE.alg_m b/source/B65ESPOL/SOURCE.alg_m
index aba65af..fce38b1 100644
--- a/source/B65ESPOL/SOURCE.alg_m
+++ b/source/B65ESPOL/SOURCE.alg_m
@@ -4772,7 +4772,7 @@ COMMENT                FINISH CODE AND COMPLETE BRANCH. AN IRW REFEREN- 60635000
                        CING PCW PLACED IN STACK;                        60636000          
                       END NAME CALL EXPRESSION;                         60637000          
                    IF NOT BOOLEAN(T1.[01:01])%THEN  IT"S NOT AN ARRAY.  60638000          
-                      THEN ACLASS~(IF T1!EVTYPE THEN T1~BOOID ELSE      60638300          
+                      THEN ACLASS~(IF T1!EVTYPE THEN T1+BOOID ELSE      60638300          
                                                            EVENTID)     60638600          
                       ELSE                                              60638800          
 COMMENT ***          EXPRSS RETURNS TYPE<O FOR ARRAY EXPRESSIONS, NOTE  60639000          
@@ -5334,7 +5334,7 @@ COMMENT    KEY HAS BEEN OBTAINED FROM ELBATWORD FOR EXPLICIT CALL AND   60923000
              DESCPARA CONTAINS INFORMATION ON THE KIND AND DISPOSITION  60926000          
            OF ACTUAL PARAMETERS;                                        60927000          
            EMIT(MKST);                                                  60928000          
-           GT1~ADDLADRES~GT2.ITMNOF+1;                                  60929000          
+           GT1~ADDLADRES+GT2.ITMNOF+1;                                  60929000          
 TEMPNO~1;TD~GIT(GT1);DT1~KEY;DT2~GT1;D4;                                60929500          
            GT2 ~ GT2.ALGNOF + GT1-1;                                    60930000          
 COMMENT    GT1 NOW POINTS TO FIRST AND GT2 TO LAST Q ALG0RITHM ADDL     60931000          
@@ -5425,7 +5425,7 @@ COMMENT ***;                                                            60999000
                              END MCS 9 DUMMY ITYPE                      61000000          
                           ELSE                                          61001000          
                              BEGIN COMMENT (MCS 10);                    61002000          
-COMMENT                      NON DUMMY ITYPE PARAMETER:                 61003000          
+COMMENT                      NON DUMMY ITYPE PARAMETER;                 61003000          
                                 EXPRESSION(ITYPE);                      61004000          
                                 GO TO ANOTHER;                          61005000          
                              END MCS 10 NON DUMMMY ITYPE PARAMETER;     61006000