                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 226/230 ------           
       06033 -0 63400 4 06076 FA000  SXD RS60,4                    SAVE TSX SET                       F2102550    
       06034  0 60100 0 06304        STO A                         SAVE ADDRESS                       F2102560    
       06035 -0 53400 1 06276        LXD BNX,1                     0BTAIN                             F2102570    
       06036  0 07400 4 06217        TSX ADL0C,4                   INDEX OF DO C0NTAINING             F2102580    
       06037 -0 75400 1 00000        PXD 0,1                       ADDRESS AND LEVEL OF               F2102590    
       06040  0 60100 0 06305        STO XDA                       THAT DO.                           F2102600    
       06041 -0 75400 2 00000        PXD 0,2                       SAVE IN                            F2102610    
       06042  0 60100 0 06306        STO LDA                       XDA AND LDA.                       F2102620    
       06043 -3 00024 2 06045        TXL FA010,2,20                TEST LEVEL                         F2102630    
       06044  0 07400 4 00004        TSX DIAG,4  LEV. ADD OF TRA EXCEEDS 20. ERROR. GO TO DIAGN0STIC. F2102645    
       06045  0 77100 0 00022 FA010  ARS 18                                                           F2102650    
       06046  0 62100 0 06051        STA FA020                     TRANSFER                           F2102660    
       06047 -0 50000 0 05510        CAL L(MZ)                     LEVEL IN                           F2102670    
       06050 -0 53400 1 06302        LXD XDG,1                     XDG DO.                            F2102680    
 A     06051  0 77100 0 00000 FA020  ARS                                                              F2102690    
       06052 -0 60200 1 02546        ORS DOTAGZ+7,1                                                   F2102700    
       06053  0 50000 0 06306        CLA LDA                       LIST                               F2102710    
       06054  0 77100 0 00022        ARS 18                        ADDRESS AND LEVEL                  F2102720    
       06055  0 40000 0 06304        ADD A                         IN                                 F2102730    
       06056  0 07400 4 06254        TSX TLT00,4                   TLT. C0NTINUE WITH RS00            F2102740    
                                         TRANSFER BIT INSERTION IN DO FORMULA                         F2102750    
       06057 -0 53400 1 06302 RS00   LXD XDG,1                     XRA C0NTAINS XDG                   F2102760    
       06060 -0 53400 2 06303        LXD LDG,2                     XRB C0NTAINS LDG                   F2102770    
       06061 -0 75400 2 00000 RS10   PXD 0,2                       IF G AND A IN SAME DO,             F2102780    
       06062  0 40200 0 06306        SUB LDA                       EXIT. THIS ROUTINE INSERTS         F2102790    
       06063  0 10000 0 06077        TZE INC00                     BIT MEANING THERE IS A JUMP        F2102800    
       06064  0 12000 0 06066        TPL RS20                      OUT OF THE RANGE OF THIS DQ.       F2102810    
       06065  0 07400 4 00004        TSX DIAG,4  JUMP INTO HIGHER LEVEL.     ERROR. GO TO DIAGN0STIC. F2102825    
       06066 -0 50000 0 05510 RS20   CAL L(MZ)                                                        F2102830    
       06067 -0 60200 1 02544        ORS DOTAGZ+5,1                                                   F2102840    
       06070 -3 00001 2 06077        TXL INC00,2,1                 FIND NEXT BACK SUBNEST             F2102850    
       06071  1 00011 1 06072 RS30   TXI RS40,1,9                  DO FORMULA                         F2102860    
       06072  0 50000 1 02544 RS40   CLA DOTAGZ+5,1                AND RETURN                         F2102870    
       06073  0 62200 0 06074        STD RS50                      T0 TEST                            F2102880    
 D     06074 -3 00000 2 06071 RS50   TXL RS30,2                    LEVEL                              F2102890    
       06075 -0 73400 2 00000        PDX 0,2                       AT                                 F2102900    
 D     06076 -3 00000 0 06061 RS60   TXL RS10,0                    RS10                               F2102910    
                                         INDEXING N0 CARRY C0NDITION                                  F2102920    
       06077  0 50000 0 06306 INC00  CLA LDA                       EXIT IF                            F2102930    
       06100  0 10000 0 06143        TZE RNC00                     LDA IS ZER0.                       F2102940    
       06101  0 50000 0 06301        CLA G                         PLACE G ANDA                       F2102950    
       06102  0 56000 0 06304        LDQ A                         IN                                 F2102960    
       06103  0 04000 0 06107        TLQ INC20                     INCX AND INCY S0 THAT              F2102970    
       06104  0 60100 0 06140        STO INCX                      INCX IS LESS THAN INCY.            F2102980    
       06105 -0 60000 0 06141        STQ INCY                                                         F2102990    
       06106  0 02000 0 06111        TRA INC30                                                        F2103000    
       06107 -0 60000 0 06140 INC20  STQ INCX                                                         F2103010    
       06110  0 60100 0 06141        STO INCY                                                         F2103020    
       06111 -0 53400 1 06305 INC30  LXD XDA,1                     INITIALIZE XRA                     F2103030    
       06112  1 77767 1 06113 INC35  TXI INC40,1,-9                FIN0 DO OF LEVEL LDA               F2103040    
 D     06113 -3 00000 1 06143 INC40  TXL RNC00,1                   PLUS ONE.                          F2103050    
       06114  0 50000 1 02544        CLA DOTAGZ+5,1                                                   F2103060    
       06115 -0 32000 0 05514        ANA DECMSK                                                       F2103070    
       06116  0 40200 0 06306        SUB LDA                                                          F2103080    
