                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 247/251 ------           
       04433 -0 53400 2 03756 TAG50  LXD L(5),2                                                                   
       04434  0 50000 2 03721 TAG52  CLA X1+5,2        ENTER BIT 18 WD 9                              F2203830    
       04435  0 10000 0 04447        TZE TAG58         OF.E7TCHING=DOTAG                              F2203840    
       04436 -0 73400 1 00000        PDX 0,1           IF 1ST*SUBSCR=0R                               F2203850    
       04437  3 00004 2 04445        TXH TAG56,2,4                                                                
       04440  0 50000 0 03774        CLA CR1           IFPTHERE.IS.N0=--                              F2203860    
       04441  3 00002 2 04443        TXH TAG54,2,2     TYPE21DCARRY3INTO                              F2203870    
       04442  0 77100 0 00002        ARS 2             SUBSCRS RESPECTIVEL,                           F2203890    
       04443 -0 32000 0 03737 TAG54  ANA CARWRD        --==4== =,*,*4),,,.,.                          F2203910    
       04444 -0 10000 0 04447        TNZ TAG58                                                        F2203910    
       04445  0 50000 0 04003 TAG56  CLA ABIT          ENTER BIT 18 WD 9.                             F2203920    
       04446 -0 60200 1 00743        ORS DOTAGZ+8,1    -=..= =,) .* *P ,.                             F2203940    
       04447  2 00002 2 04434 TAG58  TIX TAG52,2,2                                                    F2203950    
       04450 -0 53400 4 03756        LXD L(5),4                    T27,60.SEQUENCE C0NCERNS           F2203960    
       04451  0 50000 4 03721 TAG60  CLA X1+5,4                    T27,60.SEQUENCE C0NCERNS           F2203960    
       04452  0 10000 0 04500        TZE TAG68                     TESTS.AND.ADDED=TAGS,              F2203970    
       04453 -0 73400 1 00000        PDX 0,1                       DOREEAINEIFUIRSD SHESHEIPT,        F2203980    
       04454  0 50000 0 03730        CLA RCSUBS        0R N0T IT   =*),=H,N* , )HS) WHL)HLR           F2203990    
       04455 -0 50100 0 03727        ORA DORC          0CCURSSWITH                                    F2204020    
       04456  0 10000 0 04470        TZE TAG66         0CCURSSWITH                                    F2204020    
       04457 -3 00001 4 04465        TXL TAG64,4,1     APRELC0N2, ,*                                  F2204030    
       04460  0 50000 0 03774        CLA CR1           IFBS0, PETNING A TEST                          F2204040    
       04461  3 00003 4 04463        TXH TAG62,4,3     IS=NEEDED4UNLESS ),,U                          F2204050    
       04462  0 77100 0 00002        ARS 2             THE,1STSANDS2ND.                               F2204070    
       04463 -0 32000 0 03737 TAG62  ANA CARWRD        THE,1STSANDS2ND.                               F2204070    
       04464 -0 10000 0 04500        TNZ TAG68         TUBSCRNPROM0TE A,LEFT                          F2204080    
       04465  0 50000 0 04003 TAG64  CLA SUBBIT        0R.CENTER4RESPECTIVELY.                        F2204090    
       04466 -0 60200 1 00740        ORS DOTAGZ+5,1                                                               
 D     04467 -3 00000 0 04500 TAG65  TXL TAG68,0      INEEDED.                                       FF2204120    
       04470  0 50000 0 04004 TAG66  CLA BIT19          -----.                                        F2204130    
       04471 -0 60200 1 00743        ORS DOTAGZ+8,1                                                   F2204140    
       04472  0 50000 1 00740        CLA DOTAGZ+5,1    IF THE SUBSCRIPT DOES N0T 3CCUR                F2204160    
       04473 -0 32000 0 04002        ANA 2BITS         WITH,ACRELC0N,=DETERHINE WHETHER-0R -          F2204170    
       04474 -0 10000 0 04500        TNZ TAG68         I1T,A.C1INTER,HAS,ALREAD Y-8EEN REQUESTED.     F2204180    
       04475 -0 63400 4 04467        SXD TAG65,4       I1T,A.C1INTER,HAS,ALREAD Y-8EEN REQUESTED.     F2204180    
       04476  0 07400 2 04665        TSX TEST,2        IF SQ,,TAKE NEUTIINDEXED SUBSCR.               F2204190    
       04477 -0 53400 4 04467        LXD TAG65,4       THEN-TAKE=NEXT=INDEXEDSSUBSCRIPT.              F2204200    
       04500  2 00002 4 04451 TAG68  TIX TAG60,4,2     ))--.)----).=.) ,==*.*+)-=4HHJUU.L,            F2204220    
       04501 -0 53400 1 04414 TAG70  LXD TAG40,1                   SET ALL 0CCURRANCES                F2204230    
       04502  0 50000 1 03670 TAG72  CLA FORTZ,1                   OF THIS*TAG, IN FORTAG,            F2204240    
       04503 -0 32000 0 03772        ANA DECMSK                    OF THIS*TAG, IN FORTAG,            F2204240    
       04504  0 34000 0 03677        CAS BETA                      IN THE=RANGE OF THIS               F2204250    
 D     04505 -3 00000 0 04411 TAG75  TXL TAG25,0                   DO, NEGATIVE.                      F2204260    
       04506  0 76100 0 00000        NOP                                                              F2204270    
       04507  0 50000 1 03670        CLA FORTZ,1                                                      F2204280    
       04510 -0 32000 0 03773        ANA ADDMSK                                                       F2204290    
       04511  0 40200 0 03700        SUB TAG                                                          F2204300    
       04512 -0 10000 0 04515        TNZ TAG80                                                        F2204310    
       04513 -0 50000 0 03770        CAL L(MZ)                                                        F2204320    
       04514 -0 60200 1 03670        ORS FORTZ,1                                                      F2204330    
       04515  1 77777 1 04516 TAG80  TXI TAG90,1,-1                                                   F2204340    
 D     04516  3 00000 1 04502 TAG90  TXH TAG72,1  .            ,DEC HAS FORTAG IX.                    F2204380    
       04517  0 02000 0 04411        TRA TAG25                 ..--RETURN=FOR=NEXT TAG.               F2204370    
                                         THIS ROUTINE, GIVEN A TAU TAG, 0BTAINS THE)-T.               F2204380    
