                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 277/281 ------           
       06420  0 02000 0 06425        TRA ADS030                    TRA FOR EMPTY TABLE TEST           F2220000    
       06421  0 34000 1 07135 ADS010 CAS ADTAGZ,1                  TRA FOR EMPTY TABLE TEST           F2220000    
       06422  0 02000 0 06424        TRA ADS020,                                                      F2220010    
       06423  0 02000 0 06427        TRA ADS040                    FIRST WORD F0UND                   F2220030    
       06424  1 77776 1 06425 ADS020 TXI ADS030,1,-2               .. -. =-4= .-==-                   F2220040    
 D     06425  3 00000 1 06421 ADS030 TXH ADS010,1                                                     F2220050    
       06426  0 02000 4 00002        TRA 2,4                       N0T F0UND                          F2220060    
       06427  0 50000 1 07136 ADS040 CLA ADTAGZ+1,1                 -)  ----                          F2220070    
       06430  0 02000 4 00001 ADS050 TRA 1,4                                                          F2220080    
                                         SUBROUTINES STORES AND ST0RXX                                F2220090    
       06431 -0 63400 4 06465 STORES SXD ST040,4                   THIS ROUTINE PREPARES              F2220100    
       06432  0 50000 0 06366        CLA LR1                       AN ENTRY)FOR TABLE=TRAST0          F2220110    
       06433  0 77100 0 00022        ARS 18                        AND-USES LIST)T0-ENTERS,=          F2220120    
       06434  0 40000 0 03675        ADD LC                        THE ENTRY-0N)THE PROPER            F2220130    
       06435  0 60100 0 05064        STO E2                        DRUM TABLEI)IF-SPC000-=            F2220140    
       06436  0 50000 0 06374        CLA TR1                       IS USED BY-THE ROUTINE,            F2220150    
       06437 -3 00001 2 06441        TXL ST020,2,1                 MANY-ENTRIES-MAY-BE,MADE           F2220160    
       06440  0 50000 0 06375        CLA TR2                       IN TRA ST07- )-) -- ----           F2220170    
       06441  0 76700 0 00022 ST020  ALS 18                        IF DELTA)EQUALS ONE 0R TWO,        F2220180    
       06442  0 40000 0 03701        ADD TS                        THIS-ROUTINE=IS ENTERED)==,        F2220190    
       06443  0 60100 0 05065        STO E3                        THR0UGH-STORES-WITH-C7XRB)         F2220200    
       06444 -3 00000 2 06461        TXL ST035,2,0                 ZER0. IF-DELTA IS.THREE==.         F2220210    
       06445 -3 00001 2 06466        TXL ST050,2,1                 AND WE.ARE-W0RKING.0N-4            F2220220    
       06446  0 02000 0 06461        TRA ST035                     TRANSFERS-DR2-T0-DS,THEN           F2220230    
       06447 -0 63400 4 06465 ST0RXX SXD ST040,4                   STORES ENTRY-IS USED)WITH          F2220240    
       06450  0 50000 0 06370        CLA LR2                       C(XRBI=2..-. .- ---= =.)=          F2220250    
       06451  0 77100 0 00022        ARS 18                        1F DELTA=3,TRA DR1 T0 DS,          F2220260    
       06452  0 40000 0 06366        ADD LR1                       STORES ENTRY IS USED-WITH          F2220270    
       06453  0 60100 0 05064        STO E2                        C(XRBI=1 )-) .- ---- =..=          F2220280    
       06454  0 50000 0 06375        CLA TR2                       IF DELTA=3,TRA DR2 T0 DR1,         F2220290    
       06455  0 76700 0 00022        ALS 18                        ENTRY  ST0RXX IS USED.--.,         F2220300    
       06456  0 40000 0 06374        ADD TR1                       C(XRB) N0T USED. ----.             F2220310    
       06457  0 60100 0 05065        STO E3                        LIST ROUTINE IS.USED IN            F2220320    
                                                                             EVERY CASE,MAKING ONE    F2220330    
                                                                             TRAST0 ENTRY,EXCEPT FOR  F2220340    
                                                                   CASE DELTA=3,TRA DR1 T0 DS,        F2220350    
       06460  0 00000 0 00000                                                                                     
       06461  0 50000 1 00733 ST035  CLA DOTAGZ,1                  CISRBR01,IHENUSPC000 IS USED.      F2220360    
       06462  0 60100 0 05063        STO E1                                 . - ----                  F2220370    
       06463  0 50000 0 05070        CLA TRAST0                                                       F2220390    
       06464  0 07400 4 05025        TSX LIST,4                                                       F2220400    
 D     06465 -3 00000 0 06471 ST040  TXL ST100,0                                                      F2220410    
       06466 -0 53400 2 03753 ST050  LXD L(2),2                    SPC000 USED.                       F2220420    
       06467  0 50000 0 05070        CLA TRAST0                            -                          F2220430    
       06470  0 07400 4 05277        TSX SPC000,4                                                     F2220440    
       06471 -0 53400 4 06465 ST100  LXD ST040,4                   EXIT                               F2220450    
       06472  0 02000 4 00001        TRA 1,4                                                          F22207I0    
                        06473 BLOCK  BSS 60                                                           F2220470    
                        07730        ORG 4056                                                         F2220480    
                                            MASTER RECORD CARD = FN029                                F2220485    
       07730 -0 53400 2 07770 PP0NG  LXD PG80,2                    ROUTINE PP0NG SETS UP DRUM ONE FOR F2220490    
       07731  0 02000 0 07733        TRA PG10                      PING-P0NGING.    -       ) --- )4= F2220300    
       07732 -0 53400 2 07767        LXD PG70,2                                                       F2220510    
       07733 -0 53400 4 07771 PG10   LXD PG90,4                                                       F2220520    
