                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 049/049 ------           
 D     02147  1 00000 0 02256 XERR01 TXI WHICH,0                   GO FIND OUT WHICH TABLE OVERFLOWED.4F10748     
       02150 -0 53400 1 02364        LXD DI,1                                                         4F10749     
       02151  0 76600 1 00305        WDR 5,1                                                          4F10750     
 D     02152 -3 00000 0 02174 SW     TXL EBLK,0                    ENTER SUM=TXL, BLOCK SUM=TXH.      4F10751     
       02153 -3 00000 2 02156        TXL ADD04,2,0                 SKIP IF TABLE IS EMPTY.            4F10752     
       02154  1 00001 2 02155        TXI ADD03,2,1                                                    4F10753     
       02155 -2 00062 2 02163 ADD03  TNX ADD05,2,50                SKIP IF BLOCK IS NOT YET FULL.     4F10754     
       02156  0 60000 0 02365 ADD04  STZ DUMP                      START NEW BLOCK CHECKSUM.          4F10755     
       02157  0 50000 0 02361        CLA TDA                       CHANGE CHECKSUM ADDRESS.           4F10756     
       02160  0 62100 0 02362        STA FDA                                                          4F10757     
       02161  0 40000 0 01407        ADD L(1)                      SET ENTRY ADDR = CHECKSUM ADD +1.  4F10758     
       02162  0 62100 0 02361        STA TDA                                                          4F10759     
       02163 -0 50000 0 02365 ADD05  CAL DUMP                                                         4F10760     
       02164  0 36100 0 01347        ACL G                         ADD NEW FLOCON TO                  4F10761     
       02165  0 60200 0 02365        SLW DUMP                      CHECKSUM FOR THIS BLOCK.           4F10762     
       02166  0 46000 0 02362        LDA FDA                                                          4F10763     
       02167  0 70000 0 02365        CPY DUMP                      WRITE BLOCK CHECKSUM ON DRUM.      4F10764     
       02170  0 76600 1 00305        WDR 5,1                                                          4F10765     
       02171  0 46000 0 02361        LDA TDA                                                          4F10766     
       02172  0 70000 0 01347        CPY G                         WRITE NEW FLOCON ON DRUM.          4F10767     
       02173  1 00000 0 02205 XR2    TXI NOWIN,0,**                GO UPDATE FLOCON PARAMETER.        4F10768     
       02174 -0 75400 0 00000 EBLK   PXD ,0                        FOR ALL TABLES EXCEPT FLOCON=      4F10769     
       02175 -0 53400 2 02360        LXD NAR,2                     (L)                                4F10770     
       02176  0 46000 0 02361        LDA TDA                       NEXT DRUM ENTRY ADDRESS.           4F10771     
       02177 -2 00001 2 02202        TNX ESUM2,2,1                 IF L = 1,                          4F10772     
       02200 -0 70000 2 00000 ESUM1  CAD **,2                      (ARG1+L-1) WRITE NEW               4F10773     
       02201  2 00001 2 02200        TIX ESUM1,2,1                 ENTRY ON DRUM.                     4F10774     
       02202 -0 70000 0 00000 ESUM2  CAD **                        (ARG1+L-1)                         4F10775     
       02203  0 60200 0 02365        SLW DUMP                      COMPUTE AND                        4F10776     
       02204  0 70000 0 02365        CPY DUMP                      WRITE CHECKSUM FOR NEW ENTRY.      4F10777     
       02205 -0 50000 0 02360 NOWIN  CAL NAR                       UPDATE PERMANENT                   4F10778     
       02206  0 77100 0 00022        ARS 18                        PARAMETERS FOR ENTRY               4F10779     
       02207  0 40000 0 01455        ADD DECR1                     JUST ADD TO TABLE.                 4F10780     
       02210 -3 00000 0 02212 RX4    TXL RX4+2,0,**                IF TABLE WAS FLOCON,               4F10781     
       02211  0 40200 0 01407        SUB L(1)                      READJUST.                          4F10782     
       02212  0 40100 0 02361        ADM TDA                       N=N+1,TDA=TDA+(L+1) OR (L).        4F10783     
       02213  0 60100 0 00000 UPDATE STO **                        (....IX-3)                         4F10784     
       02214 -0 53400 2 02361        LXD TDA,2                     L(N)                               4F10785     
       02215  1 00000 0 02247 XR4    TXI OUT,0,**                  GET TAG AND EXIT.                  4F10786     
       02216 -0 53400 4 02223 NXBLK  LXD NC,4                                                         4F10787     
       02217 -0 53400 2 02362        LXD FDA,2                     L(K*L),K=K.                        4F10788     
       02220 -0 53400 1 02360 NEW    LXD NAR,1                     L(L)                               4F10789     
       02221  0 50000 1 00000 TRY    CLA **,1                      (ARG1+L)                           4F10790     
       02222  0 34000 2 00000 BUFL   CAS **,2                      (BUFR OR CTABL)                    4F10791     
       02223  1 00000 0 02225 NC     TXI NC+2,0,**                 NOT FOUND.                         4F10792     
       02224  1 77777 2 02242        TXI YEA,2,-1                  K*L = K*L-1.                       4F10793     
       02225 -2 00001 4 02144        TNX BUFFM1,4,1                N = N-1 OR ITEM NOT IN TABLE.      4F10794     
       02226 -0 63400 1 02227        SXD NC+4,1                                                       4F10795     
       02227  2 00000 2 02220        TIX NEW,2,**                  K = K-1.                           4F10796     
       02230 -0 63400 4 02223        SXD NC,4                      SAVE CURRENT VALUE OF N,           4F10797     
       02231 -0 50000 0 02363        CAL DBL                       AND GET NEW BLOCK.                 4F10798     
       02232  0 40100 0 02362        ADM FDA                                                          4F10799     
       02233  0 62100 0 02362        STA FDA                                                          4F10800     
       02234 -0 53400 2 02241        LXD NTL,2                                                        4F10801     
