                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 072/072 ------           
 D     04057  1 00000 0 04061        TXI C0303,0                   THEN ADD 1 TO PAREN COUNT, AND     4F11951     
       04060  1 00001 2 04052        TXI C0302,2,1                 GO EXAMINE NEXT CHARACTER.         4F11952     
       04061  0 40200 0 01377 C0303  SUB ARPAR                     IF IT IS A RPAREN,                 4F11953     
       04062 -0 10000 0 04052        TNZ C0302                     THE TEST PAREN COUNT, AND IF IT    4F11954     
       04063  2 00001 2 04052        TIX C0302,2,1                 CAN NOT BE REDUCED,MATE IS FOUND.  4F11955     
       04064  0 56000 0 01374        LDQ ENDMK                     SO REPLACE THE CHARACTER RPAREN    4F11956     
       04065  0 07400 4 01675        TSX C0390,4                 * WITH THE CHARACTER ENDMK.          4F11957     
       04066  0 07400 2 01655        TSX C0180,2                 * BINARY EQUIVALENT OF BETA 1.       4F11958     
       04067  0 07400 4 03305        TSX TESTG0,4                * THIS SHOULD BE FOLLOWED BY A COMMA.4F11959     
       04070  0 50000 0 01112        CLA 1G                        MOVE BETA1                         4F11960     
       04071  0 62100 0 01105        STA 1C                        TO ADDRESS OF 1C.                  4F11961     
       04072  0 07400 4 01707        TSX C0190,4                 * AND PROCEED TO FORM                4F11962     
       04073  0 07400 2 01655        TSX C0180,2                 * THE BINARY EQUIVALENT OF BETA 2.   4F11963     
       04074  0 07400 4 03305        TSX TESTG0,4                * THIS SHOULD BE FOLLWED BY A COMMA. 4F11964     
       04075  0 50000 0 01112        CLA 1G                        MOVE BETA2                         4F11965     
       04076  0 76700 0 00022        ALS 18                        TO DECR PART                       4F11966     
       04077  0 60100 0 01106        STO 1C+1                      OF 1C+1.                           4F11967     
       04100  0 07400 4 01707        TSX C0190,4                 * AND PROCEED TO FORM                4F11968     
       04101  0 07400 2 01655        TSX C0180,2                 * THE BINARY EQUIVALENT OF BETA 3.   4F11969     
       04102  0 07400 4 03271        TSX TESTD0,4                * THIS SHOULD BE FOLLOWED BY ENDMARK.4F11970     
       04103  0 50000 0 01112        CLA 1G                        MOVE BETA3                         4F11971     
       04104  0 62100 0 01106        STA 1C+1                      TO ADDRESS OF 1C+1.                4F11972     
 D     04105  1 00000 0 02404        TXI ARITH,0                 * EXIT TO ARITH FOR FINAL PROCESSING.4F11973     
                                          END OF PROGRAM C0300.                                       4F11974     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11975     
                                                                                                      4F11976     
                                         C0400/ CALLS=C0190,C0180,TEST..,CIT00,C0200.                 4F11977     
                                         C0400 PROCESSES IF (SENSE SWITCH STATEMENTS.                 4F11978     
       04106  0 50000 0 01441 C0400  CLA L(112)                    FOR SENSE SWITCH                   4F11979     
       04107  0 60100 0 01115        STO 1H                        SET 1H TO 112, AND PREPARE TO      4F11980     
       04110  0 50000 0 01565        CLA L(PSE)                    SET 2H TO PSE.                     4F11981     
                                         C0401= ENTRY POINT USED BY C0500.                            4F11982     
       04111  0 60100 0 01116 C0401  STO 2H                        SET 2H FOR SENSE SWITCH OR LIGHT.  4F11983     
       04112  0 07400 4 01707        TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F11984     
       04113  0 07400 2 01655        TSX C0180,2                 * EQUIVALENT OF SW OR SL NUMBER.     4F11985     
       04114  0 07400 4 03301        TSX TESTF0,4                * THIS SHOULD BE FOLLOWED BY RPAREN. 4F11986     
       04115  0 50000 0 01411        CLA L(3)                      STORE 3                            4F11987     
       04116  0 60100 0 01105        STO 1C                        IN ADDRESS OF 1C.                  4F11988     
       04117  0 50000 0 01112        CLA 1G                        ADD THE PROPER INCREMENT TO THE    4F11989     
       04120  0 40000 0 01115        ADD 1H                        NUMBER OF SENSE SWITCH OR LIGHT,   4F11990     
       04121  0 76700 0 00022        ALS 18                        AND ADJUST TO THE DECREMENT.       4F11991     
                                         C0402= ENTRY POINT USED BY C0600.                            4F11992     
       04122  0 60100 0 01110 C0402  STO 1C+3                      SET 1C+3 FOR CIT ENTRY.            4F11993     
       04123 -0 53400 4 00030        LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F11994     
       04124 -0 75400 4 00000        PXD ,4                        NUMBER IN THE DECREMENT OF         4F11995     
       04125  0 62200 0 01105        STD 1C                         1C FOR FUTURE TIFGO ENTRY, AND    4F11996     
       04126  0 60100 0 01107        STO 1C+2                      1C+2 FOR FUTURE CIT ENTRY.         4F11997     
       04127  0 07400 4 01707        TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F11998     
       04130  0 07400 2 01655        TSX C0180,2                 * EQUIVALENT OF BETA 1,              4F11999     
       04131  0 07400 4 03305        TSX TESTG0,4                * WHICH SHOULD BE FOLLOWED BY COMMA. 4F12000     
       04132  0 50000 0 01112        CLA 1G                        BRING UP,                          4F12001     
       04133  0 76700 0 00022        ALS 18                        ADJUST AND                         4F12002     
       04134  0 60100 0 01106        STO 1C+1                      STORE BETA1 IN DECR OF 1C+1.       4F12003     
       04135  0 07400 4 01707        TSX C0190,4                 * PROCEED TO FORM THE BINARY         4F12004     
