                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 294/298 ------           
 D     07420 -3 00000 1 07464 SPC040 TXL SPC110,1      G0 TQ SET UP LAST INTERVAL. (DEC HAS DOTAG IX) F2307990    
       07421  0 50000 1 06404        CLA DOTAGZ+5,1    TEST WHETHER 0R N0T THIS DO                    F2308000    
       07422 -0 73400 2 00000        PDX 0,2           IS IN RANGE OF R1(DXL)                         F2308010    
 D     07423 -3 00000 2 07464 SPC050 TXL SPC110,2      IF N0T, EXIT FOR LAST INTRVL. (DEC LEV DO)     F2308020    
       07424  0 50000 1 06400        CLA DOTAGZ+1,1    IF IN R1, IS THIS DO T0 BE                     F2308030    
       07425  0 40200 0 06634        SUB RSYM3         SKIPPED. IF N0T, G0 BACK T0                    F2308040    
       07426  0 10000 0 07432        TZE SPC053        GET NEXT DO.                                   F2308050    
       07427  0 50000 1 06400        CLA DOTAGZ+1,1                                                   F2308060    
       07430  0 40200 0 06633        SUB RSYM2                                                        F2308070    
       07431 -0 10000 0 07417        TNZ SPC020                                                       F2308080    
       07432  0 50000 1 06377 SPC053 CLA DOTAGZ,1      R2 F0UND, ARRANGE T0 SKIP THIS                 F2308090    
       07433  0 73400 2 00000        PAX 0,2           INTERVAL. USE ALPHA OF R2                      F2308100    
       07434 -0 32000 0 06704        ANA DECMSK        AS B, PUT BETA OF R2 IN                        F2308110    
       07435  0 60100 0 06663        STO B             NEXTA.                                         F2308120    
       07436 -0 75400 2 00000        PXD 0,2           DO FORMULAS WITHIN R2 ARE                      F2308130    
       07437  0 60100 0 06660        STO NEXTA         ACCOUNTED FOR AFTER SEARCH.                    F2308140    
       07440 -0 63400 1 07473        SXD SPC115,1      SAVE INDEX OF R2.                              F2308150    
       07441 -0 53400 2 07446 SPC055 LXD SPC060,2      PUT TINFOR, LIST IND. IN XRB                   F2308160    
       07442  0 50000 0 06662 SPC058 CLA A             FOR                                            F2308170    
       07443  0 40200 0 06663        SUB B             N0N EHPTY                                      F2308180    
       07444  0 10000 0 07447        TZE SPC065        INTERVALS,                                     F2308190    
       07445 -3 00001 2 07500        TXL SPCTIN,2,1    GO TO ARRANGE TINFOR SEARCH, 0R                F2308200    
 D     07446 -3 00000 0 07503 SPC060 TXL SPCST0,0      TRA T0 USE LIST. (DEC HAS TINFOR SEARCH INDIC) F2308210    
       07447 -0 53400 2 07446 SPC065 LXD SPC060,2      RETURN HERE, TEST TINFOR                       F2308220    
       07450 -3 00000 2 07474        TXL SPC120,2,0    LIST IND. IF ZER0, EXIT.                       F2308230    
       07451 -0 53400 1 07473 SPC070 LXD SPC115,1      T0 SET UP NEXT INTERVAL,                       F2308240    
       07452  0 50000 1 06404        CLA DOTAGZ+5,1    0BTAIN INDEX OF LAST R2 AND                    F2308250    
       07453  0 62200 0 07460        STD SPC100        STEP DOWN IN DOTAG BY USUAL                    F2308260    
       07454  1 77767 1 07455 SPC080 TXI SPC090,1,-9   PROCEDURE UNTIL S0ME DO IS                     F2308270    
 D     07455 -3 00000 1 07464 SPC090 TXL SPC110,1      F0UND N0T IN R2, 0R UNTIL (DEC HAS DOTAG TX)   F2308280    
       07456  0 50000 1 06404        CLA DOTAGZ+5,1    DOTAG EXHAUSTED. IF DO F0UND                   F2308290    
       07457 -0 73400 2 00000        PDX 0,2           N0T IN R2, SET A AND GO TO TEST                F2308300    
 D     07460  3 00000 2 07454 SPC100 TXH SPC080,2      IF THIS DO IS IN R1. (DEC HAS LEV LAST R2 DO)  F2308310    
       07461  0 50000 0 06660        CLA NEXTA         IF IT IS, NEWR2 WILL BE F0UND                  F2308320    
       07462  0 60100 0 06662        STO A             0R EXIT MADE T0 SPC110.                        F2308330    
 D     07463 -3 00000 0 07423 SPC105 TXL SPC050,0                                                     F2308340    
       07464  0 50000 0 06660 SPC110 CLA NEXTA         THIS IS SETUP FOR LAST                         F2308350    
       07465  0 60100 0 06662        STO A             INTERVAL. FOR A, USE                           F2308360    
       07466  0 50000 0 06661        CLA LASTB         C0NTENTS OF NEXTA. FOR B,                      F2308370    
       07467  0 60100 0 06663        STO B             USE BETA OF R1, F0UND IN                       F2308380    
       07470 -0 53400 2 07446        LXD SPC060,2      LASTB. 0BTAIN T)NFOR, ST0TAG                   F2308390    
       07471  0 50000 0 06665        CLA L(0)          IND, AND SET L0CATION OF                       F2308400    
       07472  0 62200 0 07446        STD SPC060        INDICAT0R T0 ZER0. GO TO                       F2308410    
 D     07473 -3 00000 0 07442 SPC115 TXL SPC058,0      TINFOR Q0)TRAST0. (0EC HAS DOTAG IX)           F2308420    
       07474 -0 53400 4 07463 SPC120 LXD SPC105,4      EXIT, ALL STORES DONE, 0R,                     F2308430    
       07475  0 02000 4 00001        TRA 1,4           SEARCH MADE, T NOT FOUND.                      F2308440    
       07476 -0 53400 4 07463 SPC130 LXD SPC105,4      EXIT,T FOUND                                   F2308450    
       07477  0 02000 4 00002        TRA 2,4           IN S0HE INTERVAL                               F2308460    
       07500  0 07400 4 07572 SPCTIN TSX TINFXX,4      GO TO SEARCH FORTAG                            F2308470    
       07501  0 02000 0 07476        TRA SPC130        T F0UND                                        F2308480    
       07502  0 02000 0 07447        TRA SPC065        T N0T F0UN0                                    F2308490    
       07503  0 50000 0 06663 SPCST0 CLA B             FOR TRAST0, E2 AND E3 ARE                      F2308500    
       07504  0 77100 0 00022        ARS 18            ALREADY SET UP, C0LLECT                        F2308510    
       07505  0 40000 0 06662        ADD A             A AND B INTO E1 WORD,                          F2308520    
