                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 257/261 ------           
       05450  1 77767 1 05451        TXI TRAW20,1,-9               TAKE NEXT DO                       F2209250    
 D     05451 -3 00000 1 05471 TRAW20 TXL TRAW70,1  .   IF NONE, EXIT..=(DEC)HAS DOTAG IX)             F2209260    
       05452  0 50000 1 00740        CLA DOTAGZ+5,1                0BTAIN L WORD--)-- .=.             F2209270    
       05453 -0 73400 4 00000        PDX 0,4                       PUT-L IN XRC.                      F2209280    
 D     05454 -3 00000 4 05471 TRAW30 TXL TRAW70,4                  EXIT-IF-DO=IS N0T IN RANGE R1      F2209290    
       05455 -3 00001 2 05446        TXL TRAW10,2,1                IF COMPLETE TEST,G0 BACK-- -.      F2209300    
       05456  0 50000 1 00734 TRAW35 CLA DOTAGZ+1,1                IF INCOMPLETE TEST,IS-THIS A       F2209310    
       05457  0 40200 0 03736        SUB RSYM2                     DO T0-BE SKIPPED-...- )-.= -       F2209320    
       05460 -0 10000 0 05446        TNZ TRAW10                    IF N0T, G0-8ACK                    F2209330    
       05461  0 50000 1 00740        CLA DOTAGZ+5,1                THIS DO IS T0 8E SKIPPED           F2209340    
       05462  0 62200 0 05467        STD TRAW60                    PUT LEVEL-OF THIS-DO.IN-TEST INSTR.F2209350    
       05463  1 77767 1 05464 TRAW40 TXI TRAW50,1,-9               TAKE NEXT DO IF ANY- .- )--) .--=4.F2209360    
 D     05464 -3 00000 1 05471 TRAW50 TXL TRAW70,1      IF N0T, EXIT. 0THERWISE, (DEC.HAS DOTAG IX)    F2209370    
       05465  0 50000 1 00740        CLA DOTAGZ+5,1                0BTAIN L WORD-- - --- --)-- ...    F2209380    
       05466 -0 73400 4 00000        PDX 0,4                       PUT L IN XRC                       F2209390    
 D     05467  3 00000 4 05463 TRAW60 TXH TRAW40,4                  IF DO IS IN RANGE OF R2,G0 BACK    F2209400    
 D     05470 -3 00000 0 05454 TRAW65 TXL TRAW30,0                  0THERWISE,GO TO TRAL30..-- ----.   F2201I10    
       05471 -0 53400 4 05470 TRAW70 LXD TRAW65,4                           .      ) - --             F2209420    
       05472  0 50000 0 03761        CLA L(36)                     0BTAIN 36 IN DECREMENT             F2209430    
       05473  0 40200 0 03741        SUB TL2                       361TL2 -- .- ---4-)-=)             F2209440    
       05474  0 77100 0 00022        ARS 18                        IN ADDRESS                         F2209450    
       05475  0 62100 0 05505        STA TRAW90                    INITIALIZE SHIFT                   F2209460    
       05476  0 50000 0 03741        CLA TL2                       0BTAIN-TL2 --.))                   F2209470    
       05477  0 40200 0 03740        SUB TL1                       TL2-TL1                            F2209480    
       05500  0 77100 0 00022        ARS 18                        IN ADDRESS                         F2209490    
       05501  0 62100 0 05504        STA TRAW80                    INITIALIZE SHIFT                   F2209500    
       05502  0 50000 0 03751        CLA L(0)                      ACC C0NTAINS ZER0                  F2209510    
       05503  0 56000 0 03771        LDQ 35ONES                    MQ C0NTAINS ALL ONES               F2209520    
 A     05504  0 76300 0 00000 TRAW80 LLS                           PUT TL2-TL1 ONES-IN-ACC            F2209530    
 A     05505  0 76700 0 00000 TRAW90 ALS                           P0SITION ONES IN ACC---            F2209540    
       05506 -0 32000 0 03747        ANA TRABIT                    AND IN TRANSFER BITS               F2209550    
       05507  0 02000 4 00001        TRA 1,4                       G0 BACK T0 CALLING.INSTR PLUS ONE  F2209560    
                                         SUBROUTINES TAGENT AND TETAPE                                F2209570    
       05510 -0 53400 1 04010 TAGENT LXD TAGXX,1                   THIS ROUTINE ENTERS                F2209580    
       05511  3 00000 1 05513        TXH TE10,1,0                  ONE ENTRY.IN TAGZ,-                F2209590    
       05512  0 07400 2 05522        TSX TETAPE,2                  IF P0SSIBLE. IF N0T,               F2209600    
       05513 -0 53400 2 03755 TE10   LXD L(4),2                    TRA T0 TETAPE.    ..               F2209610    
       05514  0 50000 2 05067 TE20   CLA E1+4,2                                                       F2209620    
       05515  0 60100 1 06771        STO TAGZ,1                                                       F2209630    
       05516  1 77777 1 05517        TXI TE30,1,-1                                                    F2209640    
       05517  2 00001 2 05514 TE30   TIX TE20,2,1                                                     F2209650    
       05520 -0 63400 1 04010        SXD TAGXX,1                                                      F2209660    
       05521  0 02000 4 00001        TRA 1,4                                                          F2209670    
       05522  0 76600 0 00224 TETAPE WRS ATAPE                     THIS ROUTINE                       F2209680    
       05523 -0 53400 1 04010        LXD TAGXX,1                   ENTERS ALL THE VALID               F2209690    
       05524 -0 63400 1 05530        SXD TE50,1                    ENTRIES IN TAGZ 0N                 F2209700    
       05525  0 53400 1 04010        LXA TAGXX,1                   THE TAPE                           F2209710    
       05526  0 70000 1 06771 TE40   CPY TAGZ,1                    THE LAST ENTRY 0N TAPE             F2209720    
       05527  1 77777 1 05530        TXI TE50,1,-1                 AFTER EACH NEST IS)- -             F2209730    
 D     05530  3 00000 1 05526 TE50   TXH TE40,1                    AN ENTRY OF 4 WDS-OF 35 ONES       F2209740    
       05531  0 53400 1 04010        LXA TAGXX,1                                        -    --       F2209750    
       05532 -0 63400 1 04010        SXD TAGXX,1                                                      F2209760    
       05533  0 02000 2 00001        TRA 1,2                                                          F2209770    
                                         ROUTINE RELC0N PINGPQNGS INSTRUCT(0NS                        F2209780    
