                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 081/081 ------           
       04665  0 60100 2 00036        STO ENDI1+5,2                 IF 0 OR 1, SET PROPER SIMULATOR.   4F12434     
       04666  0 07400 4 01707 C3410  TSX C0190,4                 * SKIP NEXT NON-BLANK CHARACTER, AND 4F12435     
       04667  2 00001 2 04661        TIX C3405,2,1                 REPEAT PROCESS FOR 5 CONSTANTS.    4F12436     
       04670  0 07400 4 01707        TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER,  4F12437     
       04671  0 07400 4 03271        TSX TESTD0,4                * WHICH SHOULD BE AN ENDMK.          4F12438     
 D     04672  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12439     
                                          END OF PROGRAM C3400.                                       4F12440     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12441     
                                                                                                      4F12442     
                                         STATEA/3-PROCESS INPUT-OUTPUT STATEMENTS=                    4F12443     
                                                                                                      4F12444     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12445     
                                                                                                      4F12446     
                                         RDC/ CALLS=INPUT,BEG,DIAG,ETMSW,LIB,CIT,JIF.                 4F12447     
                                         RDC PROCESSES READ STATEMENTS.                               4F12448     
       04673  0 50000 0 01437 RDC    CLA A81                       SET THE ADDRESS FIELD OF           4F12449     
       04674  0 62100 0 02067        STA ENT                       ENT (NTR000) TO 81.                4F12450     
       04675  0 07400 2 06002        TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12451     
       04676  0 50000 0 06127        CLA CSH                       PICKUP (CSH) TO                    4F12452     
                                         TSC= ENTRY POINT USED BY RIT.                                4F12453     
       04677  0 60100 0 06143 TSC    STO TSA                       SET TSA.                           4F12454     
       04700 -0 50000 0 06133        CAL RTN                       MOVE (RTN)                         4F12455     
       04701  0 60200 0 06141        SLW END                       INTO END.                          4F12456     
       04702  0 50000 0 06130        CLA DBC                       PICKUP (DBC) TO                    4F12457     
                                         TTC= ENTRY POINT USED BY RDP.                                4F12458     
       04703  0 60100 0 06144 TTC    STO TTA                       SET TTA.                           4F12459     
       04704  0 07400 4 05603        TSX BEG,4                   * CONVERT CONSTANT FORMULA NUMBER.   4F12460     
       04705  0 07400 4 03400        TSX DIAG,4                  * ATTEMPT TO USE VARIABLE FORMAT NO. 4F12461     
       04706 -0 10000 4 00004        TNZ 4,4                       GO TO THE DIAGNOSTIC, IF THERE WAS 4F12462     
       04707  0 07400 4 03400        TSX DIAG,4                  * NO FORMAT NUMBER GIVEN.            4F12463     
       04710  0 62100 0 01416        STA ST                        MOVE BINARY FORMAT NUMBER INTO SET.4F12464     
       04711 -0 50000 0 06114        CAL NTR                       MOVE NTR000                        4F12465     
       04712  0 60200 0 07401        SLW OP                        INTO OP.                           4F12466     
       04713 -0 50000 0 00415        CAL TXLOP                     SET OP-SWITCHES.                   4F12467     
       04714  0 63000 0 05754        STP ETMSW                     ETMSW AND LTMSW,                   4F12468     
       04715  0 63000 0 05757        STP LTMSW                     TO NO TRANSFER CASE.               4F12469     
       04716  0 07400 4 05754        TSX ETMSW,4                 * GO COMPILE ETM.                    4F12470     
       04717  0 07400 4 06023        TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F12471     
       04720  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12472     
       04721  0 00000 0 01537        PZE CAL                       WORD2--CAL000                      4F12473     
       04722  0 00000 0 06144        PZE TTA                       WORD3--(DBC) OR (BDC)              4F12474     
       04723  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12475     
       04724  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12476     
       04725  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12477     
       04726  0 00000 0 06120        PZE SLW                       WORD2--SLW000                      4F12478     
       04727  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F12479     
       04730  0 00000 0 01454        PZE D1                        WORD4--001000                      4F12480     
       04731  0 07400 4 06023        TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F12481     
       04732  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12482     
       04733  0 00000 0 01537        PZE CAL                       WORD2--CAL000                      4F12483     
       04734  0 00000 0 06143        PZE TSA                       WORD3--(CSH) OR (TSH)              4F12484     
       04735  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12485     
       04736  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12486     
       04737  0 00000 0 01371        PZE TL                        WORD1--0(IFN)0(248)                4F12487     
