                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 124/124 ------           
       04472  0 40200 4 06655 LK0480 SUB SCRIPL+5,C                                                   4F14745     
       04473 -0 10000 0 04424        TNZ LK0030            SET OPKS(I))29=OPKS(I-1))35=0              4F14746     
       04474 -0 50000 0 01407        CAL L(1)              S(I) = SYM2  (S(I-1)), SO                  4F14747     
       04475 -0 60200 4 06654        ORS SCRIPL+4,C        SET OP2 (S(I-1)) 35  = 1                   4F14748     
       04476  0 02000 0 04467        TRA LK0440                                                       4F14749     
       04477 -0 75400 0 00000 LK0570 PXD 0,0               S(I) TYPE MO, OP1 (S(I-1)) = *             4F14750     
       04500  0 56000 4 06654        LDQ SCRIPL+4,C        PLACE PO2 (S(I-1)) IN MQ                   4F14751     
       04501 -0 76300 0 00006        LGL 6                 IS OP2 (S(I-1)) = *                        4F14752     
       04502  0 40200 0 01405        SUB STAR                                                         4F14753     
       04503 -0 10000 0 04424        TNZ LK0030            NO - SET OP1 (S(I)) 29 = OP1 (S(I-1)) 35 =04F14754     
       04504 -0 50000 0 01410        CAL L(2)              YES                                        4F14755     
       04505 -0 60200 4 06651        ORS SCRIPL+1,C        SET OP1(S(I-1))34=1                        4F14756     
       04506 -0 50000 1 06650 LK0630 CAL SCRIPL,A                                                     4F14757     
       04507 -0 32000 0 01452        ANA MASK2             SEARCH FOR S(I) IN S(I-1)                  4F14758     
       04510 -3 00000 2 04423 LK0650 TXL LK0000,B,0        NOT FOUND AT ALL                           4F14759     
       04511  0 34000 1 06647        CAS SCRIPL-1,A                                                   4F14760     
       04512  1 00003 1 04515        TXI LK0700,A,3                                                   4F14761     
       04513  0 02000 0 04516        TRA LK0710                                                       4F14762     
       04514  1 00003 1 04515        TXI LK0700,A,3        NOT FOUND - CONTINUE SEARCH                4F14763     
       04515  1 77775 2 04510 LK0700 TXI LK0650,B,-3                                                  4F14764     
       04516  0 56000 1 06646 LK0710 LDQ SCRIPL-2,A        S(I) IS SYMJ (S(I-1))                      4F14765     
       04517 -0 77300 0 00001        RQL 1                 IS OPJ (S(I-1)) = *                        4F14766     
       04520  0 16200 0 04522        TQP LK0750                                                       4F14767     
       04521  1 00003 1 04515        TXI LK0700,A,3        NO... CONTINUE SEARCH                      4F14768     
       04522  0 50000 4 06650 LK0750 CLA SCRIPL,C          YES...PERMUTE EL1(S(I-1)) WITH ELJ(S(I-1)) 4F14769     
       04523  0 56000 1 06645        LDQ SCRIPL-3,A        EXCHANGE                                   4F14770     
       04524  0 60100 1 06645        STO SCRIPL-3,A        TAG                                        4F14771     
       04525 -0 60000 4 06650        STQ SCRIPL,C          WORDS                                      4F14772     
       04526 -0 50000 4 06651        CAL SCRIPL+1,C        PLACE OP1 (S(I-1)) IN ACC                  4F14773     
       04527  0 56000 1 06646        LDQ SCRIPL-2,A        PLACE OPJ (S(I-1)) IN MQ                   4F14774     
       04530  0 60200 1 06646        SLW SCRIPL-2,A        EXCHANGE                                   4F14775     
       04531 -0 60000 4 06651        STQ SCRIPL+1,C        OP                                         4F14776     
       04532 -0 32000 0 01452        ANA MASK2             WORDS AND                                  4F14777     
       04533 -0 60200 4 06651        ORS SCRIPL+1,C        SET OP1(S(I-1))30-33= OPJ(S(I-1))30-33     4F14778     
       04534  0 50000 4 06652        CLA SCRIPL+2,C        THEN                                       4F14779     
       04535  0 56000 1 06647        LDQ SCRIPL-1,A        EXCHANGE                                   4F14780     
       04536  0 60100 1 06647        STO SCRIPL-1,A        SYMBOL                                     4F14781     
       04537 -0 60000 4 06652        STQ SCRIPL+2,C        WORDS                                      4F14762     
       04540 -0 53400 1 04136        LXD AS3600,A          RESTORE XA                                 4F14783     
       04541 -0 50000 0 01407 LK0900 CAL L(1)              AND                                        4F14784     
       04542  0 02000 0 04466        TRA LK0430                                                       4F14785     
       04543 -0 77300 0 00033 LK0950 RQL 27                S(I) TYPE MQ, OP1 (S(I-1)) = SPOP          4F14786     
       04544 -0 50000 1 06650        CAL SCRIPL,A                                                     4F14787     
       04545 -0 32000 0 01452        ANA MASK2             EXTRACT S(I) IN ACC                        4F14788     
       04546  0 16200 0 04555        TQP LK1050            OP1 (S(I-1)) 33 = 0 (CLOSED 5UBROUTINE)    4F14789     
       04547  3 00006 2 04424        TXH LK0030,B,6        OPEN MULTIV... SET OP1 (S(I)) 29 = 0       4F14790     
       04550  0 40200 4 06655        SUB SCRIPL+5,C        OPEN UNIV... IS S(I) = SUM2 (S(I-1))       4F14791     
       04551 -0 10000 0 04424        TNZ LK0030            N0... SET 0P1 (S(I))29 = OP2 (S(I-1))35 =0 4F14792     
       04552 -0 50000 0 01411        CAL L(3)              AND                                        4F14793     
       04553 -0 60200 4 06654        ORS SCRIPL+4,C        SET OP2 (S(I-1))34 = OP2 (S(I-1))35 = 1    4F14794     
       04554  0 02000 0 04467        TRA LK0440                                                       4F14795     
       04555 -0 77300 0 00017 LK1050 RQL 15                                                           4F14796     
       04556  0 16200 0 04560        TQP LK1100            TEST OP1(S(I-1))12                         4F14797     
       04557  0 02000 0 04424        TRA LK0030            FN-NAME                                    4F14798     
