                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 337/341 ------           
       05760  0 76600 0 00301        WRS 193               DOTAG                                      F2513510    
       05761  0 46000 0 05064        LDA DRADS3            WORD-                                      F2513520    
       05762  0 70000 0 05251        CPY SXDTXZ            ONE                                        F2513530    
       05763  0 70000 0 05251        CPY SXDTXZ            INTO                                       F2513540    
       05764  0 50000 0 05064        CLA DRADS3            DOCAR                                      F2513550    
       05765  0 40000 0 05127        ADD L(2)              DRUM.                                      F2513560    
       05766  0 60100 0 05064        STO DRADS3            TABLE.                                     F2513570    
       05767  0 02000 0 06222        TRA RTX280                -.                                     F2513580    
       05770  0 76000 0 00140 RTX197 PSE 096               CLEAR SENSE LIGHTS.                        F2513590    
       05771  0 07400 4 04213        TSX TGFM,4            FILL OUT TAG WORDS.                        F2513600    
       05772  0 07400 4 04204        TSX ISC,4             FIND DOSUB.  .-4-=.                        F2513610    
       05773  0 07400 4 00004        TSX DIAG,4            SC N0T M0DIFIED BY CURRENT DQ.             F2313620    
       05774 -0 75400 2 00000        PXD 0,2               FORM         -- -) --4=-=U =-.             F2513630    
       05775  0 77100 0 00022        ARS 18                POSITION                                   F2513640    
       05776  0 60100 0 05240        STO POSIND            INDICAT0R.                                 F2513650    
       05777  0 07400 4 06224        TSX CILV,4            0BTAIN L0CATION FQR TEST,                  F2513660    
       06000 -0 53400 2 05230        LXD DOIND,2           IS0LATE    ).-- )-4 )-.H,                  F2513670    
       06001  0 07400 4 06620        TSX NBITS,4           N8ITS.                                     F2513680    
       06002  0 60100 0 05235        STO N1N2N3                 .                                     F2513690    
       06003  0 50000 2 01101        CLA DOTAGZ+3,2                                                   F2513700    
       06004 -0 32000 0 05104        ANA 6ONES                                                        F2513710    
       06005 -0 10000 0 06045        TNZ RTX210            N2 IS VARIABLE                             F2513720    
       06006  0 53400 1 05240        LXA POSIND,1                      -                              F2513730    
       06007 -2 00001 1 06015 RTX198 TNX RTX200,1,1        IS POSITION S3.                            F2513740    
       06010  0 50000 0 03653        CLA TAG4              CHECK FOR DORC.                            F2513750    
       06011 -0 32000 1 05152        ANA BITMSK+2,1                   -.-                             F2513760    
       06012  0 60100 0 05254        STO N1SBX             N1 BIT.                                    F2513770    
       06013  0 07400 4 04566        TSX N1S02,4                                                      F2513780    
       06014 -0 10000 0 06045        TNZ RTX210            TXL VARIABLE DECREMENT,                    F2513790    
       06015 -0 53400 1 03652 RTX200 LXD TAG3,1                             -)-.).                    F2513800    
       06016  3 00000 1 06021        TXH RTX201,1,0                                                   F2513810    
       06017  0 07400 4 04230        TSX ENTR,4            (RT N0RNAL TAG, LAY OUT SIMULATED          F2513820    
       06020  0 02000 0 06024        TRA RTX202            TAU ENTRY INTO.WRKSC.-. -.---=.4=          F2513830    
       06021  0 50000 0 03652 RTX201 CLA TAG3              PREPARE FOR                                F2513840    
       06022  0 77100 0 00022        ARS 18                (MMMO0MROUTINE.                            F2513850    
       06023  0 07400 4 04236        TSX SUBCOM,4          LAY OUT TAU ENTRY.                         F2513860    
       06024 -0 53400 2 05230 RTX202 LXD DOIND,2           PREPARE FOR AND CALL CXIJ                  F2513870    
       06025  0 53400 1 05240        LXA POSIND,1          ROUTINE T0 COMPUTE XGN3.-                  F2513880    
       06026  0 50000 2 01101        CLA DOTAGZ+3,2        PTCH06 CALLS TELC ROUTINE                  F2513890    
       06027  0 07400 4 04451        TSX CXIJ+2,4                                                     F2513900    
       06030 -2 00001 1 06033        TNX RTX204,1,1                                                   F2513910    
       06031  0 07400 4 04410        TSX TELC+2,4          COMPUTES LOAD VALUE FOR                    F2513920    
       06032  0 50000 0 05245        CLA ERTX01            DEC, STORES IN ERTX01.                     F2513930    
       06033  0 60100 0 05177 RTX204 STO CIL01             FINAL TXL DECREHENT.                       F2513940    
       06034 -0 50000 0 05047        CAL L(TXL)                                                       F2513950    
       06035 -0 60200 0 05177        ORS CIL01                                                        F2513960    
       06036  0 07400 4 06634        TSX CILNAM,4          ENTER TAG NAHE IN CIL03.                   F2513970    
       06037  0 50000 0 05224        CLA A                 ALPHA PLUS ONE IS                          F2513980    
       06040  0 40000 0 05061        ADD L1DEC             ENTERED AS THE SYMB0LIC                    F2513990    
       06041  0 60100 0 05200        STO CIL02             ADDRESS.              -                    F2514000    
       06042  0 07400 4 04345        TSX CIT,4             ENTER TXL IN BUFFER,                       F2514010    
       06043  0 50000 0 05133        CLA L(0)              ELIMINATE VARIABLE INDICAT0R BIT.          F2514020    
       06044  0 02000 0 06055        TRA RTX214                                                       F2514030    
       06045  0 50000 0 05047 RTX210 CLA L(TXL)            COMPILE INSTRUCTION FOR VARIABLE DECREMENT.F2514040    
