+239     SFP 10-04-77 S29903/S29904 DISC-R                              COBOL42C
         LI,L1    0                 CLEAR SW                            COBOL42C
         STW,L1   DISCR             CLEAR FOR MAYBE FUTURE SET          COBOL42C
+304     SFP 10-04-77 S29903-S29904 DISC-R                              COBOL42C
         LI,D3    0                 CLEAR DISCR FLAG                    COBOL42C
         STW,D3   DISCR                                                 COBOL42C
+312     SFP 10-04-77 S29903/S29904 DISC-R                              COBOL42C
         MTW,1    DISCR             SET SW ON FOR LATER TEST            COBOL42C
+313     SFP 10-04-77 S29903-S29904 DISC-R                              COBOL42C
DISCR    DATA     0                 IF 1 WE HAVE A DISCR FILE           COBOL42C
+505     SFP 10-04-77 S29903-S29904 DISC-R                              COBOL42C
         MTW,0    DISCR             IS THIS A DISC-R FILE               COBOL42C
         BEZ      BBI19490          NO                                  COBOL42C
         BAL,L1   PIX06             WRITE THE BAL                       COBOL42C
         TEXT     ':RDR'            BAL,L1    L:RDR                     COBOL42C
         B        BBI1951                                               COBOL42C
BBI19490 RES      0                                                     COBOL42C
+515,515 SFP 10-04-77 S29903-S29904 DISC-R                              COBOL42C
BBI1950  RES      0                                                     COBOL42C
         MTW,0    DISCR             IS THIS A DISC-R FILE               COBOL42C
         BEZ      BBI19500          NO                                  COBOL42C
         BAL,L1   PIX06             WRITE THE BAL                       COBOL42C
         TEXT     ':RDD'            BAL,L1     L:RDD                    COBOL42C
BBI19500 RES      0                                                     COBOL42C
         BAL,L1   PIX06             WRITE THE BAL                       COBOL42C
+749     SFP 10-04-77 S29903-S29904 DISC-R                              COBOL42C
         MTW,0    DISCR             IS THIS A DISC-R FILE               COBOL42C
         BEZ      BBW720            NO                                  COBOL42C
         BAL,L1   PIX06             WRITE THE BAL                       COBOL42C
         TEXT     ':WDR'            BAL,L1   L:WDR                      COBOL42C
         B        BBW74                                                 COBOL42C
BBW720   RES      0                                                     COBOL42C
+766,766 SFP 10-04-77 S29903-S29904 DISC-R                              COBOL42C
BBW73    RES      0                                                     COBOL42C
         MTW,0    DISCR             IS THIS A DISC-R FILE               COBOL42C
         BEZ      BBW730            NO                                  COBOL42C
         BAL,L1   PIX06             WRITE THE BAL                       COBOL42C
         TEXT     ':WDD'            BAL,L1    L:WDD                     COBOL42C
         B        BBW74                                                 COBOL42C
BBW730   RES      0                                                     COBOL42C
         BAL,L1   PIX06             WRITE THE BAL                       COBOL42C
+823,823          S29903/S29904 C.W. 11-21-77 DISC-R                    COBOL42C
         LW,R1    1,R7              CHECK                               COBOL42C
         LB,R1    R1                  FIELD V                           COBOL42C
         AND,R1   =X'3C'            OF DDB                              COBOL42C
      q
         BNE      $+2               NO                                  COBOL42C
         OR,R6    =X'800'           YES-SET DISC-R INDICATOR            COBOL42C
         LI,R1    1                 INDEX                               COBOL42C
+END                                                                    COBOL42C

