                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 321/325 ------           
       04301  2 00001 4 04300        TIX SUB070,4,1        3 ATTEMPTS ARE HADE                        F250480     
       04302  0 60200 0 04330        SLW SUBES2            T0 READ SC C0RRECTLY,                      F250481     
       04303  0 50000 0 04330        CLA SUBES2            IF ERROR STILL PRESENT,                    F250482     
       04304  0 40200 0 04327        SUB SUBES1            COMPLETE ROUTINE, RETURN.                  F250483     
       04305  0 10000 0 04310        TZE SUB075            CHECK SUMS AGREE, TRA.                     F250484     
       04306  2 00001 1 04241        TIX SUB010,1,1        ERROR, TRY UP T0 5 TIMES.                  F250485     
       04307  0 07400 4 00004        TSX DIAG,4            DRUM 4 READING ERROR 5 TIMES.              F250486     
       04310 -0 53400 4 04325 SUB075 LXD SUB0RG+1,4        REARRANGE C1,C2,D1, AND D2.                F250487     
       04311  0 50000 4 03645 SUB080 CLA WRKSC+7,4                                                    F250488     
       04312  0 73400 2 00000        PAX 0,2               C2 INTO XB.                                F250489     
       04313 -0 32000 0 05142        ANA DECMSK                                                       F250490     
       04314  0 60100 4 03645        STO WRKSC+7,4         WD1 DECREMENT IS C1)                       F250491     
       04315 -0 75400 2 00000        PXD 0,2               WD7 DECREMENT IS D1.                       F250492     
       04316 -2 00006 4 04321        TNX SUB090,4,6                                                   F250493     
       04317  0 60100 0 03640        STO WRKSC+2                                                      F250494     
 D     04320 -3 00000 0 04311 SUB085 TXL SUB080,0                                                     F250495     
       04321  0 60100 0 03645 SUB090 STO WRKSC+7           WD8 DECREMENT IS D2.                       F250496     
       04322 -0 53400 4 04320        LXD SUB085,4          RESTORE LINKAGE INDEX.                     F250497     
       04323  0 02000 4 00001 SUB100 TRA 1,4                                                          F250498     
       04324 +000006001356    SUB0RG OCT 000006001356      DECREMENT IS 6, ADD. IS 0RG. TAU3.         F250499     
       04325 +000007000454           OCT 000007000454      DECREMENT IS 7, ADD. IS 0RG. TAU2          F2505000    
       04326 +000010000000           OCT 000010000000      DECREMENT IS 8, ADD. IS 0RG. TAU1          F2505010    
 A     04327  0 00000 0 00000 SUBES1 HTR                                                              F2505020    
 A     04330  0 00000 0 00000 SUBES2 HTR                                                              F2505030    
       04331  0 00000 0 00000 SUBTAG                                                                  F2505040    
                                         *************************************************************F2505050    
                                         L0C0 ASSIGNS A RELATIVE L0CATION (INSTRUCTION NUMBER), AND UPF2505060    
                                         DATES A COUNTER FOR THE NEXT ASSIGNMENT.                     F2505070    
       04332  0 50000 0 05222 L0C0   CLA L0CIND                                                       F2505080    
       04333  0 10000 2 00001        TZE 1,2               L0CATION ALREADY ASS1GNED.                 F2505090    
       04334  0 50000 0 05133        CLA L(0)              IF L0CIND GREATER                          F2505100    
       04335  0 60100 0 05222        STO L0CIND                                                       F2505110    
       04336  0 50000 0 05176        CLA CIL00             T0 ZER0.                                   F2505120    
       04337 -0 10000 2 00001        TNZ 1,2               IF CIL00 HAS N0T BEEN                      F2505130    
       04340  0 50000 0 05244        CLA VCTR                                                         F2505140    
       04341  0 60100 0 05176        STO CIL00             UPDATE VCTR.                               F2505150    
       04342  0 40000 0 05110        ADD L(8)                                                         F2505160    
       04343  0 60100 0 05244        STO VCTR                                  -                      F2505170    
       04344  0 02000 2 00001        TRA 1,2               START COMPARING BUFFER                     F2505180    
                                         *************************************************************F2505190    
                                         CIT ENTERS A COMPILED INSTRUCTION INTO THE COMPILED INSTRUCT)F2505200    
                                         I0N BUFFER.  IF THE BUFFER IS FULL, CITSP (WHICH IS PART OF CF2505210    
                                         CIT) WRITES IT ONTO TAPE 3.                                  F2505220    
       04345 -0 63400 1 05174 CIT    SXD E2C,1             SIZE T0 CURRENT WORD COUNT.                F2505230    
       04346 -0 63400 2 05175        SXD E3C,2                                                        F2505240    
       04347  0 07400 2 04332        TSX L0C0,2                                                       F2505250    
       04350 -0 53400 2 05173        LXD BB0X,2            COMP OF CURRENT WORD COUNT.                F2505260    
       04351  3 77634 2 04362        TXH CIT04,2,-100      IF BUFFER INITIALLY                        F2505270    
       04352 -0 53400 2 05173 CITSP  LXD BB0X,2                                                       F2505280    
       04353 -3 00000 2 04362        TXL CIT04,2,0         WRITE                                      F2505290    
       04354  0 76600 0 00223        WRS 147               BUFFER                                     F2505300    
       04355  0 53400 1 05133        LXA L(0),1            0N TAPE 3.                                 F2505310    
       04356  0 70000 1 00030 CIT01  CPY CIB,1             COPY LOOP.                                 F2505320    
       04357  1 77777 1 04360        TXI CIT02,1,-1                                                   F2505330    
