                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 091/091 ------           
       05524  0 07400 4 05754        TSX ETMSW,4                * IF ETMSW = NOP, COMPILE ETM, SL=0.  4F12975     
       05525  0 07400 4 01731        TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12976     
       05526  0 00000 0 01406        PZE L(0)                     WORD1--000000                       4F12977     
       05527  0 00000 0 01546        PZE DED                      WORD2--DED000                       4F12978     
       05530  0 00000 0 01406        PZE L(0)                     WORD3--000000                       4F12979     
       05531  0 00000 0 01416        PZE ST                       WORD4--000008                       4F12980     
 D     05532  1 00000 0 05537        TXI CMA5,0                   IF THE PRODUCT OF DIMENSIONS IS     4F12981     
       05533  0 07400 1 05773 NODIM  TSX IFFIX,1                * LESS THAN 2, TEST TYPE OF VARIABLE, 4F12982     
 D     05534  1 00000 0 05537        TXI CMA5,0                   AND IF FIXED POINT,                 4F12983     
       05535  0 07400 1 03321        TSX TET00,1                * GO ENTER VARIABLE IN                4F12984     
       05536  0 00000 0 00000 INOUT  PZE **                       EITHER FORVAL OR FORVAR TABLE.      4F12985     
       05537  0 07400 4 01731 CMA5   TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F12986     
       05540  0 00000 0 01367        PZE SL                       WORD1--0(IFN)000 OR 000000          4F12987     
       05541  0 00000 0 07401        PZE OP                       WORD2--NTR000 OR CPY000             4F12988     
       05542  0 00000 0 07403        PZE SA                       WORD3--(SYMBOL)                     4F12989     
       05543  0 00000 0 07402        PZE RA                       WORD4--(RELATIVE ADDRESS)           4F12990     
       05544  0 60000 0 01367        STZ SL                       CLEAR SL, AND                       4F12991     
       05545  0 60000 0 01351        STZ GTAG                     CLEAR GTAG. THEN TAKE EXIT          4F12992     
 D     05546  1 00000 0 05147 CMA3   TXI NXS,0                  * SWITCH TO RPT OR NXS,               4F12993     
                                         END OF                   PROGRAM CMA.                        4F12994     
                                         *******                     ***********************          4F12995     
                                                                                                      4F12996     
                                         EMK/ CALLS=DIAG,LTMSW,JIF,CIT,LIB,TET00, USES=CMA,           4F12997     
                                         EMK = ENTRY POINT WHEN AN ENDMARK IS MET IN LIST SCAN.       4F12998     
       05547  3 00006 2 05414 EMK    TXH CMA1,2,6               * IF NO CHARACTERS REMAIN, THEN       4F12999     
       05550 -0 53400 4 07400        LXD DOLEV,4                  CHECK THE NUMBER OF PARENTHESES.    4F13000     
       05551 -3 00000 4 05553        TXL FIN,4,0                  IF THERE ARE TOO MANY LPARENS,      4F13001     
       05552  0 07400 4 03400        TSX DIAG,4                 * GO TO THE DIAGNOSTIC OTHERWISE,     4F13002     
       05553  0 07400 4 05757 FIN    TSX LTMSW,4                * IF LTMSW = NOP, COMPILE LTM. SL=0.  4F13003     
       05554  0 07400 4 02372        TSX JIF,4                  * GO JUMP IFN, AND SET SL AND TL.     4F13004     
                                         LAST = ENTRY POINT SET BY BXT SWITCH.                        4F13005     
       05555  0 07400 4 01731 LAST   TSX CIT,4                  * GO MAKE THE FOLLOWING CIT ENTRY=    4F13006     
       05556  0 00000 0 01367        PZE SL                       WORD1--0(IFN)000                    4F13007     
       05557  0 00000 0 01537        PZE CAL                      WORD2--CAL000                       4F13008     
       05560  0 00000 0 01510        PZE 15P                      WORD3--*00000                       4F13009     
       05561  0 00000 0 01406        PZE L(0)                     WORD4--000000                       4F13010     
       05562  0 07400 4 06023        TSX LIB,4                  * MAKE CLOSUB ENTRY, AND COMPILE=     4F13011     
       05563  0 00000 0 01406        PZE L(0)                     WORD1--000000                       4F13012     
       05564  0 00000 0 06125        PZE XIT                      WORD2--XIT000                       4F13013     
       05565  0 00000 0 06141        PZE END                      WORD3--(RTN) OR (FIL)               4F13014     
       05566  0 00000 0 01406        PZE L(0)                     WORD4--000000                       4F13015     
                                         FINI = ENTRY POINT USED BY EFT.                              4F13016     
       05567  0 50000 0 05376 FINI   CLA RESET                    RESET BXT SWITCH                    4F13017     
       05570  0 62100 0 04744        STA BXT                      TO RSC.                             4F13018     
       05571  0 50000 0 01151        CLA F-1                      TEST FOR AN EXTERNAL                4F13019     
       05572  0 40200 0 01477        SUB 5BLANS                   STATEMENT NUMBER, AND IF NONE,      4F13020     
       05573  0 10000 0 03440        TZE CA010                  * EXIT TO PROCESS NEXT STATEMENT.     4F13021     
       05574 -0 50000 0 01520        CAL MINUS0                   OTHERWISE, SET THE SIGN             4F13022     
       05575 -0 60200 0 00030        ORS EIFNO                    OF EIFNO TO MINUS, AND              4F13023     
       05576  0 07400 1 03321        TSX TET00,1                * GO ENTER -(EIFNO)                   4F13024     
       05577  0 00000 0 00000        PZE 0                        IN THE TEIFNO TABLE.                4F13025     
       05600 -0 50000 0 00030        CAL EIFNO                    THEN RESTORE                        4F13026     
       05601  0 60100 0 00030        STO EIFNO                    EIFNO, AND                          4F13027     
 D     05602  1 00000 0 03440        TXI CA010,0                * EXIT TO PROCESS NEXT STATEMENT.     4F13028     
