                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 353/357 ------           
       06052  0 02000 0 06060        TRA AC190                                                        F2522130    
       06053  3 00003 4 06056 AC182  TXH AC186,4,3                                                    F2522140    
       06054  0 07400 4 06502        TSX DORO,4            BLOCK D.                                   F2522150    
       06055  0 02000 0 06060        TRA AC190                                                        F2522160    
       06056  0 07400 4 06541 AC186  TSX EOR0,4            BLOCK E.                                   F2522170    
       06057  0 02000 0 06060        TRA AC190                                                        F2522180    
       06060 -0 53400 1 05207 AC190  LXD AX,1              IF ALL SUBS HAVE N0T BEEN                  F2522190    
       06061  2 00001 1 05777        TIX AC166,1,1         C0NSIDERED FOR TXIS, TAKE NEXT RT.         F2522200    
       06062  0 53400 1 05131        LXA L(3),1            THIS REPRESENTS END OF                     F2522210    
       06063 -0 63400 1 05207 AC200  SXD AX,1              TXI PHASE, START TIX.                      F2522220    
       06064  0 50000 0 05211        CLA WRKTGA            IS0LATE APP. TGTG ENTRY.                   F2522230    
       06065 -2 00001 1 06070 AC210  TNX AC214+1,1,1                                                  F2522240    
       06066  0 77100 0 00006        ARS 6                                                            F2522250    
       06067  0 02000 0 06065 AC214  TRA AC210                                                        F2522260    
       06070 -0 32000 0 05170        ANA 6ONESR                                                       F2522270    
       06071  0 10000 0 06235        TZE AC236             IS THERE A TIX VAR. DEC. L0C.              F2522280    
       06072  0 76700 0 00003        ALS 3                 YES, STORE TIX REL, L0C.                   F2522290    
       06073  0 60100 0 05255        STO TETL0C            IN TETL0C WORD.                            F2522300    
       06074 -0 53400 1 05207        LXD AX,1                                                         F2522310    
       06075  0 50000 1 03652        CLA TAG2+3,1          IS0LATE                                    F2522320    
       06076 -0 73400 2 00000        PDX 0,2               N3 FOR                                     F2522330    
       06077  0 50000 2 01102 ACI21  CLA DOTAGZ+4,2        THIS DO.                                   F2522340    
       06100  0 40200 0 05126        SUB L(1)              DOES N3 = 1.                               F2522350    
       06101  0 10000 0 06107        TZE AC220+2                                                      F2522360    
       06102  0 07400 4 07237        TSX XOR0,4            N0, PLACE N SYMB0LS                        F2522370    
       06103  0 53400 1 05106        LXA L(6),1            IN APPROP. OR0 L0CS                        F2522380    
       06104 -0 53400 2 05207        LXD AX,2              AND COMPUTE                                F2522390    
       06105  0 50000 2 07367 AC220  CLA KTX00+3,2         X QUANTITY                                 F2522400    
       06106  0 07400 4 07271        TSX LXC,4             0N 0.C. LEVEL.                             F2522410    
       06107 -0 53400 1 05207        LXD AX,1                                                         F2522420    
       06110  0 50000 0 05160        CLA INST4             TRA AC224. M0DIFY ADR0                     F2522430    
       06111  0 60100 0 06424        STO AOR030            ROUTINE T0 CQMPUTE G.                      F2522440    
       06112  0 50000 0 05161        CLA INST5             TRAAC228.                                  F2522450    
       06113  0 60100 0 06430        STO AOR040                                                       F2522460    
       06114  0 07400 4 06324        TSX AOR0,4            COMPUTE G, PUT IN OR0+19.                  F2522470    
       06115  0 02000 0 06172 AC224  TRA AC230             G1 = 1.                                    F2522480    
       06116 -0 53400 1 05207 AC228  LXD AX,1              G1 N0T = 1,                                F2522490    
       06117  0 50000 1 03652        CLA TAG2+3,1          COMPILE INSTRUCTIONS                       F2522500    
       06120 -0 73400 2 00000        PDX 0,2               T0 COMPUTE AND INIT1ALIZE                  F2522510    
       06121  0 50000 2 01102        CLA DOTAGZ+4,2        TIX DECREMENT.                             F2522520    
       06122  0 40200 0 05126        SUB L(1)                                                         F2522530    
       06123 -0 10000 0 06166        TNZ AC228I            N3 N0T = 1.                                F2522540    
       06124  0 50000 2 01100        CLA DOTAGZ+2,2        N3 = 1, DOES                               F2522550    
       06125  0 40200 0 05126        SUB L(1)              N1 = 1.                                    F2522560    
       06126 -0 10000 0 06135        TNZ ACI22             N1 N0T = 1.                                F2522570    
       06127  0 50000 2 01101        CLA DOTAGZ+3,2        N3, N1=1.                                  F2522580    
       06130  0 60100 0 07566        STO OR000             G GREATER THAN 1,                          F2522590    
       06131  0 50000 0 07360        CLA K1AOR0                                                       F2522600    
       06132  0 53400 1 05130        LXA L(4),1                                                       F2522610    
       06133  0 07400 4 07271        TSX LXC,4                                                        F2522620    
       06134  0 02000 0 06231        TRA AC234             EXIT TIX INITIAL1ZATION.                   F2522630    
       06135  0 07400 4 04741 ACI22  TSX OP3,4            N3= 1, N1 N0T = 1,                          F2522640    
       06136  0 50000 0 05054        CLA L(ADD)            COMPILE                                    F2522650    
       06137  0 60100 0 05177        STO CIL01             TIX                                        F2522660    
