Comment and clarify $CAT source.

2018-09-10 14:48:29 -06:00 · 2018-09-10 14:48:29 -06:00 · 4b55932740
parent 9883f7e402
commit 4b55932740
1 changed files with 4 additions and 2 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -1130,11 +1130,13 @@
           PERFORM BEGIN-STANDARD-REPLY.
           PERFORM DO-OUTPUT.

+      *    GET EACH SUCCESSIVE PARAM INTO R(1), STRINGING EACH CORRESPONDING
+      *    REGISTER'S CONTENTS INTO R(2)
       STRING-CAT-PARAMS.
           MOVE INPUT-SOURCE TO SRC.
           PERFORM GET-PARAM.
-           IF R-INDEX(1) IS NUMERIC THEN
-               MOVE R-INDEX(1) TO SRC
+           IF R-INDEX(DEST) IS NUMERIC THEN
+               MOVE R-INDEX(DEST) TO SRC
               IF SRC IS LESS THAN 1 OR
                  SRC IS GREATER THAN 8 THEN
                   MOVE 99 TO STATE