+142,142          S29303 C.W. F02 4-11-77                               COBOL33
         BGE      FRSUB1            NORMAL, ABOVE LOW LIMIT             COBOL33
         MTH,1    TYPE8             SET BYPASS FLAG                     COBOL33
         LI,W3    CLIP              RETURN ADDRESS                      COBOL33
         STW,W3   NESTRET2                                              COBOL33
+144              S29303 C.W. F02 4-11-77                               COBOL33
FRSUB1   EQU      $                                                     COBOL33
+160,160          S29303 C.W. F02 4-11-77                               COBOL33
         BGE      TOSUB1            NORMAL                              COBOL33
         MTH,1    TYPE8             SET BYPASS FLAG                     COBOL33
         LI,W3    CLIP              RETURN ADDRESS                      COBOL33
         STW,W3   NESTRET2                                              COBOL33
+162              S29303 C.W. F02 4-11-77                               COBOL33
TOSUB1   EQU      $                                                     COBOL33
+251,256   S.K.   09-19-78  S-30860 F04                                 COBOL33
         BAL,R11  GETREF            GET NEXT REF FIRST                  COBOL33
         CW,W4    W3                                                    COBOL33
         BE       RESET                                                 COBOL33
         BAL,R11  INCPTR            INCREMENT 'TO' PTR                  COBOL33
         CW,R4    FR                HAVE WE DONE ALL 'TO'               COBOL33
         BE       INCLOOP                                               COBOL33
+END                                                                    COBOL33
