                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 269/273 ------           
       06646  0 02000 0 06611        TRA RES210                    TRA T0 EXIT                        F2215720    
                                         THE 2 WD SUBRT NORMRT SPACES TAPE 1 PAST DIAGN0STIC RECORD.  F2215725    
       06647  0 76200 0 00221 NORMRT RDS 145           SKIP 0VER DIAGN0STIC RECORD 0N SYSTEM TAPE.    F2215726    
       06650  0 02000 0 00004        TRA ONETCS        GO TO ONE T0 CS ( M0NIT0R)                     F2215727    
                        06651        BSS 80                                                           F2215730    
                        06771 TAGZ   BSS 1                                                            F2215740    
                        06772        BSS 99                                                           F2215750    
                        07135 ADTAGZ BSS 1                                                            F2215760    
                        07136        BSS 99                                                           F2215770    
                        07301 NAMZ   BSS 1                                                            F2215780    
                        07302        BSS 299                                                          F2215790    
                        07755 RETABZ BSS 1                                                            F2215800    
                                            MASTER RECORD CARD = FN030                                F2215805    
                                         TMIS ROUTINE PROCESSES SINGLE RELATIVE C0NSTANTS             F2215810    
                                         AND, FOR SC WITH TWO RC SUBS, DOES ALL PROCESSING            F2215820    
                                         EXCEPT WHERE THERE IS A P0SSIBLE MULTIPLE DEFINITION,        F2215830    
                                         AT WHICH P0INT IT CALLS 0N 2R0000.                           F2215840    
                        05566        ORG IDENT             STATE B                                    F2215850    
       05566 -0 53400 1 00030 CORES  LXD DOTAG-1,1                                                    F2215860    
       05567 -0 63400 1 05602        SXD DSDR20,1                                                     F2215870    
       05570 -0 63400 1 05745        SXD DSD118,1                                                     F2215880    
       05571 -0 63400 1 05762        SXD DSD145,1                                                     F2215890    
       05572 -0 63400 1 06026        SXD 2R0020,1                                                     F2215900    
       05573 -0 76000 0 00144 DSDR00 MSE 100                                                          F2215910    
       05574  0 76100 0 00000        NOP                                                              F2215920    
       05575 -0 53400 1 03674        LXD XC,1                      PUT INDEX OF DC IN XRA             F2215930    
       05576 -0 53400 4 03732        LXD DELTA,4                   PUT DELTA IN XRC                   F2215940    
       05577  0 50000 0 03675        CLA LC                        INITIALIZE END OF                  F2215950    
       05600  0 62200 0 05605        STD DSDR30                    )DCTEST INSTR                      F2215960    
       05601  1 77767 1 05602 DSDR10 TXI DSDR20,1,-9               TAKE NEXT DOWN DO,IF P0SSIBLE      F2215970    
 D     05602 -3 00000 1 05734 DSDR20 TXL DSD100,1                  EXIT IF DOTAG EXHAUSTED.           F2215980    
       05603  0 50000 1 00740        CLA DOTAGZ+5,1                0BTAIN LEVEL OF THIS DO IN         F2215990    
       05604 -0 73400 2 00000        PDX 0,2                       XRB,COMPARE W1TH LEVEL OF          F2216000    
 D     05605 -3 00000 2 05734 DSDR30 TXL DSD100,2                  D6 AND EXIT IF N0T IN DC.          F2216010    
       05606  0 50000 1 00734        CLA DOTAGZ+1,1                0BTAIN SYMB0L OF THIS DO           F2216020    
       05607  0 40200 0 03735        SUB RSYM1                     COMPARE WITH (FIRST) R SYM.        F2216030    
       05610  0 10000 0 05621        TZE DSDR50                    IF THIS DO IS DR1,TRA.             F2216040    
       05611 -3 00002 4 05601        TXL DSDR10,4,2                IF N0T DR1,G0 BACK,UNLESS DELTA3   F2216050    
       05612  0 50000 1 00734        CLA DOTAGZ+1,1                (MTAIN SYMB0L AGAIN                F2216060    
       05613  0 40200 0 03736        SUB RSYM2                     AND COMPARE WITH RSYM2             F2216070    
       05614 -0 10000 0 05601        TNZ DSDR10                    IF N0T RSYM1 0R RSYM2,G0 BACK      F2216080    
       05615  0 50000 0 03736        CLA RSYM2                     IF DO SYM IS RSYM2,                F2216090    
       05616  0 56000 0 03735        LDQ RSYM1                     SWITCH RSYM1 AND RSYM2             F2216100    
       05617  0 60100 0 03735        STO RSYM1                     T0 MAKE BUCKET LABLES              F2216110    
       05620 -0 60000 0 03736        STQ RSYM2                     AGREE WITH ORDER OF DO FORMULAS    F2216120    
       05621 -0 63400 1 06365 DSDR50 SXD XR1,1                     SAVE                               F2216130    
       05622 -0 75400 2 00000        PXD 0,2                       INDEX OF R1                        F2216140    
       05623  0 60100 0 06366        STO LR1                       AND LEVEL OF R1                    F2216150    
       05624  0 60100 0 03741        STO TL2                       INITIALIZE TRAWRD TL2              F2216160    
       05625  0 50000 0 03723        CLA LL                        INITIALIZE TRAWRD TL1              F2216170    
       05626  0 60100 0 03740        STO TL1                       PREPARE                            F2216180    
       05627 -0 53400 2 03752        LXD L(1),2                    TRAWRD C(XRB)                      F2216190    
       05630 -3 00002 4 05632        TXL DSDR55,4,2                                                   F2216200    
       05631 -0 53400 2 03753        LXD L(2),2                                                       F2216210    
