                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 332/336 ------           
       05342 -0 53400 2 05230        LXD DOIND,2           EXIT-ROUTINE.                              F2510800    
       05343  0 07400 4 06447        TSX CN3IJ,4           ROUTINE=COMPUTES DECREHENT N3G             F2510810    
       05344  0 60100 0 05245        STO ERTX01            AND.STORES-IN,ERTX01.,.*+H)),P.            F2510830    
       05345  0 53400 1 05240        LXA POSIND,1          --- =.-=-= ,= ,=)A0..                      F2510830    
       05346  0 50000 0 03653        CLA TAG4  .           TEST FOR DUPLICATE                         F2510840    
       05347  0 76500 0 00014        LRS 12                SUBSCRIPTS=AND,COMPUTE                     F2510850    
       05350  0 76300 1 00004        LLS 4,1               DECREMENT=FOR=THEM.0H,                     F2510870    
       05351  0 76000 0 00001        LBT                   TEST-0N=S1,S2,)0RHS3 FOR DUPES.            F2510880    
       05352  0 02000 0 05376        TRA RTX66             N0 DUPLICATES FOR THIS SUBSCRIPT.          F2510890    
       05353  0 77100 0 00001        ARS 1                 N0 DUPLICATES FOR THIS SUBSCRIPT.          F2510890    
       05354  0 76000 0 00001        LBT                   TEST FOR S1 0R S2 DUPES                    F2510900    
       05355  1 00002 1 05367        TXI RTX62+3,1,2       DUPES)ARE=1,3=0N.TRANSFER                  F2510910    
       05356  1 00001 1 05357        TXI RTX61,1,1         -- -- -=- .,, == )=4HS,*=.                 F2510920    
       05357  0 60100 0 05246 RTX61  STO ERTX02            STORE STATUS OF ACCUMULAT0R.  DUPES ARE    F2510930    
       05360  0 07400 4 06447        TSX CN3IJ,4           1,240R-2,3=0R=1,2,3.H4**U*4U, )0UPES ARE   F2510950    
       05361  0 53400 1 05240        LXA POSIND,1          C06.UTE,DECREMENT.ADJUSTMENT               F2510960    
       05362  0 40000 0 05245        ADD ERTX01            FOR)NEXT,LEFT,SUBSCR1PT.=- ).              F2510970    
       05363  0 60100 0 05245        STO ERTX01            FOR)NEXT,LEFT,SUBSCR1PT.=- ).              F2510970    
       05364  1 00002 1 05365 RTX62  TXI RTX62+1,1,2       -- LACE ADUUSTED DECREHENT IN ERTX01,      F2510980    
       05365  3 00003 1 05376        TXH RTX66,1,3         N0T 3RD SUBSCRIPT CASE,                    F2510990    
       05366  0 50000 0 05246        CLA ERTX02            LOW ORDER BIT IS SUBSCRIPT LEFT OF DOSUB.  F2511010    
       05367  0 77100 0 00001        ARS 1                 TEST FOR S1 DUPE.                          F2511020    
       05370  0 76000 0 00001        LBT                                                                          
       05371  0 02000 0 05376        TRA RTX66              .--. )-= .H-.4=,-)                        F2511030    
       05372 -0 53400 2 05230        LXD DOIND,2                                                      F2511040    
       05373  0 07400 4 06447        TSX CN3IJ,4           COMPUTE DECREMENT ADUUSTHENT FOR S1        F2511050    
       05374  0 40000 0 05245        ADD ERTX01            IN-1,2,3=AND.1,3)CASES.)HLN) ,L+ S1        F2511070    
       05375  0 60100 0 05245        STO ERTX01            FINAL DECREMENT ADJUSTMENT.                F2511080    
       05376  0 50000 0 05245 RTX66  CLA ERTX01            FINAL DECREMENT ADJUSTMENT.                F2511080    
       05377  0 62100 0 05177        STA CIL01             AFTER DECREHENT IS COMPUTED, FILL          F2511090    
       05400  0 07400 4 06465        TSX CIL023,4          OUT-4 WORDSUOF) ,S .=HHU),U, ,)LL          F2511110    
       05401  0 07400 4 04345        TSX CIT,4             COMPILED=INSTRUCTION.P                     F2511120    
       05402  0 02000 0 05413        TRA RTX69             AND C0NTINUE.4=-),==,.                     F2511130    
       05403  0 07400 4 06224 RTX68  TSX CILV,4            PREPARENVCTR L0CATION.  4SS,==)L4**U)L+H   F2511150    
       05404  0 50000 0 05176        CLA CIL00             PREPARENVCTR L0CATION.  4SS,==)L4**U)L+H   F2511150    
       05405 -0 32000 0 05141        ANA ADMSK             FORCTGAOROUTINEIN ,SS,=H== ..--.-          F2511160    
       05406  0 07400 4 06476        TSX TGA,4             FORCTGAOROUTINEIN ,SS,=H== ..--.-          F2511160    
       05407  0 07400 4 06625        TSX CIL23,4           PLA-EHLL-ATIE=HIN APPENDED TAGTAG WORD     F2511170    
       05410  0 50000 0 05042        CLA L(TXI)            ANDATHENGFWLLDOUTF                         F2511180    
       05411  0 60100 0 05177        STO CIL01             COMPILED-INSTRUCT10N                       F2511190    
       05412  0 07400 4 04345        TSX CIT,4             COMPILER ROUTINE..==                       F2511200    
       05413  0 50000 0 03653 RTX69  CLA TAG4              TEST.FOR SYH80L4.                          F2511220    
       05414  0 12000 0 05673        TPL RTX160            INDICATION)-==-                            F2511230    
       05415 -0 53400 2 05230        LXD DOIND,2           FORVAR).--                                 F2511240    
       05416  0 50000 2 01103        CLA DOTAGZ+5,2        0CCURRANCE.                                F2511250    
       05417 -0 32000 0 05136        ANA BIT1                 --. .--.                                F2511250    
       05420  0 10000 0 05673        TZE RTX160            N0 FORVAR, C0NTINUE.                       F2511260    
       05421  0 50000 0 05133        CLA L(0)              FORVAR.EXISTS=).==,.                       F2511270    
       05422  0 60100 0 05176        STO CIL00                .-  --.-.=.                             F25J1280    
       05423  0 50000 0 03652        CLA TAG3              COMPILE                                    F2511290    
       05424 -0 32000 0 05141        ANA ADMSK             STORE--                                    F2511300    
       05425  0 60100 0 05201        STO CIL03             INSTRUCTION                                F2511320    
       05426  0 50000 0 05045        CLA L(SXD)            FOR                                        F2511330    
       05427  0 60100 0 05177        STO CIL01             FORVAR 0CCURRANCE.                         F2511340    
