                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 062/062 ------           
                                         CMA,EMK,BEG(TYP),VRA(VRD).                                   4F11448     
                                         (CA000 ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE   4F11449     
                                         BEEN PROCESSES. IF THERE HAVE BEEN NO PREVIOUS CALLS TO      4F11450     
                                         THE DIAGNOSTIC DURING SECTION ONE, THEN 1PRIME IS CALLED.)   4F11451     
 D     03400  1 00000 0 00004 DIAG   TXI 4,0                     * GO GET THE DIAGNOSTIC.             4F11452     
                                          END OF PROGRAM DIAG.                                        4F11453     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11454     
                                                                                                      4F11455     
                                         ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS.                4F11456     
       03401 -0 63400 4 03437 FLTR00 SXD FLTR05,4          SAVE CALLING TAG.                          4F114571    
       03402  0 50000 0 00030        CLA EIFNO             GET LAST INTERNAL AND EXTERNAL FORMULA NOS.4F114572    
       03403  0 62100 0 02067        STA ENT               PLACE LAST EFN IN DEC OF NTR INSTRUCTION.  4F114573    
       03404  0 77100 0 00022        ARS 18                                                           4F114574    
       03405  0 62100 0 02070        STA NZE               PLACE LAST IFN IN DEC OF PZE               4F114575    
       03406 -0 53400 4 01122        LXD ARGCTR,4                                                     4F114576    
       03407 -3 00000 4 03413        TXL FLTR01,4,0        IS THIS AN FN FUNCTION, NO SKIP.           4F114577    
       03410  0 60000 0 01107        STZ 1C+2                                                         4F114578    
       03411  0 50200 0 01454        CLS 2E18              SET ADDRESS TO -1                          4F114579    
       03412  0 02000 0 03423        TRA FLTR03                                                       4F11457A    
       03413  0 50000 0 00365 FLTR01 CLA SBDFCN            IS THIS A MAIN PROGRAM OR SUBPROGRAM.      4F11457B    
       03414 -0 10000 0 03420        TNZ FLTR02            SKIP ON SUBPROGRAM                         4F11457C    
       03415  0 60000 0 01107        STZ 1C+2              SET ADDRESS TO 0                           4F11457D    
       03416  0 60000 0 01110        STZ 1C+3                                                         4F11457E    
       03417  0 02000 0 03424        TRA FLTR04                                                       4F11457F    
       03420  0 50000 0 01523 FLTR02 CLA DOLSGN            SET ADDRESS TO $+2                         4F11457G    
       03421  0 60100 0 01107        STO 1C+2                                                         4F11457H    
       03422  0 50000 0 01457        CLA D2                                                           4F11457I    
       03423  0 60100 0 01110 FLTR03 STO 1C+3              SET RELATIVE ADDRESS WORD OF CIT.          4F11457J    
       03424  0 07400 4 01731 FLTR04 TSX CIT00,4                                                      4F11457K    
       03425  0 00000 0 01406        PZE L(0)              COMPILE      NTR  *+2,0,EFN                4F11457L    
       03426  0 00000 0 02067        PZE ENT                                                          4F11457M    
       03427  0 00000 0 01510        PZE 15P                                                          4F11457N    
       03430  0 00000 0 01457        PZE D2                                                           4F11457O    
       03431  0 07400 4 01731        TSX CIT00,4                                                      4F11457P    
       03432  0 00000 0 01406        PZE L(0)              COMPILE    PZE  ALPHA,0,IFN                4F11457Q    
       03433  0 00000 0 02070        PZE NZE               WHERE ALPHA IS 0 FOR MAIN PROGRAM, $+2 FOR 4F11457R    
       03434  0 00000 0 01107        PZE 1C+2              SUBPROGRAM, OR -1 FOR FN FUNCTION IN EITHER4F11457S    
       03435  0 00000 0 01110        PZE 1C+3              MAIN OR SUBPROGRAM.                        4F11457T    
       03436 -0 53400 4 03437        LXD FLTR05,4                                                     4F11457U    
 D     03437  1 00000 4 01731 FLTR05 TXI CIT00,4           GO COMPILE    LXD M(,4  OR  7(TYPE=,4      4F11457V    
                                                                                                      4F11457W    
                                                                                                      4F11458     
                                          END OF THE COMMON PART OF SECTION ONE.                      4F11459     
                                                                                                      4F11460     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11461     
                                                                                                      4F11462     
                                         SECTION 1 / INITIALIZATION =                                 4F11463     
                                         704 FORTRAN MASTER RECORD CARD / INITIZLIZATION = F0150000.  4F11464     
                        00000        ORG 0                                                            4F114641    
       00000  0 00004 0 00471        PZE FORSUB,,1TOCS                                                4F114642    
       00001  0 00000 0 00600        PZE DMWR98                                                       4F114643    
                        00471        ORG FORSUB                                                       4F11465     
                                         INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER    4F11466     
                                         BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE  4F11467     
