                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 233/237 ------           
       06617 -3 00001 2 06624        TXL TS15,2,1                  G0IT0-NEST-PROCEDURE.-IF.          F2106330    
       06620 -0 76000 0 00141        MSE 97                        L 1S N0T ONE AND LIGHT IS          F2106340    
       06621  0 02000 0 06647        TRA TS30,0                    OFF, GO TO INNER DO PRECEDURE,     F2106350    
       06622  0 76000 0 00141        PSE 97                        IF LIGHT IS 0N, C0NTINUE           F2106360    
       06623  1 77767 1 06653        TXI TS35,1,-9                 INDEXING FOR NEXT NFST.            F2106370    
       06624 -0 76000 0 00141 TS15   MSE 97                                                           F2106380    
       06625  0 76100 0 00000        NOP                                                              F2106390    
       06626  0 50000 1 02537        CLA DOTAGZ,1                  L IS ONE, DO NEST PROCEDURE.       F2106400    
       06627  0 73400 2 00000        PAX 0,2                       ESTABLISH BEGINNING OF             F2106410    
       06630 -0 32000 0 05514        ANA DECMSK                    NEST ADDRESS BNA, AND              F2106420    
       06631  0 60100 0 06761        STO TBNA                      END OF NEST ADDRESS ENA.           F2106430    
       06632 -0 75400 2 00000        PXD 0,2                       SEARCH IN FORTAG UNTIL             F2106440    
       06633  0 60100 0 06762        STO TENA                      FOR NRS. F0UND GREATER             F2106450    
       06634 -0 53400 4 06760        LXD XFOR,4               -    THAN ENA. IF NONE, EXIT            F2106460    
       06635  0 50000 0 06761        CLA TBNA                      FR0M ENTIRE ROUTINE.               F2106470    
       06636  0 34000 4 04510 TS20   CAS 4VALZ,4                   TEST WHETHER FIRST SUCH            F2106480    
       06637  1 77776 4 06655        TXI TS40,4,-2                 NR. IS IN NEST IF N0T,             F2106490    
       06640  0 07400 4 00004        TSX DIAG,4  FIND NEXT NEST. IF S0,     (ERROR. GO TO DIAGN0STIC.)F2106503    
       06641 -0 63400 4 06760        SXD XFOR,4                    G0)T0 INDEXING INSTRS.             F2106510    
       06642  0 50000 0 06762        CLA TENA                      FOR NEXT DO.                       F2106520    
       06643  0 40200 4 04510        SUB 4VALZ,4                                                      F2106530    
       06644  0 12000 0 06646        TPL TS25                                                         F2106540    
       06645  0 76000 0 00141        PSE 97            RECORD N0 FORVAL FALLS IN THIS NEST.           F2106550    
       06646  1 77767 1 06653 TS25   TXI TS35,1,-9                                                    F2106560    
       06647  0 50000 1 02537 TS30   CLA DOTAGZ,1                  INNER DO PROCEDURE.                F2106570    
       06650 -0 32000 0 05515        ANA TAGMSK                    TEST FOR N0N ZER0 TAG,             F2106580    
       06651 -0 10000 0 06657        TNZ TS50                      IN WHICH CASE TRA FOR              F2106590    
       06652  1 77767 1 06653 TS33   TXI TS35,1,-9                 TABLE SEARCH. 0THERWISE,           F2106600    
 D     06653  3 00000 1 06615 TS35   TXH TS10,1                    INDEX FOR NEXT DO, IF P0SSIBLE.    F2106610    
 D     06654 -3 00000 0 06756 TS38   TXL T190,0                    EX1T, ST0RAGE FOR INDEX CUR. DO.   F2106620    
 D     06655  3 00000 4 06636 TS40   TXH TS20,4                    INDEX TEST FOR FORVAL              F2106630    
       06656  0 02000 0 06756        TRA T190                      EXIT                               F2106640    
       06657 -0 63400 1 06654 TS50   SXD TS38,1                    SAVE INDEX OF CURRENT DO           F2106650    
       06660 -0 63400 2 06725        SXD T110,2                    SAVE LEVEL OF CURRENT DO           F2106660    
       06661 -0 53400 4 06760        LXD XFOR,4                    0BTAIN FORVAL INDEX IN XRC         F2106670    
       06662 -0 53400 2 05477 TS55   LXD L(3),2                    PUT THREE IN XRC                   F2106680    
       06663 -0 53400 1 06654        LXD TS38,1                    CURRENT DO IN XRA                  F2106690    
       06664  0 50000 0 06762        CLA TENA                      TEST FOR END OF NEST               F2106700    
       06665  0 40200 4 04510        SUB 4VALZ,4                                                      F2106710    
       06666 -0 12000 0 06652        TMI TS33                      N0T IN NEST,TRA FOR NEXT DO.       F2106720    
       06667  0 50000 4 04511        CLA 4VALZ+1,4                 IN NEST 0BTAIN FORTAG              F2106730    
       06670  0 34000 1 02543 TS60   CAS DOTAGZ+4,1                SYMB0L, COMPARE WITH VAR           F2106740    
       06671  0 02000 0 06673        TRA TS65                      N SYMB0LS.                         F2106750    
       06672  0 02000 0 06701        TRA TS80                      EQUALITY                           F2106760    
       06673  1 00001 1 06674 TS65   TXI TS70,1,1                  INDEX IN XRA,                      F2106770    
       06674  2 00001 2 06670 TS70   TIX TS60,2,1                  COUNT IN XRB                       F2106780    
       06675  1 77776 4 06676        TXI TS75,4,-2                 TAKE NEXT FORTAG ENTRY,            F2106790    
 D     06676  3 00000 4 06662 TS75   TXH TS55,4                    IF ANY      -.-                    F2106800    
       06677 -0 53400 1 06654        LXD TS38,1                    RESTORE CURRENT DQ INDEX           F2106810    
       06700  1 77767 1 06653        TXI TS35,1,-9                 AND TRA FOR NEXT DO.               F2106820    
       06701 -0 63400 2 06746 TS80   SXD T148,2                    SAVE VAR. N. COUNTER.              F2106830    
       06702 -0 63400 1 06745        SXD T144,1                    SAVE COUNTER OF SYH IN DO          F2106840    
       06703 -0 53400 1 06654        LXD TS38,1                    CURRENT DO INDEX IN XRA            F2106850    
       06704 -0 53400 2 06725        LXD T110,2                    CURRENT DO LEVEL IN XRB            F2106860    
