                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 073/073 ------           
       04136  0 07400 2 01655        TSX C0180,2                 * EQUIVALENT OF BETA 2,              4F12005     
       04137  0 07400 4 03271        TSX TESTD0,4                * WHICH SHOULD BE FOLLOWED BY ENDMK. 4F12006     
       04140  0 50000 0 01112        CLA 1G                        BRING UP AND                       4F12007     
       04141  0 62100 0 01106        STA 1C+1                      STORE BETA2 IN ADDR OF 1C+1.       4F12008     
       04142  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12009     
       04143  0 00000 0 01107        PZE 1C+2                      WORD1--DECR = INTFORMNO (LOCATION) 4F12010     
       04144  0 00000 0 01116        PZE 2H                        WORD2--PSE,MSE,DCT,TOV,OR TQO.     4F12011     
       04145  0 00000 0 01406        PZE L(0)                      WORD3--000000 (ADDRESS)            4F12012     
       04146  0 00000 0 01110        PZE 1C+3                      WORD4--DECR=SS OR SL NO., OR 0000004F12013     
 D     04147  1 00000 0 04030        TXI C0202,0                 * MAKE TIFGO ENTRY, AND RETURN TO CA.4F12014     
                                          END OF PROGRAM C0400.                                       4F12015     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12016     
                                                                                                      4F12017     
                                         C0500/ USES=C0400.                                           4F12018     
                                         C0500 PROCESSES IF (SENSE LIGHT STATMENTS.                   4F12019     
       04150  0 50000 0 01440 C0500  CLA L(96)                     STORE 96 IN                        4F12020     
       04151  0 60100 0 01115        STO 1H                        1H AND                             4F12021     
       04152  0 50000 0 01563        CLA L(MSE)                    OBTAIN (MSE000) IN ACC.            4F12022     
       04153  0 02000 0 04111        TRA C0401                   * AND CONTINUE BY USING PROGRAM C04. 4F12023     
                                          END OF PROGRAM C0500.                                       4F12024     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12025     
                                                                                                      4F12026     
                                         C0600/ USES=C0400.                                           4F12027     
                                         C0600 PROCESSES IF DIVIDE CHECK STATEMENTS.                  4F12028     
       04154  0 50000 0 01545 C0600  CLA L(DCT)                    STORE (DCT000)                     4F12029     
       04155  0 60100 0 01116        STO 2H                        IN 2H                              4F12030     
       04156  0 50000 0 01412        CLA L(4)                      AND PICK UP 4 TO SET 1C.           4F12031     
                                         C0601= ENTRY POINT USED BY C0700.                            4F12032     
       04157  0 60100 0 01105 C0601  STO 1C                        SET 1C FOR FUTURE TIFGO ENTRY.     4F12033     
       04160 -0 75400 0 00000        PXD ,0                        CLEAR THE AC,                      4F12034     
       04161  0 02000 0 04122        TRA C0402                   * AND CONTINUE BY USING PROGRAM C04. 4F12035     
                                          END OF PROGRAM C0600.                                       4F12036     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12037     
                                                                                                      4F12038     
                                         C0700/ USES C0600.                                           4F12039     
                                         C0700 PROCESSES IF AC OVERFLOW STATEMENTS.                   4F12040     
       04162  0 50000 0 01577 C0700  CLA L(TOV)                    PICKUP TOV000 TO SET 2H.           4F12041     
                                         C0701= ENTRY POINT USED BY C0800.                            4F12042     
       04163  0 60100 0 01116 C0701  STO 2H                        SET 2H FOR FUTURE CIT ENTRY.       4F12043     
       04164  0 50000 0 01413        CLA L(5)                      PICKUP 5 TO SET 1C, AND            4F12044     
       04165  0 02000 0 04157        TRA C0601                   * CONTINUE BY USING PROGRAM C06.     4F12045     
                                          END OF PROGRAM C0700.                                       4F12046     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12047     
                                                                                                      4F12048     
                                         C0800/ USES=C0700.                                           4F12049     
                                         C0800 PROCESSES IF MQ OVERFLOW STATEMENTS.                   4F12050     
       04166  0 50000 0 01600 C0800  CLA L(TQO)                    PICKUP TQO000 TO SET 2H,           4F12051     
       04167  0 02000 0 04163        TRA C0701                   * AND CONTINUE BY USING PROGRAM C07. 4F12052     
                                          END OF PROGRAM C0800.                                       4F12053     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12054     
                                                                                                      4F12055     
                                         C0900/ CALLS=C0190,CIT00,DIAG. CALLER=C1300.                 4F12056     
                                         C0900 PROCESSES PAUSE STATEMENTS.                            4F12057     
       04170 -0 53400 2 04175 C0900  LXD C090X,2                   SET XR2 FOR EXIT TO CA000.         4F12058     
