                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 080/080 ------           
                                                                                                      4F12380     
                                         C3300/ CALLS=C0390,C0190X,C0190,TEST..,ARITH,SUBX00.         4F12381     
                                         C3300 PROCESSES CALL STATEMENTS.                             4F12382     
       04607  0 07400 4 01707 C3300  TSX C0190,4                 * IF 1ST CHARACTER OF NAME IS        4F12383     
       04610  0 07400 4 03311        TSX TESTH0,4                * NUMERIC, THEN GO TO THE DIAGNOSTIC.4F12384     
       04611  0 07400 2 01624        TSX C0160,2                 * COLLECT THE REST OF THE NAME, WHICH4F12385     
       04612  0 07400 4 03263        TSX TESTC0,4                * SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386     
       04613  0 10000 0 04632        TZE C3301                     IF LPAREN, THEN CHANGE CALL TO A   4F12387     
       04614  0 07400 4 01671        TSX C0190X,4                * PSEUDO-ARITHMETIC FORMULA (Z10=).  4F12388     
       04615  0 07400 4 01707        TSX C0190,4                 * PICKUP THE CHARACTER C,            4F12389     
       04616  0 56000 0 01434        LDQ L(Z)                      AND                                4F12390     
       04617  0 07400 4 01675        TSX C0390,4                 * REPLACE C WITH Z.                  4F12391     
       04620  0 56000 0 01373        LDQ L(10)                     AND                                4F12392     
       04621  0 07400 4 01675        TSX C0390,4                 * REPLACE A WITH TEN.                4F12393     
       04622  0 56000 0 01400        LDQ EQUAL                     AND                                4F12394     
       04623  0 07400 4 01675        TSX C0390,4                 * REPLACE FIRST L WITH =.            4F12395     
       04624  0 56000 0 01430        LDQ BLANK                     AND                                4F12396     
       04625  0 07400 4 01675        TSX C0390,4                 * REPLACE SECOND L WITH BLANK.       4F12397     
       04626  0 50000 0 00030        CLA EIFNO                     PUT 1ST IFN OF THIS CAL IN CALLNM  4F12398     
       04627  0 77100 0 00022        ARS 18                        FOR LATER TABLE ENTRY FO           4F12399     
       04630  0 62100 0 01123        STA CALLNM                    FIRST / LAST NUMBERS OF CALLS.     4F12400     
 D     04631  1 00000 0 02404        TXI ARITH,0                 * THEN EXIT TO ARITH TO PROCESS.     4F12401     
       04632  0 07400 4 03224 C3301  TSX SUBX00,4                * IF THERE ARE NO ARGUMENTS, THEN    4F12402     
       04633  0 50000 0 01112        CLA 1G                        AFTER COMPLETING NAME WITH BLANKS, 4F12403     
       04634  0 60100 0 01347        STO G                         MOVE IT INTO G, AND                4F12404     
       04635  0 07400 1 03321        TSX TET00,1                 * GO ENTER NAME                      4F12405     
       04636  0 00000 0 00011        PZE 9                         INTO CLOSUB TABLE.                 4F12406     
       04637  0 07400 4 02366        TSX GETIFN,4                * PUT INTERNAL FORMULA NUMBER IN 1C. 4F12407     
       04640  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12408     
       04641  0 00000 0 01105        PZE 1C                        WORD1--0(IFN)000                   4F12409     
       04642  0 00000 0 01575        PZE L(SXD)                    WORD2--SXD000                      4F12410     
       04643  0 00000 0 01505        PZE X(                        WORD3--700000                      4F12411     
       04644  0 00000 0 01412        PZE L(4)                      WORD4--000004                      4F12412     
       04645  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12413     
       04646  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12414     
       04647  0 00000 0 01602        PZE L(TSX)                    WORD2--TSX000                      4F12415     
       04650  0 00000 0 01112        PZE 1G                        WORD3--(NAME)                      4F12416     
       04651  0 00000 0 01412        PZE L(4)                      WORD4--000004                      4F12417     
       04652  0 07400 4 03401        TSX FLTR00,4                * GO MAKE FLOW TRACING INSTRUCTIONS. 4F12418     
       04653  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F12419     
       04654  0 00000 0 01561        PZE L(LXD)                    WORD2--LXD000                      4F12420     
       04655  0 00000 0 01505        PZE X(                        WORD3--700000                      4F12421     
       04656  0 00000 0 01412        PZE L(4)                      WORD4--000004                      4F12422     
 D     04657  1 00000 0 03440        TXI CA010,0                 * EXIT TO PROCESS NEXT STATEMENT.    4F12423     
                                          END OF PROGRAM C3300.                                       4F12424     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12425     
                                                                                                      4F12426     
                                         C3400/ CALLS=C0190,DIAG,TEST...                              4F12427     
                                         C3400 PROCESSES END STATEMENTS.                              4F12428     
       04660  0 53400 2 01413 C3400  LXA L(5),2                    PREPARE TO SET 5 SS SIMULATORS.    4F12429     
       04661  0 07400 4 01707 C3405  TSX C0190,4                 * PICKUP CONSTANT,                   4F12430     
       04662  0 34000 0 01410        CAS L(2)                      WHICH SHOULD BE 0,1, OR 2.         4F12431     
       04663  0 07400 4 03400        TSX DIAG,4                  * OTHERWISE, GO TO THE DIAGNOSTIC.   4F12432     
 D     04664  1 00000 0 04666        TXI C3410,0                   SIMULATOR IS PRESET TO 2.          4F12433     
