                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 416/420 ------           
       01501  0 50000 2 03211        CLA TRALEV,2        LOAD TRALEV WQR0                             F3B08620    
       01502  0 62100 0 02350        STA LEVN0           CURRENT LEVEL N0.                            F3B08630    
       01503 -0 53400 2 02346        LXD CTRAST,2        CURRENT TRAST0 ENTRY PT.                     F3B08640    
       01504  0 50000 0 02340        CLA TWOL            TWOS COMPLIMENT 0F N0 0F WDS. IN DEC. FIELD  F3808630    
       01505  0 10000 0 01527        TZE M22770          TYPE 2                                        F3B08660   
       01506  0 50000 0 02346        CLA CTRAST          CURRENT TRASTQ ENTRY PT.                     F3B08670    
       01507 -0 10000 0 01513        TNZ M22760                                                       F3B08680    
       01510  0 50000 0 02337        CLA ONEL            TYPE 1                                       F3B08690    
       01511  0 10000 0 01550        TZE M22787                                                        F3B08700   
       01512  0 02000 0 01527        TRA M22770                                                       F3B08710    
       01513  0 50000 0 02337 M22760 CLA ONEL            TEST TYPE 1                                  F3B08720    
       01514 -0 10000 0 01524        TNZ M22767                                                       F3808730    
       01515  0 40000 0 02340 M22762 ADD TWOL            N0. 0F TYPE 2                                F3B08740    
       01516 -0 73400 4 00000        PDX 0,4                                                          F3B08750    
       01517 -0 75400 4 00000        PXD 0,4                                                          F3B08760    
       01520  0 34000 0 02346        CAS CTRAST          COMPARE                                      F3B08770    
       01521  0 02000 0 01527        TRA M22770                               -                       F3B08780    
       01522  0 02000 0 01527        TRA M22770                                                       F3B08790    
       01523  0 02000 0 01550        TRA M22787                                                       F3B08800    
       01524  0 34000 0 02346 M22767 CAS CTRAST                                                       F3B08810    
       01525  0 02000 0 01515        TRA M22762                                                       F3B08820    
       01526  0 02000 0 01515        TRA M22762                                                       F3B08830    
       01527  0 50000 2 02371 M22770 CLA TRASTO+1,2      LEVEL N0S.                                   F3B08840    
       01530 -0 32000 0 02306        ANA M2CON+10        SAVE ADDRESS, TEST UPPER LEVEL               F3B08850    
       01531  0 34000 0 02350        CAS LEVN0           COMPARE T0 CURRENT TIFGQ LEVEL N0,           F3808860    
       01532  0 02000 0 01535        TRA M22777          LESS THAN                                    F3B08870    
       01533  0 02000 0 01556        TRA M22795                                                       F3B08880    
       01534  0 02000 0 01556        TRA M22795                                                       F3B08890    
       01535  0 50000 2 02371 M22777 CLA TRASTO+1,2      LEVEL N0S.                                   F3B08900    
       01536 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT                               F3B08910    
       01537  0 77100 0 00022        ARS 18    -         PLACE IN ADDRESS                             F3B08920    
       01540  0 34000 0 02350        CAS LEVN0           CURRENT TIFG0 LEVEL N0.                      F3B08930    
       01541  0 02000 0 01556        TRA M22795          EXIT, N0T F0UND                              F3B08940    
       01542  0 02000 0 01543        TRA M22783          EQUAL T0 0R GREATER THAN                     F3B08930    
       01543  0 50000 0 02333 M22783 CLA ADDCO           N0. 0F TIMES TIFG0 APPEARS                   F3808960    
       01544  0 40000 0 02301        ADD M2CON+5         ADD 10(8) INCREHENT                          F3B08970    
       01545  0 60100 0 02333        STO ADDCO           RESTORE                                      F3B08980    
       01546 -0 53400 4 02331        LXD CBOX,4          RESTORE LINKAGE, LEVEL N0.                   F3B08990    
       01547  0 02000 4 00001        TRA 1,4             F0UND.                                       F3B09000    
       01550  0 50000 2 02372 M22787 CLA TRASTO+2,2      TAGS, WORD 3, TYPE 2 LEVEL N0.               F3B09010    
       01551 -0 32000 0 02305        ANA M2CON+9         SAVE DECREHENT                               F3B09020    
       01552  0 77100 0 00022        ARS 18              SHIFT T0 ADDRESS                             F3B09030    
       01553  0 34000 0 02350        CAS LEVN0           COMPARE LEVEL N0.                            F3B09040    
       01554  0 02000 0 01543        TRA M22783                                                                   
       01555  0 02000 0 01556        TRA M22795                                                       F3809060    
       01556 -0 53400 4 02331 M22795 LXD CBOX,4                                                       F3B09070    
       01557  0 02000 4 00002        TRA 2,4             N0T F0UND, BACK T0 MAIN ROUTINE              F3B09080    
                                         INDEXING INSTRUCTION COMPILER                                F3B09090    
       01560 -0 63400 4 02331 M22800 SXD CBOX,4          SAVE COUNT IN 4 FOR LINKAGE                  F3B09100    
       01561 -0 53400 2 02274        LXD M2CON,2         PLACE ZER0 IN IR 2                           F3B09110    
       01562  0 50000 0 02346        CLA CTRAST          CURRENT TRASTQ ENTRY P0(NT                   F3B09120    
       01563 -0 10000 0 01567        TNZ M22810                                                       F3B09130    
       01564  0 50000 2 02337 M22805 CLA ONEL,2          LENGTH 0F TYPE 1 ENTRY ETC.                  F3B09140    
       01565 -0 10000 2 01600        TNZ M22819,2        ENTRIES EXIST                                F3B09150    
