                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 326/330 ------           
       04653 -0 75400 1 00000 FC50   PXD 0,1               PLACE NAME-OF C0NSTANT                     F2507560    
       04654  0 77100 0 00022        ARS 18                IN ACCUMULAT0R,-RESTORE X REGISTERS,       F2507570    
       04655 -0 50100 0 05101        ORA BCD2              AND RETURN-. -. ------. .).*,H-H*=-H)      F2507580    
       04656 -0 53400 1 04634        LXD FC29,1            T0                                         F2507590    
       04657 -0 53400 2 04624        LXD FC18,2            MAIN                                       F2507600    
       04660 -0 53400 4 04636        LXD FC34,4                                                       F2507610    
       04661  0 02000 4 00001        TRA 1,4               ROUTINE.                                   F2507620    
       04662  0 50000 0 05241 FC60   CLA CPYWD1            TEST DRUM READING                          F2507630    
       04663  0 40200 0 05242        SUB CPYWD2                       .------)                        F2507640    
       04664  0 10000 0 04653        TZE FC50              DRUM READ C0RRECTLY.                       F2507650    
       04665  2 00001 4 04606        TIX FC02,4,1          RETURN FOR 1ST-PASS.                       F2507660    
       04666  0 07400 4 00004 ST0PFC TSX DIAG,4            DRUM 4 READING ERROR 5 TIMES.              F2507670    
       04667  0 00000 0 00002 0RIGIN HTR 2                         . ..--..-=-=,-.)-U4-,,             F2507680    
                                         *************************************************************F2507690    
                                         0P2 IS CALLED BY THE ALPHA STATE T0 TEST FOR 0PTIMIZATION IN-F2507700    
                                         THE C0MILATION OF LOAD VALUE COMPUTATION.  IT 0PTIMIZES-WHEN F2507710    
       04670  0 50000 4 77776 0P2    CLA 32766,4 0 0R IS COMPUTABLE HT EXECUTIVE TIME.                F2507720    
       04671  0 62100 0 04740        STA RETURN            LINKAGE. )                                 F2507730    
       04672  0 50000 1 03652        CLA TAG2+3,1          IF S IS N0T                                F2507750    
       04673 -0 73400 2 00000        PDX 0,2               DEFINED BY)A DO,                           F2507760    
       04674  3 00000 2 04676        TXH 0P2P,2,0                       ...                           F2507770    
       04675  0 02000 4 00001        TRA 1,4                                                          F2507780    
       04676  0 50000 2 01100 0P2P   CLA DOTAGZ+2,2        IF N0T DEFINED BY                          F2507790    
       04677 -0 32000 0 05104        ANA 6ONES                       . -- .-                          F2507800    
       04700 -0 10000 4 00001        TNZ 1,4               RETURN T0 MAIN ROUTINE.                    F2507810    
       04701  0 50000 2 01100        CLA DOTAGZ+2,2        IF C0NSTANT,.COMPUTE=-.                    F2507820    
       04702  0 07400 4 04423        TSX CN1IJ,4                        .   .).-                      F2507830    
       04703  0 10000 0 04740        TZE RETURN            RETURN AND C0NSIDER S2.                    F2507840    
       04704  0 76700 0 00022        ALS 18                0THERWISE-COMPUTE-= =..                    F2507850    
       04705 -3 00002 1 04707        TXL 0P2P1,1,2                       ..-                          F2507860    
       04706  0 40000 0 05061        ADD L1DEC             T0 (CN1-1).                                F2507870    
       04707  0 07400 4 04601 0P2P1  TSX FIXC0N,4                - .-.                                F2507880    
       04710 -3 00002 1 04713        TXL 0P2P2,1,2                                                    F2507890    
       04711  0 60100 0 07567        STO OR000+1                                                      F2507900    
       04712  2 00001 1 05517        TIX AC050,1,1                                                    FI7Y7910    
       04713  0 73400 1 00000 0P2P2  PAX 0,1                                                          F2507920    
       04714 -0 32000 0 05104        ANA 6ONES             ASSIGN FIXC0N SYMR0L                       F2507930    
       04715  0 60100 0 05200        STO CIL02             CHECK SUBSCRIPT.-IF-.                      F2507940    
       04716 -0 75400 1 00000        PXD 0,1               S1, TRA RETURN)(3RD)   0THERWISE           F2507930    
       04717  0 60100 0 05201        STO CIL03             COMPILE ADD L(SYMB0LI. -)--==..-           F2507960    
       04720  0 50000 0 05054        CLA L(ADD)            ST0 1)+3.    --.-=---.                     F2507970    
       04721  0 60100 0 05177        STO CIL01                                                        F2507980    
       04722  0 50000 0 05133        CLA L(0)                                                         F2507990    
       04723  0 60100 0 05176        STO CIL00                                                        F2508000    
       04724 -0 53400 1 05173        LXD BB0X,1                                                       F2508010    
       04725  1 00004 1 04726        TXI 0P24,1,4                                                     F2508020    
       04726 -0 63400 1 05173 0P24   SXD BB0X,1                                                       F2508030    
       04727  0 07400 4 04345        TSX CIT,4                                                        F2508040    
       04730  0 50000 0 05044        CLA L(STO)                                                       F2508050    
       04731  0 60100 0 05177        STO CIL01                                                        F2508060    
       04732  0 50000 0 05075        CLA L3DEC                                                        F2508070    
       04733  0 60100 0 05201        STO CIL03                                                        F2508080    
       04734  0 50000 0 07620        CLA OR000+26                                                     F2508090    
       04735 -0 32000 0 05104        ANA 6ONES                                                        F2508100    
