+583,583          S28995 C.W. F01 3-25-77                               COBOL42I
         BAL,L1   LITVC             RESOLVE VAR REC                     COBOL42I
+1214,1215        S28995 C.W. F01 3-25-77                               COBOL42I
*        THE FOLLOWING BRANCH REPLACED THE INSTRUCTIONS
*        MTW,0    VARF                                                  COBOL42I
*        BGEZ     BCA155                                                COBOL42I
*        THE CODE WAS LEFT IN FOR FUTURE REFERENCE IN CASE IT IS NEEDED
*        THE SUPPRESSION OF THESE INSTRUCTIONS WILL PREVENT THE         COBOL42I
*        GENERATION OF THE FOLLOWING INSTRUCTIONS IN A 'IF'             COBOL42I
*        STATEMENT USING VARIABLE LENGTH DATA IN A COMPARE TO
*        A FIGCON                                                       COBOL42I
*        BNE      $+4                                                   COBOL42I
*        STB,8    1                                                     COBOL42I
*        CBS,0    BA(BASE)+X'NN'                                        COBOL42I
*        THESE INSTRUCTIONS WOULD FOLLOW THE NORMAL CBS INST            COBOL42I
         B        BCA155                                                COBOL42I
+END                                                                    COBOL42I
