                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 237/241 ------           
       07143  2 00001 4 07137 RTD20  TIX RTD15,4,1                 READING IN                         F2108460    
       07144  1 00003 4 07145 RTD23  TXI RTD25,4,3                 THE NEXT ENTRY.                    F2108470    
       07145  0 60100 1 02537 RTD25  STO DOTAGZ,1                  STORE ZER0                         F2108480    
       07146  1 77777 1 07147        TXI RTD30,1,-1                INDEX                              F2108490    
       07147  0 60100 1 02537 RTD30  STO DOTAGZ,1                  AND REPEAT.                        F2108500    
       07150  1 77777 1 07151        TXI RTD35,1,-1                WHEN DOTAG                         F2108510    
       07151  0 60100 1 02537 RTD35  STO DOTAGZ,1                  ENTRY IS                           F2108520    
       07152  1 77777 1 07153        TXI RTD40,1,-1                COMPLETE,                          F2108530    
       07153  0 60100 1 02537 RTD40  STO DOTAGZ,1                  TRA                                F2108540    
       07154  1 77777 1 07136        TXI RTD10,1,-1                T0 RTD10                           F2108550    
       07155  0 02506 0 02537 DOAD   HTR DOTAGZ,0,1350             ADDRESS PART C0NTAINS              F2108560    
       07156  0 01750 0 04510 4VALAD HTR 4VALZ,0,1000              ADDRESS OF LAST WORD IN            F2108570    
       07157  0 01130 0 03670 TIFAD  HTR TIFZ,0,600                TABLE PLUS ONE.                    F2108580    
       07160  0 00372 0 04263 TRADAD HTR TRADZ,0,250               DEC C0NTAINS HAX NR OF             F2108590    
       07161  0 02734 0 05474 4VARAD HTR 4VARZ,0,1500              WRDS.                              F2108600    
       07162  0 02734 0 03670 4TAGAD HTR FORTZ,0,1500                                                 F2108610    
                                         TRANSFER IN EXTENDED RANGE BIT.                              F2108620    
       07163 -0 76000 0 00143 LB00   MSE 99                        TEST FOR EMPTY DOTAG               F2108630    
       07164  0 02000 0 07167        TRA LB02                      OFF, N0T EMPTY                     F2108640    
       07165  0 76000 0 00143        PSE 99                        0N, EMPTY, RESET LIGHT             F2108650    
       07166  0 02000 0 07215        TRA EB00                      AND EX1T                           F2108660    
       07167 -0 53400 1 00030 LB02   LXD DOTAG-1,1                 0BTAIN NEXT UNUSED INDEX           F2108670    
 D     07170 -3 00000 0 07213 LB05   TXL LB60,0                    TRA T0 ADJUST FOR LAST DO.         F2108680    
       07171  0 50000 1 02545 LB10   CLA DOTAGZ+6,1                0BTAIN T1 WORD.                    F2108690    
       07172 -0 12000 0 07213        TMI LB60                      TEST SIGN, TRA IF NEG.             F2108700    
       07173 -0 32000 0 05511        ANA BITONE                    TEST FOR TRA IN IMMED. RANGE.      F2108710    
       07174  0 10000 0 07213        TZE LB60                      IF NONE,TRA.                       F2108720    
       07175 -0 63400 1 07170        SXD LB05,1                    SAVE XRA                           F2108730    
       07176  0 50000 1 02544        CLA DOTAGZ+5,1                PUT LEVEL                          F2108740    
       07177 -0 73400 2 00000        PDX 0,2                       IN XRB                             F2108750    
       07200 -0 50000 0 05510 LB20   CAL LMSK                      0R IN                              F2108760    
       07201 -0 60200 1 02545        ORS DOTAGZ+6,1                MSK                                F2108770    
       07202 -3 00001 2 07212        TXL LB50,2,1                  EXIT IF LEVEL ONE.                 F2108780    
       07203  1 00011 1 07204 LB25   TXI LB30,1,9                  FIND NEXT BACK                     F2108790    
       07204  0 50000 1 02544 LB30   CLA DOTAGZ+5,1                SUBNEST DQ,                        F2108800    
       07205  0 62200 0 07206        STD LB40                                                         F2108810    
 D     07206 -3 00000 2 07203 LB40   TXL LB25,2                                                       F2108820    
       07207 -0 73400 2 00000        PDX 0,2                       SAVE NEW LEVEL IN XRB.             F2108830    
       07210  0 50000 1 02545        CLA DOTAGZ+6,1                TEST SIGN OF WORD T1.              F2108840    
       07211  0 12000 0 07200        TPL LB20                      IF PLUS GO TO PUT IN MSK.          F2108850    
       07212 -0 53400 1 07170 LB50   LXD LB05,1                    IF N0T, FIND NEXT DO               F2108860    
       07213  1 00011 1 07214 LB60   TXI LB70,1,9                  IN MAIN PASS.                      F2108870    
       07214 -3 02506 1 07171 LB70   TXL LB10,1,1350               EB00 FOLLOWS                       F2108880    
                                         END OF BLOCK ROUTINE                                         F2108890    
       07215  0 77200 0 00223 EB00   REW 147                       REWIND DOTAG TAPE                  F2108900    
       07216 -0 76000 0 00143        MSE 99                        TEST FOR EMPTY DQTAG               F2108910    
       07217  0 02000 0 07222        TRA EB10                      OFF, N0T EMPTY                     F2108920    
       07220  0 76000 0 00143        PSE 99                        0N, EMPTY, RESTORE AND TRA.        F2108930    
       07221  0 02000 0 07237        TRA EB50                                                         F2108940    
       07222 -0 53400 1 00030 EB10   LXD DOTAG-1,1                 INITIALIZE TEST INSTR.             F21089S0    
       07223 -0 63400 1 07234        SXD EB40,1                    AND                                F2108960    
       07224 -0 53400 1 05506        LXD L(1350,1                  XRA                                F2108970    
       07225 -0 53400 4 05503 EB20   LXD L(9),4                    WRITE                              F2108980    
       07226  0 50000 1 02544        CLA DOTAGZ+5,1                DOTAG                              F2108990    
