                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 305/309 ------           
       00767  3 00000 2 00772        TXH PROCED,2,0        IS TABLE EHPTY.                            F2402120    
       00770 -0 53400 4 01012        LXD LINK1,4           YES. RETURN T0                             F2402130    
       00771  0 02000 4 00001        TRA 1,4               MAIN ROUTINE.                              F2402140    
 T     00772 -0 75400 0 00000 PROCED PXD 0                 TABLE IRV IS N0T EMPTY,                    F2402150    
       00773 -0 73400 4 00000        PDX 0,4               INITIALISE IRC T0 ZER0.                    F2402160    
       00774  0 36100 4 00204 ACCSUH ACL BOB,4             FORM LOGICAL CHECKSUM OF                   F2402170    
       00775  1 77777 4 00776        TXI TIX,4,-1          ENTRIES                                    F2402180    
       00776  2 00001 2 00774  TIX   TIX ACCSUH,2,1                                                   F2402190    
       00777  0 60200 0 01011        SLW LOGWD                                                        F2402200    
       01000  0 50000 0 01011        CLA LOGWD             COMPUTED CHECKSUH.                         F2402210    
       01001  0 40200 4 00204        SUB BOB,4             DRUM CHECKSUH FOLLOWS LAST ENTRY.          F2402220    
       01002 -0 10000 0 01005        TNZ ER0R              N0T EQUAL                                  F2402230    
       01003 -0 53400 4 01012        LXD LINK1,4           DRUM READ C0RRECTLY.                       F2402240    
       01004  0 02000 4 00002        TRA 2,4               RETURN                                     F2402250    
       01005  2 00001 1 00754  ER0R  TIX RDS,1,1           TRY T0 READ THREE H0RE TIMES.              F2402260    
       01006  0 07400 4 00004        TSX DIAG,4            DRUM 3 READING ERROR FIVE TIMES.           F2402270    
 A     01007  0 00000 0 00000  1CNT  HTR                                                              F2402280    
 A     01010  0 00000 0 00000  2CNT  HTR                                                              F2402290    
 A     01011  0 00000 0 00000  LOGWD HTR                                                              F2402300    
 A     01012  0 00000 0 00000  LINK1 HTR                                                              F2402310    
       01013  0 00000 0 00230 L(152) HTR 152               LENGTH OF TABLE IRV, WD. CT., CHECKSUMS    F2402320    
       01014  0 00000 0 02430 L1304  HTR 1304              0RG OF WD. CT OF TABLE IRV                 F2402330    
                                         ROUT1NE WRITES CIT BUFFER 0N TAPE ,IF FULL, THEN ENTERS      F2402340    
                                         NEW CIT INTO BUFFER.                                         F2402350    
       01015 -0 63400 1 01046  CIT   SXD E2C,1                                                        F2402360    
       01016 -0 63400 2 01047        SXD E3C,2                                                        F2402370    
       01017 -0 53400 2 01045        LXD BBOX,2            COMPLEHENT OF CURRENT BUFFER CT.           F2402380    
       01020  3 77634 2 01034        TXH CIT04,2,-100      BUFFER NEITHER FULL N0R ZER0               F2402390    
       01021 -0 53400 2 01045  CITSP LXD BBOX,2                                                       F2402400    
       01022 -3 00000 2 01034        TXL CIT04,2,0         TRA IF BUFFER CT ZER0                      F2402410    
       01023  0 50000 0 01400        CLA RECCNT            BUFFER IS ALREADY FULL.                    F2402420    
       01024  0 40000 0 01430        ADD L(1)              UPDATE CIT RECOR0 COUNT.                   F2402430    
       01025  0 60100 0 01400        STO RECCNT                                                       F2402440    
       01026  0 76600 0 00222        WRS 146                                                          F2402450    
       01027  0 53400 1 01427        LXA L(0),1            WRITE CIT BUFFER 0N TAPE.                  F2402460    
       01030  0 70000 1 00030  CIT01 CPY CIB,1                                                        F2402470    
       01031  1 77777 1 01032        TXI CIT02,1,-1                                                   F2402480    
       01032  1 00001 2 01033  CIT02 TXI CIT03,2,1         STEP BUFFER COUNT BACK T0 ZER0             F2402490    
       01033  3 00001 2 01030  CIT03 TXH CIT01,2,1         TEST FQR BUFFER END                        F2402500    
       01034  0 53400 1 01433  CIT04 LXA L(4),1                                                       F2402510    
       01035  0 50000 1 01054  CIT05 CLA CIL00+4,1         STORE 4WD CIT IN 8UFFER.                   F2402520    
       01036  0 60100 2 00030        STO CIB,2                                                        F2402530    
       01037  1 77777 2 01040        TXI CIT07,2,-1        UPDATE CIT BUFFER COUNT                    F2402540    
       01040  2 00001 1 01035  CIT07 TIX CIT05,1,1                                                    F2402550    
       01041 -0 63400 2 01045        SXD BBOX,2            SAVE CIT BUFFER COUNT                      F2402560    
       01042 -0 53400 1 01046        LXD E2C,1                                                        F2402570    
       01043 -0 53400 2 01047        LXD E3C,2             RELOAD INDEX REGS,                         F2402580    
       01044  0 02000 4 00001        TRA 1,4               RETURN                                     F2402590    
       01045  0 00000 0 00000  BBOX  HTR 0                 CIT BUFFER CT. INITIALLY ZER0              F2402600    
 A     01046  0 00000 0 00000  E2C   HTR                                                              F2402610    
 A     01047  0 00000 0 00000  E3C   HTR                                                              F2402620    
                        01050  CIL00 BSS 1                 SYMBOLIC L0CN OF CIT                       F2402630    
                        01051  CIL01 BSS 1                 0P.DAND DEC. OF CIT.                       F2402640    
                        01052  CIL02 BSS 1                 SYMBOLIC ADDRESS OF CIT                    F2402650    
