                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 223/227 ------           
       05574 -0 60200 1 02544        ORS DOTAGZ+5,1                COMPUTABLE AND GO TO               F2100930    
       05575  0 02000 0 05625        TRA MR60                      END.                               F2100940    
       05576  0 50000 1 02542 MR20   CLA DOTAGZ+3,1                C0D.UTE X AND STORE IN             F2100950    
       05577  0 40200 1 02541        SUB DOTAGZ+2,1                L WORD        ....--)-.            F2100960    
       05600  0 40000 1 02543        ADD DOTAGZ+4,1                                                   F2100970    
       05601  0 76500 0 00043        LRS 35                                                           F2100980    
       05602  0 22000 1 02543        DVH DOTAGZ+4,1                                                   F2100990    
       05603  0 20000 1 02543        MPY DOTAGZ+4,1                                                   F2101000    
       05604  0 76300 0 00043        LLS 35                                                           F2101010    
       05605  0 62100 1 02544        STA DOTAGZ+5,1                                                   F2101020    
       05606 -3 00001 2 05625        TXL MR60,2,1                  IF L IS ONE( SKIP CARRY TEST)      F2101030    
       05607  0 50000 4 02537        CLA DOTAGZ,4                  0BTAIN NEXT BACK.SUBNEST.-=..      F2101040    
       05610  0 77100 0 00017        ARS 15                        DO( FIRST WORD. IN-SPECT TAG       F2101050    
       05611  0 76000 0 00001        LBT                           FOR VARIABLE N3).IF-N0T. .-=       F2101060    
       05612  0 02000 0 05614        TRA MR30                      0) VARIABLE( C0NTINUE-WITH MR30,   F2101070    
       05613  0 02000 0 05625        TRA MR60                      1) 0THERWISE GO TO END.  ) )---.   F2101080    
       05614  0 50000 4 02537 MR30   CLA DOTAGZ,4                  0BTAIN-FIRST WORD-OF=NEXT          F2101090    
       05615 -0 32000 0 05513        ANA DECADD                    BACK SUBNEST DO, REM0VE-.          F2101100    
       05616  0 40000 0 05475        ADD L(1)                      TAG, AND ADD ONE T0)ALPHA.         F2101110    
       05617  0 40200 1 02537        SUB DOTAGZ,1                  SUB FIRST-WORD.CURRENT.DO.         F2101120    
       05620 -0 10000 0 05623        TNZ MR40                      (TAG IS ZER0). IF RESULT-IS        F2101130    
       05621  0 50000 0 05520        CLA CR1                       ZER0, CARRY IS TYPE-ALE, .-        F2101140    
       05622  0 02000 0 05624        TRA MR50                      IF N0T ZER0, CARRY-IS-TYPE         F2101150    
       05623  0 50000 0 05521 MR40   CLA CR2                       TWO. INDICATE TYPE 1N ...-         F2101160    
       05624 -0 60200 1 02544 MR50   ORS DOTAGZ+5,1                L WORD OF CURRENT DA.              F2101170    
       05625 -0 75400 1 00000 MR60   PXD 0,1                       MAKE CURRENT.DO7NEXT.BACK          F2101180    
       05626 -0 73400 4 00000        PDX 0,4                       SUBNEST DO.      --- .---.         F2101190    
       05627  1 77767 1 05630        TXI MR70,1,-9                 TAKE NEXT DO IN DOTAG.             F2101200    
       05630 -3 00000 1 07322 MR70   TXL ERTST,1,0          N0 M0RE DOS, EXIT T0 TEST)IF-ERRORS       F2101211    
       05631  0 50000 1 02537        CLA DOTAGZ,1                  0BTAIN FIRST WORD.NEW DO.-4-       F2101220    
       05632 -0 32000 0 05516        ANA ADDMSK                    0BTAIN BETA                        F2101230    
       05633  0 60100 0 05660        STO MRES                      AND SAVE                           F2101240    
       05634  0 50000 4 02537 MR75   CLA DOTAGZ,4                  0BTAIN BETA OF XRC DO,             F2101250    
       05635 -0 32000 0 05516        ANA ADDMSK                    AND SUBTRCT NEW BETA..             F2101260    
       05636  0 60100 0 05661        STO MRES1                                      .---..            F2101270    
       05637  0 40200 0 05660        SUB MRES                      IF N0T NEGATIVE, XRC DD            F2101280    
       05640 -0 12000 0 05645        TMI MR80                      C0NTAINS NEW DO. 0THERWISE, TRA    F2101290    
       05641  0 50000 4 02544        CLA DOTAGZ+5,4                )KRC DO7A06-I6I-NIW=RK..=,, )..-)  F2101300    
       05642 -0 32000 0 05514        ANA DECMSK                    0BTAIN LEVEL OF XRC DO,            F2101310    
       05643  0 40000 0 05475        ADD L(1)                      ADD ONE, STORE IN L.  .            F2101320    
       05644  0 02000 0 05557        TRA MR10                      GO TO MRI0        .-               F2101330    
       05645  0 50000 1 02537 MR80   CLA DOTAGZ,1                                                     F2101340    
       05646 -0 32000 0 05514        ANA DECMSK                                                       F2101350    
       05647  0 77100 0 00022        ARS 18                                                           F2101360    
       05650  0 34000 0 05661        CAS MRES1                                                        F2101370    
       05651  0 02000 0 05654        TRA MR85                      ALPHA(XRA) GREATER THAN BETA(XRC)  F2101380    
       05652  0 02000 0 07267        TRA ERLIST             EQUALITY                   ) -- --.-.-=.- F2101391    
       05653  0 02000 0 07267        TRA ERLIST            LESS THAN                                  F2101401    
       05654  0 50000 4 02544 MR85   CLA DOTAGZ+5,4                                                   F2101410    
       05655 -0 73400 2 00000        PDX 0,2                       NEWDO. IF XRL DO IS OF             F2101420    
       05656 -3 00001 2 05556        TXL MR05,2,1                  LEVEL ONE, START NEW NEST          F2101430    
       05657  1 00011 4 05634        TXI MR75,4,9                  BY TRA T0 MR05. ELSE TRA MR75,     F2101440    
 A     05660  0 00000 0 00000 MRES   HTR                           ES                    ) - --.-.    F2101450    
 A     05661  0 00000 0 00000 MRES1  HTR                                                              F2101460    
