                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 410/414 ------           
       01007 -0 75400 2 00000        PXD 0,2             TRALEV ENTRY PT CT. IN ACC                   F3B05380    
       01010  0 40200 0 03210        SUB TRALEV-1        TRALEV WORD COUNT                            F3B05390    
       01011  0 10000 0 01013        TZE M22013          IS IT END 0F TRALEV TABLE, YES               F3B05400    
       01012  1 77777 2 01005        TXI M22006+1,2,-1   N0, UPDATE TRALEV TABLE                      F3B05410    
       01013 -0 63400 2 02347 M22013 SXD ETRAL,2         START 0F NEXT ENTRY, SAVE COUNT              F3B05420    
       01014  0 02000 0 00523        TRA M21020          0F TRALEV, BACK T0 COMPILE INSTR.            F3B05430    
       01015 -0 63400 2 02356 M22015 SXD ETRAST,2        SAVE TRAST0 ENTRY PT.                        F3B05440    
       01016  0 50000 0 02274        CLA M2CON           INITIALIZE ADDC0                             F3B05450    
       01017  0 60100 0 02333        STO ADDCO                                                        F3B05460    
       01020  0 50000 1 05472        CLA TIFGO,1         0BTAIN TIFG0 TYPE, TRANSFER T0 ROUTINES      F3B05470    
       01021 -0 12000 0 01360        TMI M22600          IF(E)                                        F3B05480    
       01022 -0 32000 0 02306        ANA M2CON+10                                                     F3B05490    
       01023  0 10000 0 01033        TZE M22020          GO TO A                                      F3B05500    
       01024  0 34000 0 02277        CAS M2CON+3                                                      F3B05510    
       01025  1 77777 1 01344        TXI M22500,1,-1     IF 0VERFLOW                                  F3B05520    
       01026  1 77777 1 01252        TXI M22400,1,-1     IF DIV CK                                    F3B05530    
       01027  0 34000 0 02276        CAS M2CON+2                                                      F3B05540    
       01030  1 77777 1 01236        TXI M22300,1,-1     IF SENSE                                     F3B05550    
       01031  1 77777 1 01123        TXI M22200,1,-1     GO TO (A),1                                  F3B05560    
       01032  1 77777 1 01072        TXI M22100,1,-1     GO TO N (A)                                  F3B05570    
                                         TIFG0 ENTRY A GO TO A                                        F3B05580    
       01033  0 50000 0 02345 M22020 CLA TIFFN           CURRENT TIFG0 FHLA N0.                       F3B05590    
       01034  0 60100 0 02362 PAT1   STO M2CW                                                         F3B05600    
       01035  0 50000 0 02301 PAT2   CLA M2CON+5         +10,INCREHENT                                F3B05610    
       01036  0 60100 0 02360 PAT3   STO CLOC            FOR L0C WD 0F 1ST INSTR 0F TRAST0 BLOCK      F3B05620    
       01037  0 07400 4 01477 M22022 TSX M22750,4        TRAST0 LEV.N0.SEARCH                         F3B05630    
       01040  0 07400 4 01560        TSX M22800,4        CUR.TIFG0 LEV.N0.IN TRAST0                   F3B05640    
       01041 -0 53400 2 02346        LXD CTRAST,2        CUR.TIFG0 N0.NQT IN TRAST0                   F3B05630    
       01042  1 77774 2 01043 M22025 TXI M22025+1,2,-4   UP0ATE TRAST0 ENTRY P0INT                    F3B05660    
       01043  0 07400 4 01456        TSX M22700,4        TRAST0 FHLA N0 SEARCH                        F3B05670    
       01044  0 02000 0 01052        TRA M22035          TIFG0 FHLA N0.N0T AGAIN F0UND                F3B05680    
       01045  0 50000 0 02333        CLA ADDCO           TIFG0 FHLA NQ AGAIN F0UND                    F3B05600    
       01046  0 10000 0 01037        TZE M22022          TIFG0 ENTRY N0T YET F0UND IN TRAST0          F3B05700    
       01047  0 50000 0 02274        CLA M2CON           TIFG0 ENTRY ALREADY F0UND IN TRAST0          F3B05710    
       01050  0 60100 0 02362        STO M2CW            ADUUST L0CATION WORD T0 ZER0                 F3B05720    
       01051  0 02000 0 01037        TRA M22022          BACK T0 LEVEL N0. SEARCH                     F3B05730    
       01052  0 50000 0 02333 M22035 CLA ADDCO           N0. 0F TIMES TIFGQ ENTRY APPEARS IN TRAST0   F3B05740    
       01053  0 10000 0 01056        TZE M22040          TIFGQ ENTRY NEVER F0UND IN TRAST0            F3B0S730    
       01054  0 50000 0 02311        CLA M2CON+13        TIFG0 ENTRY F0UN0 IN TRAST0                  F3B05760    
       01055  0 60100 0 02362        STO M2CW            +170000000000 , NEW. L0C. WORD               F3B05770    
       01056  0 50000 1 05473 M22040 CLA TIFGO+1,1       TIFG0 BETA                                   F3B05780    
       01057  0 76700 0 00022        ALS 18              PUT INTO DECREHENT                           F3B05790    
       01060  0 60100 0 02364        STO M2CW+2          3RD WORD                                     F3B05800    
       01061  0 07400 4 02177        TSX CIT200,4                                                                 
       01062  0 00000 0 02362        HTR M2CW            17(8)                                        F3B05820    
       01063  0 00000 0 02315        HTR M2ABC           TRA                                          F3B05830    
       01064  0 00000 0 02364        HTR M2CW+2          BETA                                         F3B05840    
       01065  0 00000 0 02274        HTR M2CON           ZER0                                         F3B05850    
       01066 -0 53400 2 02347        LXD ETRAL,2         UP0ATE TRALEV ENTRY P0INT                    F3B05860    
       01067  1 77777 2 01070 M22050 TXI M22050+1,2,-1                                                F3B05870    
       01070 -0 63400 2 02347        SXD ETRAL,2         UPDATE TRALEV T0 NEXT ENTRY                  F3B05880    
       01071  1 77776 1 00503        TXI M21000,1,-2     BACK T0 TEST AGA)N.                          F3B05890    
                                         TIFG0 ENTRY A ,0 T0 N (A)                                    F3B05900    
       01072  0 50000 0 02345 M22100 CLA TIFFN           CURRENT TIFG0 ALPHA                          F3B05910    
