                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 381/385 ------           
       00421  0 34000 0 02310        CAS M1ALWN          AIL REC WITH AIL REC COUNT                   F3B02690    
       00422  0 02000 0 00425        TRA OUT43           T0 TEST IF LAST INSTR IN RECORD.             F3B02700    
       00423  0 07400 4 00341 OUT41  TSX M10210,4        READ NEXT AIL RECORD.                        F3B02710    
       00424  0 07400 4 00004        TSX 4,4             WORD COUNT EXCEEDS T0TAL COUNT IN REC.       F3B02720    
       00425  1 77774 1 00373 OUT43  TXI PAT2,1,-4       ADD 4 IRA, AT LEAST 1 INSTR IN ROUTINE       F3B02730    
       00426  0 50000 0 02174 M10250 CLA M1CON+1         STORE 1 IN M1TRC, TP 2                       F3B02740    
       00427  0 60100 0 02311        STO M1TRC           READ ERROR COUNTER.                          F3B02750    
       00430  0 76200 0 00224 M10260 RDS 148             READ 1 RECORD OF D0, THE 1ST                 F3B02760    
       00431  0 53400 2 02173        LXA M1CON,2         FILE 0N TP 2 ALREADY P0SITIONED.             F3B02770    
       00432  0 70000 2 02476 M10270 CPY DO,2            D0 REC. READ 100 WDS BEY0ND AIL.             F3B02780    
       00433  1 77777 2 00432        TXI M10270,2,-1     IRB GIVES P0SITION IN D0 RECORD.             F3B02790    
       00434  0 02000 0 00531        TRA M10850          T0 END OF D0 FILE RTN.                       F3B02800    
       00435  0 76600 0 00333        WRS 219             T0 END OF D0 RECOR0 RTN.                     F3B02810    
       00436 -0 76000 0 00012        RTT                 IF D0 FILE EHPTY, N0 SXTX TABLE MADE.        F3B02820    
       00437  0 02000 0 00511        TRA M10750          REDUNDANCY WHEN READING TP 2.                F3B02830    
       00440 -0 63400 2 02307        SXD M1DOWN,2        STORE 2S COMPL D0 WORD COUNT.                F3B02840    
       00441  0 50000 0 02303        CLA SXTXL           TEST IF SXDTX TABLE EMPTY                    F3B02850    
       00442 -0 10000 0 00445        TNZ M10285-2        FR0M STORED TABLE LENGTH.                    F3B02860    
       00443  0 53400 2 02173        LXA M1CON,2         N0 SXTX ENTRIES, GO TO AIL AND D0            F3B02870    
       00444  0 02000 0 00454        TRA M10290          COMPILATION ROUTINES.                        F3B02880    
       00445 -0 63400 4 02305        SXD CBOX,4          SAVE IRC FOR TSX TEST                        F3B02890    
       00446  1 00004 2 00447        TXI M10285,2,4      ADD 4 IRB GET 1ST WD LAST D0 INSTR.          F3B02900    
       00447  0 50000 2 02477 M10285 CLA DO+1,2          TEST CURRENT D0 INST AN SXD                  F3B02910    
       00450  0 40200 0 02251        SUB M1ABC+25        BY EXAMINING 2N0 WORD OF INSTR.              F3B02920    
       00451  0 10000 0 00463        TZE M10300          CURRENT INSTR IS SXD.                        F3B02930    
       00452  3 00000 2 00446        TXH M10285-1,2,0    IRB ZER0 HEANS ALL D0 ENTRIES                F3B02940    
       00453 -0 53400 4 02305        LXD CBOX,4          IN BLOCK EXAMINED FOR SXD.                   F3B02950    
       00454 -0 75400 4 00000 M10290 PXD 0,4             IRC N0T ZER0 AFTER 1ST D0 REC                F3B02960    
       00455  0 10000 0 00457        TZE M10295          IN CORES. IRC PERHITS RE-ENTRY               F3B02970    
       00456  0 02000 4 00002        TRA 2,4             VIA TSX T0 D0 + AIL CMP RTN                  F3B02980    
       00457 -0 76000 0 00141 M10295 MSE 97              TEST IF END AIL FILE.                        F3B02990    
       00460  0 02000 0 00626        TRA M11010          T0 COMPARE AIL + D0 FHLA N0S.                F3B03000    
       00461  0 76000 0 00141        PSE 97              SENSE LIGHT 1 0N IF AIL EOF.                 F3B03010    
       00462  0 02000 0 00636        TRA M11030          T0 COMPILE D0 INSTR.                         F3B03020    
       00463  0 50000 2 02500 M10300 CLA DO+2,2          SEARCH SXTX TABLE FOR ENTRY                  F3B03030    
       00464  0 60100 0 02304        STO SXLOC           EQUAL T0 ADDR P0RTION GIVEN IN               F3B03040    
       00465  0 53400 4 02303        LXA SXTXL,4         3RD WD CURRENT SXD D0 INSTR.                 F3B03050    
       00466  0 50000 4 00000 M10305 CLA 0,4            ,DDR SXTX 0RGIN-PLUSHJHD1H+                 )0000000,     
       00467  0 40200 0 02304        SUB SXLOC                                                        F3B03070    
       00470  0 10000 0 00473        TZE M10310          SXTX ENTRY C0RR T0 SXD F0UND.                F3B03080    
       00471  2 00003 4 00466        TIX M10305,4,3                                                   F3B03090    
       00472  0 02000 0 00452        TRA M10285+3        N0 SXTX ENTRY C0RR T0 SXD F0UND.             F3B03100    
       00473  2 00001 4 00474 M10310 TIX M10310+1,4,1    ROUTINE PUT 2N0 WORD SXTX                    F3B03110    
       00474  0 50000 4 00000        CLA 0,4             TABLE ENTRY INTO ADDRESS WD                  F3B03120    
       00475  0 60100 2 02500        STO DO+2,2          CURRENT SXD D0 INSTR.                        F3B03130    
       00476  0 50000 0 02173        CLA M1CON           CHANGE SXD FMLA N0. T0                       F3B03140    
       00477  0 60100 2 02476        STO DO,2            ZER0S IN D0 RECORD 8UFFER.                   F3B03150    
       00500  0 02000 0 00452        TRA M10285+3        T0 C0NTINUE SXD SEARCH OF D0 REC.            F3B03160    
                                         ERROR ROUTINES, END OF FILE ROUTINES                         F3B03170    
       00501  0 50000 0 02311 M10700 CLA M1TRC           REDUNDANCY CHECK READING                     F3B03180    
       00502  0 40200 0 02167        SUB M1ECTR          AIL RECORD. TEST IF                          F3B03190    
       00503  0 10000 0 00510        TZE M1EATC          TAPE 2 READ ALREADY 3                        F3B03200    
       00504  0 40000 0 02170        ADD M1ECTR+1        TIMES. IF N0T, INCREASE                      F3B03210    
       00505  0 60100 0 02311        STO M1TRC           COUNT BY 1 IN TAPE READ                      F3B03220    
