+928              S29076 C.W. 5-5-77 F02                                COBOL42D
FLSBIN   DATA     0                 SPECIAL FLS/BIN FLAG                COBOL42D
+948              S29076 C.W. 5-5-77 F02                                COBOL42D
         STW,R7   FLSBIN            INIT FLS BIN FLAG                   COBOL42D
+1022,1022 S. K.  12-12-78   S-30572 F04                                COBOL42D
         B        BBC30             AN                                  COBOL42D
+1510             S29076 C.W. 5-5-77 F02                                COBOL42D
         MTW,0    FLSBIN            SEE IF SPECIAL CASE                 COBOL42D
         BEZ      $+2               NO                                  COBOL42D
         B        MDR74             YES MULT RFLDS SFLD=FLS,RFLD=BIN    COBOL42D
+1543,1543        S28459 C.W. 2-2-77 F01                                COBOL42D
*        SIDR 28459 CHANGED FOLLOWING FROM LI,R6 CRB+X'D'               COBOL42D
*                                     TO    LI,R6  CRR4+X'D'            COBOL42D
*        IN ORDER TO CHANGE REGISTER USAGE IN IF TEST OF LINKAGE
*        INDEX ITEM AND LINKAGE COMP ITEM                               COBOL42D
         LI,R6    CRR4+X'D'         BIN                                 COBOL42D
+1780,1780        S29076 C.W. 3-3-77 F01                                COBOL42D
         MTW,1    FLSBIN            TR FLG ON SFLD=FLS,RFLD=BIN         COBOL42D
         LW,R1    R6                SET R1 FOR EXU AT BBC92             COBOL42D
         AI,R1    -1                FOR FLL/FLS                         COBOL42D
         BAL,L0   BBC91             LOAD SFLD                           COBOL42D
         MTW,-1   FLSBIN            RESET FLAG                          COBOL42D
         AI,R3    -1                DECREMENT NO OF RFLD'S              COBOL42D
         BAL,L0   BBE47             FLL R6=2                            COBOL42D
         BAL,L0   BBE47+1           FLS R6=3 (LEAVE AS IS)              COBOL42D
+1954             S28364 C.W. F01 2-17-77                               COBOL42D
         LI,D2    0                                                     COBOL42D
         STW,D2   LNKSF             CLEAR LINKAGE FLG FOR MBS GEN       COBOL42D
+END
