                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 293/297 ------           
                                         MAKE A TRAST0 ENTRY. TRAST0 TYPE ONE ENTRY IS MADE WHEN      F2307450    
                                         B IS ONE 0R TWO, TYPE FIVE ENTRY WHEN-B)IS THREE,,AND,TYPE   F2307460    
                                         SIX TRAST0 ENTRY WHEN B IS ZER0.               -- .4--)=..-  F2307470    
       07336 -0 63400 4 07375 TRAENT SXD TE70,4                                                       F2307480    
       07337 -0 53400 1 07262        LXD DOX,1                                         -              F2307490    
       07340  0 50000 1 06377        CLA DOTAGZ,1      GET DOTAGS ALPHA AND BETA                      F2307300    
       07341 -3 00002 2 07343        TXL TE10,2,2      WHERE B IS 3 (TYPE5) --.-                      F2307510    
       07342 -0 76000 0 00003        SSM               SET E1 NEG.                                    F2307520    
       07343  0 60100 0 07656 TE10   STO E1            AND STORE IN E1.                               F2307530    
       07344  0 50000 0 06645        CLA TL2           GET LEVEL OF DOTAG                             F2307540    
       07345  0 77100 0 00022        ARS 18            INTO ADDRESS AND                               F2307550    
       07346  3 00000 2 07350        TXH TE20,2,0      WHERE B ZER0 (TYPE 6),                         F2307560    
       07347 -0 76000 0 00003        SSM               SET NEG AND          .                         F2307570    
       07350  0 60100 0 07657 TE20   STO E2            PUT IT INTO E2.                                F2307580    
       07351 -3 00001 2 07361        TXL TE40,2,1      WHERE B 20R3 (TYPE 1 0R 5),                    F2307590    
       07352  0 50000 1 06407        CLA DOTAGZ+8,1    PREPARE DOTAGS     . -- -.,                    F2307600    
       07353 -0 32000 0 06704        ANA DECMSK        TEST NAHE .                                    F2307610    
       07354  3 00002 2 07357        TXH TE30,2,2      IF B 2 (TYPE 1)                                F2307620    
       07355 -0 50100 0 06626        ORA TAG           PREPARE FORTAG INDEX AND                       F2307630    
       07356  0 02000 0 07367        TRA TE60          GO TO STORE IN E3.                             F2307TT0    
       07357 -0 50100 1 06401 TE30   ORA DOTAGZ+2,1    WHERE B IS 3, (TYPE 3) PREPARE DOTAGS          F2307650    
       07360  0 02000 0 07366        TRA TE50          PARAMETER N1.        -       - --)---)         F2307660    
       07361  0 50000 0 06626 TE40   CLA TAG           WHERE B ZER0 0R 1 (TYPE 1), GET FORT,=         F2307670    
       07362 -3 00000 2 07366        TXL TE50,2,0      AND WHEN ONE,         - .-. --. .==S--)        F2307680    
       07363  0 76700 0 00022        ALS 18            PUT IN DEC WITH                                F2307690    
       07364  0 40000 0 06627        ADD TS            NEW TAG NAHE IN ADDRESS.                       F2307700    
       07365  0 02000 0 07367        TRA TE60                                -                        F2307710    
       07366 -0 76000 0 00003 TE50   SSM               SET MINUS FOR B ZER0 0R 3 (TYPE 60R5)          F2307720    
       07367  0 60100 0 07660 TE60   STO E3            AND STORE IN E3, FINALLYI -...- =-=-.          F2307730    
       07370 -0 50000 0 07663        CAL TRAST0        GET TRAST0 KEY WORD.   )-                      F2307740    
       07371 -0 53400 2 06667        LXD L(2),2        INDICATE TINFOR SEARCH N0T REQUIRED            F2307750    
       07372 -0 53400 4 06656        LXD SKIP,4                                 .  ----.--)           F2307760    
       07373  3 00000 4 07376        TXH TE80,4,0      IF  SKIP IS 1 (DELTA GREATER THEN B),          F2307770    
       07374  0 07400 4 07401        TSX SPC000,4      GO TO SPC.                   ) --)--,          F2307780    
 D     07375 -3 00000 0 07377 TE70   TXL TE90,0                (DEC SAVES TSXLINK)                    F2307790    
       07376  0 07400 4 07620 TE80   TSX LIST,4        GO TO LIST KF SK(P IS-ZER0.                    F2307800    
       07377 -0 53400 4 07375 TE90   LXD TE70,4        RETURN FR0M LIST.     -   .                    F2307810    
       07400  0 02000 4 00001        TRA 1,4           RETURN T0 CALLER.                              F2307820    
                                         SUBROUTINE SPC000                                            F2307830    
       07401 -0 63400 1 07473 SPC000 SXD SPC115,1      SAVE INDEX OF DO T0 BE SEARCHED.               F2307840    
       07402 -0 63400 2 07446        SXD SPC060,2      SAVE TINFOR, LIST INDICAT0R  --.               F2307850    
       07403 -0 63400 4 07463        SXD SPC105,4      SAVE TSX INDEX.                                F2307860    
       07404  0 60100 0 07512        STO SPCKEY        SAVE LIST KEY WORD                             F2307870    
       07405  0 50000 1 06404        CLA DOTAGZ+5,1    0BTAIN L WORD                                  F2307880    
       07406  0 62200 0 07423        STD SPC050        INITIALIZE TEST INSTR.                         F2307890    
       07407  0 50000 1 06377        CLA DOTAGZ,1      0BTAIN ALPHABETA WRD,                          F2307900    
       07410  0 73400 2 00000        PAX 0,2           SAVE BETA,                                     F2307910    
       07411 -0 32000 0 06704        ANA DECMSK        0BTA1N ALPHA ALONE                             F2307920    
       07412  0 60100 0 06660        STO NEXTA         ST0 IN NEXTA                                   F2307930    
       07413  0 60100 0 06662        STO A             AND STORE IN A.                                F2307940    
       07414 -0 75400 2 00000        PXD 0,2           PUT BETA IN LASTB AND                          F2307950    
       07415  0 60100 0 06661        STO LASTB         BEGIN SEARCH FOR R2                            F2307960    
       07416 -0 53400 1 07473 SPC010 LXD SPC115,1      0BTAIN CURRENT INDEX AND                       F2307970    
       07417  1 77767 1 07420 SPC020 TXI SPC040,1,-9   G0 DOWN ONE DO, IF PQSSIBLE, ELSE              F2307980    
