                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 312/316 ------           
                                         FORTRAN 2*****BLOCK 5 OF SECTION 2***************************F2500000    
                                         BLOCK 5 OF SECTION 2 USES INFORMATION GENERATED BY BLOCKS    F2500030    
                                         1,2, AND 3 T0 COMPILE ALL DO LOOP INDEXING INSTRUCTIONS.S    F2500040    
                                         DECREMENTS ARE COMPUTED, AND WHEN NECESSARY 0PEN SUBROUTINES F2500050    
                                         ARE COMPILED T0 COMPUTE THESE DECREMENTS AT 0BJECT PROGRAM4- F2500060    
                                         TIME.  AT THE END OF BLOCK 5 THESE INSTRUCTIONS-ARE.0N=TAPE  F2500070    
                                         3 IN SEMI-INVERTED ORDER.  BLOCK 6 INVERTS THE DOFILE.INTOT)TF2S00080    
                                         PROPER ORDER ONTO TAPE 4                       .  )---.H-...-F2500090    
                                                                                                      F2500100    
                                                                                                      F2500110    
                                            MASTER RECORD CARD = FN047                                F2500120    
                                         BEGIN INITIALIZATION                                         F2500130    
                                         THE INITIALIZATION RECORD IS THE FIRST RECORD 0B BLOCK 5 READF2500140    
                                         IN BY M0NIT0R.  IT POSITIONS THE INPUT TAPES 2 AND-4-AND =*4=F2300130    
                                         REWINDS THE OUTPUT TAPE 3.IT READS THE NEXT RECORD (THE=ALPHAF2300160    
                                         STATE) INTO CORES THEN WRITES IT 0N DRUM 2.  THEN-IT)READS==4F2500170    
                                         IN THE NEXT RECORD(COMMON + THE 8ETA STATE), AND.WRITES-THE BF2500180    
                                         BETA STATE 0N DRUM 1.  IT READS THE ADTAG TABLE FR0M)DRUM=2 IF2500190    
                                         FIXC0N IS CHECKED8 AND INITIALIZED IF NECESSARY. IF-THERE AREF2500200    
                                         ANY DOS C0NTR0L IS PASSED T0 HAN.  IF THERE ARE-N0)DOS=THE4NEF2500210    
                                         NEXT RECORD, WHICH IS BLOCK 6, IS READ IN.         .-- )=4 ==F2500220    
                        00030        ORG 24                                                           F2500230    
       00030  0 53400 1 00131 AINIT  LXA L5,1              INITIALIZE ERROR COUNTER,                  F2500240    
       00031  0 76400 0 00222        BST 146               POSITION TAPE 2         .                  F2500250    
       00032  0 76400 0 00222        BST 146               T0 READ DOTAG                              F2500260    
       00033  0 76200 0 00222  A1    RDS 146                                                          F2500270    
       00034  0 70000 0 00124        CPY CPYWD3            00 TAG REC COUNT                           F2500280    
       00035  0 70000 0 00124        CPY CPYWD3            DO TAG REC COUNT                           F2500290    
       00036  0 76600 0 00333        WRS 219                                                          F2500300    
       00037 -0 76000 0 00012        RTT                                                              F2500310    
       00040  0 02000 0 00056        TRA A3I               ERROR                                      F2500320    
       00041 -0 53400 1 00124        LXD CPYWD3,1                                                     F2500330    
       00042 -3 00000 1 00044        TXL A2,1,0                                                       F2500340    
       00043  1 00002 1 00044        TXI A2,1,2                                                       F2500350    
       00044  0 76400 0 00222  A2    BST 146               BACKSPACE T0 BEGINNING                     F2500360    
       00045  2 00001 1 00044        TIX A2,1,1            OF DOTAG RECORDS                           F2500370    
       00046  0 77200 0 00223        REW 147               REWIND OUTPUT TAPE                         F2511II0    
       00047  0 77200 0 00224        REW 148               REWIND TAGTAG TAPE                         F2500390    
       00050  0 76200 0 00224  A3    RDS 148                                                          F2500400    
       00051  0 70000 0 00124        CPY CPYWD3            TAGTAG RECORD COUNT                        F2500410    
       00052  0 02000 0 00050        TRA A3                                                           F2500420    
       00053  0 76200 0 00221        RDS 145               SKIP 0VER DIAGN0STIC RECORD 0N SYSTEM TAPE F2500430    
       00054  0 02000 0 00004        TRA 4                 E.D.F. READ IN NEXT BLOCK OF INST.)-L1).=,-F2500440    
                                         THE ALPHA STATE IS N0W IN CORES.  C0NTR0L PASSES T0.C.       F2500450    
       00055  0 02000 0 00050        TRA A3                E.0.R.                         )- -.       F2500460    
       00056 -2 00001 1 00061 A3I    TNX A4,1,1            READING                                    F2500470    
       00057  0 76400 0 00222        BST 146               ERROR                                      F2500480    
       00060  0 02000 0 00033        TRA A1                ROUTINE                                    F2500490    
       00061  0 07400 4 00004  A4    TSX DIAG,4            TAPE 2 HAS G0TTEN AN ERROR CHECK 5 TIMES.  F2500500    
       00062  0 53400 2 00146  C     LXA L0,2                                           - --. - ).)=-HF2500510    
       00063  0 07400 4 00132        TSX BINIT,4           WRITE BLOCK A 0N DRUM                      F2500520    
       00064  0 76200 0 00221        RDS 145               SKIP 0VER DIAGN0STIC RECORD 0N SYSTEH TAPE F2300530    
