                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 061/061 ------           
                                         FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4.                  4F11394     
       03321 -0 63400 2 01100 TET00  SXD TETXR2,2                  SAVE THE C(XR2),                   4F11395     
       03322 -0 63400 4 01101        SXD TETXR4,4                  SAVE THE C(XR4), AND               4F11396     
       03323 -0 60000 0 01103        STQ TETMQR                    SAVE THE C(MQR).                   4F11397     
       03324  0 50000 1 00001        CLA 1,1                       COMPUTE TABLE NUMBER               4F11398     
       03325  0 76700 0 00001        ALS 1                         TIMES 3                            4F11399     
       03326  0 40000 1 00001        ADD 1,1                       AND                                4F11400     
       03327  0 76000 0 00006        COM                           PLACE THE 2S COMPLEMENT            4F11401     
       03330  0 40000 0 01407        ADD L(1)                      OF THIS                            4F11402     
       03331  0 73400 2 00000        PAX 0,2                       IN XR2                             4F11403     
       03332  0 50000 2 00322        CLA INTET,2                   OBTAIN THE CURRENT                 4F11404     
       03333  0 77100 0 00022        ARS 18                        B (BUFFER CAPACITY),               4F11405     
       03334  0 60100 0 01102        STO TETWRK                    AND SAVE IT. THEN                  4F11406     
       03335  0 50000 2 00324        CLA INTET+2,2                 GET P (PORTION OF BUFFER FULL),    4F11407     
       03336  0 77100 0 00022        ARS 18                        AND                                4F11408     
       03337  0 40200 0 01102        SUB TETWRK                    COMPARE TO B.                      4F11409     
       03340 -0 10000 0 03356        TNZ TET03                     IF BUFFER IS FULL,                 4F11410     
       03341  0 62200 2 00324        STD INTET+2,2                 SET P = 0, AND                     4F11411     
       03342  0 76600 0 00224 TET01  WRS TABTAP                    PREPARE TO WRITE BLOCK ON TABTAP.  4F11412     
       03343  0 53400 4 01102        LXA TETWRK,4                  SET XR4 = BLOCK SIZE (B).          4F11413     
       03344  0 50000 0 01102        CLA TETWRK                    ADD BLOCK SIZE TO                  4F11414     
       03345  0 40000 2 00322        ADD INTET,2                   ORGIN OF CURRENT BLOCK (O).        4F11415     
       03346  0 62100 0 03350        STA TET02                     AND SET ADDRESS OF COPY LOOP (O+B).4F11416     
       03347  0 70000 1 00001        CPY 1,1                       COPY TABLE NUM FOR IDENTIFICATION. 4F11417     
       03350  0 70000 4 00000 TET02  CPY **,4                      WRITE BLOCK ONTO                   4F11418     
       03351  2 00001 4 03350        TIX TET02,4,1                 TABLE TAPE, AND                    4F11419     
       03352  0 76600 0 00333        IOD                           WHEN DONE,                         4F11420     
       03353  0 50000 2 00324        CLA INTET+2,2                 INCREASE C (BLOCK COUNT)           4F11421     
       03354  0 40000 0 01407        ADD L(1)                      BY 1 FOR                           4F11422     
       03355  0 62100 2 00324        STA INTET+2,2                 BLOCK JUST WRITTEN ON TABLE TAPE.  4F11423     
       03356  0 50000 2 00324 TET03  CLA INTET+2,2                 ADD P (PORTION OF BUFFER FULL)     4F11424     
       03357  0 77100 0 00022        ARS 18                        TO O (ORIGIN OF CURRENT TABLE      4F11425     
       03360  0 40000 2 00322        ADD INTET,2                   BUFFER) TO SET                     4F11426     
       03361  0 62100 0 03371        STA TET05                     ADDRESS OF ENTRY LOOP (P+O).       4F11427     
       03362  0 50000 2 00323        CLA INTET+1,2                 OBTAIN CURRENT A (ENTRY ADDRESS),  4F11428     
       03363  0 62100 0 03370        STA TET04                     AND SET ADDRESS OF ENTRY LOOP.     4F11429     
       03364 -0 73400 4 00000        PDX ,4                        SET XR4 = E (ENTRY LENGTH IN WRDS).4F11430     
       03365  0 40000 2 00324        ADD INTET+2,2                 INCREASE P BY E TO ACCOUNT         4F11431     
       03366  0 62200 2 00324        STD INTET+2,2                 FOR FOLLOWING ENTRY.               4F11432     
       03367 -0 53400 2 01406        LXD L(0),2                    SET XR2 = 0. THEN                  4F11433     
       03370  0 50000 2 00000 TET04  CLA **,2                      MOVE THE CURRENT ENTRY             4F11434     
       03371  0 60100 2 00000 TET05  STO **,2                      INTO THE CURRENT TABLE BUFFER, AND 4F11435     
       03372  1 77777 2 03373        TXI TET06,2,-1                WHEN                               4F11436     
       03373  2 00001 4 03370 TET06  TIX TET04,4,1                 DONE,                              4F11437     
       03374  0 56000 0 01103        LDQ TETMQR                    RESTORE ORIGINAL C(MQR),           4F11438     
       03375 -0 53400 2 01100        LXD TETXR2,2                  RESTORE ORIGINAL C(XR2),           4F11439     
       03376 -0 53400 4 01101        LXD TETXR4,4                  RESTORE ORIGINAL C(XR4), AND       4F11440     
       03377  0 02000 1 00002        TRA 2,1                     * EXIT TO MAIN ROUTINE.              4F11441     
                                          END OF PROGRAM TET00.                                       4F11442     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11443     
                                                                                                      4F11444     
                                         DIAGNOSTIC CALLERS=CD000,CB000,CC000,CA100,C0200,C0300,C090, 4F11445     
                                         C1000,C1200,C3000,C3100,C3200,C3400,C0150,C0160,C0180,TEST..,4F11446     
                                         SR6DC1,DRTABS,RDRX,DIM.SR,SS000,ROYCNV,RDC,RSC,LPR,EQS,RPR,  4F11447     
