                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 254/258 ------           
       05215 -0 32000 0 03773        ANA ADDMSK                    STORE TAG                          F2207630    
       05216  0 60100 0 03700        STO TAG                       IN TAG                             F2207640    
       05217  0 60100 0 03701        STO TS                        AND TS                             F2207650    
       05220 -0 75400 1 00000        PXD 0,1                       PUT INDEX                          F2207660    
       05221  0 60100 0 03674        STO XC                        IN XC                              F2207670    
       05222 -0 63400 2 05244        SXD DRM30,2                   SAVE INDEX B.                      F2207680    
       05223  0 50000 2 07136        CLA ADTAGZ+1,2                0BTAIN WORD TWO.                   F2207690    
       05224 -0 12000 0 05245        TMI DRM40                     TRA IF RESET ENTRY.                F2207700    
       05225  0 60100 0 03701        STO TS                        SAVE NAME IN TS.                   F2207710    
       05226  0 07400 4 04363        TSX DOINFO,4                  USE DOINFO                         F2207720    
       05227  0 07400 4 04520        TSX SUBCOM,4                  AND                                F2207730    
       05230  0 76100 0 00000        NOP               0THER                                          F2207745    
       05231  0 07400 4 05566        TSX IDENT,4                   ROUTINES                           F2207750    
       05232  0 07400 4 00004        TSX DIAG,4  IN ORDER T0                (ERROR. GO TO DIAGNQSTIC.)F2207765    
       05233  0 07400 4 05106        TSX BRANCH,4                  PROCESS                            F2207770    
       05234  0 07400 4 04614        TSX SCEND,4                   ENTRY.                             F2207780    
       05235  0 50000 0 05073        CLA DRMTAG                                                       F2207790    
       05236  0 07400 4 05025        TSX LIST,4                    ENTER RESULT IN DRMTAG.            F2207800    
       05237 -0 53400 2 05244 DRM15  LXD DRM30,2                                                      F2207810    
       05240  1 77776 2 05241        TXI DRM20,2,-2                                                   F2207820    
 D     05241  3 00000 2 05213 DRM20  TXH DRM10,2                                                      F2207830    
       05242 -0 53400 4 05212        LXD DRM05,4                                                      F2207I40    
       05243  0 02000 4 00001        TRA 1,4                                                          F2207850    
 A     05244  0 00000 0 00000 DRM30  HTR                                                              F2207860    
       05245  0 73400 4 00000 DRM40  PAX 0,4                       FOR RESET ENTRY,                   F2207870    
       05246 -0 32000 0 03772        ANA DECMSK                    INITIALIZE CELLS                   F2207880    
       05247  0 60100 0 03740        STO TL1                       USED IN RSR ROUTINE.               F2207890    
       05250 -0 75400 4 00000        PXD 0,4                                                          F2207900    
       05251  0 60100 0 03741        STO TL2                                                          F2207910    
       05252  0 07400 4 05140        TSX RSR,4                                                        F2207920    
       05253  0 02000 0 05237        TRA DRM15                     TRA FOR NEXT ENTRY.                F2207930    
                                         SUBROUTINE TAGADD                                            F2207940    
       05254  3 00000 2 05256 TAGADD TXH TAGAD1,2,0    C(IRB) EQ 1 IF NORMAL ADTAG                    F2207950    
       05255 -0 75400 1 00000        PXD 0,1                                                          F2207960    
       05256 -0 53400 1 04006 TAGAD1 LXD ADTXX,1                                                      F2207970    
       05257 -3 00000 1 05273        TXL TAGAD6,1,0                                                   F2207980    
       05260  3 00000 2 05274        TXH TAGAD8,2,0                XRB=1,NORMAL ADDED TAG             F2207990    
       05261  0 40000 0 03700        ADD TAG                                                          F2208AA0    
       05262  0 60100 1 07135        STO ADTAGZ,1                                                     F2208010    
       05263  0 50000 0 03673        CLA NEWTAG                                                       F2208020    
       05264  0 56000 0 03673        LDQ NEWTAG                                                       F2208030    
       05265  0 60100 1 07136        STO ADTAGZ+1,1                                                   F2208040    
       05266  0 40000 0 03765        ADD L(1)A                                                        F2208050    
       05267  0 60100 0 03673        STO NEWTAG                                                       F2208060    
       05270  1 77776 1 05271        TXI TAGAD2,1,-2                                                  F2208070    
       05271 -0 63400 1 04006 TAGAD2 SXD ADTXX,1                                                      F2208080    
       05272  0 02000 4 00001 TAGAD3 TRA 1,4                                                          F2208088    
       05273  0 07400 4 00004 TAGAD6 TSX DIAG,4  TABLE WILL N0T H0LD ENTRY.  ERROR. GO TO DIAGN0STIC. F2208093    
       05274  0 60100 1 07135 TAGAD8 STO ADTAGZ,1                                                     F2208110    
       05275 -0 60000 1 07136        STQ ADTAGZ+1,1                                                   F2208120    
       05276  1 77776 1 05271        TXI TAGAD2,1,-2                                                  F2208130    
                                         SUBROUTINE SPC000                                            F2208140    
       05277 -0 63400 1 05371 SPC000 SXD SPC115,1                  SAVE INDEX OF 00 T0 BE SEARCHED.   F2208150    
       05300 -0 63400 2 05344        SXD SPC060,2                  SAVE TINFOR,LIST INDICAT0R         F2208160    
