                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 372/376 ------           
       00111  0 76600 0 00333 DFI20  WRS 219               DELAY,UNTILHTAPE DISC0==ECTS               F2600530    
       00112 -0 76000 0 00012        RTT     .             TEST=TAPE CHECK                            F2600550    
       00113  0 02000 0 00115        TRA DFI21             EFHN0 ERROR RETRN T0 READ NEXT RECORD      F2600560    
       00114  0 02000 0 00051        TRA DFI10                                                                    
       00115  2 00001 2 00117 DFI21  TIX DFI22,2,1         REDUCE*ERROR=COUNTER BY-1 =-=. =---.-      F2600570    
       00116  0 07400 4 00004        TSX DIAG,4            TAPE-CHECK.,TRIED,50TIMES.                 F2600580    
       00117  0 76400 0 00223 DFI22  BST 147  .            RESTORE,TAPE P0SITION                      F2600590    
       00120 -0 53400 1 00164        LXD ERAS,1            AND INDEX=1 +=+                            F2600610    
       00121  0 02000 0 00053        TRA DFI11             C0RCKNTTHTRETRYOF RECORD                   F2600620    
       00122  0 70000 0 00164 DFI30  CPY ERAS                                                                     
       00123  0 07400 4 00004        TSX DIAG,4            RECORD,IS=0NLY=F0UR-WORDS.=--..            F2600640    
       00124  0 07400 4 00004        TSX DIAG,4            RECORD,IS=0NLY=F0UR-WORDS.=--..            F2600640    
       00125  0 76600 0 00333        WRS 219               DELAY.UNTIL=TAPE DISC0NNECTSP              F2600650    
       00126 -0 76000 0 00012        RTT  -                TEST=TAPE CHECK                            F2600660    
       00127  0 02000 0 00131        TRA DFI40             ERROR== ,H S=S=,., ,H), N,,T               F2600670    
       00130  0 02000 0 00133        TRA DFI50 - .         PROCEED=T0SPROCESS THIS NEST*,TRY          F2600690    
       00131  2 00001 2 00117 DFI40  TIX DFI22,2,1         REDUCE=ERROR COUNT BYT1MAND RETRY          F2600700    
       00132  0 07400 4 00004        TSX DIAG,4            TAPEECINDK. FTRIEND50TIMESCK TEST          F2600710    
       00133 -0 63400 1 00146 DFI50  SXD DFI55,1 .         ,HUH* ,==*. ,4= .=- .4 ..----..-)          F2600720    
       00134  1 00004 1 00135 DFI51  TXI DFI52,1,4         SCAN UP EVERY F0URTH WORD                  F2600730    
       00135  0 50000 1 00200 DFI52  CLA NOR,1                                                                    
       00136  0 12000 0 00134        TPL DFI51             T0=TEST=FOR,MINUS 0, P)0C* TFST            F2600740    
       00137 -0 63400 1 00164        SXD ERAS,1            SAVE=FORSNEXT,EN0 OF BLOCK TEST            F2600750    
       00140  0 50200 1 00200        CLS NOR,1             RESTORESPLUS=SIGN=T0                       F2600760    
       00141  0 60100 1 00200        STO NOR,1             FIRST+W1LDSOF BLOCK                        F2600770    
       00142  0 76600 0 00224 DFI53  WRS 148 -. -          SELECT==ZTPUT,TAPEAA W0*0,                 F2600790    
       00143  0 53400 2 00163        LXA L(100),2          PREPARE)FOR NEXT 100 WORDS                 F2600800    
       00144  0 70000 1 00200 DFI54  CPY NOR,1                                                                    
       00145  1 77777 1 00146        TXI DFI55,1,-1        UNTIL=END,OF-BLOCK                         F2600820    
 D     00146 -3 00000 1 00151 DFI55  TXL DFI60,1                                                                  
       00147  2 00001 2 00144        TIX DFI54,2,1         IF)WORDS=IN)RECORD                         F2600830    
       00150  0 02000 0 00142        TRA DFI53             STAITDAX0THHRSRECORREACHED 0               F2600850    
       00151 -0 53400 1 00164 DFI60  LXD ERAS,1                                                                   
       00152  3 00000 1 00133        TXH DFI50,1,0         RETURNST0=PROCESS=NEXT NEST                F2600870    
       00153  0 02000 0 00044        TRA DFI05                                                                    
       00154  0 76200 0 00221  EXIT  RDS 145               SKIP 0VER DIAGN0STIC RECQRD 0N SYSTEM TAPE.F2600880    
       00155  0 02000 0 00004        TRA 4 C0NSTANTS AND ERAS ST0RAGE FOR DFI                         F2600900    
       00156  0 00000 0 00000                                                                                     
       00157  0 00000 0 00000 L(0)       0                                                            F2600910    
       00160  0 00000 0 00005  L(5)      5                                                                        
       00161 +377777777777    ALLONE OCT 377777777777                                                 F2600930    
       00162 -0 00000 0 00000 L(M0)  MZE 0 -                                                          F2600940    
       00163  0 00000 0 00144 L(100)     100                                                          F2600960    
                        00164 ERAS   BSS 1                                                                        
                        00200        ORG 128               0RIGIN FOR N0R                             F2600970    
                        00200 NOR    BSS 3904                                                         F2600980    
                        00004  DIAG  EQU 4                                                            F2600990    
 A                      00000        END                                                              F2601000    
                        00001 0    .
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     105           0           0           0           0
 LIB       0           0           0           0           0
 COL     105           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      115                  
0NUMBER OF SYMBOLS,  DEF    37,DEFOP     0,UNDEF     1      
9            REM ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 373/377 ------           
